Pascal/Turbo Pascal - como hago una animacion

necesito saber como hacer una animacion por ejemplo una pelota que vaya de un lado a otro... ayudenme gracias

Hola Aylin! Te transcribo una respuesta de MICROPAIS a alguien que tenía una inquietud similar a la tuya:

Usa el buscador de esta pagina busca trayectoria circular o circulo a base de puntos , es una forma CASERA de hacer las cosas que no vienen en los LIBROS
tambien puedes buscar PCPAGE.TXT mediante google , PCPAGE es un fichero de texto de unos 10 Mb con código abierto de subrutinas echas en pascal y algunas cosillas mas - ahi podrás ver "OTRAS formas" de hacer las cosas. y por supuesto circulos y linesa rectas.

Espero que te sirva.

SALUDOS.

pues yo te aconsejo el flash 8 y si ya lo tienes as lo siguiente:
1)dibuja una pelota con la herramienta ovalo
2)pintala
3)luego as un fotograma clave digamos en el fotograma 30 y en el 30 as el movimiento por ejemplo en el 1 fotograma la pelota esta a la izquierda y el fotograma 30 esta en la derecha.
4)dale crear interpolacion de movimiento y lla esta tu pelota se mueve

bueno pues no soy un experto pero prueba esto y me cuentas en mi correo:::::::::
[email protected]

PUES EL FUNCIONAMIENTO ES UN CUADRO QUE SE MUEVE CON LAS FLECHAS DEL TECLADO PRUEBA MOVERLO PARA ARRIBA, PARA ABAJO, Y PARA LOS LADOS Y ME CUENTAS YO SE QUE VAS A TENER UN MONTON DE DUDAS PERO ESCRIBEMELAS A MI CORREO YA QUE ESTOY TRABAJANDO Y NO ME DIO TIEMPO EXPLICARTELO POR ESCRITO PERO PRUEBALO Y VAS A VER QUE TE VAS A PICAR Y VAS A QUERER APRENDER MAS SOBRE GRAFICOS...........

GRACIAS POR TOMAR EN CUENTA MI PROGRAMA
ESPERO TU RESPUESTA

program grafic;
uses fdelay,crt,graph; {LA UNIDAD GRAPH ES LA QUE TE SIRVE PARA INICIAR GRAFICOS}
var
drv,modo:integer;
cuadro1:pointer;
procedure inicia_graficos;
begin
drv:= 3;
modo:= 2;
initgraph(drv,modo ,'');
end;
procedure cuadro;
begin
cleardevice;
line(250,150,350,150);
line(250,150,250,250);
line(350,150,350,250);
line(250,250,350,250);
getmem(cuadro1,imagesize(225,125,375,275));
getimage(225,125,375,275,cuadro1^);
end;
Procedure desplazamientos;
var
x,y,desplazamiento,valor,pausa:integer;
contador:byte;
tecla:char;
begin
desplazamiento:= 20;
pausa: 100;
x:= getmaxx div 2;
y:= getmaxy div 2;
cleardevice;
repeat
tecla:= readkey;
valor:= ord(tecla);
if valor = 0 then valor:= -ord(readkey);
case valor of
-75:begin
x:= x - desplazamiento;
repeat
putimage(x,y,cuadro1^,xorput);
delay(pausa);
putimage(x,y,cuadro1^,xorput);
until keypressed;
end;
-77:begin
x:= x + desplazamiento;
repeat
putimage(x,y,cuadro1^,xorput);
delay(pausa);
putimage(x,y,cuadro1^,xorput);
until keypressed;
end;
-80:begin
y= y + desplazamiento;
repeat
putimage(x,y,cuadro1^,xorput);
delay(pausa);
putimage(x,y,cuadro1^,xorput);
until keypressed;
end;
-72:begin
y:= y - desplazamiento;
repeat
putimage(x,y,cuadro1^,xorput);
delay(pausa);
putimage(x,y,cuadro1^,xorput);
until keypressed;
end;
else
begin
sound(400);
delay(59);
nosound;
end;
end;
until tecla=#27;
end;
begin
inicia_graficos;
cuadro;
desplazamientos;
readln;
closegraph;
end.