RotatePoint

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

See Also

• RotateTPA