puts "========================"
puts " OCC288 "
puts "(case 4)"
puts "========================"

restore [locate_data_file shading_151.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 != 4176 && $nod != 2857} {
   puts "Warning:  OCC288 (case 4)  looks like OK, but visual checking is required !!!!"
} else {
   puts " OCC288 (case 4) : Faulty"
}

set only_screen 1

