'---------------------------------------------------------------------------------------------------
' This program was written with BLIde (www.blide.org)
' Application: GLTest
' Author: Jamie Holloway
'---------------------------------------------------------------------------------------------------
SuperStrict

Global EntityList:TList = New TList

Import "B3D/minib3d.bmx"
Import "Entity.bmx"
Import "Particle.bmx"

Graphics3D(1024, 768) 

test:Particle = Particle.Create(100, 100, "test.bmp") 

While(Not KeyDown(KEY_ESCAPE)) 
	For Local o:Entity = EachIn(EntityList) 
		o.Think() 
	Next
EndWhile