a87752f3 |
1 | puts "========================" |
2 | puts " OCC441 " |
3 | puts "(case 1)" |
4 | puts "========================" |
5 | puts "" |
6 | ############################### |
7 | ## Instability of BRepCheck check status. |
8 | ############################### |
9 | |
10 | restore [locate_data_file OCC441a.brep] result |
11 | |
12 | decho off |
13 | set err [checkshape result r] |
14 | decho on |
15 | |
16 | set j 1 |
17 | repeat 25 { |
18 | restore [locate_data_file OCC441a.brep] result |
19 | decho off |
20 | set err1 [checkshape result r] |
21 | decho on |
22 | if { $err != $err1 } { |
23 | puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j] |
24 | break |
25 | } else { |
26 | puts [format " OCC441 OK: function CHECKSHAPE works properly %s time" $j] |
27 | } |
28 | incr j |
29 | } |
30 | |
31 | set 2dviewer 0 |