1 if { [string compare $command "ShapeConvertRev"] == 0 } {
2 puts "TODO OCC23127 ALL: Error : shape result is not correct"
3 puts "TODO OCC23127 ALL: Error : The square of result shape is"
5 if {[string compare $command "SplitAngle"] == 0 } {
6 puts "TODO OCC23127 ALL: Faulty shapes in variables faulty_1 to faulty_8 "
8 restore [locate_data_file m2] a