// Hexagon Manipulation

// Macros
// Manupulate hex_size to chance the size
#macro hex_size 0.5
#macro hex_side 16*hex_size
#macro hex_radius_type_normal 1
#macro hex_radius_type_offset 2
#macro hex_radius_type_extra 3
#macro hex_apothem 13.8564*hex_size

// This will result in a point from the x and y the determined distance and angle
function Vector2(vx, vy, vdist, vdir) constructor {
	x = vx+lengthdir_x(vdist, vdir);
	y = vy+lengthdir_y(vdist, vdir);
}

// This is to draw a single hexagon
// You can change whatever it is inside this and it will be replicated to every hexagon in the grid
function draw_hex(xHex, yHex) {
	
	// Draw the six lines of the hexagon
	for (var sp = 0 ; sp < 6 ; sp++) {
		var s1a = sp*60;
		var s2a = (sp+1)*60;
		
		// This is to get the points of the side of the line to be drawed
		var s1 = new Vector2(xHex, yHex, hex_side, s1a);
		var s2 = new Vector2(xHex, yHex, hex_side, s2a);
		
		// Draw a single line of the hexagon
		draw_line_width(s1.x, s1.y, s2.x, s2.y, 1);
		
		// Honestly I just put this just in case
		delete s1;
		delete s2;
	}
}

// This is to draw a single hexagon with two lines depending on the
// magnitude(number of hex of the lines) and the angle (needs to be (angle mod 60 == 0) to work)
function draw_hex_vertex(xHex, yHex, magnitude, angle) {
	magnitude = is_undefined(magnitude) ? 0 :  abs(magnitude);
	angle = is_undefined(angle) ? 0 :  abs(angle);
	var cc = draw_get_color();
	draw_set_color(c_purple);
	var hexM = 1;
	
	// Draw the number of hexagons in the desired angle
	repeat(magnitude) {
		var hexDist = (hex_apothem*2*(hexM+0));
		var hexVector1 = new Vector2(xHex, yHex, hexDist, angle-30);
		var hexVector2 = new Vector2(xHex, yHex, hexDist, angle+30);
		
		draw_hex(hexVector1.x, hexVector1.y);
		draw_hex(hexVector2.x, hexVector2.y);
		
		// Honestly I just put this just in case
		delete hexVector1;
		delete hexVector2;
		
		hexM++;
	}
	
	// Draw the central hexagon of the vertex
	draw_set_color(cc);
	draw_hex(xHex, yHex);
}

// Draw a central hexagon surrounded by a number of hexagons delimited by the radius
function draw_hex_radius(xHex, yHex, radius) {
	radius = is_undefined(radius) ? 0 :  abs(radius);
	if (radius > 0) {
		for (var hr = 0 ; hr < radius ; hr++) {
			var hexTotal = (hr+1)*6
			for (var sp = 0 ; sp < hexTotal ; sp++) {
				
				var sa = (sp*(360 div clamp(hexTotal, 6, 12)))+90;
				
				// Determine the type of hexagon
				var modRType = hex_radius_type_extra;
				if (((sa-90) mod 60) == 0) {
					modRType = hex_radius_type_normal;
				} else if ((sa mod 60) == 0) {
					modRType = hex_radius_type_offset;
				}
				
				// Draw the hexagon if not extra (purple ones)
				if (modRType != hex_radius_type_extra) {
					if (modRType == hex_radius_type_normal) {
						var hexDist = (hex_apothem*2*(hr+1));
						var hexVector = new Vector2(xHex, yHex, hexDist, sa);
						
						// Draw the hexagon if normal (green or red)
						var cc = ((hr mod 2) == 0) ? c_green : c_red;
						draw_set_color(cc);
						draw_hex(hexVector.x, hexVector.y);
					} else if ((hr-1) < floor(radius/2)) {
						var hexDist = (hex_side*3*(hr));
						var hexVector = new Vector2(xHex, yHex, hexDist, sa);
						
						// Draw the hexagon if offset (yellow)
						draw_set_color(c_yellow);
						draw_hex_vertex(hexVector.x, hexVector.y, radius-(2*(hr)), sa);
					}
					
					// Honestly I just put this just in case
					delete hexVector;
				}
			}
		}
	}
	
	// Draw central hexagon
	draw_set_color(c_ltgrey);
	draw_hex(xHex, yHex);
}