mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
29 lines
899 B
Plaintext
29 lines
899 B
Plaintext
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
|