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

[LOVE133]

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

[LOVE133]

Не могу понять где там ошибка.Такое ощущение. что в зависимости от четверти экрана, рисуется своя прямая, невважно какие точки были изначально.Скорей всего ошибка в алгоритме Брезенхема, потому что матрицу Matr ( там хранятся 1 и 2 координаты отрезка ) заполняет вполне корректно ( 2 окружности на экране выводятся в своих местах...) а вот линия рисуется как ей хочется...

[Malice]

Не могу понять где там ошибка.Такое ощущение. что в зависимости от четверти экрана, рисуется своя прямая, невважно какие точки были изначально.Скорей всего ошибка в алгоритме Брезенхема, потому что матрицу Matr ( там хранятся 1 и 2 координаты отрезка ) заполняет вполне корректно ( 2 окружности на экране выводятся в своих местах...) а вот линия рисуется как ей хочется...

Предложу просто заменить реализацию на работающую:

Procedure DrawLine4Connected(SX,SY,EX,EY:Integer);
Var t,dist,Xerr,Yerr,DX,DY,INCX,INCY:Integer;
Begin
 Xerr:=0; Yerr:=0;
 DX:=EX-SX;  DY:=EY-SY;
 INCX:=1; INCY:=1;
 if DX=0 then INCX:=0;
 if DX<0 then INCX:=-1;
 if DY=0 then INCY:=0;
 if DY<0 then INCY:=-1;
 DX:=ABS(DX); DY:=ABS(DY);
 if DX>DY Then Dist:=DX
  else Dist:=DY;
  Xerr:=DX; Yerr:=DY;
  for t:=0 to dist do
    begin
      PutPixel(Sx,Sy,10);
      Xerr:=Xerr+DX; Yerr:=Yerr+DY;
      if Xerr>Dist then
       begin
        Xerr:=Xerr-dist;
        Sx:=Sx+INCX;
       end;
      if Yerr>Dist then
       begin
        Yerr:=Yerr-dist;
        Sy:=Sy+INCY;
       end;
end;
End;

Взято из фидошного demo.design.faq, ныне сайта enlight.ru