moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-23 17:52:16 -05:00
Code Issues Releases Wiki Activity

MML/Finder: Fix all compiler hints + bug.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-08-01 19:08:23 +02:00
parent f159f20bc2
commit d1e3645ee5
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Units/MMLCore/finder.pas
View File

@ -426,7 +426,6 @@ function Create_CTSInfo(cts: integer; Color, Tol: Integer;
hueMod, satMod: extended): Pointer; overload; hueMod, satMod: extended): Pointer; overload;
var var
R, G, B: Integer; R, G, B: Integer;
H, S, L: Integer;
begin begin
case cts of case cts of
0: 0:
@ -609,7 +608,6 @@ var
PtrData: TRetData; PtrData: TRetData;
Ptr: PRGB32; Ptr: PRGB32;
PtrInc: Integer; PtrInc: Integer;
clR, clG, clB : byte;
dX, dY, xx, yy: Integer; dX, dY, xx, yy: Integer;
compare: TCTSCompareFunction; compare: TCTSCompareFunction;
@ -1044,7 +1042,7 @@ var
PtrData: TRetData; PtrData: TRetData;
Ptr: PRGB32; Ptr: PRGB32;
PtrInc: Integer; PtrInc: Integer;
dX, dY, clR, clG, clB: Integer; dX, dY: Integer;
xx, yy: integer; xx, yy: integer;
compare: TCTSCompareFunction; compare: TCTSCompareFunction;
ctsinfo: TCTSInfo; ctsinfo: TCTSInfo;
@ -1189,7 +1187,7 @@ var
PtrData: TRetData; PtrData: TRetData;
Ptr: PRGB32; Ptr: PRGB32;
PtrInc,C: Integer; PtrInc,C: Integer;
dX, dY, clR, clG, clB: Integer; dX, dY: Integer;
xx, yy: integer; xx, yy: integer;
compare: TCTSCompareFunction; compare: TCTSCompareFunction;
@ -1762,8 +1760,6 @@ var
xBmp,yBmp : integer; xBmp,yBmp : integer;
tmpY : integer; tmpY : integer;
dX, dY, i,HiSpiral: Integer; dX, dY, i,HiSpiral: Integer;
CCTS : integer;
H,S,L,HMod,SMod : extended;
SkipCoords : T2DBoolArray; SkipCoords : T2DBoolArray;
ctsinfoarray: TCTSInfo2DArray; ctsinfoarray: TCTSInfo2DArray;
@ -1840,8 +1836,6 @@ var
tmpY : integer; tmpY : integer;
dX, dY, i,HiSpiral: Integer; dX, dY, i,HiSpiral: Integer;
FoundC : integer; FoundC : integer;
CCTS : integer;
H,S,L,HMod,SMod : extended;
SkipCoords : T2DBoolArray; SkipCoords : T2DBoolArray;
ctsinfoarray: TCTSInfo2DArray; ctsinfoarray: TCTSInfo2DArray;
@ -2125,6 +2119,8 @@ begin
// Retreive Client Data. // Retreive Client Data.
PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1); PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1);
SetLength(col_arr, Len);
SetLength(tol_arr, Len);
// C = DTM.C // C = DTM.C
for i := 0 to Len - 1 do for i := 0 to Len - 1 do
begin begin
@ -2272,7 +2268,6 @@ var
// point count // point count
pc: Integer = 0; pc: Integer = 0;
ac: Integer = 0;
goodPoints: Array of Boolean; goodPoints: Array of Boolean;
s: extended; s: extended;
@ -2328,6 +2323,8 @@ begin
// Retreive Client Data. // Retreive Client Data.
PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1); PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1);
SetLength(col_arr, Len);
SetLength(tol_arr, Len);
// C = DTM.C // C = DTM.C
for i := 0 to Len - 1 do for i := 0 to Len - 1 do
begin begin
@ -2416,7 +2413,6 @@ begin
goto theEnd; goto theEnd;
AnotherLoopEnd: AnotherLoopEnd:
end; end;
ac := 0;
if Alternating then if Alternating then
begin begin
if AngleSteps mod 2 = 0 then //This means it's an even number, thus we must add a positive step if AngleSteps mod 2 = 0 then //This means it's an even number, thus we must add a positive step