TGLParticleInertia

type TGLParticleInertia = class(TGLBaseInertia)

protected

  function CalcLinearPositionDot;

  function CalcLinearMomentumDot;

  procedure SetTranslationSpeed();

  procedure SetTranslationDamping();

public

  fForce: TAffineVector;

  LinearPosition: TAffineVector;

  LinearMomentum: TAffineVector;

  procedure StateToArray(); override;

  procedure ArrayToState(); override;

  procedure CalcStateDot(); override;

  procedure RemoveForces; override;

  procedure CalculateForceFieldForce(); override;

  procedure CalcAuxiliary; override;

  procedure SetUpStartingState; override;

  function CalculateKE; override;

  function CalculatePE; override;

  procedure SetForce(); virtual;

  procedure ApplyForce();

  procedure ApplyLocalForce(); virtual;

  procedure ApplyImpulse();

  procedure ApplyDamping(); virtual;

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

  class function UniqueItem; override;

  procedure MirrorTranslation;

  procedure SurfaceBounce();

published

  property Mass: Single; [rw]

  property TranslationSpeed: TGLCoordinates; [rw]

  property TranslationDamping: TGLDamping; [rw]

end;

TGLParticleInertia

TGLBaseInertia

TObject