Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug347_2
1  
2 puts "========================"
3 puts " BUC60959 "
4 puts " OCC347 "
5 puts " (case 2) "
6 puts "========================"
7
8 restore [locate_data_file OCC347b.brep] result
9 puts [checkshape result]
10
11 tclean result
12 vinit
13 vdisplay result
14 vfit
15 vsetdispmode result 1
16 set 3dviewer 1
17
18 set tri 0
19 set nod 0
20 set tri_info [trinfo result]
21 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
22 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
23
24 if { $tri == 71 && $nod == 73} {
25         puts " OCC347  case 2: OK"
26 } else {
27         puts " OCC347  case 2: Faulty"
28 }
29
30 set square 100.531
31 set 2dviewer 0
32