char mens[7][124]={
"\n Programa que  genera y grafica la  estructura del Ruido tipo 1/f a partir\n",
" de la Ecuacion de la Naturaleza con 3 dados y 2 ramas\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",
" 12 de Junio de 2004\n\n",
" oprime una tecla para continuar"};

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

void arbol(int,int,int,int,int);
int Nivel=3, dado[3];
int Nota[]={233,247,262,277,294,311,330,349,370,392,415,440,466,494,523,554};
void main()
{
   int gd=DETECT,gm;

   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,"");
   setrgbpalette(0, 63,63,63); setrgbpalette(1, 0, 0, 0); setcolor(1);

   while(!kbhit())
      arbol(300,400,100,90,Nivel);

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

void arbol(int x0,int y0,int l,int an, int nivelr)
{
   int x1,y1,i,son;

   if ((nivelr > 0 ) && (!kbhit()))
   {  //Estructura Profunda  o Estructura del sistema
      dado[nivelr]=random(6);//lanza el dado del nivelr, con valor entre 0 y 5

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

      arbol(x1,y1,l/1.2,an-57,nivelr-1);
      arbol(x1,y1,l/1.2,an+57,nivelr-1);
   }

   else
   {  //Estructura Superficial
      son=0; for (i=0;i<Nivel;i++) son+=dado[i];
      circle(x0,y0, son);
      sound(Nota[son]);
      delay(250);
   }
}