Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug316
1 puts "================"
2 puts "OCC316"
3 puts "================"
4 puts ""
5
6 ########################################################
7 ## Exception is raised in the SAMTECH Application during visualization. (#2054)
8 ########################################################
9
10 restore [locate_data_file OCC316.brep] result 
11
12 decho off
13 set che [checkshape result]
14 decho on
15
16 if { [regexp "Faulty" $che] == 1 } {
17    puts "Warning OCC316: Source shape is NOT correct. It was detected by Checkshape command"
18 }
19
20 tclean result
21
22 vinit
23 vdisplay result
24 vsetdispmode result 1
25 vfit
26
27 set info [trinfo result]
28 regexp { +([-0-9.+eE]+) +triangles} $info full tri
29 regexp { +([-0-9.+eE]+) +nodes} $info full nod
30
31 if { $tri == 212909 && $nod == 158362 } {
32    puts "Warning OCC316: here is shading problem (some faces are lost)"
33 } else {
34   if { $tri == 0 || $nod == 0 } {
35   puts " Warning  OCC316: here is shading problem (shading mesh is NOT created)"
36   isos result 0
37   } else {
38     puts "Warning: Shading of OCC316 looks OK, but visual checking is required"
39   }
40 }
41
42 set only_screen 1
43