[kurganov4]

Здравствуйте!
Никак не могу решить простую казалось бы задачку.
Есть бмп изображение, я задаю две произвольные точки на этом изображении и рисую прямую линию между ними. Вопрос в том, как получить координаты пикселей, которые пересекает эта прямая.
Мне это нужно для представления гистограммы интенсивностей пикселов на этой линии.
Никак в голову нужный алгоритм не приходит, может кто-нибудь посоветует как быть?

[NumLock]

исходя из:

[Aristarh Dark]

NumLock, ты видимо не правильно понял вопрос. Вот как строить прямую, даже реализация есть, а я в довикипедоные времена сам реализацию писал...

[poli-smen]

Сообщение от Aristarh Dark

NumLock, ты видимо не правильно понял вопрос. Вот как строить прямую, даже реализация есть, а я в довикипедоные времена сам реализацию писал...

Я в доинтернетные времена дизассемблировал вручную прошивку Бейсика из журнала "Радио" (то ли для "Микро-80", то ли для "Радио 86РК") чтобы посмотреть как он рисует линии. Ну и вообще было интересно разобраться как оно там всё работает...

[NumLock]

Сообщение от Aristarh Dark

даже реализация есть

ну так даже Брезенхэм исходил из этого уравнения))) просто в описании алгоритма в вики оно записано в ином виде: y2-y1 перенесено. а уж следовать алгоритму Брезенхэма или инкрементировать на 1 координату по максимальной длине и высчитывать через приращение координату минимальной длины дела хозяйское.

[NumLock]

А велосипед то изобретен)))

LineDDA function

The LineDDA function determines which pixels should be highlighted for a line defined by the specified starting and ending points.

Пример:

Код:

procedure LineDDAProc(X, Y: Integer; Data: Integer); stdcall;
begin
  Form1.Canvas.Pixels[X, Y]:=clBlack;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LineDDA(10, 60, 109, 109, @LineDDAProc, 0);
end;

Получает все точки для линии (10, 60)-(109, 109). Координаты возвращает через функцию обратного вызова LineDDAProc в X и Y.

[Aristarh Dark]

А велосипед то изобретен)))

Прикольно. Век живи - век учись...

ЗЫЖ Вообще колдунство, я прям под впечатлением.

[poli-smen]

Сообщение от NumLock

А велосипед то изобретен)))

LineDDA function

Хм... Что-то об этой функции я даже и не вспомнил, хотя ещё не прошло наверное и месяца как я читал книгу Антона Григорьева "О чём не пишут в книгах по Delphi" в которой он с помощью LineDDA творит прямо таки чудеса.

Вот примеры из книги:

[kurganov4]

Всем спасибо!
Подтянул свои знания. Брезенхема прошарил, думал уже по нему делать.
Но LineDDA это действительно круто))