paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-05 21:26:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/ExtGraphics: Avoid separate calculation of sin() and cos() in PaintStarN(). Issue #39983.

Browse Source
This commit is contained in:
wp_xyz 2022-11-02 16:26:07 +01:00
parent 6c8a2e750f
commit 27402e66dd
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/extgraphics.pas
View File

@ -794,7 +794,7 @@ end;
procedure PaintStarN(Canvas: TCanvas;cx,cy,r,n:Integer; a: Extended); procedure PaintStarN(Canvas: TCanvas;cx,cy,r,n:Integer; a: Extended);
const MaxStarPoint=36; const MaxStarPoint=36;
var var
r1,r0,alpha:double; r1,r0,alpha,sinAlpha,cosAlpha:double;
P:array[0..MaxStarPoint*2-1] of TPoint; P:array[0..MaxStarPoint*2-1] of TPoint;
i,cs:Integer; i,cs:Integer;
begin begin
@ -803,9 +803,10 @@ begin
do begin do begin
if (i mod 2)=0 then r0:=r else r0:=r1; if (i mod 2)=0 then r0:=r else r0:=r1;
alpha:=a+(0.5+i/n)*Pi; alpha:=a+(0.5+i/n)*Pi;
cs:=RoundToInt(r0*cos(alpha)); SinCos(alpha, sinAlpha, cosAlpha);
cs:=RoundToInt(r0*cosAlpha);
P[i].x:=cx+cs; P[i].x:=cx+cs;
P[i].y:=cy-Round(r0*sin(alpha)); P[i].y:=cy-Round(r0*sinAlpha);
end; end;
for i:=2*n to MaxStarPoint*2-1 for i:=2*n to MaxStarPoint*2-1
do begin do begin