a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty OCC264_4: here is shading problem" |
2 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
3 | |
4 | puts "========" |
5 | puts "OCC264" |
6 | puts " (case 4)" |
7 | puts "========" |
8 | |
9 | restore [locate_data_file OCC264_04.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 | #smallview |
21 | #fit |
22 | |
23 | set tri_info [trinfo result] |
24 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
25 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
26 | |
27 | if { $tri != 13 && $nod != 15 } { |
28 | puts "Faulty OCC264_4: here is shading problem" |
29 | } else { |
30 | puts "Shading of OCC264_4 is OK" |
31 | } |
32 | |
33 | set square 0 |
34 | set 3dviewer 0 |
35 | |