Имеется такой код(Алгоритм рисования траектории), задача с помощью таймера пустить по этой траектории фигуру, застрял на этом моменте и очень прошу вашей помощи
Код:
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;
Админ: Пользуемся тегами при оформлении кода!