tests/bugs/vis/bug28127

   1 puts "==========="
   2 puts "OCC28127"
   3 puts "Visualization - transparent object breaks Z-Layer depth buffer clear"
   4 puts "==========="
   5 puts ""
   6
   7 pload MODELING VISUALIZATION
   8 box r 0 0   0 1 0.1 1
   9 box g 0 0.2 0 1 0.1 1
  10 box b 0 0.4 0 1 0.1 1
  11
  12 vclear
  13 vinit View1
  14 vaxo
  15 vdisplay -noupdate -dispMode 1 -top r g b
  16 vsetcolor -noupdate r RED
  17 vsetcolor -noupdate g GREEN
  18 vsetcolor -noupdate b BLUE1
  19 vfit
  20
  21 vdisplay -topmost g
  22 vzbufftrihedron -on -position left_upper
  23
  24 vsettransparency b 0.5
  25
  26 if { [vreadpixel 150 150 rgb name] != "GREEN3" } { puts "Error: wrong color - GREEN box should overlap RED one" }
  27 if { [vreadpixel  84  64 rgb name] == "RED3"   } { puts "Error: wrong color - Trihedron should overlap RED box" }
  28
  29 vdump $imagedir/${casename}.png