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 checkprops result -s 0.000201234
20 checkview -display result -2d -path ${imagedir}/${test_image}.png