// -*- C++ -*-
/*
 * Simple MultimEdia LiTerator(SMELT)
 * by Chris Xiong 2015
 * api level 1
 * Color system header & implementation
 *
 * WARNING: This library is in development and interfaces would be very
 * unstable.
 *
 */
#ifndef SMCOLOR_H
#define SMCOLOR_H
#include "smelt.hpp"
#include "smmath.hpp"
#define clmp(a) a=a>1?1:a<0?0:a
class smColorRGBA
{
public:
	float r,g,b,a;
	smColorRGBA(){r=g=b=a=.0;}
	smColorRGBA(DWORD col){setHWColor(col);}
	smColorRGBA(float _r,float _g,float _b,float _a){r=_r;g=_g;b=_b;a=_a;}
	void clamp(){clmp(r);clmp(g);clmp(b);clmp(a);}
	friend smColorRGBA operator +(smColorRGBA a,smColorRGBA b){return smColorRGBA(a.r+b.r,a.g+b.g,a.b+b.b,a.a+b.a);}
	friend smColorRGBA operator -(smColorRGBA a,smColorRGBA b){return smColorRGBA(a.r-b.r,a.g-b.g,a.b-b.b,a.a-b.a);}
	friend smColorRGBA operator *(smColorRGBA a,smColorRGBA b){return smColorRGBA(a.r*b.r,a.g*b.g,a.b*b.b,a.a*b.a);}
	friend smColorRGBA operator *(smColorRGBA a,float b){return smColorRGBA(b*a.r,b*a.g,b*a.b,b*a.a);}
	friend smColorRGBA operator /(smColorRGBA a,float b){return smColorRGBA(a.r/b,a.g/b,a.b/b,a.a/b);}
	void setHWColor(DWORD col){a=GETA(col)/255.;r=GETR(col)/255.;g=GETG(col)/255.;b=GETB(col)/255.;}
	DWORD getHWColor(){clamp();return RGBA(r,g,b,a);}
};
class smColorHSVA
{
public:
	float h,s,v,a;
	smColorHSVA(){h=s=v=a=.0;}
	smColorHSVA(DWORD col){setHWColor(col);}
	smColorHSVA(float _h,float _s,float _v,float _a){h=_h;s=_s;v=_v;a=_a;}
	void clamp(){clmp(h);clmp(s);clmp(v);clmp(a);}
	friend smColorHSVA operator +(smColorHSVA a,smColorHSVA b){return smColorHSVA(a.h+b.h,a.s+b.s,a.v+b.v,a.a+b.a);}
	friend smColorHSVA operator -(smColorHSVA a,smColorHSVA b){return smColorHSVA(a.h-b.h,a.s-b.s,a.v-b.v,a.a-b.a);}
	friend smColorHSVA operator *(smColorHSVA a,smColorHSVA b){return smColorHSVA(a.h*b.h,a.s*b.s,a.v*b.v,a.a*b.a);}
	friend smColorHSVA operator *(smColorHSVA a,float b){return smColorHSVA(b*a.h,b*a.s,b*a.v,b*a.a);}
	friend smColorHSVA operator /(smColorHSVA a,float b){return smColorHSVA(a.h/b,a.s/b,a.v/b,a.a/b);}
	void setHWColor(DWORD col)
	{
		float r,g,b,dr,dg,db;
		float minv,maxv,dv;
		a=GETA(col)/255.;r=GETR(col)/255.;
		g=GETG(col)/255.;b=GETB(col)/255.;
		minv=min(min(r,g),b);maxv=max(max(r,g),b);
		dv=maxv-minv;v=maxv;
		if(dv<EPS)h=s=.0;
		else
		{
			s=dv/maxv;
			dr=(((maxv-r)/6)+dv/2)/dv;
			dg=(((maxv-g)/6)+dv/2)/dv;
			db=(((maxv-b)/6)+dv/2)/dv;
			if(maxv==r)h=db-dg;
			else if(maxv==g)h=(1./3.)+dr-db;
			else if(maxv==b)h=(2./3.)+dg-dr;
		}
		clamp();
	}
	DWORD getHWColor()
	{
		clamp();
		float r,g,b;
		float xh,i,p1,p2,p3;
		if(s<EPS)r=g=b=v;
		else
		{
			xh=h*6;
			if(fabsf(xh-6)<EPS)xh=0;
			i=floorf(xh);
			p1=v*(1-s);
			p2=v*(1-s*(xh-i));
			p3=v*(1-s*(1-(xh-i)));
			if(i==0)r=v,g=p3,b=p1;
			else if(i==1)r=p2,g=v,b=p1;
			else if(i==2)r=p1,g=v,b=p3;
			else if(i==3)r=p1,g=p2,b=v;
			else if(i==4)r=p3,g=p1,b=v;
			else r=v,g=p1,b=p2;
		}
		return RGBA(DWORD(r*255.0f),DWORD(g*255.0f),DWORD(b*255.0f),DWORD(a*255.0f));
	}
};
#endif