paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:09:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another fix to PolyFill by borsa77

Browse Source 
git-svn-id: trunk@13263 -
This commit is contained in:
florian 2009-06-12 14:50:57 +00:00
parent 855a65a061
commit bf5666675a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/graph/src/inc/fills.inc
View File

@ -78,9 +78,11 @@ begin
p0 := ptable[i];
if (i+1) >= numpoints then p1 := ptable[0]
else p1 := ptable[i+1];
{ draw the edges }
Line(p0.x,p0.y,p1.x,p1.y);
{ ignore if this is a horizontal edge}
if (p0.y = p1.y) then continue;
{swap ptable if necessary to ensure p0 contains yMin}
{ swap ptable if necessary to ensure p0 contains yMin}
if (p0.y > p1.y) then begin
p0 := p1;
p1 := ptable[i];
@ -169,7 +171,7 @@ begin
x0 := AET^[i]^.x;
x1 := AET^[i+1]^.x;
{Left edge adjustment for positive fraction. 0 is interior. }
if (AET^[i]^.frac > 0) then inc(x0);
if (AET^[i]^.frac >= 0) then inc(x0);
{Right edge adjustment for negative fraction. 0 is exterior. }
if (AET^[i+1]^.frac <= 0) then dec(x1);