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

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

void estrella(int,int,float,int);
int ind,w1;
float l1;

void main()
{
  int gd=DETECT,gm;
  initgraph(&gd,&gm,"");
  ind=30;
  l1=1.004;  w1=166; estrella(100,100,50,90);
  l1=1.01;   w1=22;  estrella(200,100,50,90);
  l1=1.01;   w1=7;   estrella(100,200,50,90);
  l1=1.01;   w1=33;  estrella(200,200,50,90);

  getch();
  closegraph();
}

void estrella(int x0,int y0,float l,int an)
{
  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);
    estrella(x0,y0,l/l1,an+w1);
  }
}