[alexnov]

Есть программа, которая заполняет массив вида:
type
Tsostav = record
R, G, B: Byte;
count: integer;
end;

Pixel: array of Tsostav;

Массив заполняется всевозможными цветами и количеством пикселов этих цветов, которые встречаются в загруженной картинке BMP.
Вопрос: Как сделать, чтобы похожие цвета группировались в массиве, и соответственно кол-во пикселов count суммировалось. И есть ли вообще критерии по которым можно определить сходные цвета? На реальных примерах моя программа выдает такие данные:

Color 255:255:255, count=24531159
Color 31:26:23, count=7220096
Color 221:19:123, count=1305876
Color 9:18:20, count=1171069
Color 0:147:221, count=918737
Color 170:169:169, count=102339
Color 181:180:180, count=32117
Color 180:179:179, count=38380
Color 179:178:178, count=46495
Color 182:181:181, count=20845
Color 178:177:177, count=32655
Color 177:176:176, count=21175
Color 176:175:175, count=22259
Color 184:183:183, count=15424
Color 185:184:184, count=19702
Color 183:182:182, count=13188
Color 186:185:185, count=16717
Color 175:174:174, count=20761
Color 187:186:186, count=9392
Color 188:187:187, count=7177
Color 174:173:173, count=13001
Color 189:188:188, count=5271
Color 190:189:189, count=2482
Color 191:190:190, count=2945
Color 173:172:172, count=846
Color 192:191:191, count=1976

[Страдалецъ]

Как-то не задавался таким вопросом, но насколько я понимаю у нас есть 3 основных цвета. R-красный,G-зеленый,B-синий. Скажем для неизменных R и G цвет B может принимать значение от 0 до 255. Все эти 255 значений будут разными градациями синего и следовательно похожими. Для R и G аналогично. А вот дальше я тоже затрудняюсь сказать, как определить похожесть.

[alexnov]

В общем решил я пока группировать цвета по принципу, если каждая составляющая цвета отличается от каждой составляющей другого цвета не больше чем на 40 единиц. Сделал такой цикл:

Код:

for i:=0 to HIGh(Pixel) do
   if (Pixel[i].count>0) and (i+1<HIGh(Pixel)) then
      if (abs(Pixel[i].R-Pixel[i+1].R)<40) and (abs(Pixel[i].G-Pixel[i+1].G)<40) and (abs(Pixel[i].B-Pixel[i+1].B)<40) then
     begin
     Pixel[i].count:=Pixel[i].count+Pixel[i+1].count;
     Pixel[i+1].count:=0;           //если count эл-та=0 я в дальнейшем не учитываю этот элемент, а вывожу на экран только те, у которых count>0
     end;

Теперь у меня вопрос по коду: как сделать так чтобы цикл выполнялся до тех пор пока в массиве не останется похожих цветов? Сейчас он выполняется только 1 раз.

[PhoeniX]

Код:

var
  j:integer; //Число похожих на интерацию
  ...
begin
   repeat
    j:=0;
    for i:=0 to ...... do begin
      if ПОХОЖИЙ_ЦВЕТ then begin
        inc(j);
        ...
      end;
    end;
  until j=0;
end;

Вот както так.... вроде...

[alexnov]

В результате тетстирования программы было выяснено что принцип группировки цветов по принципу отличия каждой из 3х составляющих R, G и В на одно и то же число не оправдал себя, т.к. например цвета 0:146:63 и 182:221:199 тоже являются похожими и относятся к зеленому спектру и их необходимо группировать. Отсюда вопрос к мастерам компьютерной графики: по какому принципу правильно группировать цвета???

[Rat]

Почитай тут: http://ru.wikipedia.org/wiki/Цветовая_модель
в частности: Хроматическая диаграмма с длинами волн цветов
ну и вот: http://ru.wikipedia.org/wiki/Формула_цветового_отличия
И похожесть у тебя может быть только по длинне волн, с той погрешностью, которую ты выберешь сам.

Всё остальное от лукавого...