puts "==========="
puts "BUC60740"
puts "==========="
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

vinit
box b 0 0 0 10 10 10
pcylinder c 10 10
vdisplay b
vsetdispmode b 1
vdisplay c
vsetdispmode c 1
vfit
vsettransparency c 0.5

set x_coord 154
set y_coord 257


checkcolor $x_coord $y_coord 0.6 0.4 0.07

if {$stat != 1} {
   puts "Error :function vsettransparency works WRONGLY"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
