puts "========"
puts "0030700: Visualization, TKOpenGl - support PBR Metallic-Roughness shading model"
puts "Spheres grid with different roughness values"
puts "========"

vclear
vclose ALL
source $env(CSF_OCCTSamplesPath)/tcl/vis_pbr_spheres.tcl

vcamera -ortho
vfit
vlight -change 1 -intensity 0.0001
vdump $::imagedir/${::casename}_ortho0.png
vlight -change 1 -intensity 0.3
vdump $::imagedir/${::casename}_ortho30.png
vcamera -persp
vfit
vlight -change 1 -intensity 0.0001
vdump $::imagedir/${::casename}_persp0.png
vlight -change 1 -intensity 0.3
vdump $::imagedir/${::casename}_persp30.png

set aCubeMap [locate_data_file Circus_CubeMap_V.png]
vlight -change 1 -intensity 1
vbackground -cubemap $aCubeMap
vcamera -ortho
vdump $::imagedir/${::casename}_orthoenv.png
vcamera -persp
vdump $::imagedir/${::casename}_perspenv.png
