ToCart

Definition

function ToCart(Point: PPoint): TPoint;

Availability

SCAR Divi 3.00 > Current

Description

Converts a given polar coordinate defined by the PPoint Point to a cartesian coordinate defined by a TPoint.

Example

var
  p: PPoint;
  tp: TPoint;

begin
  p.R := 4;
  p.T := 45;
  tp := ToCart(p);
  WriteLn('TPoint(' + IntToStr(tp.X) + ',' + IntToStr(tp.Y) + ')');
end.

Output:

TPoint(3,3)

See Also

• ToCartOffset
• ToPolar