puts "============"
puts "0031279: Visualization, TKOpenGl - environment background is misplaced within Ray-Tracing"
puts "============"
puts ""

source $env(CSF_OCCTSamplesPath)/tcl/raytrace.tcl
vrenderparams -env
vcamera -persp
vviewparams -scale 1.3 -proj 0.57 -0.57 0.57 -up -0.4 0.4 0.8 -at -62 -111 -15
vtextureenv on 1

if { [vreadpixel 100 100 rgb name] == "BLACK" } { puts "ERROR: background is misplaced" }

vcamera -persp
vdump $imagedir/${casename}_persp.png

vcamera -ortho
vdump $imagedir/${casename}_ortho.png