2d7cfa830f74a58075e43fd9f6ca87d72eadc00e
[occt.git] / tests / bugs / iges / buc60820_2
1 puts "========================"
2 puts "BUC60820"
3 puts "========================"
4
5 igesbrep [locate_data_file buc60820.igs] a *
6
7 tpcompound result
8 checkshape result r
9
10 tclean result
11 vinit
12 vdisplay result
13 vsetdispmode result 1
14 vfit
15
16 set info [trinfo result]
17 regexp { +([-0-9.+eE]+) +triangles} $info full tri
18 regexp { +([-0-9.+eE]+) +nod} $info full nod
19
20
21 if { $tri != 1655 || $nod != 1143 } {
22     puts "Shading problem may be, nb tri & nod were changed"
23 }
24
25 checkview -display result -2d -path ${imagedir}/${test_image}.png
26