windows phone 8.1 gfx memory

Strict

#test=1

Import mojo

Function Main:Int()
	New Test()
	Return 0
End Function

Class Test Extends App
	Const FPS:=30
	Field timer:DeltaTimer
	
	Const game_width:=600
	Field scale:Float
	Field game_height:Float
	Field counter:Int=0
	Field img_counter:Int=0
	
	Field img:Image[101]
		
	Method OnCreate:Int()
		Local i:Int
		
	    SetUpdateRate(FPS)

#If test=1
		i=0
		While i<60
			Print i
			img[i]=LoadImage("circle.png")
			i=i+1
		Wend
#End

		scale=DeviceWidth()/Float(game_width)
		game_height=DeviceHeight()*scale
				
		counter = 0
		
		Print "init end"
		
	    Return True
	End Method

	Method OnUpdate:Int()
		Local t:Int
		Print "update start"
		
		Print "update end"
		Return True
	End Method
  
	Method OnRender:Int()
		Local i:Int
		
		Print "render start"
		
	    PushMatrix()
	    Cls()
		Scale scale,scale
		
#If test=2		
		counter = counter + 1
		If counter Mod 5=0
		If img_counter<100
			Print img_counter
			img[img_counter] = LoadImage("circle.png")
			img_counter=img_counter+1
		End
		End
#End
		
		i=0
		While i<100
			If img[i]<>Null
				Print "drawing image "+i
				DrawImage img[i],i*5,i*5
			End
			i=i+1
		Wend
				
	    PopMatrix()
	
		Print "render end"
	    Return True
	End Method

End Class