Анимацыя в паскале, Есть человечек, задача в том, что он должен двигать руками и ногами. П Опции

[potay]

program Man;
uses Graph,crt,ZVUK;
var
driver,mode,x,y,i:integer;
procedure Chelovek;
begin
circle(315,100,20);
line(315,120,315,230);
line(315,230,215,330);
line(315,230,415,330);
line(315,120,215,220);
line(315,120,415,220);
end;
begin
driver:=detect;
mode:=detect;
initgraph(driver,mode,'C:\tp7');
for i:=1 to 10000 do
begin
setcolor(0);
Chelovek;
Delay(100);
setcolor(white);
Chelovek;
end;
readln;
end.

Добавлено:
Покажите хотябы как сдвинуть одну линию!!!

М

Используй теги! Lapp

[Lapp]

Во-первых, ты лучше сначала рисуй, потом жди, а потом стирай. Это означает, что ты должен сначала использовать белый цвет, а потом черный. Проверь результат, прежде чем читать дальше..

Проверил? Теперь совет: вставь параметры в процедуру Man, чтоб можно было рисовать человека в любом месте экрана. Публикую внизу модифицированную мной программу - разберись, как она работает, и приходи за вопросами дальше..

program Man;
uses Graph,crt{,ZVUK};
var
  driver,mode,x,y,i,XMan,YMan,dX,dY,b:integer;

procedure Chelovek(x,y:integer);
begin
  circle(x,y,20);
  line(x,y+20 ,x    ,y+130);
  line(x,y+130,x-100,y+230);
  line(x,y+130,x+100,y+230);
  line(x,y+20 ,x-100,y+120);
  line(x,y+20 ,x+100,y+120);
end;

begin
  driver:=detect;
  mode:=detect;
  initgraph(driver,mode,'C:\tp7');
  XMan:=GetMaxX div 3;
  YMan:=GetMaxy div 2;
  dX:=1;
  dY:=1;
  b:=GetMaxX div 6;
  for i:=1 to 10000 do begin
    setcolor(White);
    Chelovek(XMan,YMan);
    Delay(10);
    setcolor(Black);
    Chelovek(XMan,YMan);
    XMan:=XMan+dX;
    if (XMan>=GetMaxX-b)or(XMan<=b) then dX:=-dX;
    YMan:=YMan+dY;
    if (YMan>=GetMaxY-b)or(YMan<=b) then dY:=-dY;
  end;
  readln;
end.