опять файлы чтоли не пересылаются?

спрашиваю скорее так, для самоуспокоения - может кто знает алгоритм Брезенхема, все равно на каком языке...
у меня есть часть кода на паскале, надо дописать для рисования линии не только в одну сторону, а во все... принцип действия понимаю, а вот какие формулы именно дальше вписывать - никак не могу понять -    p:=p+2*dy-2*dx;   p:=2*dy-dx;  - вместо этих же в продолжении кода что-то другое должно стоять, насколько я понимаю......

procedure Brezen(x1,y1,x2,y2:integer);
var dx,dy,ix,iy,i,x,y,p:integer;
begin
dx:=abs(x2-x1);
dy:=abs(y2-y1);
x:=x1;
y:=y1;
ix:=1;
iy:=1;

if dx>=dy then
    begin
     p:=2*dy-dx;
       for i:=1 to dx do
             begin
             if p>0 then
               begin
                 x:=x+1;
                 y:=y+1;
                 p:=p+2*dy-2*dx;
               end
             else
               begin
                 x:=x+1;
                 y:=y;
                 p:=p+2*dy;
               end;
             form1.Canvas.Pixels[x,y]:=$000000;
             end;
         end;
     end;       

procedure TForm1.Button1Click(Sender: TObject);
var x1, x2, y1, y2: integer;
begin
x1:=StrToInt(form1.edit1.text);
y1:=StrToInt(form1.edit2.text);

x2:=StrToInt(form1.edit3.text);
y2:=StrToInt(form1.edit4.text);

brezen(x1,y1,x2,y2);
end;

end.

да,но если юзер знает где это.. ну самый простой тогда способ это учетные записи наверное