0030991: Draw Harness - ViewerTest::ParseColor() defines out-of-range alpha component

[occt.git] / samples / tcl / materials.tcl

diff --git a/samples/tcl/materials.tcl b/samples/tcl/materials.tcl
index c3d4867..e377752 100644 (file)
--- a/samples/tcl/materials.tcl
+++ b/samples/tcl/materials.tcl
@@ -69,7 +69,7 @@ vclose ALL
 vinit View1 w=768 h=768
 vtop
 vglinfo
 vinit View1 w=768 h=768
 vtop
 vglinfo

-vsetgradientbg 180 200 255 180 180 180 2
+vbackground -gradient 0.705882 0.784314 1  0.705882 0.705882 0.705882 -gradientMode VERTICAL

 
 vlight -change 0 -dir 0.577 -0.577 -0.577
 vrenderparams -msaa 8
 
 vlight -change 0 -dir 0.577 -0.577 -0.577
 vrenderparams -msaa 8


@@ -86,3 +86,4 @@ drawObjects 0 ""
 drawObjects 1 red
 drawObjects 2 green
 drawObjects 3 blue1
 drawObjects 1 red
 drawObjects 2 green
 drawObjects 3 blue1

+vrepaint