2 puts "0031225: Visualization, TKOpenGl - support cubemap for environment texture within Ray-Tracing"
3 puts "Spheres grid with different roughness values"
10 source $env(CSF_OCCTSamplesPath)/tcl/vis_pbr_spheres.tcl
12 vrenderparams -ray -gi -rayDepth 10
15 vlight -change 1 -intensity 0.0001
17 vdump $::imagedir/${::casename}_ortho0.png
19 vlight -change 1 -intensity 0.3
21 vdump $::imagedir/${::casename}_ortho30.png
25 vlight -change 1 -intensity 0.0001
27 vdump $::imagedir/${::casename}_persp0.png
29 vlight -change 1 -intensity 0.3
31 vdump $::imagedir/${::casename}_persp30.png
33 set aCubeMap [locate_data_file Circus_CubeMap_V.png]
34 vlight -change 1 -intensity 1
35 vbackground -cubemap $aCubeMap
38 vdump $::imagedir/${::casename}_orthoenv.png
42 vdump $::imagedir/${::casename}_perspenv.png