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