Звезда в турбо паскале

[Krugan]

Здравствуйте! Я вот написал звезду в паскале
program zirka;
uses Graph,crt;
var
Gd,Gm:integer;
begin
Gd:=detect;
initGraph(Gd,Gm,'c:\BP\bgi');
line(100,120,70,100);
line(70,100,40,120);
line(40,120,55,95);
line(55,95,40,90);
line(40,90,60,90);
line(60,90,70,70);
line(70,70,80,90);
line(80,90,100,90);
line(100,90,85,95);
line(85,95,100,120);
readln;
end.

Но мне нужно чтоб она двигалась, вверх или вниз, вправо или влево, неважно главное чтоб двигалась. помогите плиз!

[Serge_Bliznykov]

перерисовывайте вашу звезду от базисной точки - т.е. задаёте x,y (для анимации не важно, какая это будет точка, например, один из углов)

все остальные линии должны быть нарисованы относительно данной точки.
например,

initGraph(Gd,Gm,'c:\BP\bgi');
x := 100;
y := 120;
line(x,y, x-30, y-20);

приводите сюда переработанный код, поможем анимировать её...

p.s. анимация делается так.
начало цикла
стираем звезду по координатам x,y (например, выводим звезду цветом фона)
изменяем координаты (например x:= x+2;
выводим звезду по координатам x,y
делаем небольшую паузу (1/10 секунды, например).
повторяем цикл.

вот и всё.

[Krugan]

program zirka;
uses Graph,crt;
var
Gd,Gm,x,y:integer;
begin
Gd:=detect;
initGraph(Gd,Gm,'c:\BP\bgi');
x:=100;
y:=120;
line(x,y,x-30,y-20);
line(x-30,y-20,x-60,y);
line(x-60,y,x-45,y-25);
line(x-45,y-25,x-60,y-30);
line(x-60,y-30,x-40,y-30);
line(x-40,y-30,x-30,y-50);
line(x-30,y-50,x-20,y-30);
line(x-20,y-30,x,y-30);
line(x,y-30,x-15,y-25);
line(x-15,y-25,x,y);
readln;
end.

вот переделал

[Krugan]

Уже сделал все сам. Спасибо большое за помощь.

PHP код:

program zirka;
uses Graph,crt;
var
Gd,Gm,x,y:integer;
begin
Gd:=detect;
initGraph(Gd,Gm,'c:\BP\bgi');
x:=100;
y:=120;
repeat
x:=x+1;
ClearDevice;
line(x,y,x-30,y-20);
line(x-30,y-20,x-60,y);
line(x-60,y,x-45,y-25);
line(x-45,y-25,x-60,y-30);
line(x-60,y-30,x-40,y-30);
line(x-40,y-30,x-30,y-50);
line(x-30,y-50,x-20,y-30);
line(x-20,y-30,x,y-30);
line(x,y-30,x-15,y-25);
line(x-15,y-25,x,y);
delay(10)
until keypressed;
end. 


Вот рабочая прога, мож кому пригодится)