puts "============"
puts "OCC22819"
puts "Redesign of OpenGl driver(Tests ColorScale)"
puts "============"
puts ""

set BugNumber OCC22819

plane p 100 100 100 0 0 1 1 0 0
psphere result p 30
vinit View1
vdisplay result
vsetmaterial result SILVER
vsettransparency result 0.6
vcolorscale cs -demo
vsetdispmode result 1 

checkprops result -s 11309.6 
checkshape result
checkview -screenshot -3d -path ${imagedir}/${test_image}.png