/*          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
            º                                                               º
            º                                                               º
	    º             qkoch18 = PROGRAM TO GENERATE KOCH CURVES         º
            º                                                               º
            ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*/

#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 generator_size = 18;
int init_size = 4;
int level;
int initiator_x1[10] = {-130,130,130,-130},initiator_x2[10]={130,
	130,-130,-130},initiator_y1[10]={130,130,-130,-130},
	initiator_y2[10]={130,-130,-130,130};
int combination = 0,LINEWIDTH=1, OPERATOR=0, ANGLE, XCENTER, YCENTER;
unsigned long int PATTERN=0xFFFFFFFF;
float turtle_theta;
int i;
float Xpoints[25], Ypoints[25];
float turtle_x,turtle_y,turtle_r;

main()
{

	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);
	getch();
}


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

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

	level--;
	turtle_r = sqrt(((X2 - X1)*(X2 - X1) + (Y2 - Y1)*(Y2 - Y1)))/6.0;
	turtle_x = X1;
	turtle_y = Y1;
	Xpoints[0] = X1;
	Ypoints[0] = Y1;
	Xpoints[18] = X2;
	Ypoints[18] = Y2;
	turtle_theta = point(X1,Y1,X2,Y2);
	step();
	Xpoints[1] = turtle_x;
	Ypoints[1] = turtle_y;
	turn(90);
	step();
	Xpoints[2] = turtle_x;
	Ypoints[2] = turtle_y;
	step();
	Xpoints[3] = turtle_x;
	Ypoints[3] = turtle_y;
	turn(-90);
	step();
	Xpoints[4] = turtle_x;
	Ypoints[4] = turtle_y;
	step();
	Xpoints[5] = turtle_x;
	Ypoints[5] = turtle_y;
	turn(-90);
	step();
	Xpoints[6] = turtle_x;
	Ypoints[6] = turtle_y;
	turn(-90);
	step();
	Xpoints[7] = turtle_x;
	Ypoints[7] = turtle_y;
	turn(90);
	step();
	Xpoints[8] = turtle_x;
	Ypoints[8] = turtle_y;
	turn(90);
	step();
	Xpoints[9] = turtle_x;
	Ypoints[9] = turtle_y;
	step();
	Xpoints[10] = turtle_x;
	Ypoints[10] = turtle_y;
	turn(-90);
	step();
	Xpoints[11] = turtle_x;
	Ypoints[11] = turtle_y;
	turn(-90);
	step();
	Xpoints[12] = turtle_x;
	Ypoints[12] = turtle_y;
	turn(90);
	step();
	Xpoints[13] = turtle_x;
	Ypoints[13] = turtle_y;
	turn(90);
	step();
	Xpoints[14] = turtle_x;
	Ypoints[14] = turtle_y;
	step();
	Xpoints[15] = turtle_x;
	Ypoints[15] = turtle_y;
	turn(90);
	step();
	Xpoints[16] = turtle_x;
	Ypoints[16] = turtle_y;
	step();
	Xpoints[17] = turtle_x;
	Ypoints[17] = 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++)
		{
  			X1 = Xpoints[j];
			X2 = Xpoints[j+1];
			Y1 = Ypoints[j];
         		Y2 = Ypoints[j+1];
			generate (X1,Y1,X2,Y2,level);
		}
        }
}