puts "============ OCC288 (case 5) ==============="

restore [locate_data_file OCC288e.brep] result 

#Delete invalid (in terms of bug#25109) triangulation
tclean result
checkshape 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]

# ($tri == 7826 && $noe == 8246) || ($tri == 8218 && $noe == 8638),aki251103

if { ($tri == 6268 && $noe == 6688) } {
   puts "Shading of OCC288 (case 5)  looks like OK, but visual checking is required !"
} else {
   puts " Shady: Shading of OCC288 (case 5) may be bad, nb tri & nod changed"
}

set only_screen 1

