paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils/GraphMath: Optimize RotatePoint().

Browse Source
This commit is contained in:
wp_xyz 2022-11-01 23:30:52 +01:00
parent 898f4009c0
commit 182091e424
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/graphmath.pp
View File

@ -1038,8 +1038,7 @@ function RotatePoint(const APoint: TPoint; AAngle: Double): TPoint;
var var
sa, ca: Double; sa, ca: Double;
begin begin
sa := sin(AAngle); SinCos(AAngle, sa, ca);
ca := cos(AAngle);
Result.X := Round( ca * APoint.X + sa * APoint.Y); Result.X := Round( ca * APoint.X + sa * APoint.Y);
Result.Y := Round(-sa * APoint.X + ca * APoint.Y); Result.Y := Round(-sa * APoint.X + ca * APoint.Y);
end; end;