1puts "========"
2puts "0029290: Visualization, TKOpenGl - allow defining Light source per ZLayer"
3puts "========"
4
5pload MODELING VISUALIZATION
6
7vclear
8vclose ALL
9vinit View1 -width 1024 -height 768
10
11vaxo
12vcaps -ffp 0
13vrenderparams -shadingModel phong
14vlight -clear
15
16set THE_LIGHTS {
17  { -1 -1 -1 RED1 }
18  {  1 -1 -1 YELLOW }
19  { -1  1 -1 BLUE }
20  { -1 -1  1 CYAN }
21  {  1  1 -1 PURPLE }
22  {  1  1  1 WHITE }
23  { -1  1  1 HOTPINK }
24  {  1 -1  1 GREEN }
25  {  0 -1  0 MAGENTA }
26  {  0  1  0 MAGENTA3 }
27}
28
29set aLayers [list [vzlayer -add -disable depthClear] [vzlayer -add -disable depthClear] [vzlayer -add -disable depthClear]]
30for { set aLayIter 0 } { $aLayIter < 3 } { incr aLayIter } {
31  set aLayer [lindex $aLayers $aLayIter]
32  set aShiftX [expr $aLayIter * 4]
33  psphere s$aLayer 0.5
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
43  }
44}
45vfit
46vdump $::imagedir/${::casename}.png
47