Gudang Ilmu dan Pemikiran

Assalamu'alaikum Wr. Wb.
Menikmati materi komputer grafik via pemrograman Delphi lumayan asyik, buat rekan-rekan yang menginginkan materinya silakan donwload link berikut :
Materi Komputer Grafik
Berikut contoh listing program yang saya ambil dari modul latihan saat perkuliahan:

1. {Listing Program Latihan Komputer Grafik
2. Algoritma DDA, Bressenhem, dan Lingkaran
3. untuk menggunakan listing ini harus diedit
4. dan disesuaikan dengan penggunaan Form visualnya}
6. {Algoritma DDA}
7. unit Unit1;
8. interface
9. uses
10. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
11. Dialogs, StdCtrls;
12. type
13. TForm1 = class(TForm)
14. Button1: TButton;
15. Label1: TLabel;
16. Label2: TLabel;
17. Label3: TLabel;
18. Label4: TLabel;
19. Edit1: TEdit;
20. Edit2: TEdit;
21. Edit3: TEdit;
22. Edit4: TEdit;
23. Button2: TButton;
24. procedure Button1Click(Sender: TObject);
25. procedure Button2Click(Sender: TObject);
26. private
27. { Private declarations }
28. public
29. { Public declarations }
30. end;
31. var
32. Form1: TForm1;
33. implementation
34. {$R *.dfm}
35. procedure TForm1.Button1Click(Sender: TObject);
36. begin
37. close
38. end;
39. procedure TForm1.Button2Click(Sender: TObject);
40. var
41. dx,dy,fstep,f,x1,x2,y1,y2:integer;
42. deltax,deltay,x,y:real;
43. begin
44. x1:=strtoint(edit1.Text);
45. y1:=strtoint(edit2.Text);
46. x2:=strtoint(edit3.Text);
47. y2:=strtoint(edit4.Text);
48. dx:=(x2-x1);
49. dy:=(y2-y1);
50. if (abs(dx)>abs(dy)) then fstep:=abs(dx)
51. else fstep:=abs(dy);
52. deltax:= dx/fstep;
53. deltay:= dy/fstep;
54. x:=x1;y:=y1;
55. canvas.Pixels[trunc(x),trunc(y)]:=clblue;
56. for f :=0 to fstep-1 do
57. begin
58. x:=x+deltax;
59. y:=y+deltay;
60. canvas.Pixels[trunc(x),trunc(y)]:=clblue;
61. end;
62. end;
63. end.
65. {Algoritma bresenham}
66. procedure TForm1.Button1Click(Sender: TObject);
67. var
68. p,dx,dy,xend,f,x,y,xa,xb,ya,yb:Integer;
69. begin
70. xa:=strtoint(edit1.Text);
71. xb:=strtoint(edit2.Text);
72. ya:=strtoint(edit3.Text);
73. yb:=strtoint(edit4.Text);
75.   dx:=Abs(xa-xb);
76.   dy:=Abs(ya-yb);
77.     p:=(2*dy)-dx;
78.     if(xa>xb)then
79.     begin
80.       x:=xb;
81.               y:=yb;
82.               xend:=xa;
83.       end
84.       else
85.       begin
87.       x:=xa;
88.               y:=ya;
89.               xend:=xb;
90.       end;
91.               Canvas.Pixels[x,y]:=clRed;
92.               for f:=x to xend do
93.                 begin
94.                   x:=x+1;
95.                   if(p<0)then p:=p+(2*dy)
96.                   else
97.                         begin y:=y+1;
98.                           p:= p+(2*(dy-dx));
99.     end;
100.                               Canvas.Pixels[x,y]:=clRed;
101. end;
102. end;
103. end.
105. {Algoritma Lingkaran}
106. procedure TForm1.Button1Click(Sender: TObject);
107. var x,y,p,xc,yc,radius:integer;
108. begin
109.    x:=0;xc:=100;yc:=200;radius:=45;
110.    y:=radius;
111.    p:=1-radius;
112.                   while(x<y)do
113.                     begin
114.                       canvas.pixels[xc+x,yc+y]:=clred;
115.                       canvas.pixels[xc+x,yc-y]:=clred;
116.                       canvas.pixels[xc-x,yc+y]:=clred;
117.                       canvas.pixels[xc-x,yc-y]:=clred;
118.                       canvas.pixels[xc+y,yc+x]:=clred;
119.                       canvas.pixels[xc+y,yc-x]:=clred;
120.                       canvas.pixels[xc-y,yc+x]:=clred;
121.                       canvas.pixels[xc-y,yc-x]:=clred;
123.                       if(p<0) then x:=x+1
124.                             else
125.           begin
126.                                   x:=x+1;
127.                                   y:=y-1;
128.                                   end;
129.           if(p<0)then p:=p+2*x+1
130.                       else   p:=p+2*(x-y)+1;
131.                     end;
132. end;
134. end.

Adapun tugasnya dalam pertemuan 2 ini adalah :
1. Buat sebuah garis yang menghubungkan dari titik (20,10) sampai dengan titik (30,18) dengan menggunakan algoritma DDA.
2. Buat sebuah garis yang menghubungkan dari titik (20,10) sampai dengan titik (30,18) dengan menggunakan algoritma Bressenham.
Listing program ditulis/dicetak.
Semoga bermanfaat.