tests/v3d/glsl/flat_fuse1

   1 puts "========"
   2 puts "0028069: Visualization, TKOpenGl - handle flat shading model within GLSL programs"
   3 puts "========"
   4
   5 vclear
   6 vclose ALL
   7 vinit View1
   8 vviewparams -scale 551.55 -proj 0.85 -0.16 0.51 -up -0.41 0.41 0.82 -at 0.55 0.55 0.55
   9
  10 restore [locate_data_file occ/fuse.brep] f
  11 tclean f
  12 vdefaults -absDefl 0.5
  13 vdisplay -dispMode 1 f
  14
  15 # setup lights
  16 vlight clear
  17 vlight add ambient                color WHITE
  18 vlight add directional dir  1 0 0 color GREEN headlight 1
  19 vlight add directional dir -1 0 0 color RED1  headlight 1
  20
  21 vrenderparams -shadingModel flat
  22 vdump $::imagedir/${::casename}.png