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