X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fopengl%2Fdata%2Fshading%2Fphong_pos2;h=ede6aae7130dc5f45dfa6c767df0d9089ad2582b;hb=06d40093b715adf9cb1e36d25e5fde6bef2f7b41;hpb=cb7f92396f80270e13206be742038ca0ce04571a

diff --git a/tests/opengl/data/shading/phong_pos2 b/tests/opengl/data/shading/phong_pos2
index 963b79de8d..ede6aae713 100644
--- a/tests/opengl/data/shading/phong_pos2
+++ b/tests/opengl/data/shading/phong_pos2
@@ -32,12 +32,12 @@ set THE_LIGHTS {
   { -4 -1  0 MAGENTA }
   {  4 -1  0 MAGENTA3 }
 }
-vlight clear
+vlight -clear
 for { set aLightIter 1 } { $aLightIter <= 10 } { incr aLightIter } {
   set aLight [lindex $THE_LIGHTS [expr $aLightIter - 1]]
   set aColor [lindex $aLight 3]
   set aPos [list [lindex $aLight 0] [lindex $aLight 1] [lindex $aLight 2]]
-  vlight add positional pos {*}$aPos color $aColor headLight 0
+  vlight pntlight${aLightIter} -type POSITIONAL -pos {*}$aPos -color $aColor -headLight 0
   vpoint v${aLightIter} {*}$aPos
   vdrawtext t${aLightIter} "light${aLightIter} $aColor" -pos {*}$aPos -color $aColor
   vdump $::imagedir/${::casename}_${aLightIter}.png