RotatePoint
From SCAR Divi Manual
Definition
function RotatePoint(const Point, Center: TPoint; const Angle: Extended): TPoint;
Availability
SCAR Divi 3.28 > Current
Description
Rotates a given TPoint Point around a TPoint Center by an angle defined in radians in Angle.
Example
var p: TPoint; begin p := RotatePoint(Point(1, 1), Point(0, 0), Pi / 2); WriteLn(IntToStr(p.X) + ',' + IntToStr(p.Y)); p := RotatePoint(Point(1, 1), Point(0, 1), Pi / 2); WriteLn(IntToStr(p.X) + ',' + IntToStr(p.Y)); end.
Output:
-1,1 0,2