/* 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)
   cuarto programa de animacion, anima un circulo sin dejar rastro 20/vii/2002*/

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

void main()
{
  int gd=DETECT,gm,ix;
  initgraph(&gd,&gm,"");

  printf("para terminar oprime una tecla");

  ix=0;
  setcolor(2);

  while ( !kbhit() )
  { //Los procesos de animacion constan de tres pasos: borra, mueve, dibuja
     setcolor(0);                   //borra
     circle(100+ix,100,10);

     ix++;                           //mueve

     setcolor(2);                   //dibuja
     circle(100+ix,100,10);
     delay(50);
  }

  getch();
  closegraph();
}