Macintosh-SW/macintosh_cookbook
1
0
Fork 0
mirror of https://git.sr.ht/~rabbits/macintosh_cookbook synced 2024-06-14 21:29:34 +00:00
Code Issues Projects Releases Wiki Activity

Trying to rotate a point

Browse Source
This commit is contained in:
neauoire 2020-05-12 13:30:12 +09:00
parent 8c301f7d10
commit f74923d9ff
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
units/Graf2D.pas
View File

@ -33,9 +33,10 @@ program ExampleRotate;
procedure RotatePoint2D (var target, origin: Point2D; angle: Fixed);
var
radians, cos, sin, x, y, r: Fixed;
radians, cos, sin, x, y, r, pi: Fixed;
begin
radians := FixRatio(angle, 314);
pi := FixRatio(22, 7);
radians := FixMul(angle, FixDiv(pi, 180));
r := Distance2D(target, origin);
target.x := origin.x + FixMul(r, FracCos(radians));
target.y := origin.y + FixMul(r, FracSin(radians));