Анимация приседающего человека - Pascal ABC

Формулировка задачи:

Здравствуйте! Помогите создать анимацию приседающего человека и руки в стороны. Вот нарисовал человечека, а что дальше делать не знаю.
uses graphABC,CRT;
var x,y,i:integer;
procedure chel(x,y:integer);
begin
circle(x,y-100,25);//голова
line(x-50,y-75,x+50,y-75);//туловище
line(x-50,y-75,x,y+25);
line(x+50,y-75,x,y+25);
line(x-50,y-75,x-60,y+25);
line(x+50,y-75,x+60,y+25);//руки
line(x,y+25,x+20,y+125);//ноги
line(x,y+25,x-20,y+125);
end;
begin
setwindowsize(800,600);
x:=windowwidth div 2;
y:=windowheight div 2;
chel(x,y);
end.

Код к задаче: «Анимация приседающего человека - Pascal ABC»

textual
uses graphABC,CRT;
var x,y,i:integer;
procedure chel_1(x,y:integer);
begin
circle(x,y-100,25);//голова
line(x-50,y-75,x+50,y-75);//туловище
line(x-50,y-75,x,y+25);
line(x+50,y-75,x,y+25);
line(x-50,y-75,x-60,y+25);
line(x+50,y-75,x+60,y+25);//руки
line(x,y+25,x+20,y+125);//ноги
line(x,y+25,x-20,y+125);
end;
procedure chel_2(x,y:integer);
begin
circle(x,y-100,25);//голова
line(x-50,y-75,x+50,y-75);//туловище
line(x-50,y-75,x,y+25);
line(x+50,y-75,x,y+25);
line(x-50,y-75,x-160,y-75);
line(x+50,y-75,x+160,y-75);//руки
line(x,y+25,x+20,y+125);//ноги
line(x,y+25,x-20,y+125);
end;
begin
setwindowsize(600,600);
hidecursor;
centerwindow;
x:=windowwidth div 2;
y:=windowheight div 2;
repeat
chel_1(x,y);
sleep(1000);
clearwindow;
chel_2(x,y);
sleep(1000);
clearwindow;
until keypressed;
end.

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ