ee58d0428dff781f2913f3deeb1cfa8944dbbd35
[occt.git] / tests / bugs / vis / buc60661
1 puts "=================================="
2 puts "BUC60661"
3 puts "It takes visual check for this BUG"
4 puts "=================================="
5 puts ""
6
7 pload XDE
8
9 ##################################################################
10 ##DESCRIPTION: It is impossible to nominate "sheding" mode in 3D-viewer for the some shapes in
11 ##  C30 (SUN station), which were stored in "IGES" format previousl and then were retrieved again 
12 ## into "BREP" format. 
13 ##################################################################
14
15 restore [locate_data_file buc60661a.brep] buc60661
16 checkshape buc60661
17
18 ######################################################################
19 file delete ${imagedir}/buc60661.igs } 
20 brepiges buc60661 ${imagedir}/buc60661.igs
21 ######################################################################
22
23 dall
24
25 if [catch { igesbrep ${imagedir}/buc60661.igs a * } res] {
26   puts "Faulty BUC60661: here is reading problem of iges file"
27 } else {
28   puts "Reading of iges in BUC60661 is OK"
29 }
30
31 tpcompound result
32 checkshape result
33
34 vinit
35 tclean result
36 vdisplay result
37 vsetdispmode result 1
38
39 set info [trinfo result]
40 regexp { +([-0-9.+eE]+) +triangles} $info full tri
41 regexp { +([-0-9.+eE]+) +nodes} $info full nod
42
43 if { $tri == 0 || $nod ==0 }  {
44   puts "Error : here is shading problem"
45 }
46
47 checkview -screenshot -3d -path ${imagedir}/${test_image}.png