a87752f3 |
1 | puts "============ OCC288 (case 5) ===============" |
2 | |
3 | restore [locate_data_file OCC288e.brep] result |
352ffd73 |
4 | checkshape result |
a87752f3 |
5 | |
6 | tclean result |
7 | vinit |
8 | vdisplay result |
9 | vsetdispmode result 1 |
10 | isos result 0 |
11 | triangles result |
12 | vfit |
13 | |
14 | set tri 0 |
15 | set nod 0 |
16 | set info [trinfo result] |
17 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
18 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
19 | puts [format " tri= %s nod= %s " $tri $nod] |
20 | |
21 | # ($tri == 7826 && $noe == 8246) || ($tri == 8218 && $noe == 8638),aki251103 |
22 | |
23 | if { ($tri == 6268 && $noe == 6688) } { |
24 | puts "Shading of OCC288 (case 5) looks like OK, but visual checking is required !" |
25 | } else { |
26 | puts " Shady: Shading of OCC288 (case 5) may be bad, nb tri & nod changed" |
27 | } |
28 | |
29 | set only_screen 1 |
30 | |