Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug264_7
CommitLineData
0e94a94e 1
2puts "========"
3puts "OCC264"
4puts " (case 7)"
5puts "========"
6
7restore [locate_data_file OCC264_07.brep] result
8puts [checkshape result]
9
10tclean result
11vinit
12vdisplay result
13vclear
14
15isos result 0
16triangles result
17
18#smallview
19#fit
20
21set tri_info [trinfo result]
22regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
23regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
24
25if { ($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
31set square 150.283
a87752f3 32set 3dviewer 0
0e94a94e 33