Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug288_5
1 puts "============ OCC288 (case 5) ==============="
2
3 restore [locate_data_file OCC288e.brep] result 
4 puts [checkshape result]
5
6 tclean result
7 vinit
8 vdisplay result
9 vsetdispmode result 1
10 isos result 0
11 triangles result
12 vfit
13
14 set tri 0
15 set nod 0
16 set info [trinfo result]
17 regexp { +([-0-9.+eE]+) +triangles} $info full tri
18 regexp { +([-0-9.+eE]+) +nodes} $info full nod
19 puts [format " tri= %s  nod= %s " $tri $nod]
20
21 # ($tri == 7826 && $noe == 8246) || ($tri == 8218 && $noe == 8638),aki251103
22
23 if { ($tri == 6268 && $noe == 6688) } {
24    puts "Shading of OCC288 (case 5)  looks like OK, but visual checking is required !"
25 } else {
26    puts " Shady: Shading of OCC288 (case 5) may be bad, nb tri & nod changed"
27 }
28
29 set only_screen 1
30