1if {[string compare $command "ShapeConvertRev"] == 0 } {
2    puts "TODO OCC23127 ALL: Error : The resulting shape is not correct"
3}
4if {[string compare $command "SplitAngle"] == 0 } {
5    puts "TODO OCC23127 ALL: Faulty shapes in variables faulty_1 to faulty_"
6}
7restore [locate_data_file CTO900_ger60598c.rle] a
8
9
10