tests/v3d/glsl/phong_views

   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 vaxo
  13 vdisplay b
  14 vfit
  15 vrotate 0.2 0.0 0.0
  16
  17 vshaderprog b phong
  18 vdump $::imagedir/${::casename}_v1.png
  19
  20 vinit View2
  21 vfit
  22 vdump $::imagedir/${::casename}_v2.png
  23 vmoveto 250 250
  24 vdump $::imagedir/${::casename}_v2sel.png
  25 vactivate View1
  26 vdump $::imagedir/${::casename}_v1sel.png
  27 vclose View2