Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug481
1  
2 puts "========================"
3 puts " OCC481 "
4 puts "========================"
5 puts ""
6 ##########################################
7 ##Attached shape could not be displayed in the Shading mode.
8 ##########################################
9
10 restore [locate_data_file OCC481.rle] result
11 puts [checkshape result]
12
13 tclean result
14 vinit
15 vdisplay result
16 vfit
17 vsetdispmode result 1
18
19 set tri 0
20 set nod 0
21
22 set tri_info [trinfo result]
23 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
24 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
25
26 if { $tri == 72 && $nod == 74 } {
27     puts " OCC481 : OK"
28 } else {
29     puts " OCC481 : Faulty"
30 }
31
32 set square 314.159
33 set 3dviewer 1