puts "========"
puts "OCC25201: Visualization - Implementing soft shadows and ambient occlusion in OCCT ray-tracing core"
puts "========"

pload MODELING VISUALIZATION

# custom shapes
set aShape1 [locate_data_file occ/Top.brep]
set aShape2 [locate_data_file occ/Bottom.brep]

# setup 3D viewer content
vinit name=View1 w=512 h=512
vglinfo

vvbo 0
vsetdispmode 1
vbackground -gradient B4C8FF B4B4B4 -gradientMode VERTICAL
vtextureenv on 4
restore $aShape1 s1
restore $aShape2 s2
vdisplay s1 s2
vsetmaterial s1 Gold
vsetmaterial s2 Silver
vsetlocation s1 0.0 0.1 0.0
vlight -change 0 -dir 0.667 -0.667 -0.333 -smoothAngle 6 -intensity 100
vturnview 3.0 -1.2 -0.1
vfit

# activate path tracing
vrenderparams -raytrace
vrenderparams -gi
vrenderparams -rayDepth 12

set aModeNum 0

vbsdf s1 roughness 6400

vfps 200
vdump $imagedir/${casename}_${aModeNum}.png
incr aModeNum

vsetmaterial s1 glass
vbsdf s1 absorpcoeff 1.0

vfps 200
vdump $imagedir/${casename}_${aModeNum}.png
incr aModeNum

vsetmaterial s2 plaster

vfps 200
vdump $imagedir/${casename}_${aModeNum}.png
incr aModeNum