TPhysicsObject

type TPhysicsObject = class(TRigidBody)

protected

  m_collision_body: TCollisionBody;

  m_points: TAffineVectorList;

  m_pointsCenter: Vector3;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AddExternalForces(); override;

  function Collision_body; override;

  procedure GetBoundingSphere(); virtual;

  function FindCloserPointTOPoint();

  function FindDistanceFromPoint();

  function GetMeshInfo(); virtual;

  procedure ClearData; virtual;

  procedure Initialase();

  property Points: TAffineVectorList; [r]

end;

TPhysicsObject

TRigidBody

TObject