local COLOR={
	red=		{1.0,	0.0,	0.0},
	fire=		{1.0,	0.4,	0.0},
	orange=		{1.0,	0.6,	0.0},
	yellow=		{1.0,	1.0,	0.0},
	lime=		{0.7,	1.0,	0.0},
	jade=		{0.5,	1.0,	0.0},
	green=		{0.0,	1.0,	0.0},
	aqua=		{0.0,	1.0,	0.6},
	cyan=		{0.0,	1.0,	1.0},
	navy=		{0.0,	0.7,	1.0},
	sea=		{0.0,	0.4,	1.0},
	blue=		{0.2,	0.2,	1.0},
	violet=		{0.4,	0.0,	1.0},
	purple=		{0.7,	0.0,	1.0},
	magenta=	{1.0,	0.0,	1.0},
	wine=		{1.0,	0.0,	0.5},

	lRed=		{1.0,	0.5,	0.5},
	lFire=		{1.0,	0.7,	0.5},
	lOrange=	{1.0,	0.8,	0.3},
	lYellow=	{1.0,	1.0,	0.5},
	lLime=		{0.8,	1.0,	0.4},
	lJade=		{0.6,	1.0,	0.4},
	lGreen=		{0.5,	1.0,	0.5},
	lAqua=		{0.4,	1.0,	0.7},
	lCyan=		{0.5,	1.0,	1.0},
	lNavy=		{0.5,	0.8,	1.0},
	lSea=		{0.4,	0.7,	1.0},
	lBlue=		{0.7,	0.7,	1.0},
	lViolet=	{0.7,	0.4,	1.0},
	lPurple=	{0.8,	0.4,	1.0},
	lMagenta=	{1.0,	0.5,	1.0},
	lWine=		{1.0,	0.4,	0.7},

	dRed=		{0.6,	0.0,	0.0},
	dFire=		{0.6,	0.3,	0.0},
	dOrange=	{0.6,	0.4,	0.0},
	dYellow=	{0.6,	0.6,	0.0},
	dLime=		{0.5,	0.6,	0.0},
	dJade=		{0.3,	0.6,	0.0},
	dGreen=		{0.0,	0.6,	0.0},
	dAqua=		{0.0,	0.6,	0.4},
	dCyan=		{0.0,	0.6,	0.6},
	dNavy=		{0.0,	0.4,	0.6},
	dSea=		{0.0,	0.2,	0.6},
	dBlue=		{0.1,	0.1,	0.6},
	dViolet=	{0.2,	0.0,	0.6},
	dPurple=	{0.4,	0.0,	0.6},
	dMagenta=	{0.6,	0.0,	0.6},
	dWine=		{0.6,	0.0,	0.3},

	black=		{0.0,	0.0,	0.0},
	dGray=		{0.3,	0.3,	0.3},
	gray=		{0.6,	0.6,	0.6},
	lGray=		{0.8,	0.8,	0.8},
	white=		{1.0,	1.0,	1.0},
}
for k,v in next,{
	R="red",F="fire",O="orange",Y="yellow",L="lime",J="jade",G="green",A="aqua",C="cyan",N="navy",S="sea",B="blue",V="violet",P="purple",M="magenta",W="wine",
	lR="lRed",lF="lFire",lO="lOrange",lY="lYellow",lL="lLime",lJ="lJade",lG="lGreen",lA="lAqua",lC="lCyan",lN="lNavy",lS="lSea",lB="lBlue",lV="lViolet",lP="lPurple",lM="lMagenta",lW="lWine",
	dR="dRed",dF="dFire",dO="dOrange",dY="dYellow",dL="dLime",dJ="dJade",dG="dGreen",dA="dAqua",dC="dCyan",dN="dNavy",dS="dSea",dB="dBlue",dV="dViolet",dP="dPurple",dM="dMagenta",dW="dWine",
	D="black",dH="dGray",H="gray",lH="lGray",Z="white",
	--Remain letter: EIKQTUX
}do
	COLOR[k]=COLOR[v]
end
setmetatable(COLOR,{__index=function(_,k)
	error("No color: "..tostring(k))
end})


do--Random generators
	local rnd=math.random
	local list_norm={"red","fire","orange","yellow","lime","jade","green","aqua","cyan","navy","sea","blue","violet","purple","magenta","wine"}
	local len_list_norm=#list_norm
	function COLOR.random_norm()
		return COLOR[list_norm[rnd(len_list_norm)]]
	end

	local list_bright={"lRed","lFire","lOrange","lYellow","lLime","lJade","lGreen","lAqua","lCyan","lNavy","lSea","lBlue","lViolet","lPurple","lMagenta","lWine"}
	local len_list_bright=#list_bright
	function COLOR.random_bright()
		return COLOR[list_bright[rnd(len_list_bright)]]
	end

	local list_dark={"dRed","dFire","dOrange","dYellow","dLime","dJade","dGreen","dAqua","dCyan","dNavy","dSea","dBlue","dViolet","dPurple","dMagenta","dWine"}
	local len_list_dark=#list_dark
	function COLOR.random_dark()
		return COLOR[list_dark[rnd(len_list_dark)]]
	end
end

do--Rainbow generators
	local sin=math.sin
	function COLOR.rainbow(phase)
		return
			sin(phase)*.4+.6,
			sin(phase+2.0944)*.4+.6,
			sin(phase-2.0944)*.4+.6
	end
	function COLOR.rainbow_light(phase)
		return
			sin(phase)*.2+.7,
			sin(phase+2.0944)*.2+.7,
			sin(phase-2.0944)*.2+.7
	end
	function COLOR.rainbow_dark(phase)
		return
			sin(phase)*.2+.4,
			sin(phase+2.0944)*.2+.4,
			sin(phase-2.0944)*.2+.4
	end
	function COLOR.rainbow_gray(phase)
		return
			sin(phase)*.16+.5,
			sin(phase+2.0944)*.16+.5,
			sin(phase-2.0944)*.16+.5
	end
end

return COLOR