6 ###########################################
7 ## Bug in meshing of the enclosed face
8 ###########################################
10 restore [locate_data_file OCC179.brep] result
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
24 if { $tri == 1874 || $nod == 1861} {
25 puts " OCC179 shading: OK"
27 puts " OCC179 shading: Faulty"