Difference between revisions of "ToPolar"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> function ToPolar(const Point: TPoint): PPoint; </source> ===Source Code=== <source lang="scar"> function ToPolar(const Point: T...") |
(→Definition) |
||
| Line 8: | Line 8: | ||
function ToPolar(const Point: TPoint): PPoint; | function ToPolar(const Point: TPoint): PPoint; | ||
begin | begin | ||
| − | Result.R := Sqrt(Point.X | + | Result.R := Sqrt(Sqr(Point.X) + Sqr(Point.Y)); |
Result.T := ArcTan2(Point.Y, Point.X); | Result.T := ArcTan2(Point.Y, Point.X); | ||
Result.T := RadToDeg(Result.T); | Result.T := RadToDeg(Result.T); | ||
Latest revision as of 14:03, 3 July 2011
Definition
function ToPolar(const Point: TPoint): PPoint;
Source Code
function ToPolar(const Point: TPoint): PPoint; begin 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 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)
