Reference TPointI

  TPointI = record
  public
    { The coordinates of the point }
    X: Integer;
    Y: Integer;
    { Returns true if both coordinates match }
    function Equals(const Value: TPointI): Boolean;
    { Create a point at the origin }
    class function Create: TPointI; overload; static;
    { Create a point given its coordinates }
    class function Create(X, Y: Integer): TPointI; overload; static;
    { The angle in radians from this point to another }
    function Angle(const P: TPointI): Float;
    { The distance from this point to another }
    function Dist(const P: TPointI): Float;
    { The point halfway between this point and another }
    function Mid(const P: TPointI): TPointI;
    { Move this point by an amount }
    procedure Offset(X, Y: Integer); overload;
    procedure Offset(const P: TPointI); overload;
    { Return a copy of this point moved by an amount }
    function Move(X, Y: Integer): TPointI; overload;
    function Move(const P: TPointI): TPointI; overload;
  end;