0e94a94e |
1 | |
2 | puts "========" |
3 | puts "OCC264" |
4 | puts " (case 0)" |
5 | puts "========" |
6 | |
7 | restore [locate_data_file OCC264_00.rle] result |
352ffd73 |
8 | checkshape result |
0e94a94e |
9 | |
10 | tclean result |
11 | vinit |
12 | vdisplay result |
13 | vclear |
14 | |
15 | isos result 0 |
16 | triangles result |
17 | |
18 | set tri_info [trinfo result] |
19 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
20 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
21 | |
22 | if { $tri != 6 && $nod != 8 } { |
23 | puts "Faulty OCC264_0: here is shading problem" |
24 | } else { |
25 | puts "Shading of OCC264_0 is OK" |
26 | } |
27 | |
28 | set square 1.3135 |
a87752f3 |
29 | set 3dviewer 0 |