tests/bugs/vis/bug28621

   1 puts "================================================================================================="
   2 puts "0028621: Visualization - AIS_ColoredShape::UnsetTransparency() is not implemented"
   3 puts "================================================================================================="
   4
   5 pload VISUALIZATION MODELING
   6 box b 1 2 3
   7 vclear
   8 vinit View1
   9 vdisplay -noupdate -dispMode 1 b
  10 vfit
  11
  12 # OK
  13 set aColor11 [vreadpixel 250 250 rgb name]
  14 vsettransparency b 0.8
  15 vunsettransparency b
  16 set aColor12 [vreadpixel 250 250 rgb name]
  17 if { "$aColor11" != "$aColor12" } { puts "Error: color is not set back" }
  18
  19 explode b F
  20 vaspects b -subShapes b_2 -setColor RED
  21
  22 set aColor21 [vreadpixel 250 250 rgb name]
  23 vsettransparency b 0.8
  24 vunsettransparency b
  25 set aColor22 [vreadpixel 250 250 rgb name]
  26 if { "$aColor21" != "$aColor22" } { puts "Error: color is not set back" }
  27
  28 vdump $imagedir/${casename}.png