2 puts "0029283: Visualization - allow defining more than 8 light sources"
3 puts "Test case creates about 100 of light sources."
6 pload MODELING VISUALIZATION
12 vrenderparams -shadingModel phong
13 box b -50 5 -50 100 100 100
14 vdisplay -dispMode 1 b
19 set THE_COLORS { RED1 YELLOW BLUE1 CYAN1 PURPLE WHITE HOTPINK GREEN MAGENTA1 MAGENTA3 }
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]