1 puts "========================"
3 puts "========================"
5 ##########################################
6 ## different checkshape result under ros and rosdeb in KAS:dev.
7 ##########################################
9 restore [locate_data_file OCC437.brep] result
11 set che [checkshape result r]
13 if { [regexp {OK} $che] != 1 } {
14 puts " Faulty OCC437: function CHECKSHAPE works wrongly"
16 puts " OCC437 OK: function CHECKSHAPE works properly"
19 set square 0.000201234