/*arbol1*/
/*Fernando Galindo Soria*/

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

void arbol(int,int,int,int);
void arbolb(int,int,int,int);
int ind;

void main()
{
  int gd=DETECT,gm;
  initgraph(&gd,&gm,"");
  ind=1;
  arbol(300,300,150,90);
  getch();
  closegraph();
}

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

  if(bioskey(2)!=0x04)
  if (l > ind )
  {
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
    line(x0,y0,x1,y1);
    arbolb(x1,y1,l/1.5,an-57);
    arbolb(x1,y1,l/1.5,an+57);
  }
}
void arbolb(int x0,int y0,int l,int an)
{
  int x1,y1;

  if(bioskey(2)!=0x04)
  if (l > ind )
  {
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
/*    line(x0,y0,x1,y1);*/
    arbol(x0,y0,l/1.5,an+57);
    arbol(x0,y0,l/1.5,an-57);
  }
}