moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-25 16:01:48 -05:00
Code Issues Releases Wiki Activity

More cleanups to CTS.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-06-13 17:44:04 +02:00
parent 9415d08100
commit b87a123701
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Units/MMLCore/finder.pas
View File

@ -639,24 +639,15 @@ begin
HiSpiral := (dy+1) * (dx + 1) -1; HiSpiral := (dy+1) * (dx + 1) -1;
case CTS of case CTS of
0: 0:
begin
i := cts0(); i := cts0();
if i <> -1 then
goto Hit;
end;
1: 1:
begin
i := cts1(); i := cts1();
2:
i := cts2();
end;
if i <> -1 then if i <> -1 then
goto Hit; goto Hit;
end;
2:
{ Can be optimized a lot... RGBToHSL isn't really inline, }
begin
end;
end;
Result := False; Result := False;
TClient(Client).IOManager.FreeReturnData; TClient(Client).IOManager.FreeReturnData;
Exit; Exit;