case:
procedure TForm3.Button3Click(Sender: TObject);
1. ,
procedure PixelSize(X,Y: Integer);
x, y , , .
procedure PixelStyle(X, Y: Integer);
x, y , , PixelSize
2.
:
dY/dX= dy / dx
dx:= xk - xn; Y
dy:= yk - yn; X
:
xt:= xn;
yt:= yn;
(xn, yn) ,
(xk, yk) , :
Case linetype of 1:
N, .
n:= abs(dx) + abs(dy);
n :
xt:= xt + dx / n;
yt:= yt + dy / n;
xt, yt
PixelStyle(round(xt), round(yt));
, .
3. ;
Case linetype of 2
(xn, yn) ,
(xk, yk)
.
4. Case linetype of 3:
procedure brezenhem(xn, yn, xk, yk: Integer);
(xn, yn) ,
(xk, yk)
.
5.
Case Linetype of 4:
xn, yn , r .
.
6.
Procedure TForm3.Button1Click(Sender: TObject);
7.
procedure TFormLab2.ComboBox1Change(Sender: TObject);
8.
procedure TFormLab2.ComboBox2Change(Sender: TObject);
9.
procedure TForm3.Button3Click(Sender: TObject);
10.
procedure TFormLab2.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton);
- xn, yn
11. ,
procedure TFormLab2.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton);
- x, y
MainProject.exe.
(.5.1.) , . 2 (. . 5.2)
5.1.
|
|
5.2. 2
. , .
, , , .
, , .
..
, .