tests/v3d/shadows/buggy

   1 puts "========"
   2 puts "0032039: Visualization, TKOpenGl - implement simple shadow mapping for a direct light source"
   3 puts "Test shadow map from single directional light source on a buggy."
   4 puts "========"
   5
   6 pload MODELING VISUALIZATION XDE OCAF
   7 if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
   8 Close D -silent
   9 ReadGltf D [locate_data_file bug30691_Buggy.glb]
  10 vclear
  11 vinit View1
  12 vzbufftrihedron
  13 XDisplay -dispMode 1 D
  14 vfit
  15 vzoom 0.75
  16 box bb -500000 -500000 -10875 1000000 1000000 0 -preview
  17 vdisplay -dispMode 1 bb
  18 vaspects bb -material STONE
  19 vlight -change 0 -head 0 -dir -1 -1 -1 -castShadows 1
  20
  21 vraytrace 1
  22 vdump $::imagedir/${::casename}_raytrace.png
  23
  24 vraytrace 0
  25 vrenderparams -shadingModel phong
  26 vrenderparams -shadowMapResolution 2048
  27 vdump $::imagedir/${::casename}_phong.png
  28
  29 vrenderparams -shadingModel pbr
  30 vdump $::imagedir/${::casename}_pbr.png