X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fbugs%2Fvis%2Fbug29768;h=6c48badf13560dc22b37ccff9e780d14eeb6bcf5;hb=32ca771129cf170c0f094182d77edda967bec5f6;hpb=9ce99357a4d06be37834b475b2b14102b3fe7f74

diff --git a/tests/bugs/vis/bug29768 b/tests/bugs/vis/bug29768
new file mode 100644
index 0000000000..6c48badf13
--- /dev/null
+++ b/tests/bugs/vis/bug29768
@@ -0,0 +1,23 @@
+puts "============"
+puts "0029768: Visualization, TKOpenGl - structure is entirely clipped by suppressed clipping"
+puts "============"
+puts ""
+
+vclear
+vinit View1
+vaxo
+vpoint p0 0 0 0
+vzbufftrihedron
+box b0 0 0 0 1 1 1
+box b1 3 0 0 1 1 1
+vdisplay -dispMode 1 b0 b1
+vsetcolor b0 RED
+vsetcolor b1 GREEN
+vfit
+
+vclipplane pv  equation -1 0 0  0.5 -set
+vclipplane pb0 equation  0 1 0 -0.5 -set b0
+vclipplane pb1 equation  0 1 0 -0.5 -setOverrideGlobal b1
+
+if { [vreadpixel 300 200 rgb name] != "GREEN3" } { puts "Error: box b1 is fully clipped" }
+vdump $imagedir/${casename}.png