type TMuggleGravity = class(
TMuggleUniversalForce
)
TMuggleUniversalForce
> TMuggleRule
> TMugglePhysicalObject
> TMuggleObject
> TMuggleBaseObject
procedure ApplyZToObjects(aObjectList:TMuggleReferenceList; aAmount:single); |
|
Constructor Create; override; |
|
procedure StepPhysics(aAmount:single); override; |
procedure ApplyZToObjects(aObjectList:TMuggleReferenceList; aAmount:single); |
Constructor Create; override; |
procedure StepPhysics(aAmount:single); override; |