1 puts "========================"
3 puts "========================"
5 igesbrep [locate_data_file buc60820.igs] a *
9 puts [checkshape result r]
14 set info [trinfo result]
15 regexp { +([-0-9.+eE]+) +triangles} $info full tri
16 regexp { +([-0-9.+eE]+) +nodes} $info full nod
18 if { $tri <= 0 || $nod <= 0 } {
19 puts "Error : Problems with shading"