0e94a94e |
1 | |
2 | puts "========" |
3 | puts "OCC264" |
4 | puts " (case 7)" |
5 | puts "========" |
6 | |
7 | restore [locate_data_file OCC264_07.brep] 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 | #smallview |
19 | #fit |
20 | |
21 | set tri_info [trinfo result] |
22 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
23 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
24 | |
25 | if { ($tri != 114 && $nod != 116) && ($tri != 116 && $nod != 118) } { |
26 | puts "Shady OCC264_7: here may be shading problem" |
27 | } else { |
28 | puts "Shading of OCC264_7 is OK" |
29 | } |
30 | |
31 | set square 150.283 |
a87752f3 |
32 | set 3dviewer 0 |
0e94a94e |
33 | |