puts "TODO OCC12345 ALL: Faulty OCC264_9: here is shading problem" puts "TODO OCC12345 ALL: Error : The square of result shape is" puts "========" puts "OCC264" puts " (case 9)" puts "========" restore [locate_data_file OCC264_09.brep] result puts [checkshape result] tclean result vinit vdisplay result vclear isos result 0 triangles result #smallview #fit set tri_info [trinfo result] regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod if { $tri != 19 && $nod != 21 } { puts "Faulty OCC264_9: here is shading problem" } else { puts "Shading of OCC264_9 is OK" } set square 0 set 3dviewer 0