8bf7a934e5a22c2860fc7691a39eb1db90f6b905
[occt.git] / 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