| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить цвет пикселя в ;десятичном виде.
Aric © (2002-09-25 15:44:00)Приветсвую!
Есть Image, в него загружен bmp. Так же есть окружность, заданная координатами центра и радиусом, необходимо просуммировать все цвета на бмп под окружностью и разделить на площадь окружности, т.е. получить "усредненный" цвет в окружности. Как сделать? У меня лезут минусы.
Заранее спасибо
MBo (2002-09-25 16:39:00) [1]TColor=type Integer
Aric (2002-09-25 16:39:00) [2]Все, поняла. Вопрос пока снят.
Aric (2002-09-25 16:37:00) [3]Ок! Пасиб. Тока зачем последняя строка AvColor := RGB(Red,Green,Blue) если мне нужно число ?
MBo (2002-09-25 16:32:00) [4]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:28:00) [5]А можно поподробнее?
MBo (2002-09-25 16:13:00) [6]складывай и нормируй отдельно r,g и blue составляющие
| |
