Minggu, 03 November 2013

Algoritma Midpoint untuk Penggambaran Lingkaran

ini adalah salah satu tugas Mata Kuliah Grafika Komputer.
dimana dalam tugas ini saya harus membuat algoritma fungsi parameter penggambaran lingkaran dengan Delphi.

ScreenShoot dari aplikasi yang sudah berhasil.



listing programnya, yaitu:

procedure TForm1.Button1Click(Sender: TObject);
var x,y,p,xc,yc,radius:integer;
begin
x:=0;
xc:=100;
yc:=200;
radius:=45;
y:=radius;
p:=1-radius;

while(x<y)do

begin
canvas.pixels[xc+x,yc+y]:=clred;
canvas.pixels[xc+x,yc-y]:=clred;
canvas.pixels[xc-x,yc+y]:=clred;
canvas.pixels[xc-x,yc-y]:=clred;

canvas.pixels[xc+y,yc+x]:=clred;
canvas.pixels[xc+y,yc_x]:=clred;
canvas.pixels[xc-y,yc+x]:=clred;
canvas.pixels[xc-y,yc-x]:=clred;
if(p<0) then x:=x+1
else

begin
x:=x+1;
y:=y-1;
end;
if(p<0)then p:=p+2* x+1
  else   p:=p+2*(x-y)+1;
end;
end;

0 komentar:

Posting Komentar

Tolong komentar yang berkaitan dengan postingan ini...