Commit | Line | Data |
---|---|---|
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 | ||
26 | set only_screen 1 |