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 -demo
vsetdispmode result 1 

set square 11309.6
set only_screen 1