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