puts "========"
puts "0029283: Visualization - allow defining more than 8 light sources"
puts "========"

pload MODELING VISUALIZATION

# display objects
vclear
vclose ALL
vinit View1 -width 1024 -height 768
vcaps -ffp 0
vrenderparams -shadingModel phong
vaxo
for { set anObjIter 0 } { $anObjIter < 3 } { incr anObjIter } {
  set aShiftX [expr -4 + $anObjIter * 4]
  psphere s$anObjIter 0.5
  vdisplay -dispMode 1 s$anObjIter
  vsetlocation s$anObjIter $aShiftX 0 0
}
vfit

# define lights
set THE_LIGHTS {
  { -1 -1 -1 RED1 }
  {  1 -1 -1 YELLOW }
  { -1  1 -1 BLUE }
  { -1 -1  1 CYAN }
  {  1  1 -1 PURPLE }
  {  1  1  1 WHITE }
  { -1  1  1 HOTPINK }
  {  1 -1  1 GREEN }
  { -4 -1  0 MAGENTA }
  {  4 -1  0 MAGENTA3 }
}
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
  vpoint v${aLightIter} {*}$aPos
  vdrawtext t${aLightIter} "light${aLightIter} $aColor" -pos {*}$aPos -color $aColor
  vdump $::imagedir/${::casename}_${aLightIter}.png
}