Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug109
1 puts "TODO OCC12345 ALL: Faulty BUC61057: here can be shading problem"
2
3 puts "================"
4 puts "BUC61057"
5 puts "OCC109"
6 puts "================"
7 puts ""
8 ##########################################################
9 ## Visualisation of the attached shape is wrong in the shading mode.
10 ##########################################################
11
12 restore [locate_data_file OCC109.brep] result
13
14 puts [checkshape result]
15
16 vinit
17 tclean result
18 vdisplay result
19 vsetdispmode result 1
20 vfit
21
22 set tri_info [trinfo result]
23 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
24 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
25
26 if { $tri != 294 && $nod != 300 }  {
27     puts "Faulty BUC61057: here can be shading problem"
28 } else {
29     puts "Shading of BUC61057 is OK"
30 }
31
32 set square 33.8757
33 set 3dviewer 2