TFixedPoint

type TFixedPoint = record

public

  X: TFixed;

  Y: TFixed;

  function Add();

  function Distance();

  function DotProduct();

  function IsZero;

  function Subtract();

  procedure SetLocation();

  procedure Offset();

  function EqualsTo();

  function Scale();

  function Ceiling;

  function Truncate;

  function Floor;

  function Round;

  function Length;

  function Rotate();

  function Reflect();

  function MidPoint();

  class function PointInCircle();

  class function Zero;

  function Angle();

  function AngleCosine();

  function CrossProduct();

  function Normalize;

  class function Create();

  class operator equal(TFixedPoint,TFixedPoint):Boolean();

  class operator notequal(TFixedPoint,TFixedPoint):Boolean();

  class operator add(TFixedPoint,TFixedPoint):TFixedPoint();

  class operator subtract(TFixedPoint,TFixedPoint):TFixedPoint();

  class operator negative(TFixedPoint):TFixedPoint();

  class operator multiply(TFixedPoint,TFixedPoint):TFixedPoint();

  class operator multiply(TFixedPoint,TFixed):TFixedPoint();

  class operator multiply(TFixed,TFixedPoint):TFixedPoint();

  class operator divide(TFixedPoint,TFixed):TFixedPoint();

  class operator assign(TPoint):TFixedPoint();

  class operator power(TFixedPoint,TFixedPoint):Single();

end;