TSprite

type TSprite = class

protected

  FGame: TGame;

  Body: PcpBody;

  Elasticity: Double;

  Friction: Double;

  FStatic: Boolean;

  FShapes: array of PcpShape;

  procedure AddCircle();

  procedure AddSegment();

  procedure AddPoly();

  procedure AddShape();

  function MomentForPoly();

  procedure InitShape; virtual; abstract;

public

  constructor Create();

  procedure Remove;

  destructor Destroy; override;

  procedure OnDraw(); virtual; abstract;

  procedure DrawWireFrame();

  procedure OnElapse; virtual;

  function Bounds; virtual;

  procedure ApplyForce();

  procedure ApplyImpulse();

  procedure OnCollisionStart(); virtual;

  procedure OnCollisionStep(); virtual;

  procedure OnCollisionPostsolve(); virtual;

  procedure OnCollisionEnd(); virtual;

  property Static: Boolean; [r]

  property Game: TGame; [r]

  property Position: TPointF; [rw]

  property Speed: TPointF; [r]

  property Angle: Double; [rw]

  property Moment: Double; [rw]

  property AngularVelocity: Double; [rw]

  property ContactCount: Integer; [r]

  property Contact []: TContact; [r]

  function IndexOfContact();

end;

TSprite

TObject