puts "========================" puts " OCC288 " puts "(case 2)" puts "========================" restore [locate_data_file shading_105.brep] result checkshape result tclean result vinit vdisplay result vsetdispmode result 1 isos result 0 triangles result vfit set tri 0 set nod 0 set info [trinfo result] regexp { +([-0-9.+eE]+) +triangles} $info full tri regexp { +([-0-9.+eE]+) +nodes} $info full nod puts [format " tri= %s nod= %s " $tri $nod] if { $tri != 1170 && $nod != 647} { puts " Warning: OCC288 (case 2) looks like OK, but visual checking is required !!!!" } else { puts " OCC288 (case 2) : Faulty" } set only_screen 1