ToPolarOffset

Definition

function ToPolarOffset(const Point, Offset: TPoint): PPoint;

Source Code

function ToPolarOffset(const Point, Offset: TPoint): PPoint;
begin
  Point.X := Point.X - Offset.X;
  Point.Y := Point.Y - Offset.Y;
  Result.R := Sqrt(Sqr(Point.X) + Sqr(Point.Y));
  Result.T := ArcTan2(Point.Y, Point.X);
  Result.T := RadToDeg(Result.T);
end;

Availability

SCAR Divi 3.00 > Current

Description

Converts a given cartesian coordinate defined by the TPoint Point with an offset given by Offset to a polar coordinate defined by a PPoint.

Example

var
  p: PPoint;

begin
  p := ToPolarOffset(Point(3, 4), Point(2, 2));
  WriteLn('PPoint(' + FloatToStr(p.R) + ';' + FloatToStr(p.T) + ')');
end.

Output:

PPoint(2,23606797749979;63,434948822922)

See Also

• ToPolar
• ToCartOffset