puts "========"
-puts "OCC25775"
+puts "0025775: Default Gradient Backgound in V3d_Viewer has no effect in new created V3d_View"
puts "========"
puts ""
-################################################################
-# "Default Gradient Backgound" in V3d_Viewer has no effect in new created V3d_View.
-################################################################
-pload ALL
+pload VISUALIZATION
vbackground -default -gradient BLACK GRAY25 -gradientMode HORIZONTAL
vinit View1 w=400 h=400
-if { [checkcolor 399 100 0.25 0.25 0.25] != 1 } {
- puts "Error: bug with default gradient color is reproduced."
-}
+if { [vreadpixel 399 100 -rgb -name] != "GRAY25" } { puts "Error: bug with default gradient color is reproduced." }
vinit View2 w=400 h=400
-if { [checkcolor 399 100 0.25 0.25 0.25] != 1 } {
- puts "Error: bug with default gradient color is reproduced."
-}
+if { [vreadpixel 399 100 -rgb -name] != "GRAY25" } { puts "Error: bug with default gradient color is reproduced." }
-vbackground -default -color 0.501961 0.501961 0.501961
+vbackground -default -color GRAY50
vinit View3
-if { [checkcolor 100 100 0.5 0.5 0.5] != 1 } {
- puts "Error: bug with default background color is reproduced."
-}
+if { [vreadpixel 100 100 -rgb -name] != "GRAY50" } { puts "Error: bug with default background color is reproduced." }