Анимацыя в паскале, Есть человечек, задача в том, что он должен двигать руками и ногами. П Опции

[potay]

program Man;
uses Graph,crt,ZVUK;
var
driver,mode,x,y,i:integer;
procedure Chelovek;
begin
circle(315,100,20);
line(315,120,315,230);
line(315,230,215,330);
line(315,230,415,330);
line(315,120,215,220);
line(315,120,415,220);
end;
begin
driver:=detect;
mode:=detect;
initgraph(driver,mode,'C:\tp7');
for i:=1 to 10000 do
begin
setcolor(0);
Chelovek;
Delay(100);
setcolor(white);
Chelovek;
end;
readln;
end.

Добавлено:
Покажите хотябы как сдвинуть одну линию!!!

М

Используй теги! Lapp

[мисс_граффити]

1. нарисовал линию каким-то цветом
2. нарисовал такую же линию (с теми же координатами) цвета фона
3. нарисовал цветную линию в новом месте.

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

[potay]

1. нарисовал линию каким-то цветом
2. нарисовал такую же линию (с теми же координатами) цвета фона
3. нарисовал цветную линию в новом месте.

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

Только рисовать надо не в процедуре???