[Delphi] Rysowanie linii

0

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ć??

0

Ja to nie odruzniam tych obuch ;)
3 piwka robia swoje...

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0