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;

Iklan
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 )

Foto Google+

You are commenting using your Google+ 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 )

w

Connecting to %s

%d blogger menyukai ini: