paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 04:37:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Support pie charts in OpenGL drawer

Browse Source 
git-svn-id: trunk@38593 -
This commit is contained in:
ask 2012-09-09 09:20:00 +00:00
parent 4d6bc95a99
commit a1d618dfe6
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/tachart/tadraweropengl.pas
View File

@ -20,7 +20,7 @@ unit TADrawerOpenGL;
interface
uses
Classes, FPCanvas, FPImage, GL, GLu, Glut,
Classes, FPCanvas, FPImage,
TAChartUtils, TADrawUtils;
type
@ -76,6 +76,10 @@ type
implementation
uses
GL, GLu, Glut,
TAGeometry;
{ TOpenGLDrawer }
procedure TOpenGLDrawer.AddToFontOrientation(ADelta: Integer);
@ -128,10 +132,11 @@ begin
end;
procedure TOpenGLDrawer.Ellipse(AX1, AY1, AX2, AY2: Integer);
var
p: TPointArray;
begin
Unused(AX1, AY1);
Unused(AX2, AY2);
raise EChartError.Create('TOpenGLDrawer.Ellipse not implemented');
p := TesselateEllipse(Rect(AX1, AY1, AX2, AY2), 4);
Polygon(p, 0, Length(p));
end;
procedure TOpenGLDrawer.FillRect(AX1, AY1, AX2, AY2: Integer);
@ -218,11 +223,14 @@ end;
procedure TOpenGLDrawer.RadialPie(
AX1, AY1, AX2, AY2: Integer; AStartAngle16Deg, AAngleLength16Deg: Integer);
var
e: TEllipse;
p: TPointArray;
begin
Unused(AX1, AY1);
Unused(AX2, AY2);
Unused(AStartAngle16Deg, AAngleLength16Deg);
raise EChartError.Create('TOpenGLDrawer.RadialPie not implemented');
e.InitBoundingBox(AX1, AY1, AX2, AY2);
p := e.TesselateRadialPie(
Deg16ToRad(AStartAngle16Deg), Deg16ToRad(AAngleLength16Deg), 4);
Polygon(p, 0, Length(p));
end;
procedure TOpenGLDrawer.Rectangle(AX1, AY1, AX2, AY2: Integer);