#include "igs_color_rgb_hls.h"
void igs::color::rgb_to_hls(
	const double red, // 0.0...1.0
	const double gre, // 0.0...1.0
	const double blu, // 0.0...1.0
	double &hue,	  /* 0.0...360.0	hue(色相) */
	double &lig,	  /* 0.0...1.0	lightness(明度) */
	double &sat		  /* 0.0...1.0	saturation(彩度) */
	)
{
	const double maxi =
		(red < gre) ? ((gre < blu) ? blu : gre) : ((red < blu) ? blu : red);
	const double mini =
		(gre < red) ? ((blu < gre) ? blu : gre) : ((blu < red) ? blu : red);

	lig = (maxi + mini) / 2.0;

	if (maxi == mini) { /* RGB各値に差がない(=白黒で色がない) */
		sat = 0.0;		/* saturation(彩度)はゼロ */
		hue = 0.0;		/* hue(色相)は意味を持たない */
	} else {			/* 色のあるとき */
		if (lig <= 0.5) {
			sat = (maxi - mini) / (maxi + mini);
		} else {
			sat = (maxi - mini) / (2.0 - (maxi + mini));
		}

		/* 色相(Hue) */
		const double rmid = (maxi - red) / (maxi - mini);
		const double gmid = (maxi - gre) / (maxi - mini);
		const double bmid = (maxi - blu) / (maxi - mini);

		/* -1 .. 1 マゼンタ(M)から黄色(Y)までの間の色 */
		if (red == maxi) {
			hue = bmid - gmid;
		}

		/*  1 .. 3 黄色(Y)からシアン(C)までの間の色 */
		else if (gre == maxi) {
			hue = 2.0 + rmid - bmid;
		}

		/*  3 .. 5 シアン(C)からマゼンタ(M)までの間の色 */
		else if (blu == maxi) {
			hue = 4.0 + gmid - rmid;
		}
		/*
			M-R-Y-G-C-B-M
		       -1 0 1 2 3 4 5
		*/
		hue *= 60.0; /* -60 ... 300 */
		if (hue < 0.0) {
			hue += 360.0;
		}
	}
}
namespace
{
double hls2rgb_calc(const double m1, const double m2, const double hue)
{
	double hh = hue;
	while (360.0 < hh) {
		hh -= 360;
	}
	while (hh < 0.0) {
		hh += 360;
	}
	if (hh < 60.0) {
		return m1 + (m2 - m1) * hh / 60.0;
	} else if (hh < 180.0) {
		return m2;
	} else if (hh < 240.0) {
		return m1 + (m2 - m1) * (240.0 - hh) / 60.0;
	}
	return m1; /* 240 ... 360 */
}
}
void igs::color::hls_to_rgb(
	const double hue, /* 0.0...360.0	hue(色相) */
	const double lig, /* 0.0...1.0	lightness(明度) */
	const double sat, /* 0.0...1.0	saturation(彩度) */
	double &red,	  /* 0.0...1.0 */
	double &gre,	  /* 0.0...1.0 */
	double &blu		  /* 0.0...1.0 */
	)
{
	if (0.0 == sat) { /* 白黒で色がない */
		red = gre = blu = lig;
	} else { /* 色のあるとき */
		const double m2 =
			(lig <= 0.5) ? (lig * (1.0 + sat)) : (lig + sat - lig * sat);
		const double m1 = 2.0 * lig - m2;
		red = hls2rgb_calc(m1, m2, hue + 120.0);
		gre = hls2rgb_calc(m1, m2, hue);
		blu = hls2rgb_calc(m1, m2, hue - 120.0);
	}
}