Commit | Line | Data |
---|---|---|
0e94a94e | 1 | |
2 | puts "========" | |
3 | puts "OCC256" | |
4 | puts "========" | |
5 | ||
6 | restore [locate_data_file OCC256.brep] result | |
352ffd73 | 7 | checkshape result |
0e94a94e | 8 | |
9 | tclean result | |
10 | vinit | |
11 | vdisplay result | |
12 | vsetdispmode result 1 | |
13 | vfit | |
14 | ||
15 | set info [trinfo result] | |
16 | regexp { +([-0-9.+eE]+) +triangles} $info full tri | |
17 | regexp { +([-0-9.+eE]+) +nodes} $info full nod | |
18 | ||
19 | if { $tri != 66 && $nod != 66 } { | |
20 | puts "Error : here is shading problem" | |
21 | } | |
22 | ||
23 | set 3dviewer 0 |