1 puts "================================================================================================="
2 puts "0028621: Visualization - AIS_ColoredShape::UnsetTransparency() is not implemented"
3 puts "================================================================================================="
5 pload VISUALIZATION MODELING
9 vdisplay -noupdate -dispMode 1 b
13 set aColor11 [vreadpixel 250 250 rgb name]
14 vsettransparency b 0.8
16 set aColor12 [vreadpixel 250 250 rgb name]
17 if { "$aColor11" != "$aColor12" } { puts "Error: color is not set back" }
20 vaspects b -subShapes b_2 -setColor RED
22 set aColor21 [vreadpixel 250 250 rgb name]
23 vsettransparency b 0.8
25 set aColor22 [vreadpixel 250 250 rgb name]
26 if { "$aColor21" != "$aColor22" } { puts "Error: color is not set back" }
28 vdump $imagedir/${casename}.png