Псевдографика, построение человечка,анимация конечностей Опции

[bakalava92]

Добрый день! Нужна помощь в решении такой задачи: Построить движущегося вправо,влево.. человечка с анимированными конечностями с помощью псевдографики, с использованием собственных процедур, никаких модулей кроме CRT использовать нельзя. Собственно не могу сделать руки, получается либо сделать их подвижными по оси Y, но по оси X они не двигаются, либо наоборот

Код для построения человечка написал:

uses CRT;
  var
   g,i:integer;


    procedure circle(Radius,Horizontal,Vertical:integer);
   var
     l,x,y:integer;
     begin
       for l:=0 to 360 do
        begin
          x:=round(Radius*sin(l)+Horizontal);
          y:=round(Radius*cos(l)+Vertical);
           GoToXY(x,y);
          write('*');
        end
     end;


  procedure HorizontalLine(y,b1,b2:integer);
 begin
   for g:=b1 to b2 do
    begin
    GoToXY(g,y);
    writeln('*');
    end
    end;


 procedure VerticalLine(x,b1,b2:integer);
 begin
   for g:=b1 to b2 do
   begin
   GoToXY(x,g);
   writeln('*');
   end
   end;


    begin
      clrscr;
          for i:=1 to 60 do
           begin
             textcolor(red);

               Circle(3,15+i,4);            {golova}

               Circle(1,19+i,11);           {pugovica1}
               Circle(1,19+i,14);           {pugovica2}

               HorizontalLine(9,8+i,22+i);  {tulovishe}
               HorizontalLine(16,8+i,22+i);

               VerticalLine(8+i,10,15);     {tulovishe}
               VerticalLine(22+i,10,15);
               VerticalLine(15+i,9,15);

               VerticalLine(15+i,8,14);     {sheya}

               VerticalLine(15+i,17,22);    {nogi}
               VerticalLine(11+i,17,22);
               VerticalLine(19+i,17,22);
               VerticalLine(17+i,22,24);
               VerticalLine(13+i,22,24);

               HorizontalLine(22,11+i,19+i);


             delay(50000);

              textcolor(black);

                Circle(3,15+i,4);           {golova}

                Circle(1,19+i,11);          {pugovica1}
                Circle(1,19+i,14);          {pugovica2}

                HorizontalLine(9,8+i,22+i); {tulovishe}
                HorizontalLine(16,8+i,22+i);

                VerticalLine(8+i,10,15);    {tulovishe}
                VerticalLine(22+i,10,15);
                VerticalLine(15+i,9,15);

                VerticalLine(15+i,6,14);    {sheya}

                VerticalLine(15+i,17,22);   {nogi}
                VerticalLine(11+i,17,22);
                VerticalLine(19+i,17,22);
                VerticalLine(17+i,22,24);
                VerticalLine(13+i,22,24);

                HorizontalLine(22,11+i,19+i);

           end;
        readln
    end.

--------------------------------------------------------------------------
Помогите пожалуйста приклеить к нему руки+еще чтобы двигались вправо и вверх вниз, вообщем что руками махал)) сам похоже уже не справлюсь

Тегами для подсветки кода пользуйся...

Сообщение отредактировано: volvo - 19.10.2009 18:08

[ammaximus]

1. достаточно просто написать

until keypressed

2. Где repeat?

3. Вот рисую линии с помощью алгоритма Брезенхема:

uses crt;
var
i:integer;

procedure line(x0,y0,x1,y1:integer);
 var
 x,y:integer;
 begin
 if (x0=x1) then
  begin
   {func goriz - ТВОЯ ФУНКЦИЯ ГОРИЗОНАЛЬНОЙ ЛИНИИ}
   exit;
  end;
 if (y0=y1) then
  begin
   {func vert - ВЕРТИКАЛЬНОЙ}
   exit;
  end;

{РИСУЕМ}
  for x:=x0 downto x1 do
   begin
    GotoXY(x,round ( ((y1-y0) / (x1-x0)) * (x-x0)+y0));
    write('*');
   end;

  for y:=y0 downto y1 do
   begin
    GotoXY(round ( ((y-y0) / (y1-y0)) * (x1-x0)+x0), y);
    write('*');
   end;

  for x:=x0 to x1 do
   begin
    GotoXY(x,round ( ((y1-y0) / (x1-x0)) * (x-x0)+y0));
    write('*');
   end;

  for y:=y0 to y1 do
   begin
    GotoXY(round ( ((y-y0) / (y1-y0)) * (x1-x0)+x0), y);
    write('*');
   end;

  end;



begin
 clrscr;
 line(10,10,11,20);
 line(10,10,25,14);
 line(10,10,2,2);
 line(10,10,15,3);
 line(10,10,3,15);
 readkey;

end.

Я не стал писать конструкции if в построении, неверные ситуации итак игнорируются. Рисует во все стороны.