tests/bugs/vis/bug29874

   1 puts "============"
   2 puts "0029874: Visualization - capping plane transparency does not work"
   3 puts "============"
   4 puts ""
   5
   6 pload MODELING VISUALIZATION
   7 box b1 -30 0  30 20 20 20
   8 box b2 -30 0   0 20 20 20
   9 box b3 -30 0 -30 20 20 20
  10 box b4 -30 0 -60 20 20 20
  11 vclear
  12 vinit View1
  13 vzbufftrihedron
  14 vdisplay -dispMode 1 b1 b2 b3 b4
  15 vviewparams -scale 12.7 -proj 0.6 -0.16 0.79 -up -0.65 0.5 0.58 -at -24 12.4 -1.1
  16 vaspects b1 b4 -setTransparency 0.5
  17 vaspects b2 -setColor RED
  18 vaspects b3 -setColor GREEN
  19
  20 vclipplane pln1 -set b1 b2 -equation -0.707 0.707 0 -25 -capping on -useObjMaterial 1
  21 vclipplane pln2 -set b3 b4 -equation -0.707 0.707 0 -25 -capping on -color 0.5 0.5 0.9 -transparency 0.2
  22
  23 vdump $imagedir/${casename}.png