0028621: Visualization - AIS_ColoredShape::UnsetTransparency() is not implemented
[occt.git] / 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