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