tests/bugs/vis/bug270_1

   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
  15 checkcolor ${x1} ${y1} 1 0 0
  16
  17 vzclipping FRONT
  18 set ZClippingMode [lindex [vzclipping] 2]
  19 if {${ZClippingMode} != "FRONT"} {
  20     puts "OCC270: Error (ZClippingMode != FRONT)"
  21 }
  22
  23 checkcolor ${x1} ${y1} 1 0 0
  24 vfit
  25
  26 set only_screen 1