Beranda > Graphics > Color Balance

Color Balance

Program Photoshop merupakan program image editor yang sudah sangat terkenal, diantara fungsi yang sering digunakan pada program ini adalah fungsi color balance yakni fungsi yang berguna untuk mengatur warna.

Dengan program Delphi kita pun dapat membuat procedure sendiri untuk mengatur warna. Berikut ini adalah kodenya :

procedure TForm1.ColorBalance(R, G, B: Byte);

var

w, h : integer ;

vwarna : LongInt ;

vr, vg, vb, rR, rG, rB : byte ;

begin

with Image1.Picture.Bitmap do

begin

for w:=0 to Width-1 do

begin

for h:=0 to Height-1 do

begin

vwarna:=ColorToRgb(canvas.Pixels[w,h]);

vR:=GetRValue(vwarna);

vG:=GetGValue(vwarna);

vB:=GetBValue(vwarna);

if (vR + R)>=255 then rR:=255 else rR:=vR+R;

if (vG + G)>=255 then rG:=255 else rG:=vG+G;

if (vB + B)>=255 then rB:=255 else rB:=vB+B;

canvas.Pixels[w, h]:=Rgb(rR, rG, rB);

end;

end;

end;

end;

Contoh cara menggunakannya adalah seperti berikut;

ColorBalance(10, 20, -18);

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: