Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug344
1 puts "================"
2 puts "BUC61047"
3 puts "OCC344"
4 puts "================"
5 puts ""
6
7 #############################################
8 ## An exception - <access violation> is raised during visualization.
9 #############################################
10
11 restore [locate_data_file OCC344.brep] result 
12 puts [checkshape result]
13 tclean result
14
15 vinit
16 vdisplay result
17 vsetdispmode result 1
18 vfit
19 vclear
20 isos result 0
21 triangles result
22
23 set info [trinfo result]
24 regexp { +([-0-9.+eE]+) +triangles} $info full tri
25 regexp { +([-0-9.+eE]+) +nodes} $info full nod
26
27 if { $tri == 9 && $nod == 8 }  {
28    puts "Warning OCC344: here is shading problem"
29 } else {
30    puts "Shading of OCC344 looks like OK, but visual checking is required"
31 }
32
33 set only_screen 1
34
35