Type Particle Extends Entity

	Field Sprite:TImage
	Field x:Float = 0
	Field y:Float = 0
	Field width:Float = 100
	Field height:Float = 100
	
	Field red:Int = 255
	Field green:Int = 255
	Field blue:Int = 255
	
	Method New() 
		Objects.AddLast(Self) 
	End Method
	
	Method Think() 

	End Method
	
	Method Draw() 
		SetColor(red, green, blue) 
		SetScale(width / Sprite.width, height / Sprite.height) 
		SetBlend(ALPHABLEND) 
		DrawImage(Sprite, x, y) 
	End Method
	
	Method SetSize(wwidth:Float, hheight:Float) 
		width = wwidth
		height = hheight
	End Method
	
	Method SetPos(xx:Float, yy:Float) 
		x = xx
		y = yy
	End Method
	
	Method SetImage(image:TImage) 
		Sprite = image
	End Method
	
	Method SetColour(r:Int, g:Int, b:Int) 
		red = r
		green = g
		blue = b
	End Method
	
	Function Create:Particle(x:Float, y:Float, width:Float, height:Float, red:Int, green:Int, blue:Int, Sprite:TImage) 
		Local p:Particle = New Particle
		p.SetPos(x, y) 
		p.SetSize(width, height) 
		p.SetImage(Sprite) 
		p.SetColour(red, green, blue) 
		Return p
	EndFunction
	
EndType