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

* the DrawnList structure (used by FloodFill) is now dynamically allocated

Browse Source 
before a FloodFill and freed afterwards, so it doesn't waste memory, while
  not in use

git-svn-id: trunk@25729 -
This commit is contained in:
nickysn 2013-10-09 20:27:04 +00:00
parent 6fef9a2c80
commit d69a3447cd
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -283,10 +283,11 @@ type
y : smallint;
end;
PDrawnList = ^TDrawnList;
TDrawnList = Array[0..(MaxYRes - 1) div YResDiv] of PFloodLine;
var
DrawnList : TDrawnList;
DrawnList : PDrawnList;
Buffer : Record { Union for byte and word addressing of buffer }
ByteIndex : Word;
WordIndex : Word;
@ -352,8 +353,8 @@ var
temp^.x1 := x1;
temp^.x2 := x2;
temp^.y := y;
temp^.next := DrawnList[y div YResDiv];
DrawnList[y div YResDiv] := temp;
temp^.next := DrawnList^[y div YResDiv];
DrawnList^[y div YResDiv] := temp;
end;
{********************************************************}
@ -373,7 +374,7 @@ var
temp : PFloodLine;
begin
AlreadyDrawn := false;
temp := DrawnList[y div YResDiv];
temp := DrawnList^[y div YResDiv];
while assigned(temp) do
begin
if (temp^.y = y) and
@ -395,12 +396,12 @@ var
{********************************************************}
Procedure CleanUpDrawnList;
var
l: longint;
l: smallint;
temp1, temp2: PFloodLine;
begin
for l := 0 to high(DrawnList) do
for l := 0 to ViewHeight div YResDiv do
begin
temp1 := DrawnList[l];
temp1 := DrawnList^[l];
while assigned(temp1) do
begin
temp2 := temp1;
@ -428,7 +429,8 @@ var
BackupColor : Word;
x1, x2, prevy: smallint;
Begin
FillChar(DrawnList,sizeof(DrawnList),0);
GetMem(DrawnList,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1));
FillChar(DrawnList^,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1),0);
{ init prevy }
prevy := 32767;
{ Save current drawing color }
@ -533,6 +535,7 @@ var
System.FreeMem (s2,(ViewWidth+1)*2);
System.FreeMem (s3,(ViewWidth+1)*2);
CleanUpDrawnList;
System.FreeMem(DrawnList,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1));
CurrentColor := BackUpColor;
End;