From 8de1f17ee2017057bba59abc964e9f1b02017fa4 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 9 Sep 2010 23:30:41 +0000
Subject: * aspect ratio adjustment added to Arc and PieSlice

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15963 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/graph/src/inc/graph.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'packages/graph')

diff --git a/packages/graph/src/inc/graph.inc b/packages/graph/src/inc/graph.inc
index 361040175c..e8da7d46cd 100644
--- a/packages/graph/src/inc/graph.inc
+++ b/packages/graph/src/inc/graph.inc
@@ -1356,7 +1356,7 @@ end;
 {     OldWriteMode := CurrentWriteMode;
      if (LineInfo.Thickness = NormWidth) then
        CurrentWriteMode := NormalPut;}
-     InternalEllipse(X,Y,Radius,Radius,StAngle,Endangle,{$ifdef fpc}@{$endif}DummyPatternLine);
+     InternalEllipse(X,Y,Radius,(longint(Radius)*XAspect) div YAspect,StAngle,Endangle,{$ifdef fpc}@{$endif}DummyPatternLine);
 {     CurrentWriteMode := OldWriteMode;}
    end;
 
@@ -1944,7 +1944,7 @@ end;
 
   procedure PieSlice(X,Y,stangle,endAngle:smallint;Radius: Word);
   begin
-    Sector(x,y,stangle,endangle,radius,radius);
+    Sector(x,y,stangle,endangle,radius,(longint(Radius)*XAspect) div YAspect);
   end;
 
 {$i fills.inc}
-- 
cgit v1.2.1