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

[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

[bakalava92]

знакомые вроде как сказали что агоритм брезенхема можно использовать, но как это осуществить без модуля graph не нашел, знакомые тоже с алгоритмом этим не сталкивались, только слышали, помогите кто может пожалуйста!

[Lapp]

агоритм брезенхема можно использовать, но как это осуществить без модуля graph не нашел,

При чем тут модуль Graph? Он же его все равно реализует только для внутренних своих нужд.

Непонятно, как ты не нашел его. Есть в Википедии, например. Попробуй сделать с ним линию (x1,y1,x2,y2). Начни хотя бы. Поможем.