Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c