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

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

void arbol(int,int,int,int,int);
int ind,w1,w2,color[10];

void main()
{
  int gd=DETECT,gm;
  initgraph(&gd,&gm,"");
  ind=1;
/*  setbkcolor(15);*/
  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;
  w1=-57; w2=57;  arbol(170,220,30,90,1);
  w1=17; w2=57;  arbol(250,220,30,90,1);
  w1=-93; w2=-12;  arbol(126,315,30,190,1);
  w1=-57; w2=23;  arbol(256,315,30,90,1);
  getch();
  closegraph();
}

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

  if(bioskey(2)!=0x04)
  if (l > ind )
  {/* setcolor(color[ic]);*/
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
    line(x0,y0,x1,y1);
    arbol(x1,y1,l/1.4,an+w1,ic+1);
    arbol(x1,y1,l/1.4,an+w2,ic+1);
  }
}