Grayscale Image / Gambar Keabuan

Tujuan teknik grayscale adalah untuk mendapatkan citra keabuan. Untuk mendapatkan citra keabuan tersebut digunakan rumus:

I(x,y) adalah level keabuan pada suatu koordinat yang diperoleh dengan mengatur komposisi warna R (merah), G (hijau), B (biru) yang ditunjukkan oleh nilai parameter dan. Secara umum nilai dan adalah 0.33. Nilai yang lain juga dapat diberikan untuk ketiga parameter tersebut asalkan total keseluruhan nilainya adalah 1.

Berikut contoh Source code Grayscale Image di Delphi. Input adalah image dalam format TBitmap

procedure TFrm.Grayscale(Image:TBitmap);
var
i,j,k: Word;
p: PByteArray;

begin
Image.PixelFormat:= pf24Bit;
for i:=0 to Image.Height-1 do begin
p:= Image.ScanLine[i];
for j:=0 to Image.Width-1 do begin
p[3*j]:= (p[3*j]+p[3*j+1]+p[3*j+2])div 3;
for k:=0 to 2 do
p[3*j+k]:= p[3*j];
end;
end;

Citra1.Picture.Bitmap := Image; // membuat Citra 1 menjadi grayscale.
end;



Semoga Membantu..

Komentar FB


Probably Related Article



2 comments:

Anonymous said...
December 29, 2009 at 7:00 PM

kode/penjelasan Contrast ama Brightness sama persis...
emang gitu yah ???

Picas said...
December 29, 2009 at 8:37 PM

Engga..
karena sebenarnya dalam 1 program..

Related Posts by Categories



Widget by