1 puts "================"
3 puts "================"
6 restore [locate_data_file OCC19.brep] result
13 set info [trinfo result]
14 regexp { +([-0-9.+eE]+) +triangles} $info full tri
15 regexp { +([-0-9.+eE]+) +nodes} $info full nod
17 if { $tri != 88 && $nod != 90 } {
18 puts "Faulty OCC19: here is shading problem"