tests/opengl/data/shading/phong_pos2

   1 puts "========"
   2 puts "0029283: Visualization - allow defining more than 8 light sources"
   3 puts "========"
   4
   5 pload MODELING VISUALIZATION
   6
   7 # display objects
   8 vclear
   9 vclose ALL
  10 vinit View1 -width 1024 -height 768
  11 vcaps -ffp 0
  12 vrenderparams -shadingModel phong
  13 vaxo
  14 for { set anObjIter 0 } { $anObjIter < 3 } { incr anObjIter } {
  15   set aShiftX [expr -4 + $anObjIter * 4]
  16   psphere s$anObjIter 0.5
  17   vdisplay -dispMode 1 s$anObjIter
  18   vsetlocation s$anObjIter $aShiftX 0 0
  19 }
  20 vfit
  21
  22 # define lights
  23 set THE_LIGHTS {
  24   { -1 -1 -1 RED1 }
  25   {  1 -1 -1 YELLOW }
  26   { -1  1 -1 BLUE }
  27   { -1 -1  1 CYAN }
  28   {  1  1 -1 PURPLE }
  29   {  1  1  1 WHITE }
  30   { -1  1  1 HOTPINK }
  31   {  1 -1  1 GREEN }
  32   { -4 -1  0 MAGENTA }
  33   {  4 -1  0 MAGENTA3 }
  34 }
  35 vlight -clear
  36 for { set aLightIter 1 } { $aLightIter <= 10 } { incr aLightIter } {
  37   set aLight [lindex $THE_LIGHTS [expr $aLightIter - 1]]
  38   set aColor [lindex $aLight 3]
  39   set aPos [list [lindex $aLight 0] [lindex $aLight 1] [lindex $aLight 2]]
  40   vlight pntlight${aLightIter} -type POSITIONAL -pos {*}$aPos -color $aColor -headLight 0
  41   vpoint v${aLightIter} {*}$aPos
  42   vdrawtext t${aLightIter} "light${aLightIter} $aColor" -pos {*}$aPos -color $aColor
  43   vdump $::imagedir/${::casename}_${aLightIter}.png
  44 }