puts "================================================================================================="
puts "0028621: Visualization - AIS_ColoredShape::UnsetTransparency() is not implemented"
puts "================================================================================================="

pload VISUALIZATION MODELING
box b 1 2 3
vclear
vinit View1
vdisplay -noupdate -dispMode 1 b
vfit

# OK
set aColor11 [vreadpixel 250 250 rgb name]
vsettransparency b 0.8
vunsettransparency b
set aColor12 [vreadpixel 250 250 rgb name]
if { "$aColor11" != "$aColor12" } { puts "Error: color is not set back" }

explode b F
vaspects b -subShapes b_2 -setColor RED

set aColor21 [vreadpixel 250 250 rgb name]
vsettransparency b 0.8
vunsettransparency b
set aColor22 [vreadpixel 250 250 rgb name]
if { "$aColor21" != "$aColor22" } { puts "Error: color is not set back" }

vdump $imagedir/${casename}.png
