Catatan Kecil Online Ku

Tugas Grafika Komputer

Membuat titik dengan titik awal dan titik akhir bebas dengan inputan user.

Dengan menggunakan :

1. Algoritma Bresenham
2. Perintah MoveTo dan LineTo

Code:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int x0,y0,x1,y1,dx,dy,step,k;

float x,y,x_tambah,y_tambah;

x0=StrToInt(Edit_X0->Text);

y0=StrToInt(Edit_Y0->Text);

x1=StrToInt(Edit_X1->Text);

y1=StrToInt(Edit_Y1->Text);

dx=x1-x0;

dy=y1-y0;

x=float(x0);y=float(y0);

if(dx>dy)

step=dx;

else

step=dy;

x_tambah=(float)dx/step;

y_tambah=(float)dy/step;

for (k=0;k

{

x+=x_tambah;

y+=y_tambah;

for(int k=0;k<100000;k++){}

Canvas->MoveTo(x0, y0);

Canvas->LineTo(x1, y1);

}

}