5f4bd4d4 |
1 | puts "========" |
2 | puts "Per-vertex lighting using built-in GLSL program, one positional light source." |
3 | puts "Visual comparison with the reference snapshot should be performed for this test case." |
4 | puts "========" |
5 | |
6 | # create objects |
7 | set anX 0.001 |
8 | circle c 0 0 0 0.001 |
9 | mkedge e c |
10 | wire w e |
11 | plane s |
12 | mkface f1 s w |
13 | mkface f2 s w |
14 | ttranslate f1 $anX -0.001 0 |
15 | |
16 | # display objects |
17 | vtop |
18 | vdisplay -dispMode 1 f1 f2 |
19 | vsetlocation f2 $anX 0.001 0 |
20 | vpoint vl $anX 0 0.001 |
21 | vfit |
22 | |
23 | # setup light |
24 | vcaps -ffp 0 |
25 | vrenderparams -shadingModel vert |
26 | vlight clear |
27 | vlight add positional pos $anX 0 0.001 color RED1 headLight 0 |
28 | |
29 | set aColor1 [vreadpixel 205 180 rgb name] |
30 | set aColor2 [vreadpixel 205 210 rgb name] |
31 | if { "$aColor1" != "RED" || "$aColor2" != "RED" } { |
32 | puts "Error: expected color near the light spot is RED" |
33 | } |
34 | |
35 | set aColor3 [vreadpixel 205 132 rgb name] |
36 | set aColor4 [vreadpixel 205 280 rgb name] |
37 | if { "$aColor3" != "RED3" || "$aColor4" != "RED4" } { |
38 | puts "Error: expected color mid from the light spot is RED4" |
39 | } |
40 | |
41 | set aColor5 [vreadpixel 205 100 rgb name] |
42 | set aColor6 [vreadpixel 205 306 rgb name] |
43 | if { "$aColor5" != "RED4" || "$aColor6" != "RED4" } { |
44 | puts "Error: expected color far from the light spot is RED4" |
45 | } |