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

GraphUtil/DrawArrow: Avoid separate calculation of sin() and cos(). Issue .

Browse Source
This commit is contained in:
wp_xyz 2022-11-02 15:08:34 +01:00
parent 1799775107
commit 54efec74f5
1 changed files with 10 additions and 7 deletions

17
lcl/graphutil.pp
View File

@ -220,15 +220,18 @@ end;
procedure DrawArrow(Canvas: TCanvas; p1, p2: TPoint; ArrowLen: longint; procedure DrawArrow(Canvas: TCanvas; p1, p2: TPoint; ArrowLen: longint;
ArrowAngleRad: float; ArrowType: TArrowType); ArrowAngleRad: float; ArrowType: TArrowType);
var {NormalizedLineX, NormalizedLineY, LineLen,} LineAngle: float; var
ArrowPoint1, ArrowPoint2: TPoint; LineAngle: float;
sinAngle, cosAngle: float;
ArrowPoint1, ArrowPoint2: TPoint;
begin begin
LineAngle:=arctan2(p2.y-p1.y,p2.x-p1.x); LineAngle:=arctan2(p2.y-p1.y,p2.x-p1.x);
ArrowPoint1.x:=round(ArrowLen*cos(pi+LineAngle-ArrowAngleRad))+p2.x; SinCos(pi + LineAngle - ArrowAngleRad, sinAngle, cosAngle);
ArrowPoint1.y:=round(ArrowLen*sin(pi+LineAngle-ArrowAngleRad))+p2.y; ArrowPoint1.x := round(ArrowLen * cosAngle) + p2.x;
ArrowPoint2.x:=round(ArrowLen*cos(pi+LineAngle+ArrowAngleRad))+p2.x; ArrowPoint1.y := round(ArrowLen * sinAngle) + p2.y;
ArrowPoint2.y:=round(ArrowLen*sin(pi+LineAngle+ArrowAngleRad))+p2.y; SinCos(pi + LineAngle + ArrowAngleRad, sinAngle, cosAngle);
ArrowPoint2.x := round(ArrowLen * cosAngle) + p2.x;
ArrowPoint2.y := round(ArrowLen * sinAngle) + p2.y;
Canvas.Line(p1,p2); Canvas.Line(p1,p2);
case ArrowType of case ArrowType of