Главная страница
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.033 c
8-1141248230
ShAB_v2.0
2006-03-02 00:23
2006.09.17
Как усреднить цвета до одного цвета?


4-1147668272
dimak-2k
2006-05-15 08:44
2006.09.17
Защита программы от копирования


2-1156349221
fog
2006-08-23 20:07
2006.09.17
Как c этим бороться?


2-1156768006
ляляфа
2006-08-28 16:26
2006.09.17
клавиатура


15-1156742522
syte_ser78
2006-08-28 09:22
2006.09.17
может кто подскажет название композиции...