puts "============" puts "Visualization - Path Tracing, Ball sample" puts "============" puts "" source $env(CSF_OCCTSamplesPath)/tcl/pathtrace_ball.tcl vdump $imagedir/${casename}_zoom.png