0032121: Draw Harness, ViewerTest - implement -reset option for vlight command

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

diff --git a/samples/tcl/pathtrace_ball.tcl b/samples/tcl/pathtrace_ball.tcl
index 9e9f79e..25952d6 100644 (file)
--- a/samples/tcl/pathtrace_ball.tcl
+++ b/samples/tcl/pathtrace_ball.tcl
@@ -59,10 +59,10 @@ for {set i 0} {$i < 12} {incr i} {
 }
 
 # Configure light sources
 }
 
 # Configure light sources

-vlight -change 0 -head 0
+vlight -change 0 -headLight 0

 vlight -change 0 -direction -0.25 -1 -1
 vlight -change 0 -direction -0.25 -1 -1

-vlight -change 0 -sm   0.3
-vlight -change 0 -int 10.0
+vlight -change 0 -smoothAngle 17
+vlight -change 0 -intensity 10.0

 
 # Load environment map
 vtextureenv on 1
 
 # Load environment map
 vtextureenv on 1