tests/opengl/data/shading/phong_pos4

   1 puts "========"
   2 puts "0029283: Visualization - allow defining more than 8 light sources"
   3 puts "Test case creates about 100 of light sources."
   4 puts "========"
   5
   6 pload MODELING VISUALIZATION
   7
   8 vclear
   9 vclose ALL
  10 vinit View1
  11 vcaps -ffp 0
  12 vrenderparams -shadingModel phong
  13 box b -50 5 -50 100 100 100
  14 vdisplay -dispMode 1 b
  15 vfront
  16 vfit
  17
  18 # define lights
  19 set THE_COLORS { RED1 YELLOW BLUE CYAN PURPLE WHITE HOTPINK GREEN MAGENTA MAGENTA3 }
  20 vlight clear
  21 set aNbColors 10
  22 set aLightIndex 0
  23 set aConstAtten 0.1
  24 set aLinAtten 1
  25 set aRand [expr srand(1)]
  26 for { set anZIter -50 } { $anZIter <= 50 } { set anZIter [expr $anZIter + 10] } {
  27   for { set anXIter -50 } { $anXIter <= 50 } { set anXIter [expr $anXIter + 10] } {
  28     set anIndex [expr {int(rand() * $aNbColors)}]
  29     set aColor [lindex $THE_COLORS $anIndex]
  30     set aPos "$anXIter 0 $anZIter"
  31     vlight -add positional -pos {*}$aPos -color $aColor -headLight 0 -constAttenuation $aConstAtten -linearAttenuation $aLinAtten
  32     vpoint v${aLightIndex} {*}$aPos
  33     set aLightIndex [expr $aLightIndex + 1]
  34   }
  35 }
  36 vdump ${imagedir}/${casename}.png