SCAR Code:Function FindLightestArea:Integer;
var
P:TPointArray;
Ints:TIntegerArray;
I:Integer;
H, S, L, MaxI:Extended;
begin
FindColorsTolerance(P, 0, MMX1, MMY1, MMX2, MMY2, 400);
FilterPointsPie(P, 0, 360, 1, 72, MMCY, MMCX);
Ints:=GetColors(P);
ClearSameIntegers(Ints);
For I:=0 to high(Ints)do
begin
ColortoHSL(Ints[I], H, S, L);
If MaxE(MaxI, L) = L then
begin
Result:=Ints[I];
MaxI:=L;
end;
end;
end;
This doesn't find any colors on the map at all. It seems to fail at FilterPointsPie







Reply With Quote







