/*          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
            º                                                               º
            º                                                               º
	    º     snow13 = generates snowflake with 13 segment generator    º
            º                                                               º
            ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*/

#include <stdio.h>
#include <math.h>
#include <dos.h>
#include "tools.h"

void generate (float X1, float Y1, float X2, float Y2, int level, int type,
	int sign);

int combination = 0,LINEWIDTH=1, OPERATOR=0, ANGLE, XCENTER, YCENTER;
unsigned long int PATTERN=0xFFFFFFFF;
int color,flag = 0,i,start_level;
int generator_size = 13;
int start_level,level;
int init_size = 1,sign = 1;
int initiator_x1[10] = {-125},initiator_x2[10]={125},
	initiator_y1[10]={0},initiator_y2[10]={0};
float Xpoints[25], Ypoints[25];
float turtle_x,turtle_y,turtle_r,turtle_theta;

main()
{
	printf("\nEnter level (1 - 8): ");
	scanf("%d",&level);
	if (level < 1)
		level = 1;
	start_level = level;
	setMode(16);
	cls(0);

	for (i=0; i<init_size; i++)
	{
		generate(initiator_x1[i], initiator_y1[i], initiator_x2[i],
			initiator_y2[i], level,0,sign);
	}
	getch();
}

/*             ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
               º                                                         º
               º                 generate() = Generates curve            º
               º                                                         º
               ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ*/

void generate (float X1, float Y1, float X2, float Y2, int level, int type,
	int sign)
{
	int j,k,line,set_type;
        float a, b, Xpoints[25], Ypoints[25], temp,temp_r;


	switch (type)
	{
		case 0: break;

		case 1: sign *= -1;
			break;

		case 2: sign *= -1;
		case 3: temp = X1;
			X1 = X2;
			X2 = temp;
			temp = Y1;
			Y1 = Y2;
			Y2 = temp;
			break;
	}
	level--;
	turtle_r = (sqrt((X2 - X1)*(X2 - X1) + (Y2 - Y1)*(Y2 - Y1)))/3.0;
	Xpoints[0] = X1;
	Ypoints[0] = Y1;
	Xpoints[13] = X2;
	Ypoints[13] = Y2;
	turtle_theta = point(X1,Y1,X2,Y2);
	turtle_x = X1;
	turtle_y = Y1;
	turn(60*sign);
	step();
	Xpoints[1] = turtle_x;
	Ypoints[1] = turtle_y;
	step();
	Xpoints[2] = turtle_x;
	Ypoints[2] = turtle_y;
	turn(-60*sign);
	step();
	Xpoints[3] = turtle_x;
	Ypoints[3] = turtle_y;
        turn(-60*sign);
	step();
	Xpoints[4] = turtle_x;
	Ypoints[4] = turtle_y;
        turn(-60*sign);
	step();
	Xpoints[12] = turtle_x;
	Ypoints[12] = turtle_y;
        turn(-60*sign);
	step();
	Xpoints[11] = turtle_x;
	Ypoints[11] = turtle_y;
	turtle_r = (sqrt((Xpoints[11] - Xpoints[4])*(Xpoints[11] -
		Xpoints[4]) + (Ypoints[11] - Ypoints[4])*(Ypoints[11]
		- Ypoints[4])))/3.0;
	turtle_theta = point(Xpoints[4],Ypoints[4],Xpoints[11],Ypoints[11]);
	turtle_x = Xpoints[4];
	turtle_y = Ypoints[4];
	turn(-60*sign);
	step();
	Xpoints[5] = turtle_x;
	Ypoints[5] = turtle_y;
	step();
	Xpoints[6] = turtle_x;
	Ypoints[6] = turtle_y;
	turn(60*sign);
	step();
	Xpoints[7] = turtle_x;
	Ypoints[7] = turtle_y;
	turn(60*sign);
	step();
	Xpoints[8] = turtle_x;
	Ypoints[8] = turtle_y;
	turn(60*sign);
	step();
	Xpoints[10] = turtle_x;
	Ypoints[10] = turtle_y;
	turn(60*sign);
	step();
	Xpoints[9] = turtle_x;
	Ypoints[9] = turtle_y;
	if (level == 0)
	{
		for (k=0; k<generator_size; k++)
		{
			drawLine(Xpoints[k],Ypoints[k],
				Xpoints[k+1],Ypoints[k+1],15);
		}
	}
	else
	{
		for (j=0; j<generator_size; j++)
		{
			switch(j)
			{
				case 1:
				case 2:
				case 3:
				case 4:
				case 8:
				case 9:
				case 12:
					set_type = 0;
					break;
				case 0:
				case 5:
				case 6:
				case 7:
				case 10:
				case 11:
					set_type = 1;
					break;
			}
			X1 = Xpoints[j];
			X2 = Xpoints[j+1];
			Y1 = Ypoints[j];
			Y2 = Ypoints[j+1];
			generate (X1,Y1,X2,Y2,level,set_type,sign);
		}
       }
}