TGLODEManager

type TGLODEManager = class(TComponent)

protected

  procedure Loaded; override;

  procedure CalcContact();

  procedure Collision();

  procedure GravityChange();

  procedure SetMaxContacts();

  procedure SetGravity();

  procedure SetIterations();

  function GetODEBehaviour();

  procedure RegisterODEBehaviour();

  procedure UnregisterODEBehaviour();

  procedure SetRenderPoint();

  procedure RenderEvent();

  procedure RenderPointFreed();

  procedure SetVisible();

  procedure SetVisibleAtRunTime();

  procedure SetGeomColorDynE();

  procedure GeomColorChangeDynE();

  procedure SetGeomColorDynD();

  procedure GeomColorChangeDynD();

  procedure SetGeomColorStat();

  procedure GeomColorChangeStat();

  property ODEBehaviours []: TODEBehaviour; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Step();

  procedure NotifyChange();

  property World: PdxWorld; [r]

  property Space: PdxSpace; [r]

  property ContactGroup: TdJointGroupID; [r]

  property NumContactJoints: Integer; [r]

published

  property Gravity: TGLCoordinates; [rw]

  property OnCollision: TODECollisionEvent; [rw]

  property OnCustomCollision: TODECustomCollisionEvent; [rw]

  property Solver: TODESolverMethod; [rw]

  property Iterations: Integer; [rw]

  property MaxContacts: Integer; [rw]

  property RenderPoint: TGLRenderPoint; [rw]

  property Visible: Boolean; [rw]

  property VisibleAtRunTime: Boolean; [rw]

  property GeomColorDynD: TGLColor; [rw]

  property GeomColorDynE: TGLColor; [rw]

  property GeomColorStat: TGLColor; [rw]

end;

TGLODEManager

TObject