0e94a94e |
1 | |
2 | puts "========================" |
3 | puts " OCC258 " |
4 | puts "(case 2)" |
5 | puts "========================" |
6 | |
7 | restore [locate_data_file shading_144.brep] result |
8 | puts [checkshape result] |
9 | |
10 | tclean result |
11 | isos result 0 |
12 | vinit |
13 | vdisplay result |
14 | vsetdispmode result 1 |
15 | vfit |
16 | triangles result |
17 | |
18 | set info [trinfo result] |
19 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
20 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
21 | |
22 | if { $tri < 70 || $nod < 72 } { |
23 | puts "Error (case 2) : here is shading problem" |
24 | } |
25 | |
26 | set 3dviewer 0 |
27 | |
28 | |