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