92b5d955bc03f6b5abebfffcfea04aef7b397413
[occt.git] / tests / bugs / iges / buc60820_1
1 puts "========================"
2 puts "BUC60820"
3 puts "========================"
4
5 igesbrep [locate_data_file buc60820.igs] a *
6
7 tpcompound result
8
9 checkshape result r
10
11 tclean result
12 incmesh result 0.1
13 triangles result
14 set info [trinfo result]
15 regexp { +([-0-9.+eE]+) +triangles} $info full tri
16 regexp { +([-0-9.+eE]+) +nodes} $info full nod
17
18 if { $tri <= 0 || $nod <= 0 } {
19     puts "Error : Problems with shading"
20 }
21
22 checkview -display result -2d -path ${imagedir}/${test_image}.png