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

puts "============"
puts "OCC26538"
puts "============"
puts ""
#######################################################################
# Visualization - Infinite growth of maxtrix stack in OpenGl_Structure::Render
#######################################################################

box b1 1 1 1
box b2 1 1 1

vinit
vdisplay b1
vdisplay b2
vsetlocation b2 10 10 10
vfit

set listmem {}

set i_max 3
for {set i 1} {${i} <= ${i_max}} {incr i} {
   vfps 1000
   lappend listmem [meminfo h]
   checktrend $listmem 0 1 "Memory leak detected"
}

vdump ${imagedir}/${casename}.png
Commit	Line	Data
d437b80d	1	puts "============"
	2	puts "OCC26538"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Visualization - Infinite growth of maxtrix stack in OpenGl_Structure::Render
	7	#######################################################################
	8
	9	box b1 1 1 1
	10	box b2 1 1 1
	11
	12	vinit
	13	vdisplay b1
	14	vdisplay b2
	15	vsetlocation b2 10 10 10
	16	vfit
	17
	18	set listmem {}
	19
	20	set i_max 3
	21	for {set i 1} {${i} <= ${i_max}} {incr i} {
	22	vfps 1000
	23	lappend listmem [meminfo h]
	24	checktrend $listmem 0 1 "Memory leak detected"
	25	}
	26
	27	vdump ${imagedir}/${casename}.png