From 59b3249cc134634bf40310c02050780f012a691a Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 9 Feb 2011 16:39:18 +0000
Subject: [PATCH] Fixes bug in the rendering of arcs

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1489 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpvviewer/fpvectorialsrc/dxfvectorialreader.pas         | 6 +++++-
 applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas       | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas b/applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas
index 02f5ab7da..32153aedf 100644
--- a/applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas
+++ b/applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas
@@ -408,7 +408,7 @@ begin
 
   // And now write it
   {$ifdef FPVECTORIALDEBUG}
-  WriteLn(Format('Adding Line from %f,%f to %f,%f', [LineStartX, LineStartY, LineEndX, LineEndY]));
+//  WriteLn(Format('Adding Line from %f,%f to %f,%f', [LineStartX, LineStartY, LineEndX, LineEndY]));
   {$endif}
   AData.StartPath(LineStartX, LineStartY);
   AData.AddLineToPath(LineEndX, LineEndY);
@@ -462,6 +462,10 @@ begin
     end;
   end;
 
+  {$ifdef FPVECTORIALDEBUG}
+  WriteLn(Format('Adding Arc Center=%f,%f Radius=%f StartAngle=%f EndAngle=%f',
+    [CenterX, CenterY, Radius, StartAngle, EndAngle]));
+  {$endif}
   AData.AddCircularArc(CenterX, CenterY, CenterZ, Radius, StartAngle, EndAngle);
 end;
 
diff --git a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
index bd6f5aa8c..2039a1a45 100644
--- a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
+++ b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
@@ -205,7 +205,7 @@ begin
         Round(ADestX + AmulX * (CurArc.CenterX + CurArc.Radius)),
         Round(ADestY + AmulY * (CurArc.CenterY + CurArc.Radius)),
         Round(16*CurArc.StartAngle),
-        Round(16*CurArc.EndAngle - CurArc.StartAngle)
+        Round(16*(CurArc.EndAngle - CurArc.StartAngle))
         );
       {$endif}
     end;