0032121: Draw Harness, ViewerTest - implement -reset option for vlight command
[occt.git] / tests / opengl / data / shading / gouraud_spot1
1 puts "========"
2 puts "Per-vertex lighting using built-in GLSL program, one spot light source."
3 puts "Visual comparison with the reference snapshot should be performed for this test case."
4 puts "========"
5
6 pload MODELING VISUALIZATION
7 vclear
8 vclose ALL
9 vinit View1
10
11 # create objects
12 set anX 0.001
13 circle c 0 0 0 0.001
14 mkedge e c
15 wire   w e
16 plane  s
17 mkface f1 s w
18 mkface f2 s w
19 ttranslate f1 $anX -0.001 0
20
21 # display objects
22 vtop
23 vdisplay -dispMode 1 f1 f2
24 vsetlocation f2 $anX 0.001 0
25 vpoint vl $anX 0 0.001
26 vfit
27
28 # setup light
29 vcaps -ffp 0
30 vrenderparams -shadingModel vert
31 vlight -clear
32 vlight spot -type SPOTLIGHT -pos $anX 0 0.001 -dir 0 0 -1 -spotAngle 60 -constAtten 0.1 -exponent 0.1 -color RED1 -headLight 0
33
34 set aColor1 [vreadpixel 205 180 rgb name]
35 set aColor2 [vreadpixel 205 220 rgb name]
36 if { "$aColor1" != "RED" || "$aColor2" != "RED" } {
37   puts "Error: expected color near the light spot is RED"
38 }
39
40 set aColor3 [vreadpixel 205 132 rgb name]
41 set aColor4 [vreadpixel 205 280 rgb name]
42 if { "$aColor3" != "RED" || "$aColor4" != "RED4" } {
43   puts "Error: expected color mid from the light spot is RED4"
44 }
45 vdump ${imagedir}/${casename}.png