/* Se autoriza la distribucion y uso libre de este programa (freeware) */
/* Fernando Galindo Soria     Cd. de Mexico */
/* parbolx 3/i/93 */

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

void arbol2(int,int,int,int,int);
void arbol3(int,int,int,int,int);
void arbol4(int,int,int,int,int);
void arbol5(int,int,int,int,int);

int ind,w1,w2,color[10];

void main()
{
  int gd=DETECT,gm;
  initgraph(&gd,&gm,"");
  ind=3;
  color[1]=4; color[2]=4; color[3]=4;color[4]=6;color[5]=2;
  color[6]=4; color[7]=2; color[8]=2;color[9]=2;color[10]=2;
  arbol2(170,220,25,90,1);
  arbol3(250,220,25,90,1);
  arbol4(167,300,25,90,1);
  arbol5(253,300,25,90,1);
  getch();
  closegraph();
}

void arbol2(int x0,int y0,int l,int an,int ic)
{
  int x1,y1;

  if (l > ind && !kbhit() )
  {
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
    line(x0,y0,x1,y1);
    arbol2(x1,y1,l/1.4,an-50,ic+1);
    arbol2(x1,y1,l/1.4,an+43,ic+1);
  }
}
void arbol3(int x0,int y0,int l,int an,int ic)
{
  int x1,y1;
  if (l > ind && !kbhit() )
  {
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
    line(x0,y0,x1,y1);
    arbol3(x1,y1,l/1.4,an-50,ic+1);
    arbol3(x1,y1,l/1.4,an,ic+1);
    arbol3(x1,y1,l/1.4,an+43,ic+1);
  }
}
void arbol4(int x0,int y0,int l,int an,int ic)
{
  int x1,y1;
  if (l > ind && !kbhit() )
  {
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
    line(x0,y0,x1,y1);
    arbol4(x1,y1,l/1.4,an-67,ic+1);
    arbol4(x1,y1,l/1.4,an-23,ic+1);
    arbol4(x1,y1,l/1.4,an+7,ic+1);
    arbol4(x1,y1,l/1.4,an+52,ic+1);
  }
}
void arbol5(int x0,int y0,int l,int an,int ic)
{
  int x1,y1;
  if (l > ind && !kbhit() )
  {
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
    line(x0,y0,x1,y1);
    arbol5(x1,y1,l/1.4,an-67,ic+1);
    arbol5(x1,y1,l/1.4,an-23,ic+1);
    arbol5(x1,y1,l/1.4,an+3,ic+1);
    arbol5(x1,y1,l/1.4,an+27,ic+1);
    arbol5(x1,y1,l/1.4,an+65,ic+1);
  }
}