TCollisionBody

type TCollisionBody = class(TPersistent)

protected

  m_rigid_body: TPhysicsObject;

  m_world_points: TAffineVectorList;

  m_body_points: TAffineVectorList;

  m_collisions: TIntegerList;

  m_non_collidables: TCollisionBodyList;

  procedure SetOrientation();

  function GetPosition;

  procedure SetPosition();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Clear;

  procedure Initialise();

  procedure Calculate_World_Properties;

  procedure RemoveAllPointInfo;

  function GetPointInfo();

  function GetSQRDistanceToBoundingBox();

  procedure GetBoundingSphere();

  procedure FindBoundingRadius;

  procedure FindBoundingBox;

  property Rigid_Body: TPhysicsObject; [rw]

  property Position: Vector3; [rw]

  property Orientation: TMatrix3; [rw]

  property Inv_Orientation: TMatrix3; [r]

  property World_points: TAffineVectorList; [r]

  property Collisions: TIntegerList; [r]

  property Non_collidables: TCollisionBodyList; [r]

end;

TCollisionBody

TObject