tests/v3d/glsl/phong_box

   1 puts "========"
   2 puts "Per-pixel lighting using GLSL program (Phong shading)"
   3 puts "========"
   4
   5 # create box
   6 box b 1 2 3
   7
   8 # draw box
   9 vinit View1
  10 vclear
  11 vsetdispmode 1
  12 vdisplay b
  13 vfit
  14 vrotate 0.2 0.0 0.0
  15
  16 # take snapshot with fixed pipeline
  17 vdump $::imagedir/${::casename}_OFF.png
  18 vshaderprog b phong
  19 vdump $::imagedir/${::casename}_ph1.png
  20
  21 vclear
  22 vdisplay b
  23 vshaderprog b phong
  24 vdump $::imagedir/${::casename}_ph2.png
  25 vmoveto 250 250