TGLPhysicsManager

type TGLPhysicsManager = class(TComponent)

protected

  fInertias: TList;

  fForceFieldEmitters: TList;

  fForces: TGLForces;

  fDESolverType: TDESolverType;

  DESolver: TDESolver;

  fScene: TGLScene;

  procedure Loaded; override;

  procedure DefineProperties(); override;

  procedure WriteForces();

  procedure ReadForces();

  procedure SetForces();

  function GetForces;

  procedure SetInertias();

  procedure SetForceFieldEmitters();

  procedure SetScene();

public

  procedure RegisterInertia();

  procedure DeRegisterInertia();

  procedure DeRegisterAllInertias;

  procedure RegisterForceFieldEmitter();

  procedure DeRegisterForceFieldEmitter();

  procedure DeRegisterAllForceFieldEmitters;

  procedure Notification(); override;

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure CalculateNextState();

  function CalculateKE;

  function CalculatePE;

  procedure SetDESolver();

  function FindObjectByName();

  function FindForceFieldEmitterByName();

  property Inertias: TList; [rw]

  property ForceFieldEmitters: TList; [rw]

published

  property Forces: TGLForces; [rw]

  property Solver: TDESolverType; [rw]

  property Scene: TGLScene; [rw]

end;

TGLPhysicsManager

TObject