Mam procedure do rysowania linii od x1,y1 do x2,y2:
procedure line(x1,y1,x2,y2:integer; kolor:byte);
var
licznik, s, d1x, d1y, d2x : integer;
d2y, r_x, r_y, m, n:integer;
begin
{oblicznie odleglosci pomiedzy punktami na osi X i Y}
r_x := x2 - x1;
r_y := y2 - y1;
{sprawdzenie znaku}
d1x := g_pobierz_znak(r_x);
d1y := g_pobierz_znak(r_y);
{okreslenie kierunku rysowania linii}
d2x := g_pobierz_znak(r_x);
d2y := 0;
m := abs(r_x);
n := abs(r_y);
if (m = m) then
begin
s := s - m;
x1 := x1 + d1x;
y1 := y1 + d1y;
end
else
begin
x1 := x1 + d2x;
y1 := y1 + d2y;
end;
end; {koniec petli for}
end;
(Z ksiażki sciagnalem)
Tyle że ta procka rysuje linie taką:
---
---
---
---
a ja chciałbym taką:
---
---
---
---
Jak to zrobić??