Do hoa may tinh (de 2) - Giai ppt

Đồ họa máy tính (đề 2)

Câu 1:

a, Viết thủ tục vẽ đoạn thẳng trong trường hợp m thuộc (1,+∞ )

Procedure ve(x1,y1,x2,y2:real);

Var x, y, dx, dy, p, const1, const2 : real;

i : integer;

Begin

If (y1>y2) then

Begin

X:=x1; y:=y1;

X1:=x2; y1:=y2;

X2:=x; y2:=y;

End;

Dx:=x2-x1; dy:=y2-y1;

P:=2*dx-dy;

Const1:=2*dx-2*dy;

Const1:=2*dx;

X:=x1;

Y:=y1;

Putpixel(x,y,red);

y:=y+1;

For i:=y1 to y2 do

Begin

If (p>0 )then

Begin

X:=x+1;

P:=p+const1;

End

Else

P:=p+const2;

Putpixel(x,y,red);

Y:=y+1;

End;

End;

b, Tính tọa độ các điểm thuộc đoạn thẳng AB với A(15; 10), B(5; 5)

- Tính hệ số góc:

m = (y2-y1)/(x2-x1) = (5-10)/(5-15) = 1/2 (m ∈ (0; 1])

Xa >Xb đổi chỗ cho A và B --> A(5,5), B(15,10)

Dx = x2 - x1 = 10

Dy = y2 - y1 = 5

P = 2dy - dx = 10 - 10 = 0

1