#pragma once

#include "string.qh"

#define colormapPaletteColor(c, isPants) colormapPaletteColor_(c, isPants, time)
ERASEABLE
vector colormapPaletteColor_(int c, bool isPants, float t)
{
	// these colors are defined in gfx/colormap_palette.pl
	// to generate them run: perl gfx/colormap_palette.pl > gfx/colormap_palette.lmp
	// it will save them to gfx/colormap_palette.lmp (in the lmp format)
	// and prints the cases of the following switch so they can be copy-pasted here

	switch (c)
	{
		// generated by gfx/colormap_palette.pl
		case  0: return '1.000000 1.000000 1.000000';
		case  1: return '1.000000 0.333333 0.000000';
		case  2: return '0.000000 1.000000 0.501961';
		case  3: return '0.000000 1.000000 0.000000';
		case  4: return '1.000000 0.000000 0.000000';
		case  5: return '0.000000 0.666667 1.000000';
		case  6: return '0.000000 1.000000 1.000000';
		case  7: return '0.501961 1.000000 0.000000';
		case  8: return '0.501961 0.000000 1.000000';
		case  9: return '1.000000 0.000000 1.000000';
		case 10: return '1.000000 0.000000 0.501961';
		case 11: return '0.000000 0.000000 1.000000';
		case 12: return '1.000000 1.000000 0.000000';
		case 13: return '0.000000 0.333333 1.000000';
		case 14: return '1.000000 0.666667 0.000000';
		case 15:
			if (isPants)
				return '1 0 0' * (0.502 + 0.498 * sin(t / M_E + 0))
				     + '0 1 0' * (0.502 + 0.498 * sin(t / M_E + M_PI * 2 / 3))
				     + '0 0 1' * (0.502 + 0.498 * sin(t / M_E + M_PI * 4 / 3));
			else
				return '1 0 0' * (0.502 + 0.498 * sin(t / M_PI + M_PI * 5 / 3))
				     + '0 1 0' * (0.502 + 0.498 * sin(t / M_PI + M_PI))
				     + '0 0 1' * (0.502 + 0.498 * sin(t / M_PI + M_PI * 1 / 3));
		default: return '0.000 0.000 0.000';
	}
}

ERASEABLE
float rgb_mi_ma_to_hue(vector rgb, float mi, float ma)
{
	if (mi == ma)
		return 0;
	else if (ma == rgb.x)
	{
		if (rgb.y >= rgb.z)
			return (rgb.y - rgb.z) / (ma - mi);
		else
			return (rgb.y - rgb.z) / (ma - mi) + 6;
	}
	else if (ma == rgb.y)
		return (rgb.z - rgb.x) / (ma - mi) + 2;
	else //if (ma == rgb_z)
		return (rgb.x - rgb.y) / (ma - mi) + 4;
}

ERASEABLE
vector hue_mi_ma_to_rgb(float hue, float mi, float ma)
{
	vector rgb;

	hue -= 6 * floor(hue / 6);

	//else if (ma == rgb_x)
	//	hue = 60 * (rgb_y - rgb_z) / (ma - mi);
	if (hue <= 1)
	{
		rgb.x = ma;
		rgb.y = hue * (ma - mi) + mi;
		rgb.z = mi;
	}
	//else if (ma == rgb_y)
	//	hue = 60 * (rgb_z - rgb_x) / (ma - mi) + 120;
	else if (hue <= 2)
	{
		rgb.x = (2 - hue) * (ma - mi) + mi;
		rgb.y = ma;
		rgb.z = mi;
	}
	else if (hue <= 3)
	{
		rgb.x = mi;
		rgb.y = ma;
		rgb.z = (hue - 2) * (ma - mi) + mi;
	}
	//else if (ma == rgb_z)
	//	hue = 60 * (rgb_x - rgb_y) / (ma - mi) + 240;
	else if (hue <= 4)
	{
		rgb.x = mi;
		rgb.y = (4 - hue) * (ma - mi) + mi;
		rgb.z = ma;
	}
	else if (hue <= 5)
	{
		rgb.x = (hue - 4) * (ma - mi) + mi;
		rgb.y = mi;
		rgb.z = ma;
	}
	//else if (ma == rgb_x)
	//	hue = 60 * (rgb_y - rgb_z) / (ma - mi);
	else //if (hue <= 6)
	{
		rgb.x = ma;
		rgb.y = mi;
		rgb.z = (6 - hue) * (ma - mi) + mi;
	}

	return rgb;
}

ERASEABLE
vector rgb_to_hsv(vector rgb)
{
	float mi = min(rgb.x, rgb.y, rgb.z);
	float ma = max(rgb.x, rgb.y, rgb.z);

	vector hsv;
	hsv.x = rgb_mi_ma_to_hue(rgb, mi, ma);
	hsv.z = ma;

	hsv.y = (ma == 0)
		? 0
		: 1 - mi / ma;

	return hsv;
}

ERASEABLE
vector hsv_to_rgb(vector hsv)
{
	return hue_mi_ma_to_rgb(hsv.x, hsv.z * (1 - hsv.y), hsv.z);
}

ERASEABLE
vector rgb_to_hsl(vector rgb)
{
	float mi = min(rgb.x, rgb.y, rgb.z);
	float ma = max(rgb.x, rgb.y, rgb.z);

	vector hsl;
	hsl.x = rgb_mi_ma_to_hue(rgb, mi, ma);
	hsl.z = 0.5 * (mi + ma);

	if (mi == ma)
		hsl.y = 0;
	else if (hsl.z <= 0.5)
		hsl.y = (ma - mi) / (2 * hsl.z);
	else //if (hsl_z > 0.5)
		hsl.y = (ma - mi) / (2 - 2 * hsl.z);

	return hsl;
}

ERASEABLE
vector hsl_to_rgb(vector hsl)
{
	float maminusmi = (hsl.z <= 0.5)
		? hsl.y * 2 * hsl.z
		: hsl.y * (2 - 2 * hsl.z);

	// hsl.z     = 0.5 * mi + 0.5 * ma
	// maminusmi =     - mi +       ma
	float mi = hsl.z - 0.5 * maminusmi;
	float ma = hsl.z + 0.5 * maminusmi;

	return hue_mi_ma_to_rgb(hsl.x, mi, ma);
}

ERASEABLE
string rgb_to_hexcolor(vector rgb)
{
	return strcat("^x",
		DEC_TO_HEXDIGIT(floor(bound(0, rgb.x, 1) * 15 + 0.5)),
		DEC_TO_HEXDIGIT(floor(bound(0, rgb.y, 1) * 15 + 0.5)),
		DEC_TO_HEXDIGIT(floor(bound(0, rgb.z, 1) * 15 + 0.5))
	);
}

// useful macro for the guide
// prefer .message if available
// TODO: use either .message or .m_name for everything. currently only Gametypes and Mutators use .message
#define COLORED_NAME(this) strcat(rgb_to_hexcolor(this.m_color), (this.message ? this.message : this.m_name), "^7")
