SCAR Code:
program New;
Procedure RotateOriginConnection(Degr: Integer; Origin: TPoint; Var TPA: TPointArray);
Var
I: Integer;
z, d: Extended;
Begin
For I := 0 To High(TPA) Do
Begin
z := ArcTan2(Origin.y - TPA[i].y, Origin.x - TPA[i].x) + Radians(180);
z := z + Radians(Degr);
d := Sqrt(Sqr(iAbs(origin.x - TPA[i].x)) + Sqr(iAbs(origin.y - TPA[i].y)));
TPA[i].x := Origin.x + Round(d * Cos(z));
TPA[i].y := Origin.y + Round(d * Sin(z));
End;
End;
Var
TPA: TPointArray;
I: Integer;
begin
TPA := [Point(552, 50), Point(549, 61)];
RotateOriginConnection(90, Point(545, 57), TPA);
For I := 0 To High(TPA) Do
MoveMouse(TPA[i].x, TPA[i].y);
end.