61c421bf |
1 | puts "========" |
2 | puts "OCC270" |
3 | puts "========" |
4 | |
5 | vinit |
6 | box box 10 10 10 |
7 | vaxis axis 1 1 1 7 7 7 |
8 | vdisplay box |
9 | vdisplay axis |
10 | vsetdispmode 0 |
11 | |
12 | set x1 172 |
13 | set y1 223 |
14 | |
61c421bf |
15 | checkcolor ${x1} ${y1} 1 0 0 |
16 | |
4754e164 |
17 | vzclipping FRONT |
18 | set ZClippingMode [lindex [vzclipping] 2] |
61c421bf |
19 | if {${ZClippingMode} != "FRONT"} { |
20 | puts "OCC270: Error (ZClippingMode != FRONT)" |
21 | } |
22 | |
61c421bf |
23 | checkcolor ${x1} ${y1} 1 0 0 |
24 | vfit |
25 | |
5747059b |
26 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |