61c421bf |
1 | puts "TODO OCC11111 ALL: Faulty OCC264_12: here is shading problem" |
2 | puts "TODO OCC11111 ALL: Error : The square of result shape is" |
3 | |
4 | puts "========" |
5 | puts "OCC264" |
6 | puts " (case 12)" |
7 | puts "========" |
8 | |
9 | restore [locate_data_file OCC264_12.brep] result |
10 | |
11 | tclean result |
12 | vinit |
13 | vdisplay result |
14 | vclear |
15 | |
16 | isos res 0 |
17 | triangles result |
18 | |
19 | #smallview |
20 | #fit |
21 | |
22 | set tri_info [trinfo result] |
23 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
24 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
25 | |
26 | if { $tri != 19 && $nod != 21 } { |
27 | puts "Faulty OCC264_12: here is shading problem" |
28 | } else { |
29 | puts "Shading of OCC264_12 is OK" |
30 | } |
31 | |
32 | set square 0 |
33 | set 2dviewer 0 |