Beranda > Graphics > Threshold

Threshold

Efek threshold merupakan pembulatan keatas dan kebawah nilai abu-abu dari suatu warna tertentu . Untuk lebih jelasnya ikuti langkah berikut ini.

1.Masih menggunakan form pertama. Seperti biasa, untuk mempercepat proses pengetikan kita salin procedure  grayscale yang sudah kita tulis diatas lalu ganti nama procedurenya menjadi

Procedure Threshold ( Level : Integer );

lalu salin dan tambahkan  procedure tersebut  dibawah deklarasi public.

2.Ganti fungsi

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

menjadi

if ((r+g+b) div 3)<=level then vRgbtemp:=0 else vRgbtemp:=255 ;

3. Tulisan canvas.Pixels[w, h]:=Rgb(vRgbTemp, vRgbTemp, vRgbTemp); jangan  diganti.

4.Cara menggunakannya adalah seperti berikut;

procedure TForm1.Button1Click(Sender: TObject);

begin

ThresHold(150);

end;

Cara kerja efek ini adalah apabila nilai tingkat keabu-abuan dari ke tiga warna rgb dibawah level maka program akan menggambarkannya sebagai warna hitam dan apabila nilainya diatas niali level maka program akan menggambarnya dengan warna putih. Dibawah ini adalah hasil gambar yang sudah diberi efek threshold dengan level 150.

Gbr Hasil efek threshold dengan level 150

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: