[occt.git] / tests / bugs / vis / bug24901

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
Commit	Line	Data
63c629aa	1	puts "============"
	2	puts "CR24901"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Visualization - Incorrect area filled with capping color
	7	#######################################################################
	8
	9	vinit View1
	10	box b 10 10 10
	11	vdisplay b
	12	vsetdispmode 1
	13
	14	vclipplane create pln1
	15	vclipplane set pln1 object b
	16	vclipplane change pln1 equation 0 1 0 -5
	17	vclipplane change pln1 capping on
	18	vfit
	19	vmoveto 304 146
	20
	21	set x_coord 304
	22	set y_coord 146
	23	checkcolor $x_coord $y_coord 0 1 1
	24	if { $stat != 1 } {
	25	puts "Error : Highlighting is broken."
	26	}
	27
	28	set only_screen 1