/*caracol*/
/*Fernando Galindo Soria*/

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

void caracol(int,int,float,int);
int ind,w1,color[10],i;

void main()
{
  int gd=DETECT,gm;
  initgraph(&gd,&gm,"");
  ind=75;
  color[1]=1; color[2]=2; color[3]=3;color[4]=4;color[5]=5;
  color[6]=6; color[7]=7; color[8]=8;color[9]=9;color[10]=10;

/*  for (w1=236;w1<=244;w1++) */
  {/*setcolor(color[238-w1]);
   setbkcolor(0); */
   w1=237; caracol(100,190,10,147);  
   w1=238; caracol(180,190,10,147);  
   w1=239; caracol(260,190,10,147);  
   w1=240; caracol(340,190,10,147);  
   w1=241; caracol(420,190,10,147);  
   w1=242; caracol(500,190,10,147);  
   w1=243; caracol(100,320,10,147);  
   w1=244; caracol(180,320,10,147);  
   w1=245; caracol(260,320,10,147);  
   w1=246; caracol(340,320,10,147);  
   w1=247; caracol(420,320,10,147);  
   w1=248; caracol(500,320,10,147);  
  }
}

void caracol(int x0,int y0,float l,int an)
{
  int x1,y1;
  if (bioskey(2)!=0x04)
  if (l < ind )
  {
    x1=x0+(l*cos(an/57.29578)); /*57.29578*/
    y1=y0+(l*sin(an/57.79578));
    line(x0,y0,x1,y1);
    caracol(x1,y1,l+.5,an+w1);
  }
}