Как определить цвет пикселя в десятичном виде.

← →
Aric (2002-09-25 15:44) [0]

Приветсвую!
Есть Image, в него загружен bmp. Так же есть окружность, заданная координатами центра и радиусом, необходимо просуммировать все цвета на бмп под окружностью и разделить на площадь окружности, т.е. получить "усредненный" цвет в окружности. Как сделать? У меня лезут минусы.
Заранее спасибо

← →
MBo (2002-09-25 16:13) [1]

складывай и нормируй отдельно r,g и blue составляющие

← →
Aric (2002-09-25 16:28) [2]

А можно поподробнее?

← →
MBo (2002-09-25 16:32) [3]

RedSum:=0;
...
for i, j
если точка в круге, то
С:=Pixels[i,j]; //или доступ через Scanline
RedSum:=RedSum+GetRValue(c);
...
inc(NumPoints)
end;
Red:=RedSum div NumPoints;
...
AvColor:=RGB(Red,Green,Blue);

← →
Aric (2002-09-25 16:37) [4]

Ок! Пасиб. Тока зачем последняя строка AvColor := RGB(Red,Green,Blue) если мне нужно число ?

← →
MBo (2002-09-25 16:39) [5]

TColor=type Integer

← →
Aric (2002-09-25 16:39) [6]

Все, поняла. Вопрос пока снят.

Как определить цвет пикселя в десятичном виде. Найти похожие ветки