Difference between revisions of "ToCart"
From SCAR Divi Manual
(→Definition) |
|||
Line 1: | Line 1: | ||
==Definition== | ==Definition== | ||
<source lang="scar" lines="false"> | <source lang="scar" lines="false"> | ||
− | function ToCart(Point: PPoint): TPoint; | + | function ToCart(const Point: PPoint): TPoint; |
</source> | </source> | ||
Latest revision as of 12:59, 3 July 2011
Definition
function ToCart(const Point: PPoint): TPoint;
Source Code
function ToCart(const Point: PPoint): TPoint; var T: Double; begin T := DegToRad(Point.T); Result.x := Round(Point.R * Cos(T)); Result.y := Round(Point.R * Sin(T)); end;
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)