Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.039 c