+++ /dev/null
-puts "========"
-puts "Per-pixel lighting using GLSL program (Phong shading)"
-puts "========"
-
-# create box
-box b 1 2 3
-
-# draw box
-vclear
-vclose ALL
-vinit View1
-vsetdispmode 1
-vaxo
-vdisplay b
-vfit
-vrotate 0.2 0.0 0.0
-
-# take snapshot with fixed pipeline
-vdump $::imagedir/${::casename}_OFF.png
-vshaderprog b phong
-vdump $::imagedir/${::casename}_ph1.png
-
-vclear
-vdisplay b
-vshaderprog b phong
-vdump $::imagedir/${::casename}_ph2.png
-vmoveto 250 250