Beranda > Graphics > RGB Channels

RGB Channels

Setiap gambar terdiri dari tiga warna dasar yakni Red Green dan Blue, untuk mengetahui tingkatan dari suatu warna dalam bentuk grayscale kita perlu melihatnya dalam bentuk channels warna, berikut ini kita akan membuat procedure untuk mengetahui tingkat kedalaman dari suatu channels.

  1. Untuk mempermudah penulisan kita salin procedure GrayScale lalu ganti dengan procedure GetChannles ( Chnls : Integer ) ; Lalu hapus variabel vRgbTemp  hingga akan didapat procedure baru menjadi :

Procedure GetChannels ( Chnls : Integer ) ;

Var

W, h : Integer ;

…..

  1. Setelah itu hapus kode

vRgbTemp:=( R + G + B ) div 3;

// warna baru

canvas.Pixels[w, h]:=Rgb(vRgbTemp, vRgbTemp, vRgbTemp);

Ganti menjadi :

Case Chnls of

0 : canvas.Pixels[w, h]:=Rgb( R, R, R ) ;

1 : canvas.Pixels[w, h]:=Rgb( G, G, G ) ;

2 : canvas.Pixels[w, h]:=Rgb( B, B, B ) ;

End;

Variabel Chnl merupakan  pilihan untuk menentukan channel mana yang akan dipilih, 0 adalah channel Red, 1 Green dan 2 untuk warna biru. Berikut ini adalah contoh cara memakai procedure tersebut ;

procedure TForm1.Button1Click(Sender: TObject);

begin

Getchannels(0);

end;

Kategori:Graphics Tag:
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: