1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00

0024901: Visualization - Incorrect area filled with capping color

Test case for issue CR24901
This commit is contained in:
mkv 2014-07-16 15:06:12 +04:00 committed by bugmaster
parent 90cdb15d4a
commit c308fbd7c7

28
tests/bugs/vis/bug24901 Executable file
View File

@ -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