0e94a94e |
1 | |
2 | puts "========" |
3 | puts "OCC179" |
4 | puts "========" |
5 | puts "" |
6 | ########################################### |
7 | ## Bug in meshing of the enclosed face |
8 | ########################################### |
9 | |
10 | restore [locate_data_file OCC179.brep] result |
11 | |
12 | tclean result |
13 | isos result 0 |
14 | incmesh result 0.01 |
15 | triangles result |
16 | |
17 | set tri 0 |
18 | set nod 0 |
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 == 1874 || $nod == 1861} { |
25 | puts " OCC179 shading: OK" |
26 | } else { |
27 | puts " OCC179 shading: Faulty" |
28 | } |
29 | |
30 | set square 12229.8 |
31 | set 3dviewer 0 |