[occt.git] / tests / v3d / memory / bug26538

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

pload MODELING VISUALIZATION
box b1 1 1 1
box b2 1 1 1

vclear
vinit View1
vdisplay b1 b2
vsetlocation b2 10 10 10
vfit

set listmem {}
set aNbChecks 50
for {set anIter 1} {$anIter <= $aNbChecks} {incr anIter} {
  vfps 100
  lappend listmem [meminfo h]
  #checktrend $listmem 0 1 "Memory leak detected"
}
puts $listmem

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