char mens[7][124]={
"\n Programa que  genera y grafica Ruido tipo 1/f a partir de la\n",
" Ecuacion de la Naturaleza y mediante autoreproduccion\n\n",
" Se autoriza la distribucion y uso libre de este programa (freeware)\n",
" Fernando Galindo Soria      Cd. de Mexico\n",
" fgalindo@ipn.mx     www.fgalindosoria.com   www.laredi.com\n\n",
" 9 de Junio de 2004\n\n",
" oprime una tecla para continuar"};

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

void arbol(int,int,int,int);
int sonido;
void main()
{
  int gd=DETECT,gm;
// inicio
  clrscr();
  printf("%s%s%s%s%s%s%s",mens[0],mens[1],mens[2],mens[3],mens[4],mens[5],mens[6]);
  getch();
  randomize();
  initgraph(&gd,&gm,"");
  sonido=400+random(400);
  arbol(300,300,100,90);

  nosound();
  getch();
  closegraph();
}

void arbol(int x0,int y0,int l,int an)
{
  int x1,y1;
  if(random(150)==0)
    arbol(random(getmaxx()),290+random(20),75+random(50),90);

  else
  if ((l > 0 ) && (!kbhit()))
  {
	 sonido+=(-3+random(7))*l;
	 sound(sonido);  delay(30);      //emite sonido

	 x1=x0-(l*cos(an/57.29578));
	 y1=y0-(l*sin(an/57.29578));
	 line(x0,y0,x1,y1);

	 arbol(x1,y1,l/1.7,an-57);
	 arbol(x1,y1,l/1.7,an+57);
  }
}