352ffd73 |
1 | puts "============" |
2 | puts "OCC904" |
3 | puts "============" |
4 | puts "" |
5 | ##################################################### |
6 | ## Invalid resut shell after command fixshell in DRAW with non-manifold mode |
7 | ##################################################### |
8 | |
9 | pload QAcommands |
10 | |
11 | restore [locate_data_file OCC904.brep] a |
12 | |
13 | if [ catch { set res [OCC904 result a 1] } ] { |
14 | puts "Faulty OCC904 (case 1)" |
15 | } else { |
16 | set info [checkshape result] |
17 | set index [lsearch $result Faulty] |
18 | if { [regexp "Faulty" $info] == 1 } { |
19 | puts "Faulty OCC904 (case 2)" |
20 | } else { |
21 | puts "OCC904 OK" |
22 | } |
23 | } |
24 | |
25 | set 2dviewer 1 |
26 | |