tests/v3d/transparency/highlight

   1 puts "========"
   2 puts "Transparency - shading highlight"
   3 puts "========"
   4
   5 psphere s 1
   6 vinit View1
   7 vdisplay -dispMode 1 s
   8 vfit
   9 vsettransparency s 0.5
  10 vrenderparams -oit 0
  11 vselprops dynHighlight -dispMode -1
  12 vmoveto 250 250
  13 checkcolor 250 250 0 1 1
  14 if { $stat != 1 } {
  15    puts "Error : Highlighting is broken."
  16 }