Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug264_0
1
2 puts "========"
3 puts "OCC264"
4 puts " (case 0)"
5 puts "========"
6
7 restore [locate_data_file OCC264_00.rle] result
8 puts [checkshape result]
9
10 tclean result
11 vinit
12 vdisplay result
13 vclear
14
15 isos result 0
16 triangles result
17
18 set tri_info [trinfo result]
19 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
20 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
21
22 if { $tri != 6 && $nod != 8 }  {
23     puts "Faulty OCC264_0: here is shading problem"
24 } else {
25     puts "Shading of OCC264_0 is OK"
26 }
27
28 set square 1.3135
29 set 2dviewer 0