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

puts "============"
puts "OCC24717"
puts "============"
puts ""
####################################################################################
# TKOpenGl - globally defined clipping planes blink when operating with view
# Test checks that state of clippings always corresponds to a state of viewed
# scene.
####################################################################################

set check_x 204
set check_y 204

vinit View1
vsetdispmode 1
box b 1 1 1
vdisplay b
vmoveto $check_x $check_y
vclipplane create pln1
vclipplane set pln1 view Driver1/Viewer1/View1
vclipplane change pln1 equation 0 1 0 0
vfit
vaspects -setwidth 5

if { "[vreadpixel $check_x $check_y rgb name]" != "CYAN1" } {
    puts "Error : Viewer clipping is broken."
}

vdump ${imagedir}/${casename}.png
Commit	Line	Data
cddbf6a9	1	puts "============"
	2	puts "OCC24717"
	3	puts "============"
	4	puts ""
	5	####################################################################################
	6	# TKOpenGl - globally defined clipping planes blink when operating with view
	7	# Test checks that state of clippings always corresponds to a state of viewed
	8	# scene.
	9	####################################################################################
	10
	11	set check_x 204
	12	set check_y 204
	13
	14	vinit View1
	15	vsetdispmode 1
	16	box b 1 1 1
	17	vdisplay b
	18	vmoveto $check_x $check_y
	19	vclipplane create pln1
	20	vclipplane set pln1 view Driver1/Viewer1/View1
	21	vclipplane change pln1 equation 0 1 0 0
	22	vfit
ccadc126	23	vaspects -setwidth 5
cddbf6a9	24
ccadc126	25	if { "[vreadpixel $check_x $check_y rgb name]" != "CYAN1" } {
cddbf6a9	26	puts "Error : Viewer clipping is broken."
	27	}
	28
	29	vdump ${imagedir}/${casename}.png