From: mkv <mkv@opencascade.com>
Date: Wed, 16 Jul 2014 11:06:12 +0000 (+0400)
Subject: 0024901: Visualization - Incorrect area filled with capping color
X-Git-Tag: V6_8_0_beta~201
X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=commitdiff_plain;h=c308fbd7c71323e4c356c7d4fb1b5dceaeddb803

0024901: Visualization - Incorrect area filled with capping color

Test case for issue CR24901
---

diff --git a/tests/bugs/vis/bug24901 b/tests/bugs/vis/bug24901
new file mode 100755
index 0000000000..721eb8da2d
--- /dev/null
+++ b/tests/bugs/vis/bug24901
@@ -0,0 +1,28 @@
+puts "============"
+puts "CR24901"
+puts "============"
+puts ""
+#######################################################################
+#  Visualization - Incorrect area filled with capping color
+#######################################################################
+
+vinit View1
+box b 10 10 10
+vdisplay b
+vsetdispmode 1
+
+vclipplane create pln1
+vclipplane set pln1 object b
+vclipplane change pln1 equation 0 1 0 -5
+vclipplane change pln1 capping on
+vfit
+vmoveto 304 146
+
+set x_coord 304
+set y_coord 146
+checkcolor $x_coord $y_coord 0 1 1
+if { $stat != 1 } {
+   puts "Error : Highlighting is broken."
+}
+
+set only_screen 1