992ed6b3 |
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 |
aaf8d6a9 |
19 | set THE_COLORS { RED1 YELLOW BLUE CYAN PURPLE WHITE HOTPINK GREEN MAGENTA MAGENTA3 } |
06d40093 |
20 | vlight -clear |
992ed6b3 |
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 | } |
0d828ac8 |
36 | vdump ${imagedir}/${casename}.png |