С помощью таймера пустить фигуру "звезда" по заданной траектории

[Sulackan]

По заданной траектории с помощью таймера пустить фигуру "звезда" ниже алгоритм траектории

var x,y,d,k1,k2,k3,k4,i,j:integer;
begin
//координаты верхнего левого треугольника
x:=100;
y:=100;
//длина катета
d:=50;
moveto(x,y);
for j:=1 to 4 do
 begin
  case j of
  1:begin
    k1:=1;
    k2:=1;
    k3:=0;
    k4:=-1;
    end;
  2:begin
    k1:=-1;
    k2:=1;
    k3:=1;
    k4:=0;
    end;
  3:begin
    k1:=-1;
    k2:=-1;
    k3:=0;
    k4:=1;
    end;
  4:begin
    k1:=1;
    k2:=-1;
    k3:=-1;
    k4:=0;
    end;
  end;
for i:=1 to 5 do
 begin
  if odd(i) then
   begin
    lineto(x+k1*d,y+k2*d);
    x:=x+k1*d;
    y:=y+k2*d;
   end
  else
   begin
    lineto(x+k3*d,y+k4*d);
    x:=x+k3*d;
    y:=y+k4*d;
   end;
 end;
end;

[northener]

А вопрос-то в чем?
Да и рисунок как-то мало смахивает на звезду.

[Sulackan]

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

А вопрос-то в чем?
Да и рисунок как-то мало смахивает на звезду.

Рисунок траектории, а не фигуры. А вопрос именно в том, как любую фигура, можно даже не звезду, связать с этой траекторией и запустить через таймер

[type_Oleg]

Например так.
В начале Timer1.Enabled установить False

//........
var
  Form1: TForm1;
  step:Integer;
const
  AR_X:array[0..4]of Integer=(116,209,239,146,257);
  AR_Y:array[0..4]of Integer=(150,77,150,94,94);

implementation

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:=not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if step=0
  then Image1.Canvas.MoveTo(AR_X[0],AR_Y[0])
  else if step<5
   then Image1.Canvas.LineTo(AR_X[step],AR_Y[step])
   else Image1.Canvas.LineTo(AR_X[0],AR_Y[0]);
 if step<5 then Inc(step);
end;

end.

[dummy_user]

Сделайте функцию DrawStar(X, Y) и не мучайтесь с координатами.

[Serge_Bliznykov]

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

Сделайте функцию DrawStar(X, Y) и не мучайтесь с координатами.

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

[dummy_user]

void конечно же.

Да вы посмотрите на код, там постоянные выверты с координатами LineTo().
Не удобно же.

[Aleksandr H.]

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

Да вы посмотрите на код, там постоянные выверты с координатами LineTo().

Так а разве ето ТС не просто рисует траекторию движение? Все что надо, заменить LineTo на DrawStar. имхо

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Все что надо, заменить LineTo на DrawStar. имхо

ошибаетесь.

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

void конечно же.

смешно. Вы Delphi ни с чем не перепутали?
Приведите ссылку на оф.документацию Delphi, где описан тип void, а то я как-то не в курсе

[dummy_user]

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

ошибаетесь.
смешно. Вы Delphi ни с чем не перепутали?
Приведите ссылку на оф.документацию Delphi, где описан тип void, а то я как-то не в курсе

Нет, не перепутал.

В Delphi функции не возвращающие значения называются процедурами.
В других языках (C, C++, JavaScript, ActionScript и т.д.) нет понятия "процедура", там есть функция возвращающая тип void то бишь ничего.