paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Fix calculation error in function LineEndPoint (unit GraphMath). Issue #41400.

Browse Source 
(cherry picked from commit 1dcfd1a774)
This commit is contained in:
wp_xyz 2025-02-03 10:30:08 +01:00
parent f5f4838cfe
commit 4bf34c39a8
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/graphmath.pp
View File

@ -838,12 +838,6 @@ function LineEndPoint(const StartPoint : TPoint; Angle, Length : Extended) : TPo
var
sinAngle, cosAngle: Extended;
begin
if Angle > 360*16 then
Angle := Frac(Angle / 360*16) * 360*16;
if Angle < 0 then
Angle := 360*16 - abs(Angle);
SinCos(DegToRad(Angle/16), sinAngle, cosAngle);
Result.Y := StartPoint.Y - Round(Length*sinAngle);
Result.X := StartPoint.X + Round(Length*cosAngle);