2 puts "Per-pixel lighting using GLSL program (Phong shading), check lighting of back faces"
18 # take snapshot with fixed pipeline
19 vdump $::imagedir/${::casename}_OFF.png
20 set aColorB [vreadpixel 150 150 rgb name]
21 set aColorF [vreadpixel 250 250 rgb name]
22 if { "$aColorB" != "$aColorF"} {
23 puts "Error: front/back colors are different!"
25 set aColorFixed $aColorF
27 # activate phong shader
29 set aColorB [vreadpixel 150 150 rgb name]
30 set aColorF [vreadpixel 250 250 rgb name]
31 if { "$aColorB" != "$aColorF"} {
32 puts "Error: front/back colors are different!"
35 if { "$aColorF" != "$aColorFixed"} {
36 puts "Error: colors are different!"