paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Optimize 5-angled star in TShape. Issue #35142, patch from Alexey Tor.

Browse Source 
git-svn-id: trunk@60564 -
This commit is contained in:
juha 2019-03-02 21:32:59 +00:00
parent ad6f9cffb4
commit ccf69c22af
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/shape.inc
View File

@ -29,28 +29,28 @@ end;
// Angle of 5-angled star is function(N=0..9, Down) = pi/5 * N + pi/2 * IfThen(Down, -1, 1); // Angle of 5-angled star is function(N=0..9, Down) = pi/5 * N + pi/2 * IfThen(Down, -1, 1);
const const
CosStarBig: array[0..4, Boolean] of Double = ( CosStarBig: array[0..4, Boolean] of Single = (
(Cos( + pi/2), Cos( - pi/2)), (Cos( + pi/2), Cos( - pi/2)),
(Cos(2*pi/5 + pi/2), Cos(2*pi/5 - pi/2)), (Cos(2*pi/5 + pi/2), Cos(2*pi/5 - pi/2)),
(Cos(4*pi/5 + pi/2), Cos(4*pi/5 - pi/2)), (Cos(4*pi/5 + pi/2), Cos(4*pi/5 - pi/2)),
(Cos(6*pi/5 + pi/2), Cos(6*pi/5 - pi/2)), (Cos(6*pi/5 + pi/2), Cos(6*pi/5 - pi/2)),
(Cos(8*pi/5 + pi/2), Cos(8*pi/5 - pi/2)) (Cos(8*pi/5 + pi/2), Cos(8*pi/5 - pi/2))
); );
SinStarBig: array[0..4, Boolean] of Double = ( SinStarBig: array[0..4, Boolean] of Single = (
(Sin( + pi/2), Sin( - pi/2)), (Sin( + pi/2), Sin( - pi/2)),
(Sin(2*pi/5 + pi/2), Sin(2*pi/5 - pi/2)), (Sin(2*pi/5 + pi/2), Sin(2*pi/5 - pi/2)),
(Sin(4*pi/5 + pi/2), Sin(4*pi/5 - pi/2)), (Sin(4*pi/5 + pi/2), Sin(4*pi/5 - pi/2)),
(Sin(6*pi/5 + pi/2), Sin(6*pi/5 - pi/2)), (Sin(6*pi/5 + pi/2), Sin(6*pi/5 - pi/2)),
(Sin(8*pi/5 + pi/2), Sin(8*pi/5 - pi/2)) (Sin(8*pi/5 + pi/2), Sin(8*pi/5 - pi/2))
); );
CosStarSmall: array[0..4, Boolean] of Double = ( CosStarSmall: array[0..4, Boolean] of Single = (
(Cos( pi/5 + pi/2), Cos( pi/5 - pi/2)), (Cos( pi/5 + pi/2), Cos( pi/5 - pi/2)),
(Cos(3*pi/5 + pi/2), Cos(3*pi/5 - pi/2)), (Cos(3*pi/5 + pi/2), Cos(3*pi/5 - pi/2)),
(Cos(5*pi/5 + pi/2), Cos(5*pi/5 - pi/2)), (Cos(5*pi/5 + pi/2), Cos(5*pi/5 - pi/2)),
(Cos(7*pi/5 + pi/2), Cos(7*pi/5 - pi/2)), (Cos(7*pi/5 + pi/2), Cos(7*pi/5 - pi/2)),
(Cos(9*pi/5 + pi/2), Cos(9*pi/5 - pi/2)) (Cos(9*pi/5 + pi/2), Cos(9*pi/5 - pi/2))
); );
SinStarSmall: array[0..4, Boolean] of Double = ( SinStarSmall: array[0..4, Boolean] of Single = (
(Sin( pi/5 + pi/2), Sin( pi/5 - pi/2)), (Sin( pi/5 + pi/2), Sin( pi/5 - pi/2)),
(Sin(3*pi/5 + pi/2), Sin(3*pi/5 - pi/2)), (Sin(3*pi/5 + pi/2), Sin(3*pi/5 - pi/2)),
(Sin(5*pi/5 + pi/2), Sin(5*pi/5 - pi/2)), (Sin(5*pi/5 + pi/2), Sin(5*pi/5 - pi/2)),
@ -69,7 +69,6 @@ var
PenInc, PenDec: Integer; PenInc, PenDec: Integer;
RadiusBig, RadiusBig2, RadiusSm, i: Integer; RadiusBig, RadiusBig2, RadiusSm, i: Integer;
PCenter: TPoint; PCenter: TPoint;
Alfa: Double;
begin begin
with Canvas do with Canvas do
begin begin