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