Технический форум - Нужна помощь в дописании кода

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Нужна помощь в дописании кода (http://www.tehnari.ru/f43/t99772/)

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

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

Код:

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.

Если так устроит
Вложение 205349 Вложение 205350
то:
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)));

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

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