LineTo для текста или матрицы

[apromix]

Здраствуйте. Подскажите, как написать процедуру аналогичную LineTo, но для текста или матрицы. Допустим у есть массив 100 Х 100 з разных символов. Нужно скажем из точки 10, 10 в точку 25, 25 провести линию из одинаковых символов (заменить существующие). Спасибо.

[denisbrain]

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

Здраствуйте. Подскажите, как написать процедуру аналогичную LineTo, но для текста или матрицы. Допустим у есть массив 100 Х 100 з разных символов. Нужно скажем из точки 10, 10 в точку 25, 25 провести линию из одинаковых символов (заменить существующие). Спасибо.

для примера
http://delphi-faq.net/grafika_igry/2...ii-lineto.html (Нарисовать линию, не используя функции LineTo)

[Zer0]

можно к примеру так:
изначально найти меньшее расстояние по осям между точками (между позициями в матрице то есть), затем поделить большее расстояние на меньшее и получим некий коэффициент, далее начиная от левой верхней позиции начинать циклом заполнять матрицу, на каждой итерации присваивая по оси, где было минимальное расстояние - единицу, по второй оси - получившийся коэффициент

[alexcoder]

http://ru.wikipedia.org/wiki/%D0%90%...8D%D0%BC%D0%B0
http://ru.wikipedia.org/wiki/DDA

[apromix]

Спасибо всем Реализовал так (для алгоритма FOV):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Display;
    procedure LineTo(X, Y: Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LineTo(X, Y: Integer);
var
  I, L: integer;
  LR: Real;
  B: TPoint;
  AX, AY: Integer;
begin
  B.X := 100;
  B.Y := 100;
  L := Max(Abs(B.X - X), Abs(B.Y - Y));
  for I := 0 to L do
  begin
    LR := I / L;
    AX := B.X + Round((X - B.X) * LR);
    AY := B.Y + Round((Y - B.Y) * LR);
    if Canvas.Pixels[AX, AY] = clRed then Break;
    Canvas.Pixels[AX, AY] := clBlack;   
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Display;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Display;
end;

procedure TForm1.Display;
var
  C: TPoint;
  I: Integer;
begin
  for I:= 0 to 100 do
  begin
    Randomize;
    Canvas.Pixels[Round(Random(200)), Round(Random(200))] := clRed;
  end;
  
  for I := 0 to 200 do LineTo(I, 0);
  for I := 0 to 200 do LineTo(200, I);
  for I := 200 downto 0 do LineTo(I, 200);
  for I := 200 downto 0 do LineTo(0, I);
end;

end.

[Serge_Bliznykov]

apromix, не понял, какое отношение эта Ваша программа имеет к исходному заданию (матрица символов)...

и ещё. вынесите Randomize из цикла.
а ещё лучше - вообще из процедуры Display уберите. сделайте его на событие Form OnCreate (или хотя бы на событие onShow)