2 puts "========================"
4 puts "========================"
6 ##########################################
7 ## different checkshape result under ros and rosdeb in KAS:dev.
8 ##########################################
10 restore [locate_data_file OCC437.brep] result
12 set che [checkshape result r]
14 if { [regexp {OK} $che] != 1 } {
15 puts " Faulty OCC437: function CHECKSHAPE works wrongly"
17 puts " OCC437 OK: function CHECKSHAPE works properly"
20 set square 0.000201234