Графическая реализация движения тела, брошенного под углом к горизонту

[Asp729]

нарисован танк и человек. Из танка вылетает снаряд, который может пролететь мимо человека, или же попасть в него. Дуло танка и самого человечка перемещают с помощью клавиш. Проблема заключается в следующем: например, координаты человечка изменены, перехожу к изменению положения дула, дуло перемещается, человечек возвращается в исходное положение. Как реализовать одновременные перемещения координат и дула, и человечка? Помогите, пожалуйста. буду очень признательна. Вот код программы:

Program Kursovaya_rabota;
Uses GraphABC;
Var a,b:integer;
Procedure Gusenicy(x,y:integer);
Begin
 setpenwidth(2);
 setpencolor(cllime);
 setbrushcolor(clpurple);
 circle(x+120,y+160,10);
 circle(x+130,y+160,10);
 circle(x+140,y+160,10);
 circle(x+150,y+160,10);
 circle(x+160,y+160,10);
 circle(x+170,y+160,10);
 circle(x+180,y+160,10);
 circle(x+190,y+160,10)
End;
Procedure Bashnya (x,y:integer);
Begin
 setpenwidth(2);
 setpencolor(cllime);
 setbrushcolor(clteal);
 drawpie(x+155,y+155,40,0,180);
 fillpie(x+155,y+155,40,0,180)
End;
Procedure Dulo(x,y:integer);
Begin
 setpenwidth(2);
 setpencolor(cllime);
 setbrushcolor(clteal);
 Rectangle(x+145,y+75,x+165,y+130)
End;
Procedure The_Tank(x,y:integer);
Begin
 Dulo(x,y);
 Gusenicy(x,y);
 Bashnya(x,y)
End;
Procedure The_Victim (x,y:integer);
Begin
 setpencolor(clpink);
 setbrushcolor(clpink);
 circle(x+350,y+90,15);
 setpencolor(clblack);
 setbrushcolor(clwhite);
 circle(x+340,y+85,3);
 circle(x+360,y+85,3);
 setpixel(x+340,y+85,clblack);
 setpixel(x+360,y+85,clblack);
 Line(x+345,y+100,x+355,y+100);
 setpenwidth(2);
 setpixel(x+350,y+90,clblack);
 Line(x+350,y+105,x+350,y+150);
 Line(x+350,y+120,x+340,y+130);
 Line(x+350,y+120,x+360,y+130);
 Line(x+350,y+150,x+340,y+160);
 Line(x+350,y+150,x+360,y+160);
End;
Procedure KeyDown(key:integer);
Begin
 Lockdrawing;
 Clearwindow;
 case key of
  VK_Up:begin
         Dulo(a-10,b-5);
         Gusenicy(a,b);
         Bashnya(a,b);
         The_Victim(a,b);
        end;
  VK_Down:begin
           Dulo(a+10,b+5);
           Gusenicy(a,b);
           Bashnya(a,b);
           The_Victim(a,b)
          end;
  VK_Right:begin
             The_Victim(a+10,b);
             The_Tank(a,b)
           end;
  VK_Left:begin
           The_Victim(a-10,b);
           The_Tank(a,b)
          end;
  end;
  redraw;
  sleep(80)
End;           
Begin
 Window.Title:='Перестрелка';
 The_Tank(a,b);
 The_Victim(a,b);
 OnKeyDown:=KeyDown
End.

[Asp729]

То есть не одновременное, а независимое движение

[Stilet]

Боюсь что в твоем паскале нет работы с сопроцессами. Может если хорошенько поискать, но врядли.
Ты классы писать умеешь? Напиши человечка отдельным классом, армату отдельным, и снаряд отдельным. Тогда получится сделать независимое движение, когда координаты объектов будут локализованы в них самих.

[Asp729]

Сообщение от Stilet

Боюсь что в твоем паскале нет работы с сопроцессами. Может если хорошенько поискать, но врядли.
Ты классы писать умеешь? Напиши человечка отдельным классом, армату отдельным, и снаряд отдельным. Тогда получится сделать независимое движение, когда координаты объектов будут локализованы в них самих.

Вот и я тоже боюсь) с классами, к сожалению, не работала и не обучена Их использованию:-( Я думала, поработать с записью, но это тоже оказалось несколько проблематичным

[Stilet]

С записью тоже можно.
Проблематика тут только в создании эффекта многопоточности. А для этого нужно именно цикл, который не будет прерываться нажатиями клавиш, и в тот же момент постоянно рисовать объекты. Можно в качестве самого простого действительно сделать массив из записей, в которых будут храниться координаты и в этом бесконечном цикле рисовать из данных по этом записям.

[Asp729]

Сообщение от Stilet

С записью тоже можно.
Проблематика тут только в создании эффекта многопоточности. А для этого нужно именно цикл, который не будет прерываться нажатиями клавиш, и в тот же момент постоянно рисовать объекты. Можно в качестве самого простого действительно сделать массив из записей, в которых будут храниться координаты и в этом бесконечном цикле рисовать из данных по этом записям.

Будет трудновато, но я попробую) спасибо большое

[Asp729]

Сообщение от Stilet

С записью тоже можно.
Проблематика тут только в создании эффекта многопоточности. А для этого нужно именно цикл, который не будет прерываться нажатиями клавиш, и в тот же момент постоянно рисовать объекты. Можно в качестве самого простого действительно сделать массив из записей, в которых будут храниться координаты и в этом бесконечном цикле рисовать из данных по этом записям.

О Боже! дуло и человека я использовала как запись, теперь эта часть работает! Спасибо Вам огромнейшее!)