/* 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
   introduce generacion de numeros aleatorios  20/vii/2002*/

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

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

  randomize();                   /*inicializa el sistema para generar numeros
				   aleatorios*/

  printf("para terminar oprime la tecla <esc>");
  printf("\npar cambiar el radio del circulo oprime las teclas + o -");

  ix=0;
  r=10;
  setcolor(2);

  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>)*/
  {
     car=0;
     if(kbhit() != 0) car=getch();   /*Si kbhit es diferente de 0, lee un
				  caracter y lo almacena en la variable car*/

     ix++;                          //cambia
     if(car=='+')r++;              //Si car es igual a + incrementa el radio
     if(car=='-')r--;               //Si car es igual a - decrementa el radio

/* La funcion random genera numeros aleatorios.
   En este caso se genera un numero aleatorio menor que 20 y si el numero
   generado es igual a 3 entonces generar otro numero aleatorio, en este caso
   menor que 16 y lo almacena en la variable color*/
     if(random(20)==3)color=random(16); /*cambia el color en promedio cada
					   20 ciclos*/

     setcolor(color);                   //dibuja
     circle(100+ix*2,100,r);
     delay(100);
  }

  closegraph();
}