Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.17;
Скачать: CL | DM;

Вниз

Как усреднить цвета до одного цвета?   Найти похожие ветки 

 
ShAB_v2.0 ©   (2006-03-02 00:23) [0]

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


 
XProger ©   (2006-03-02 00:35) [1]

Color := 0;
for i := 0 to Pixels.Count - 1 do
Color := (Color + Pixels[i] div 2;


 
XProger ©   (2006-03-02 00:40) [2]

Вру...


Color := Pixels[0];
for i := 1 to Pixels.Count - 1 do
Color := (Color + Pixels[i]) div 2;


P.S.
В любом случае конкретизируй вопрос.


 
MBo ©   (2006-03-02 05:54) [3]

Выделить R,G,B составляющие, сложить их, поделить на количество, объединить в цвет.


 
antonn ©   (2006-03-02 06:42) [4]

вот, была когда то у меня фенкция, вдруг поможет...

function GetCoefBack(BT:Tbitmap):double;
var x,y:integer; Row: PRGBArray; res:double;
begin
res:=0;
for y:=0 to 43 do begin
Row:=BT.ScanLine[y];
for x:=0 to 43 do begin  
res:=res+Row[x].rgbtRed*0.360+Row[x].rgbtGreen*0.530+Row[x].rgbtBlue*0.110;
end;              
end;
result:=res/(44*44);
end;



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

Текущий архив: 2006.09.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
2-1156926115
Chuck Loon
2006-08-30 12:21
2006.09.17
Вхождение точки в полигон


15-1155758162
Kerk
2006-08-16 23:56
2006.09.17
21й век


2-1157046191
Alral
2006-08-31 21:43
2006.09.17
Гипперссылка


1-1154885014
anton773
2006-08-06 21:23
2006.09.17
про потоки


1-1155106048
-=Germe$=-
2006-08-09 10:47
2006.09.17
Где ошибка? Подскажите....