From 8095bbb7db77e91b69eaf9a6390c6a6f229dce1c Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 19 Mar 2012 14:09:43 +0200
Subject: agg: Implement backward compatible Arc drawing

---
 src/corelib/render/software/Agg2D.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/corelib/render/software/Agg2D.pas b/src/corelib/render/software/Agg2D.pas
index cfc0e5e0..3dd03855 100644
--- a/src/corelib/render/software/Agg2D.pas
+++ b/src/corelib/render/software/Agg2D.pas
@@ -3716,12 +3716,17 @@ end;
 
 procedure TAgg2D.DoDrawArc(x, y, w, h: TfpgCoord; a1, a2: Extended);
 begin
-
+  NoFill;
+  LineColor(LineColor);
+  Arc(x+(w/2), y+(h/2), w/2, h/2, Deg2Rad(a1+90), Deg2Rad(a2+90));
 end;
 
 procedure TAgg2D.DoFillArc(x, y, w, h: TfpgCoord; a1, a2: Extended);
 begin
-
+  {$Note AggPas's Arc only does stroking, not filling. Make another plan }
+  NoFill;
+  LineColor(LineColor);
+  Arc(x+(w/2), y+(h/2), w/2, h/2, Deg2Rad(a1+90), Deg2Rad(a2+90));
 end;
 
 procedure TAgg2D.DoDrawPolygon(Points: PPoint; NumPts: Integer; Winding: boolean);
-- 
cgit v1.2.3-70-g09d2