a87752f3 |
1 | puts "================" |
2 | puts "OCC19" |
3 | puts "================" |
4 | puts "" |
5 | |
6 | restore [locate_data_file OCC19.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 | |
16 | set info [trinfo result] |
17 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
18 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
19 | |
20 | #$tri/$nod:122/124aki251103 |
21 | |
22 | if { $tri != 83 && $nod != 85 } { |
23 | puts "Shady OCC19: shading problem may be, nb tri & nod were changed" |
24 | } |
25 | |
26 | set 3dviewer 0 |
27 | |
28 | |