2 puts "0029290: Visualization, TKOpenGl - allow defining Light source per ZLayer"
5 pload MODELING VISUALIZATION
9 vinit View1 -width 1024 -height 768
13 vrenderparams -shadingModel phong
29 set aLayers [list [vzlayer -add -disable depthClear] [vzlayer -add -disable depthClear] [vzlayer -add -disable depthClear]]
30 for { set aLayIter 0 } { $aLayIter < 3 } { incr aLayIter } {
31 set aLayer [lindex $aLayers $aLayIter]
32 set aShiftX [expr $aLayIter * 4]
34 vdisplay -dispMode 1 -layer $aLayer s$aLayer
35 vsetlocation s$aLayer $aShiftX 0 0
36 for { set aLightIter 0 } { $aLightIter < 10 } { incr aLightIter } {
37 set aLight [lindex $THE_LIGHTS $aLightIter]
38 set aColor [lindex $aLight 3]
39 set aPos [list [expr $aShiftX + [lindex $aLight 0]] [lindex $aLight 1] [lindex $aLight 2]]
40 vlight -layer $aLayer -add positional -pos {*}$aPos -color $aColor -headLight 0
41 vpoint v${aLayIter}_${aLightIter} {*}$aPos
42 vdrawtext t${aLayIter}_${aLightIter} "l${aLayIter}_${aLightIter} $aColor" -pos {*}$aPos -color $aColor
46 vdump $::imagedir/${::casename}.png