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

puts "============="
puts "0030756: Visualization, TKOpenGl - capping plane does not work for ZLayer with non-zero origin"
puts "============="

pload MODELING VISUALIZATION
box b 1 2 3
vclear
vclose ALL
vinit View1
vzbufftrihedron
vaxo
vdisplay -dispMode 1 b
vfit
vclipplane p 1 -equation  0 1 0 -1 -set -capping 1
if { [vreadpixel 200 200 rgb name] != "GRAY14" } { puts "Error: capping does not work with zero origin" }
vzlayer DEFAULT -origin 0 10 0
if { [vreadpixel 200 200 rgb name] != "GRAY14" } { puts "Error: capping does not work with non-zero origin" }

vdump ${imagedir}/${casename}.png
Commit	Line	Data
edc4ba21	1	puts "============="
	2	puts "0030756: Visualization, TKOpenGl - capping plane does not work for ZLayer with non-zero origin"
	3	puts "============="
	4
	5	pload MODELING VISUALIZATION
	6	box b 1 2 3
	7	vclear
	8	vclose ALL
	9	vinit View1
	10	vzbufftrihedron
	11	vaxo
	12	vdisplay -dispMode 1 b
	13	vfit
	14	vclipplane p 1 -equation 0 1 0 -1 -set -capping 1
ba00aab7	15	if { [vreadpixel 200 200 rgb name] != "GRAY14" } { puts "Error: capping does not work with zero origin" }
edc4ba21	16	vzlayer DEFAULT -origin 0 10 0
ba00aab7	17	if { [vreadpixel 200 200 rgb name] != "GRAY14" } { puts "Error: capping does not work with non-zero origin" }
edc4ba21	18
edc4ba21	19	vdump ${imagedir}/${casename}.png