Алгоритм Брезенхема, Построение отрезка Опции

[LOVE133]

Сделала графический редактор ( в прикрепленном файле) . После постановки 2 точек на сетке, в массиве Matr хранятся координаты 1 и 2 точки.Подскажите, как теперь провести линию, использовав алгоритм Брезенхема.Сам алгоритм я знаю.Как отрисовать отрезок используя мою сетку?

[Lapp]

У тебя тривиальная ошибка: в процедуре DrawLine4Connected в строке:
If ((y2-x1) >0 ) then sy:=1 else sy :=-1;
- замени x1 на y1, и все будет Ок.

Чтобы это выяснить, мне пришлось почистить эту процедуру. Посмотри, что получилось:

procedure DrawLine4Connected(x1,y1,x2,y2 : Integer);
var 
  x, y, dx, dy, sx, sy, z, e, i : Integer;
  Ch : Boolean;
begin
  x := x1;
  y := y1;
  dx := Abs(x2-x1);
  dy := Abs(y2-y1);
  If x2-x1>0 then sx:=1 else sx:=-1;
  If y2-y1>0 then sy:=1 else sy:=-1;
  e := 2*dy-dx;
  Ch:=dy>=dx;
  if Ch then begin
    z := dx;
    dx := dy;
    dy := z;
  end;
  i := 1;
  repeat
    PutPixel(x, y,10);
    if e<dx then begin
      if Ch then y := y+sy else x := x+sx;
      e := e+2*dy;
    end
    else begin
      if Ch then x := x+sx else y := y+sy;
      e := e-2*dx;
    end;
    i := i+1;
  until  i>dx+dy;
  PutPixel(x, y,10);
  readkey;
end;

Тебе не кажется, что так все выглядит прозрачнее? Зачем лишние бегины и энды, скобки? Зачем много строчек?.. Глаза же разбегаются..

Впрочем, мой вопрос чисто в пустоту - ты все равно не ответишь, уважаемая LOVE133. Ты еще ни разу не ответила мне. Будто меня и не было.. Мне, конечно, все равно, но знай: я тебе помогал в последний раз..