tests/v3d/glsl/phong_fuse

   1 puts "========"
   2 puts "Per-pixel lighting using GLSL program (Phong shading)"
   3 puts "========"
   4
   5 # import model
   6 restore [locate_data_file occ/fuse.brep] f
   7 tclean f
   8
   9 # draw box
  10 vclear
  11 vclose ALL
  12 vinit View1
  13 vdefaults -absDefl 0.5
  14 vsetdispmode 1
  15 vaxo
  16 vdisplay f
  17 vfit
  18 vrotate -0.5 0.0 0.0
  19 vfit
  20
  21 # take snapshot with fixed pipeline
  22 vdump $::imagedir/${::casename}_OFF.png
  23 vshaderprog f phong
  24 vdump $::imagedir/${::casename}_ph1.png
  25
  26 vclear
  27 vdisplay f
  28 vshaderprog f phong
  29 vdump $::imagedir/${::casename}_ph2.png
  30 vmoveto 250 250