0032121: Draw Harness, ViewerTest - implement -reset option for vlight command
[occt.git] / samples / tcl / pathtrace_ball.tcl
index 9e9f79e..25952d6 100644 (file)
@@ -59,10 +59,10 @@ for {set i 0} {$i < 12} {incr i} {
 }
 
 # Configure light sources
-vlight -change 0 -head 0
+vlight -change 0 -headLight 0
 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