Нужна помощь в дописании кода

[artxdf]

Нужна помощь в дописании кода

Анимированный человечек есть,есть рот. Но надо еще дорисовать нос,глаза и волосы. Очень срочно надо...помогите кто нибудь(

uses graphabc;
var
x,y:integer;
begin
setwindowsize(280,280);
centerwindow;
x:=100;
y:=70;
while x<280 do
begin
circle(x,y,30);
line(x,y+30,x-20,y+130);
line(x-20,y+130,x+20,y+170);
line(x+20,y+170,x-20,y+210);
line(x-20,y+130,x-20,y+170);
line(x-20,y+170,x-70,y+170);
line(x-5,y+50,x-40,y+70);
line(x-40,y+70,x-40,y+110);
line(x-5,y+50,x,y+70);
line(x,y+70,x+50,y+50);
sleep(200);
clearwindow(clwhite);
circle(x+5,y-5,30);
line(x+5,y+25,x-15,y+125);
line(x-15,y+125,x+10,y+160);
line(x+10,y+160,x+20,y+200);
line(x-15,y+125,x-40,y+170);
line(x-40,y+170,x-80,y+190);
line(x,y+50,x-20,y+70);
line(x-20,y+70,x+10,y+100);
line(x,y+50,x+10,y+70);
line(x+10,y+70,x+50,y+90);
x:=x+10;
sleep(200);
clearwindow(clwhite);
end;
end.

 

[Vladimir_S]

Если так устроит

то:
1. Ввести переменную i типа Integer.
2. В раздел "до первой паузы", напр. сразу после задания кружка-головы, добавить:

   circle(x+15,y-10,6);
   circle(x+34,y,4);
   line(x,y,x+Round(30*Sqrt(3)/2),y+Round(30/2));
   for i:=0 to 20 do
    line(x+Round(30*Cos(Pi/4+Pi/20*i)),y-Round(30*Sin(Pi/4+Pi/20*i)),
         x+Round(40*Cos(Pi/4+Pi/20*i)),y-Round(40*Sin(Pi/4+Pi/20*i)));

3. В раздел "после первой паузы" добавить:

   circle(x+5+15,y-5-10,6);
   circle(x+5+34,y-5,4);
   line(x+5,y-5,x+5+Round(30*Sqrt(3)/2),y-5+Round(30/2));
   for i:=0 to 20 do
    line(x+5+Round(30*Cos(Pi/4+Pi/20*i)),y-5-Round(30*Sin(Pi/4+Pi/20*i)),
         x+5+Round(40*Cos(Pi/4+Pi/20*i)),y-5-Round(40*Sin(Pi/4+Pi/20*i)));

 

[Gruvi]

Владимир - вы истинный художник )))

 

[artxdf]

Vladimir_S
Благодарю!)))