ToPolar

Definition

function ToPolar(const Point: TPoint): PPoint;

Source Code

function ToPolar(const Point: TPoint): PPoint;
begin
  Result.R := Sqrt(Point.X * Point.X + Point.Y * 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 to a polar coordinate defined by a PPoint.

Example

var
  p: PPoint;

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

Output:

PPoint(5;53,130102354156)

See Also

• ToPolarOffset
• ToCart