paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 08:32:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

aggpas: implemented RadialPie

Browse Source 
git-svn-id: trunk@22998 -
This commit is contained in:
mattias 2009-12-06 11:51:29 +00:00
parent 39b230ed76
commit 5f524c6e53
2 changed files with 61 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/aggpas/lazarus/example/unit2.pas
View File

@ -80,10 +80,11 @@ begin
Arc(100,10,110,20, 0,2700);
Arc(115,10,125,20, 1000,2700);
Arc(130,10,140,20, 135,5, 130,20);
Chord(145,10,165,30, 0,2700);
Chord(170,10,190,30, 1000,2700);
Chord(145,10,165,30, 0,2000);
Chord(170,10,190,30, 1000,2000);
Chord(195,10,215,30, 205,5, 195,30);
Pie(220,10,240,30, 230,5, 220,30);
RadialPie(245,10,265,30, 1000,2000);
s:='Font.Size='+IntToStr(Font.Size);
GetTextSize(s,TxtW,TxtH);
@ -118,10 +119,11 @@ begin
Arc(100,22,110,32, 0,2700);
Arc(115,22,125,32, 1000,2700);
Arc(130,22,140,32, 135,15, 130,32);
Chord(145,32,165,52, 0,2700);
Chord(170,32,190,52, 1000,2700);
Chord(145,32,165,52, 0,2000);
Chord(170,32,190,52, 1000,2000);
Chord(195,32,215,52, 205,27, 195,52);
Pie(220,32,240,52, 230,27, 220,52);
RadialPie(245,32,265,52, 1000,2000);
s:='Font.Size='+IntToStr(Font.Size);
GetTextSize(s,TxtW,TxtH);

70
components/aggpas/src/agg_lcl.pas
View File

@ -122,6 +122,8 @@ type
procedure GradientFill(ARect: TRect; AStart, AStop: TColor; ADirection: TGradientDirection);// ToDo
procedure RadialPie(x1, y1, x2, y2,
StartAngle16Deg, Angle16DegLength: Integer); virtual;
procedure Pie(EllipseX1,EllipseY1,EllipseX2,EllipseY2,
StartX,StartY,EndX,EndY: Integer); virtual;
procedure Polygon(const Points: array of TPoint;
@ -454,6 +456,46 @@ begin
FillRect(ARect);
end;
procedure TAggLCLCanvas.RadialPie(x1, y1, x2, y2, StartAngle16Deg,
Angle16DegLength: Integer);
{ Use RadialPie to draw a filled pie-shaped wedge on the canvas.
The angles StartAngle16Deg and EndAngle16Deg are 1/16th of a degree.
For example, a full circle equals 5760 (16*360).
Positive values of Angle and AngleLength mean
counter-clockwise while negative values mean clockwise direction.
Zero degrees is at the 3'o clock position.
}
var
cx, cy, rx, ry: double;
a, da, startangle, endangle: Double;
begin
if Angle16DegLength=0 then exit;
Path.m_path.remove_all;
cx:=double(x1+x2)/2+0.5;
cy:=double(y1+y2)/2+0.5;
rx:=double(x2-x1)/2;
ry:=double(y2-y1)/2;
da:=PI/16;
startangle:=LCLAngleToAggAngle(StartAngle16Deg+Angle16DegLength);
endangle:=LCLAngleToAggAngle(StartAngle16deg);
if startangle>endangle then begin
a:=startangle;
startangle:=endangle;
endangle:=a;
end;
Path.m_path.move_to(cx,cy);
a:=startangle;
while a<endangle do begin
Path.m_path.line_to(cx+rx*cos(a),cy+ry*sin(a));
a:=a+da;
end;
Path.m_path.line_to(cx+rx*cos(endangle),cy+ry*sin(endangle));
AggClosePolygon;
AggDrawPath(AGG_FillAndStroke);
end;
procedure TAggLCLCanvas.Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2, StartX,
StartY, EndX, EndY: Integer);
{ Use Pie to draw a filled Pie-shaped wedge on the canvas. The pie is part of
@ -464,24 +506,12 @@ procedure TAggLCLCanvas.Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2, StartX,
var
cx, cy, rx, ry: double;
StartAngle16deg, AngleLength16deg: extended;
da, startangle, endangle: Double;
procedure AddArc(startangle, endangle: double);
var
a: Double;
begin
a:=startangle;
while a<endangle do begin
Path.m_path.line_to(cx+rx*cos(a),cy+ry*sin(a));
a:=a+da;
end;
Path.m_path.line_to(cx+rx*cos(endangle),cy+ry*sin(endangle));
end;
a, da, startangle, endangle: Double;
begin
Coords2Angles(EllipseX1, EllipseY1, EllipseX2-EllipseX1, EllipseY2-EllipseY1,
StartX, StartY, EndX, EndY,
StartAngle16deg, AngleLength16deg);
if AngleLength16deg<=0 then exit;
Path.m_path.remove_all;
cx:=double(EllipseX1+EllipseX2)/2+0.5;
@ -491,9 +521,19 @@ begin
da:=PI/16;
startangle:=LCLAngleToAggAngle(StartAngle16deg+AngleLength16deg);
endangle:=LCLAngleToAggAngle(StartAngle16deg);
if startangle>endangle then begin
a:=startangle;
startangle:=endangle;
endangle:=a;
end;
Path.m_path.move_to(cx,cy);
AddArc(startangle,endangle);
a:=startangle;
while a<endangle do begin
Path.m_path.line_to(cx+rx*cos(a),cy+ry*sin(a));
a:=a+da;
end;
Path.m_path.line_to(cx+rx*cos(endangle),cy+ry*sin(endangle));
AggClosePolygon;
AggDrawPath(AGG_FillAndStroke);