1 puts "================"
3 puts "================"
6 restore [locate_data_file OCC19.brep] result
7 puts [checkshape result]
16 set info [trinfo result]
17 regexp { +([-0-9.+eE]+) +triangles} $info full tri
18 regexp { +([-0-9.+eE]+) +nodes} $info full nod
20 #$tri/$nod:122/124aki251103
22 if { $tri != 83 && $nod != 85 } {
23 puts "Shady OCC19: shading problem may be, nb tri & nod were changed"