/* Se autoriza la distribucion y uso libre de este programa (freeware) */
/* Fernando Galindo Soria    www.fgalindosoria.com     www.laredi.com
   fgalindo@ipn.mx           Cd. de Mexico */

/* Programa de inicio a la programacion en C (turbo C, Borland C)
   efectos de animacion   mueve un circulo con las flechas
   aplicando el algoritmo de animacion
   borra
   mueve
   pinta

   20/vii/2002*/

#include <graphics.h>
#include <conio.h>
#include <stdio.h>
#include <dos.h>

void main()
{
  char car;
  int gd=DETECT,gm, ix=200, iy=200;
  initgraph(&gd,&gm,"");
  printf("\n\n\npara terminar oprime la tecla <esc>");
  printf("\npara mover el circulo oprime las flechas ");

  while ( car !=27 )   /*ejecuta lo que sigue mientras la variable  car  sea
			 diferente de 27 (que es el valor en ASCII de la
			 tecla <esc>)*/
  {
     if(kbhit() != 0) car=getch();  /*Si kbhit es diferente de 0, lee un
				  caracter y lo almacena en la variable car*/

     setcolor(0);                   //borra el circulo
     circle(ix,iy,5);

     if(car==72)iy--;              //mueve coordenadas del circulo
     if(car==77)ix++;              //dependiendo del valor de la
     if(car==75)ix--;              //variable car
     if(car==80)iy++;              //72,77,75,80 son valores ascii de las flechas

     if(ix<0)ix=getmaxx();         // ve si ix, iy salen de la pantalla
     if(ix>getmaxx())ix=0;         // y las regresa del otro lado
     if(iy<0)iy=getmaxy();
     if(iy>getmaxy())iy=0;

     setcolor(2);                  //pinta el circulo
     circle(ix,iy,5);
     delay(5);
  }

  closegraph();
}