Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug264_7
1
2 puts "========"
3 puts "OCC264"
4 puts " (case 7)"
5 puts "========"
6
7 restore [locate_data_file OCC264_07.brep] 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 #smallview
19 #fit
20
21 set tri_info [trinfo result]
22 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
23 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
24
25 if { ($tri != 114 && $nod != 116) && ($tri != 116 && $nod != 118) }  {
26     puts "Shady OCC264_7: here may be shading problem"
27 } else {
28     puts "Shading of OCC264_7 is OK"
29 }
30
31 set square 150.283
32 set 3dviewer 0
33