tests/v3d/raytrace/pbr_spheres

   1 puts "========"
   2 puts "0031225: Visualization, TKOpenGl - support cubemap for environment texture within Ray-Tracing"
   3 puts "Spheres grid with different roughness values"
   4 puts "========"
   5
   6 cpulimit 600
   7
   8 vclear
   9 vclose ALL
  10 source $env(CSF_OCCTSamplesPath)/tcl/vis_pbr_spheres.tcl
  11
  12 vrenderparams -ray -gi -rayDepth 10
  13 vcamera -ortho
  14 vfit
  15 vlight -change 1 -intensity 0.0001
  16 vfps 200
  17 vdump $::imagedir/${::casename}_ortho0.png
  18
  19 vlight -change 1 -intensity 0.3
  20 vfps 200
  21 vdump $::imagedir/${::casename}_ortho30.png
  22
  23 vcamera -persp
  24 vfit
  25 vlight -change 1 -intensity 0.0001
  26 vfps 200
  27 vdump $::imagedir/${::casename}_persp0.png
  28
  29 vlight -change 1 -intensity 0.3
  30 vfps 200
  31 vdump $::imagedir/${::casename}_persp30.png
  32
  33 set aCubeMap [locate_data_file Circus_CubeMap_V.png]
  34 vlight -change 1 -intensity 1
  35 vbackground -cubemap $aCubeMap
  36 vcamera -ortho
  37 vfps 200
  38 vdump $::imagedir/${::casename}_orthoenv.png
  39
  40 vcamera -persp
  41 vfps 200
  42 vdump $::imagedir/${::casename}_perspenv.png