Type TEmitter Extends TBase
	
	Field timeOffset:Float
	Field TTL:Float
	Field Angle:Int
	Field Emissionrate:Int
	
	Function create:TEmitter(name:String,Node:TGadget)
		Local Emitter:TEmitter = New TEmitter
		Emitter.name=name
		Emitter.id=AddTreeViewNode(Emitter.name,node,1)
		Emitter.class=2
		Emitter.angle=20
		Emitter.Emissionrate=0

		
		Emitter.addLast(objects)
				
		Emitter.timeOffset=0.0
		Emitter.TTL=0.0
		ExpandTreeViewNode node
		Print "Emitter created. class="+emitter.class

		Return Emitter
	End Function
EndType