2 puts "Per-pixel lighting using GLSL program (Phong shading), check plastic material"
14 vsetmaterial b PLASTIC
19 # take snapshot with fixed pipeline
20 vdump $::imagedir/${::casename}_OFF.png
21 set aColorL [vreadpixel 150 250 rgb name]
22 set aColorR [vreadpixel 250 250 rgb name]
23 if { "$aColorL" != "GREEN3" || "$aColorR" != "GREEN4" } {
24 puts "Error: wrong color (fixed pipeline)!"
28 set aColorL [vreadpixel 150 250 rgb name]
29 set aColorR [vreadpixel 250 250 rgb name]
30 if { "$aColorL" != "GREEN3" || "$aColorR" != "GREEN4" } {
31 puts "Error: wrong color (Phong shader)!"