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