tests/bugs/vis/bug29768

   1 puts "============"
   2 puts "0029768: Visualization, TKOpenGl - structure is entirely clipped by suppressed clipping"
   3 puts "============"
   4 puts ""
   5
   6 vclear
   7 vinit View1
   8 vaxo
   9 vpoint p0 0 0 0
  10 vzbufftrihedron
  11 box b0 0 0 0 1 1 1
  12 box b1 3 0 0 1 1 1
  13 vdisplay -dispMode 1 b0 b1
  14 vsetcolor b0 RED
  15 vsetcolor b1 GREEN
  16 vfit
  17
  18 vclipplane pv  equation -1 0 0  0.5 -set
  19 vclipplane pb0 equation  0 1 0 -0.5 -set b0
  20 vclipplane pb1 equation  0 1 0 -0.5 -setOverrideGlobal b1
  21
  22 if { [vreadpixel 300 200 rgb name] != "GREEN3" } { puts "Error: box b1 is fully clipped" }
  23 vdump $imagedir/${casename}.png