7 restore [locate_data_file OCC264_07.brep] result
21 set tri_info [trinfo result]
22 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
23 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
25 if { ($tri != 114 && $nod != 116) && ($tri != 116 && $nod != 118) } {
26 puts "Shady OCC264_7: here may be shading problem"
28 puts "Shading of OCC264_7 is OK"