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 vshaderprog b phong vdump $::imagedir/${::casename}_v1.png vinit View2 vfit vdump $::imagedir/${::casename}_v2.png vmoveto 250 250 vdump $::imagedir/${::casename}_v2sel.png vactivate View1 vdump $::imagedir/${::casename}_v1sel.png vclose View2