1 puts "========================"
3 puts "========================"
5 igesbrep [locate_data_file buc60823.igs] a *
17 set info [trinfo result]
18 regexp { +([-0-9.+eE]+) +triangles} $info full tri
19 regexp { +([-0-9.+eE]+) +nodes} $info full nod
21 if { $tri != 17618 || $nod != 11153 } {
22 puts "Shading problem may be, nb tri & nod are changed"
25 checkview -display result -2d -path ${imagedir}/${test_image}.png