Framework brl.GLMax2D
Import BRL.PNGLoader 
Import brl.jpgloader

Type TResourceImage
	Field Image:TImage
	
	Method Delete()
		DebugLog "eta hren tozhe vizivaetsa ! "
		Image = Null
	End Method
	
	Function LoadResource:TResourceImage(file$)
		Local Res:TResourceImage = New TResourceImage
		Res.Image = LoadImage(file)
		Return Res
	End Function
End Type

Global ResourceManager:TResourceManager

Type TResourceManager

	Field Resources:TList
	
	Method Delete()
		DebugLog "eta hren vizivaetsa ! "
		Resources.Clear()
		Resources = Null
	End Method
	
	Method CreateNewResource(File$)
		Local Res:TResourceImage
		Res = TResourceImage.LoadResource(File)
		Resources.AddLast Res
	End Method
	
	Method LoadResources()
		CreateNewResource("circlefont.png")
	End Method
	
	Function CreateResourceManager()
		 ResourceManager = New TResourceManager
		 ResourceManager.Resources = New TList
	End Function

End Type



Graphics 100,100

GCCollect()

While Not KeyHit(KEY_ESCAPE) Or AppTerminate() 

TResourceManager.CreateResourceManager()
GCCollect()
ResourceManager.LoadResources()
GCCollect()
ResourceManager = Null
GCCollect()

DebugLog GCMemAlloced()

Wend
End