Форум: "Media";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
ВнизКак усреднить цвета до одного цвета? Найти похожие ветки
← →
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 вся ветка
Форум: "Media";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c