Помогите с bmp-шкой. ПЛИЗЗЗ!!!!!

← →
ArtUl © (2002-06-28 03:55) [0]

Как у цветной bmp-шки снести цветовую информацию(сделать черно белой) как это делает PhotoShop(он делает ее ч-б с коэффициентами телевидения, у меня есть эта функция преобразования только по пиксельно менять цвет как-то медленно)
Подскажите пожалуйста как мне решить эту проблему или как быстрее менять цвет.

← →
MBo © (2002-06-28 07:19) [1]

хочешь сделать bmp c серой шкалой 256 градаций?

← →
ArtUl © (2002-06-28 08:22) [2]

Типа того.

← →
MBo © (2002-06-28 09:24) [3]

function MakeGrayBmp(b:TBitmap):TBitmap;
var
ct:array[0..255] of TRGBQuad;
i:integer;
begin
Result := TBitmap.Create;
Result.Width:=b.Width;
Result.Height:=b.Height;
Result.PixelFormat:=pf8bit;
for i:=0 to 255 do begin
ct[i].rgbRed:=i;
ct[i].rgbBlue:=i;
ct[i].rgbGreen:=i;
ct[i].rgbReserved:=0;
end;
SetDIBColorTable(Result.Canvas.Handle,0,$FF,ct);
Result.Canvas.Draw(0,0,b);
end;

← →
Viewer (2002-06-28 11:47) [4]

Если надо цветное перевести в ч/б то, в зависимости от гамма-корреции (стандарта):

Y=(299*R+587*G+114*B)/1000; // CCIR 601
Y=(222*R+707*G+71*B)/1000; // ITU

R:=G:=B:=Y

← →
Yurko (2002-07-10 03:17) [5]

Делай так:
bmp.Monochrome := true;

Помогите с bmp-шкой. ПЛИЗЗЗ!!!!! Найти похожие ветки