tests/v3d/raytrace/bug31279

   1 puts "============"
   2 puts "0031279: Visualization, TKOpenGl - environment background is misplaced within Ray-Tracing"
   3 puts "============"
   4 puts ""
   5
   6 source $env(CSF_OCCTSamplesPath)/tcl/raytrace.tcl
   7 vrenderparams -env
   8 vcamera -persp
   9 vviewparams -scale 1.3 -proj 0.57 -0.57 0.57 -up -0.4 0.4 0.8 -at -62 -111 -15
  10 vtextureenv on 1
  11
  12 if { [vreadpixel 100 100 rgb name] == "BLACK" } { puts "ERROR: background is misplaced" }
  13
  14 vcamera -persp
  15 vdump $imagedir/${casename}_persp.png
  16
  17 vcamera -ortho
  18 vdump $imagedir/${casename}_ortho.png