projects / occt.git / blame
| 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 1 | |
| 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 |