a87752f3 |
1 | puts "========================" |
2 | puts " OCC433 " |
3 | puts "========================" |
4 | puts "" |
5 | ######################################################### |
6 | ## The attached face gives no errors in checkshape command in dev. However, it looks bad |
7 | ######################################################### |
8 | |
9 | restore [locate_data_file OCC433.brep] result |
10 | |
11 | decho off |
12 | set err [checkshape result r] |
13 | decho on |
14 | |
15 | if { [regexp {OK} $err] == 1} { |
16 | puts " Faulty OCC433: function CHECKSHAPE works wrongly" |
17 | } else { |
18 | puts " OCC433 OK: function CHECKSHAPE works properly" |
19 | } |
20 | |
21 | set 2dviewer 0 |
22 | |