Определение количества основных цветов на изображении (Delphi)

[Zer0]

Доброго времени суток.
Встала передо мной задача, которую не получается решить, а именно:

есть изображение в формате PNG (цвета без искажений)
на изображении может быть текст одного цвета или нескольких цветов

нужно определить количество различных цветов на изображении (задача для меня сложна тем, что вокруг символов может быть ореол, и точным сравнением воспользоваться не получится)

Пробовал сделать подобным образом (на контрасте сыграть) но не выходит:

procedure CheckForeground(const APixel:TRGBTriple; var AFG:array of TRGBTriple);
const Theresold=50;
var Contrast:real;
    i:integer;
begin

  for I := Low(AFG) to High(AFG) do begin
    Contrast:=Abs(AFG[i].rgbtBlue-APixel.rgbtBlue)+
              Abs(AFG[i].rgbtRed-APixel.rgbtRed)+
              Abs(AFG[i].rgbtGreen-APixel.rgbtGreen);
    Contrast:=100*Contrast/(255*3);
    if Contrast>Theresold then begin
      SetLength(AFG,Length(AFG)+1);
      AFG[Length(AFG)-1]:=APixel;
      break;
    end;
  end;

  if Length(AFG)=0 then begin
    SetLength(AFG,Length(AFG)+1);
    AFG[Length(AFG)-1]:=APixel;
  end;
end;

AFG - массив основных цветов, APixel - один пиксель изображения (обрабатываются все пиксели в цикле)

Есть мысль, что можно воспользоваться подсчетом количества пикселей различных цветов и искать локальные максимумы, но слабо получается представить, как это грамотно сделать

Буду рад любой помощи, заранее спасибо)

[s-andriano]

Основных цветов, вообще-то три.
Раз Вы используете этот термин не в его стандартном смысле, приведите определение, что Вы подразумеваете под этим понятием.

[Zer0]

Извиняюсь, конечно же.
Имелось ввиду выделить цвета шрифтов (точнее количество разных таких цветов)



Здесь по итогу должно быть выделено 3 цвета:
#2634FF , #2634FF , #3873FF

[s-andriano]

На том рисунке, что Вы привели, вероятно, можно выделить 4 цвета.
Но только вероятно, т.к. там получится масса переходных оттенков и уверенно различить их вряд ли получится.
В общем, задача в общем виде не решается, чтобы ее хоть как-то решить, нужны дополнительные ограничения. Например, чтобы ширина штриха шрифта превосходила 3 пикселя.

PS. Вдогонку: обратил внимание, что в Вашем коде SetLength находится внутри цикла. Крайне рекомендую избегать таких ситуаций.

PPS: Написал слово "Пример" черным по белому и сохранил в труколоре. Статистика такова (печатается интенсивность RGB, сколько точек соответствующего цвета - подсчет по R, G, B произведено независимо).

  0   588   588   588
 77    30    30    30
104    10    10    10
124    15    15    15
140    11    11    11
154    10    10    10
167    16    16    16
178     6     6     6
189     8     8     8
199    13    13    13
208    18    18    18
217    16    16    16
225     5     5     5
233    14    14    14
240    12    12    12
255  5628  5628  5628

Как видим, используемое количество градаций серого весьма ограничено (зафиксировано только 15 из 255), поэтому повторяемость точек с этими цветами довольно высока.

[Zer0]

Код черновой, потому и местами несуразица)

В целом задачу для себя уже решил, но может есть более красивые варианты)

сейчас реализовал грубый алгоритм - подсчет количества пикселей с одинаковыми цветами и выделение таких цветов, количество пикселей с которыми превышает среднюю величину (за вычетом фона).
Во время тестов отработало идеально)