puts "========================" puts " OCC288 " puts "(case 1)" puts "========================" restore [locate_data_file shading_058.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 != 5148 && $nod != 3042} { puts " Warning: OCC288 (case 1) looks like OK, but visual checking is required!!" } else { puts " OCC288 (case 1) : Faulty" } set only_screen 1