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

puts "============"
puts "OCC23484"
puts "============"
puts ""
############################################################################################
puts "Visualization, TKOpenGl - primitive arrays to become the only way to render geometry"
puts "Tests clipping plane rendering with primitive arrays"
############################################################################################

set anImage $imagedir/${casename}_1.png

vinit View1
vclear
vaxo
vsetdispmode 1
box b 1 1 1
vdisplay b
vfit

vclipplane create pln
vclipplane set pln view Driver1/Viewer1/View1
vclipplane change pln equation 0 1 0 -0.5
vclipplane change pln capping on

vdump $anImage

vclear
Commit	Line	Data
e1c659da	1	puts "============"
	2	puts "OCC23484"
	3	puts "============"
	4	puts ""
	5	############################################################################################
	6	puts "Visualization, TKOpenGl - primitive arrays to become the only way to render geometry"
	7	puts "Tests clipping plane rendering with primitive arrays"
	8	############################################################################################
	9
	10	set anImage $imagedir/${casename}_1.png
	11
	12	vinit View1
	13	vclear
	14	vaxo
	15	vsetdispmode 1
	16	box b 1 1 1
	17	vdisplay b
	18	vfit
	19
	20	vclipplane create pln
	21	vclipplane set pln view Driver1/Viewer1/View1
	22	vclipplane change pln equation 0 1 0 -0.5
	23	vclipplane change pln capping on
	24
	25	vdump $anImage
	26
	27	vclear