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