puts "============"
puts "OCC6145"
puts "============"
puts ""
##################################################################
# Incorrect rendering of a transparent object
##################################################################

set BugNumber OCC6145

box b 200 100 100

plane p 20 20 50
pcylinder c1 p 10 80

tcopy c1 c2
ttranslate c2 40 0 0
tcopy c2 c3
ttranslate c3 40 0 0
tcopy c3 c4
ttranslate c4 40 0 0
tcopy c4 c5
ttranslate c5 40 0 0

compound c1 c2 c3 c4 c5 co
cut r b co

vinit
vsetdispmode 1
vdisplay r
vfit

set x_coord 270
set y_coord 230

checkcolor $x_coord $y_coord 0.78 0.55 0.09

vsettransparency r 0.5

checkcolor $x_coord $y_coord 0.8 0.56 0.1

set RED_3 0.86274498701095581
set GREEN_3 0.61176401376724243
set BLUE_3 0.10196000337600708

set only_screen 1

