0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / v3d / glsl / 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 }