0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / tests / v3d / glsl / 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 add 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 }