Beranda > Graphics > MATRIX

MATRIX

Siapa yang tak kenal dengan film Matrix, dengan effect tampilan angka yang menakjubkan membuat penonton betah dibuatnya.

Yup, disini saya akan coba untuk menerapkan efek matrix tersebut kedalam gambar tentunya pake sedikit koding Delphi.

procedure MatrixEffect( vFont : TFont; Green : Boolean  );

var

FntH, FntWid : integer ;

w, h : Integer ;

fntColor : TColor ;

warna : LongInt ;

Rgbgreen, r, g, b : byte ;

ImgTemp : TImage ;

I : integer ;

begin

FntH:=Trunc(vFont.Size * 1.8) ;

FntWid:=Trunc(vFont.Size * 1.2);

try

Screen.Cursor:=crHourglass;

ImgTemp:=timage.Create(self);

with Imgtemp.Picture.Bitmap do

begin

Height:=image1.Picture.Bitmap.Height;

Width:=image1.Picture.Bitmap.Width;

Canvas.Brush.Color:=clBlack;

canvas.FillRect(imgtemp.Canvas.ClipRect);

end;

with Image1.Picture.Bitmap do

begin

for w:=0 to ( width div FntWid )do

begin

for h:=0 to (Height div FntH ) do

begin

warna:=ColorToRgb(canvas.Pixels[(w*FntWid), (h*FntH)]);

r:=getRValue(warna);

g:=getGValue(warna);

b:=getBValue(warna);

RgbGreen:=( r + g  + b  ) div 3;

if green then FntColor:=Rgb(0,RgbGreen,0) else

FntColor:=Rgb(r, g, b);

with ImgTemp.Picture.Bitmap.Canvas do

begin

i:=Random(9);

Brush.Color := clBlack;

Font.Name := vFont.Name;

Font.Style := [];

Font.Color := FntColor;

Font.Size := vFont.Size;

TextOut((w*FntWid), (h*FntH), IntToStr(i));

end;

end;

end;

end;

finally

image1.Picture:=ImgTemp.Picture;

ImgTemp.Free;

Screen.Cursor:=crDefault;

end;

end;

Kategori:Graphics Tag:
  1. Rahmat
    Agustus 5, 2010 pukul 3:24 pm

    Asslkm, Kang makasih tutorialnya. Kalo bisa tampilkan juga gambar hasil utnuk effect matrix ini. Thanks.

  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: