a87752f3 |
1 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
2 | puts "TODO OCC12345 ALL: OCC287 : Faulty" |
3 | |
4 | puts "========================" |
5 | puts " OCC287 " |
6 | puts "========================" |
7 | |
8 | restore [locate_data_file shading_170.brep] result |
352ffd73 |
9 | checkshape result |
a87752f3 |
10 | |
11 | tclean result |
12 | isos result 0 |
13 | incmesh result .1 |
14 | triangles result |
15 | |
16 | # set 3dviewer 1 |
17 | |
18 | set tri 0 |
19 | set nod 0 |
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 != 604 && $nod != 363} { |
26 | puts " Warning: OCC287 looks like OK, but visual checking is required !!!!" |
27 | } else { |
28 | puts "OCC287 : Faulty" |
29 | } |
30 | |
31 | puts "" |
32 | puts "Besides, it is impossible to load this shape in 3D Viewer" |
33 | vinit |
34 | vdisplay result |
35 | vfit |
36 | vsetdispmode result 1 |
37 | |
38 | set square 0 |
39 | set 3dviewer 0 |
40 | |