1 puts "============ OCC288 (case 5) ==============="
3 restore [locate_data_file OCC288e.brep] result
5 #Delete invalid (in terms of bug#25109) triangulation
18 set info [trinfo result]
19 regexp { +([-0-9.+eE]+) +triangles} $info full tri
20 regexp { +([-0-9.+eE]+) +nodes} $info full nod
21 puts [format " tri= %s nod= %s " $tri $nod]
23 # ($tri == 7826 && $noe == 8246) || ($tri == 8218 && $noe == 8638),aki251103
25 if { ($tri == 6268 && $noe == 6688) } {
26 puts "Shading of OCC288 (case 5) looks like OK, but visual checking is required !"
28 puts " Shady: Shading of OCC288 (case 5) may be bad, nb tri & nod changed"