0031279: Visualization, TKOpenGl - environment background is misplaced within Ray...
[occt.git] / tests / v3d / raytrace / bug31279
diff --git a/tests/v3d/raytrace/bug31279 b/tests/v3d/raytrace/bug31279
new file mode 100644 (file)
index 0000000..8bf7a93
--- /dev/null
@@ -0,0 +1,18 @@
+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
\ No newline at end of file