Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug17
1 puts "TODO OCC12345 ALL: Faulty OCC17: here can be shading problem"
2
3 puts "================"
4 puts "OCC17"
5 puts "================"
6 puts ""
7
8 #####################################################
9 puts " Solid_14 will be the face which is unvisible during displaying entire solid."
10 #####################################################
11
12 restore [locate_data_file OCC17.brep] sh 
13
14 puts [checkshape sh]
15
16 explode sh f
17 renamevar sh_14 result
18 tclean result
19 vinit
20 vdisplay result
21 vsetdispmode result 1
22 vfit
23
24 set info [trinfo result]
25 regexp { +([-0-9.+eE]+) +triangles} $info full tri
26 regexp { +([-0-9.+eE]+) +nodes} $info full nod
27
28 if { $tri != 100 && $nod != 94 }  {
29   puts "Faulty OCC17: here can be shading problem"
30 }
31
32 set 2dviewer 0
33
34