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