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..

Related Post: