0e94a94e |
1 | |
2 | puts "========================" |
3 | puts " BUC60959 " |
4 | puts " OCC347 " |
5 | puts " (case 2) " |
6 | puts "========================" |
7 | |
8 | restore [locate_data_file OCC347b.brep] result |
352ffd73 |
9 | checkshape result |
0e94a94e |
10 | |
11 | tclean result |
12 | vinit |
13 | vdisplay result |
14 | vfit |
15 | vsetdispmode result 1 |
16 | set 3dviewer 1 |
17 | |
18 | set tri 0 |
19 | set nod 0 |
20 | set tri_info [trinfo result] |
21 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
22 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
23 | |
24 | if { $tri == 71 && $nod == 73} { |
25 | puts " OCC347 case 2: OK" |
26 | } else { |
27 | puts " OCC347 case 2: Faulty" |
28 | } |
29 | |
30 | set square 100.531 |
31 | set 2dviewer 0 |
32 | |