/* 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)
   programa grafico, ejemplos de efectos  20/vii/2002*/

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

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

  for(i=0;i<200;i++)
  {
    setcolor(i/20);
    line(200,10,50+i*3,300);
    line(200,400,50+i*3,100);

    setcolor(i/10);
    circle(300+i, 200, i);
    circle(400-i, 200, i);

    delay(50);     /*rutina que permite retardar la ejecucion de un programa
		     en este caso retarda 50 milesimas (1/20) de segundo,
		     delay(1000) corresponde a un retardo de un segundo*/
  }

  getch();
  closegraph();
}