a87752f3 |
1 | puts "========================" |
2 | puts " OCC288 " |
3 | puts "(case 1)" |
4 | puts "========================" |
5 | |
6 | restore [locate_data_file shading_058.brep] result |
352ffd73 |
7 | checkshape result |
a87752f3 |
8 | |
9 | tclean result |
10 | vinit |
11 | vdisplay result |
12 | vsetdispmode result 1 |
13 | isos result 0 |
14 | triangles result |
15 | vfit |
16 | |
17 | set tri 0 |
18 | set nod 0 |
19 | set info [trinfo result] |
20 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
21 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
22 | puts [format " tri= %s nod= %s " $tri $nod] |
23 | |
24 | if { $tri != 5148 && $nod != 3042} { |
25 | puts " Warning: OCC288 (case 1) looks like OK, but visual checking is required!!" |
26 | } else { |
27 | puts " OCC288 (case 1) : Faulty" |
28 | } |
29 | |
30 | set only_screen 1 |
31 | |