SRL Archive - SRL Archives

function FindColorSpiralToleranceDOB(var x, y: Integer; Color1, Color2, xs, ys, xe, ye, Tolerance: Integer): Boolean;
begin
 if(FindColorSpiralTolerance(x, y, Color1, xs, yx, xe, ye, Tolerance))or
   (FindColorSpiralTolerance(x, y, Color2, xs, yx, xe, ye, Tolerance))then
 result:= true;
end;

Works exactly like 'FindColorToleranceDOB' except obviously it uses a spiral search instead of just a cubic search. :p

Who needs it?

I only wrote FindColorToleranceDOB for a procedure of mine in SRL. So it was quite pointless. ;)

From: XxKanexX
I only wrote FindColorToleranceDOB for a procedure of mine in SRL. So it was quite pointless. ;)

I only wrote FindColorSpiralToleranceDOB because I was bored. :p