SCAR Code:
program autocolorit;
{.include srl\srl.scar}
function autocolorit(color,tolmod,tol:integer):integer;
var
x,y,ncolor,pcolor,tcolor,rcolor:integer;
begin
ncolor:=color;
pcolor:=color;
begin
if findcolorspiraltolerance(x,y,color,mmx1,mmy1,mmx2,mmy2,0) then
writeln('color is '+inttostr(color));
end;
if (not(findcolorspiraltolerance(x,y,color,mmx1,mmy1,mmx2,mmy2,0))) then
repeat
ncolor:=ncolor-tolmod;
pcolor:=pcolor+tolmod;
//wait(100);
until((findcolorspiraltolerance(x,y,ncolor,mmx1,mmy1,mmx2,mmy2,tol)or(findcolorspiraltolerance(x,y,pcolor,mmx1,mmy1,mmx2,mmy2,tol))));
rcolor:=pcolor;
if findcolorspiraltolerance(x,y,ncolor,mmx1,mmy1,mmx2,mmy2,10) then rcolor:=ncolor;
writeln('color is '+inttostr(rcolor));
end;
begin
cleardebug;
setupsrl;
makecompass('N');
autocolorit(1);
end.