/*          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
            º                                                               º
	    º         snowhall = PROGRAM TO GENERATE SNOWFLAKE HALLS        º
            º                                                               º
            ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*/

#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;
float turtle_theta;
int i;
int generator_size = 11;
int level = 4;
int init_size = 1;
int initiator_x1[10] = {-150},initiator_x2[10]={150},
	initiator_y1[10]={-75},
	initiator_y2[10]={-75};
float Xpoints[25], Ypoints[25];
float turtle_x,turtle_y,turtle_r;

main()
{

	int sign=1;
	int set_type=0;

	printf("\nEnter level (1 - 8): ");
	scanf("%d",&level);
	if (level < 1)
		level = 1;
	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,set_type,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[11] = X2;
	Ypoints[11] = 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[10] = turtle_x;
	Ypoints[10] = turtle_y;
        turn(-60*sign);
	step();
	Xpoints[9] = turtle_x;
	Ypoints[9] = turtle_y;
	turtle_r = (sqrt((Xpoints[9] - Xpoints[4])*(Xpoints[9] -
		Xpoints[4]) + (Ypoints[9] - Ypoints[4])*(Ypoints[9]
		- Ypoints[4])))/3.0;
	turtle_theta = point(Xpoints[4],Ypoints[4],Xpoints[9],Ypoints[9]);
	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;
	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 2:
				case 8:
				case 10:
				case 12:
					set_type = 0;
					break;
				case 0:
				case 5:
					set_type = 1;
					break;
				case 1:
				case 3:
				case 4:
					set_type = 2;
					break;
				case 6:
				case 7:
				case 9:
					set_type = 3;
			}
			X1 = Xpoints[j];
			X2 = Xpoints[j+1];
			Y1 = Ypoints[j];
			Y2 = Ypoints[j+1];
			generate (X1,Y1,X2,Y2,level,set_type,sign);
		}
       }
}