Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug288_4
1 puts "========================"
2 puts " OCC288 "
3 puts "(case 4)"
4 puts "========================"
5
6 restore [locate_data_file shading_151.brep] result 
7 puts [checkshape result]
8
9 tclean result
10 vinit
11 vdisplay result
12 vsetdispmode result 1
13 isos result 0
14 triangles result
15 vfit
16
17 set tri 0
18 set nod 0
19 set info [trinfo result]
20 regexp { +([-0-9.+eE]+) +triangles} $info full tri
21 regexp { +([-0-9.+eE]+) +nodes} $info full nod
22 puts [format " tri= %s  nod= %s " $tri $nod]
23
24 if { $tri != 4176 && $nod != 2857} {
25    puts "Warning:  OCC288 (case 4)  looks like OK, but visual checking is required !!!!"
26 } else {
27    puts " OCC288 (case 4) : Faulty"
28 }
29
30 set only_screen 1
31