0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / v3d / glsl / phong_pos3
1 puts "========"
2 puts "0029290: Visualization, TKOpenGl - allow defining Light source per ZLayer"
3 puts "========"
4
5 pload MODELING VISUALIZATION
6
7 vclear
8 vclose ALL
9 vinit View1 -width 1024 -height 768
10
11 vaxo
12 vcaps -ffp 0
13 vrenderparams -shadingModel phong
14 vlight clear
15
16 set THE_LIGHTS {
17   { -1 -1 -1 RED1 }
18   {  1 -1 -1 YELLOW }
19   { -1  1 -1 BLUE }
20   { -1 -1  1 CYAN }
21   {  1  1 -1 PURPLE }
22   {  1  1  1 WHITE }
23   { -1  1  1 HOTPINK }
24   {  1 -1  1 GREEN }
25   {  0 -1  0 MAGENTA }
26   {  0  1  0 MAGENTA3 }
27 }
28
29 set aLayers [list [vzlayer -add -disable depthClear] [vzlayer -add -disable depthClear] [vzlayer -add -disable depthClear]]
30 for { set aLayIter 0 } { $aLayIter < 3 } { incr aLayIter } {
31   set aLayer [lindex $aLayers $aLayIter]
32   set aShiftX [expr $aLayIter * 4]
33   psphere s$aLayer 0.5
34   vdisplay -dispMode 1 -layer $aLayer s$aLayer
35   vsetlocation s$aLayer $aShiftX 0 0
36   for { set aLightIter 0 } { $aLightIter < 10 } { incr aLightIter } {
37         set aLight [lindex $THE_LIGHTS $aLightIter]
38     set aColor [lindex $aLight 3]
39     set aPos [list [expr $aShiftX + [lindex $aLight 0]] [lindex $aLight 1] [lindex $aLight 2]]
40     vlight -layer $aLayer -add positional -pos {*}$aPos -color $aColor -headLight 0
41     vpoint v${aLayIter}_${aLightIter} {*}$aPos
42     vdrawtext t${aLayIter}_${aLightIter} "l${aLayIter}_${aLightIter} $aColor" -pos {*}$aPos -color $aColor
43   }
44 }
45 vfit
46 vdump $::imagedir/${::casename}.png