Алгоритм построения линии по координатам.

[Alex Cones]

{ *** Вступление *** }
Просмотрел все разделы форума, но не нашел подходящего - если не там, прошу извинить.
{ *** Тема *** }
Пытаюсь получить алгоритм построения линии из точки А в точку Б. Т.е. у меня есть координаты (X1,X2,Y1,Y2), ну например:

1,0,0,0,0,0,0
0,0,0,0,0,0,0
0,0,0,0,0,0,1

Моя задача - провести линию из первой точки во вторую.
{ *** Вопрос *** }
Не натолкнет кто-нибудь на мысль?

[Levsha100]

Берем разности между соответствующими координатами.
Делим их.
В цикле пока не достигнем точки прибавляем к каждой координате коэф. прироста.
//-----------------
Берем разность.
Находим радиус, находим угол, это если представить одну из точек центром окружности. А дальше x:=x0+cos(angle)*r; y:=y0+sin(angle)*r, где r постоянно увеличиваем, пока не будем как радиус.

[counter]

вот недавно читал ,может это, то что нужно?

http://ru.wikipedia.org/wiki/Алгоритм_Брезенхема

[Alex Cones]

Спасибо за наВодку. Голова сегодня не варит вообще.

[_Dmitry]

Когда-то делал, даже с антиалиасингом.

Модуль с процедурой черчения линии:

unit WuGraph;

interface

uses
  Windows, Graphics;

//-------------------------------------------------------------------------  

procedure WuLineTo(Canvas: TCanvas; X,Y: Integer);
procedure WuLine(Canvas: TCanvas; X1,Y1,X2,Y2: Integer);

//-------------------------------------------------------------------------

implementation

//-------------------------------------------------------------------------

function ColorGradient(C1,C2: TColor; K: Double): Integer;
var
  R,G,B: Byte;
begin
  C1:=ColorToRGB(C1); C2:=ColorToRGB(C2);
  R:=round(GetRValue(C1)*(1-K)+GetRValue(C2)*K);
  G:=round(GetGValue(C1)*(1-K)+GetGValue(C2)*K);
  B:=round(GetBValue(C1)*(1-K)+GetBValue(C2)*K);
  result:=RGB(R,G,B);
end; //ColorGradient

//-------------------------------------------------------------------------

procedure WuLineTo(Canvas: TCanvas; X,Y: Integer);
//Алгоритм Ву (разложение отрезка в растр со сглаживанием)
//http://ru.wikipedia.org/wiki/Алгоритм_Ву
var
  X0,Y0,KX,C1,C2,H,i: Integer;
  T,KY: Double;
begin
  C1:=Canvas.Pen.Color; //цвет линии
  C2:=Canvas.Brush.Color; //цвет фона
  H:=Canvas.Pen.Width; //толщина линии
  if H < 1 then H:=1;
  X0:=Canvas.PenPos.X; Y0:=Canvas.PenPos.Y; //координаты начала
  if X < X0 then
    begin //всегда чертим слева на право
      KX:=X0; X0:=X; X:=KX;
      KX:=Y0; Y0:=Y; Y:=KX;
    end;
  T:=(Y-Y0)/(X-X0); //тангенс угла наклона к оси X
  KY:=Y0;
  for KX:=X0 to X do
    begin
      Canvas.Pixels[KX,trunc(KY)-trunc(H/2)]:=ColorGradient(C1,C2,frac(KY));
      for i:=1 to H-1 do
        Canvas.Pixels[KX,trunc(KY)-trunc(H/2)+i]:=ColorGradient(C1,0,0);
      Canvas.Pixels[KX,trunc(KY)-trunc(H/2)+H]:=ColorGradient(C2,C1,frac(KY));
      KY:=KY+T;
    end;
  Canvas.MoveTo(X,Y); //перемещаем перо в конец линии
end; //WuLineTo

//-------------------------------------------------------------------------

procedure WuLine(Canvas: TCanvas; X1,Y1,X2,Y2: Integer);
begin
  Canvas.MoveTo(X1,Y1); WuLineTo(Canvas,X2,Y2);
end; //WuLine

//-------------------------------------------------------------------------

end.

Обращаемся к процедурам так:

Image1.Canvas.Pen.Width:=3; //толщина линии
Image1.Canvas.Pen.Color:=clNavy; //цвет линии
Image1.Canvas.Brush.Color:=clWhite; //цвет фона
WuLine(Image1.Canvas,50,100,500,120);

[Вавел из ГМТУ]

Матан 1 семестр универа. Уравнение прямой, проходящей через две точки. Получается функция f(x), по которй и строиться прямая.

[Arigato]

Лучше использовать Алгоритм Брезенхема, он быстрее работает, чем геометрические построения.