TPointF

type TPointF = packed record

public

  x: Single;

  y: Single;

  function Add();

  function Distance();

  function DotProduct();

  function IsZero;

  function Subtract();

  procedure SetLocation();

  procedure Offset();

  function Scale();

  function Ceiling;

  function Truncate;

  function Floor;

  function Round;

  function Length;

  class function Create();

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

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

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

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

  class operator negative(TPointF):TPointF();

  class operator multiply(TPointF,TPointF):Single();

  class operator multiply(TPointF,single):TPointF();

  class operator multiply(single,TPointF):TPointF();

end;