2 puts "Visualization - Path Tracing, Ball sample"
6 source $env(CSF_OCCTSamplesPath)/tcl/pathtrace_ball.tcl
8 vtexture ball 21 -scale 0.1 0.1
9 vsetmaterial ball plaster
10 vbsdf ball -coatFresnel Constant 0.0
13 vdump $imagedir/${casename}_zoom.png