Движение по линии

[FanRa3]

Всем привет
я нарисовал изображение средствами Canvas
Как его можно плавно передвигать по заданному отрезку(x1,y1; x2,y2) с заданной скоростью?
Заранее благодарен

[ArtGrek]

просто запусти

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Canvas do
  begin
    MoveTo(PenPos.X - 10,PenPos.Y - 10);
    LineTo(PenPos.X + 20,PenPos.Y + 20);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Canvas do
  begin
    Pen.Width := 20;
    MoveTo(0,0);
    Pen.Mode := pmNotXor;
    LineTo(PenPos.X + 10,PenPos.Y + 10);
  end;
end;

человек змеику делает, посмотри может что полезное извлекеш
http://programmersforum.ru/showthread.php?t=139104

[FanRa3]

это отрисовка линии. а мне надо чтобы по ней с указанной скоростью двигался нарисованный объект(отрисовка объекта в процедуре)

[ArtGrek]

а мне надо

фантазию включить

[FanRa3]

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

фантазию включить

я видел тему на 1 форуме, но потерял
там всё подробно было описано

Но всё же хотелось бы готового примера с движением квадрата по линии

[SalasAndriy]

готового примера нет... ищите алгоритм Брезенхэма... Этот алгоритм рисует линию по двум указанным точкам)) Но если его переделать под себя... то можно вместо рисования линии рисовать какой-то объект по тех точках которые располагаются на линии, а вот скорость уже определяйте сами)) Таймер используйте... Приспособьте алгоритм к таймеру) не так уже это и сложно)) Дал вам хорошую наводку) ищите...

Вот вам еще статья из Википедии:
http://ru.wikipedia.org/wiki/Алгоритм_Брезенхэма

[ArtGrek]

движение квадрата

var
  Form1: TForm1;
  i, j: integer;
  posX, posY: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Canvas do
  begin
    for i := 1 to 20 do
      for j := 1 to 20 do
        Pixels[posX + i, posY + j] := clBlack;
    inc(posX, 5);
    inc(posY, 5);
    for i := 1 to 20 do
      for j := 1 to 20 do
        Pixels[posX + i, posY + j] := clBlack;
  end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  with Canvas do
  begin
    Pen.Width := 20;
    Pen.Mode := pmNotXor;
    for i := 1 to 20 do
      for j := 1 to 20 do
        Pixels[posX + i, posY + j] := clBlack;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  posX := 0;
  posY := 0;
end;

end.

[asmodey1]

Какой Брезенхэм ??? Зачем операцию сложения двух переменных решать через интегралы ???
Что, имея линию, трудно нарисовать ее уравнение ?
А сделать привязку нужной точки фигуры (например, ее центр) к линии по этому уравнению тоже трудно ?
И поехали дальше по линии, меняя LEFT и TOP фигуры в соответствии с текущей точкой линии...
А скорость можно и опытным путем установить с помощью SLEEP-ов.

[ArtGrek]

автор видимо больше хотел узнать о
Pen.Mode := pmNotXor;
не знал как стреть за собои)))))

почитаите о режимах, в етом например если на одном месте нарисовать что то, то в первыи раз оно рисуеца, а во второи стираеца
но если игру делать собрались, советую наити больше инфы и разобраца с Canvas

[asmodey1]

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

автор видимо не знал как стреть за собои

Ну тогда пусть разберет простенький пример движения по прямой:
pr_girl.rar