tests/bugs/vis/bug30756

   1 puts "============="
   2 puts "0030756: Visualization, TKOpenGl - capping plane does not work for ZLayer with non-zero origin"
   3 puts "============="
   4
   5 pload MODELING VISUALIZATION
   6 box b 1 2 3
   7 vclear
   8 vclose ALL
   9 vinit View1
  10 vzbufftrihedron
  11 vaxo
  12 vdisplay -dispMode 1 b
  13 vfit
  14 vclipplane p 1 -equation  0 1 0 -1 -set -capping 1
  15 if { [vreadpixel 200 200 rgb name] != "GRAY14" } { puts "Error: capping does not work with zero origin" }
  16 vzlayer DEFAULT -origin 0 10 0
  17 if { [vreadpixel 200 200 rgb name] != "GRAY14" } { puts "Error: capping does not work with non-zero origin" }
  18
  19 vdump ${imagedir}/${casename}.png