анимация в паскаль

[Кинива]

как делать анимацию?

[_-Re@l-_]

Суть такая: рисуете объект заданным цветом, открываете цикл в нём рисуете этот же объект с теми же координатами, но чёрным цветом, обновляете координаты, затем делаете задержку и закрываете цикл.

[_-Re@l-_]

Например так:

Uses CRT,GRAPH;
var gd,gm:integer;
     x,y,radius; 
     dx,dy:integer;//шаг по Х и Y
begin
       gd:=detect;
       initgraph(gd,gm,'c:\bp\bgi\');
       radius:=5;
       setcolor(yellow);
       x:=100;y:=100;
       dx:=3;dy:=3;
       circle(x,y,radius);
       repeat
                setcolor(0);
                circle(x,y,radius);
                x:=x+dx;y:=y+dy;
                setcolor(yellow);
                circle(x,y,radius);
      until keypressed; //ждём нажатия любой клавиши
      readln;
      closegraph;
end.

P.S. Просчёт столкновений я не делал, но если нужно могу выложить полный код.

[Кинива]

м...понятно =)
а можешь помочь в одной анимации?
у меня там крылья вниз спускаются,а вверх я как-то не поняла...

[_-Re@l-_]

Помочь могу, пиши в ЛС, там объяснишь точное задание

[Русла]

помогите анимацию сделать)))
оч нужно)на зачет)
если кто может помочь,пишите на roverbook.molokin@yandex.ru
спасиб заранее

[Nikolas_555]

Сообщение от _-Re@l-_

Помочь могу, пиши в ЛС, там объяснишь точное задание

сможешь помочь с анимацией в паскалевской игре?
18-го числа защита, у меня кое-что не выходит(