pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fixes bug in the rendering of arcs

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1489 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-02-09 16:39:18 +00:00
parent 78efc21a2b
commit 59b3249cc1
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas
View File

@@ -408,7 +408,7 @@ begin
// And now write it // And now write it
{$ifdef FPVECTORIALDEBUG} {$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} {$endif}
AData.StartPath(LineStartX, LineStartY); AData.StartPath(LineStartX, LineStartY);
AData.AddLineToPath(LineEndX, LineEndY); AData.AddLineToPath(LineEndX, LineEndY);
@@ -462,6 +462,10 @@ begin
end; end;
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); AData.AddCircularArc(CenterX, CenterY, CenterZ, Radius, StartAngle, EndAngle);
end; end;

2
applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
View File

@@ -205,7 +205,7 @@ begin
Round(ADestX + AmulX * (CurArc.CenterX + CurArc.Radius)), Round(ADestX + AmulX * (CurArc.CenterX + CurArc.Radius)),
Round(ADestY + AmulY * (CurArc.CenterY + CurArc.Radius)), Round(ADestY + AmulY * (CurArc.CenterY + CurArc.Radius)),
Round(16*CurArc.StartAngle), Round(16*CurArc.StartAngle),
Round(16*CurArc.EndAngle - CurArc.StartAngle) Round(16*(CurArc.EndAngle - CurArc.StartAngle))
); );
{$endif} {$endif}
end; end;