if {[string compare $command "ShapeConvertRev"] == 0 } {
- puts "TODO OCC23127 ALL: Error : The square of result shape is "
+ puts "TODO OCC23127 ALL: Error : The area of the resulting shape is "
}
if {[string compare $command "SplitAngle"] == 0 } {
puts "TODO OCC23127 ALL: Faulty shapes in variables faulty_1 to faulty_2 "