模組:Infobox color

--若程式碼有問題可以直接修改
function kv(s, k)
	return s:sub(k, k)
end

local hex12, hex, rgb, cmy, cmyk, hsl, hsv, hwb

hex = {
	hex12 = function(h)
		return #h == 6 and kv(h, 1) .. kv(h, 3) .. kv(h, 5) or h
	end,
	hex = function(h)
		return #h == 3 and kv(h, 1) .. kv(h, 1) .. kv(h, 2) .. kv(h, 2) .. kv(h, 3) .. kv(h, 3) or h
	end,
	rgb = function(h)
		local s3 = function(c)
			return 0x11 * tonumber('0x' .. kv(h, c))
		end
		local s6 = function(c)
			return tonumber('0x' .. kv(h, c * 2 - 1) .. kv(h, c * 2))
		end
		local f = #h == 4 and s3 or s6
		return f(1), f(2), f(3)
	end,
	cmy = function(h)
		return rgb.cmy(hex.rgb(h))
	end,
	cmyk = function(h)
		return rgb.cmyk(hex.rgb(h))
	end,
	hsl = function(h)
		return rgb.hsl(hex.rgb(h))
	end,
	hsv = function(h)
		return rgb.hsv(hex.rgb(h))
	end,
	hwb = function(h)
		return rgb.hwb(hex.rgb(h))
	end
}
hex12 = hex
rgb = {
	hex12 = function(r, g, b)
		return hex.hex12(rgb.hex(r, g, b))
	end,
	hex = function(r, g, b)
		local f = function(c)
			return string.format("%x", math.floor(c))
		end
		return f(r) .. f(g) .. f(b)
	end,
	rgb = function(r, g, b)
		return r, g, b
	end,
	cmy = function(r, g, b)
		return 255 - r, 255 - g, 255 - b
	end,
	cmyk = function(r, g, b)
		return cmy.cmyk(rgb.cmy(r, g, b))
	end,
	hsl = function(r, g, b)
		return hsv.hsl(rgb.hsv(r, g, b))
	end,
	hsv = function(r, g, b)
		local h, s, v
		local p = math.max(r, g, b)
		local q = math.min(r, g, b)
		local f = function(x, y)
			return 60 * (x - y) / (p - q)
		end
		if p == q then
			h = 0
		elseif p == r then
			h = f(g, b) + 360
			h = h % 360
		elseif p == g then
			h = f(b, r) + 120
		else
			h = f(r, g) + 240
		end
		s = p == 0 and 0 or (1 - q / p)
		v = p / 255
		return h, s, v
	end,
	hwb = function(r, g, b)
		return hsv.hwb(rgb.hsv(r, g, b))
	end
}
cmy = {
	hex12 = function(c, m, y)
		return rgb.hex12(cmy.rgb(c, m, y))
	end,
	hex = function(c, m, y)
		return rgb.hex(cmy.rgb(c, m, y))
	end,
	rgb = function(c, m, y)
		return 255 - c, 255 - m, 255 - y
	end,
	cmy = function(c, m, y)
		return c, m, y
	end,
	cmyk = function(c, m, y)
		local k = math.min(c, m, y)
		local f = function(c)
			return (c - k) / (255 - k) * 255
		end
		if k == 255 then
			return 0, 0, 0, 255
		else
			return f(c), f(m), f(y), k
		end
	end,
	hsl = function(c, m, y)
		return rgb.hsl(cmy.rgb(c, m, y))
	end,
	hsv = function(c, m, y)
		return rgb.hsv(cmy.rgb(c, m, y))
	end,
	hwb = function(c, m, y)
		return rgb.hwb(cmy.rgb(c, m, y))
	end
}
cmyk = {
	hex12 = function(c, m, y, k)
		return cmy.hex12(cmyk.cmy(c, m, y, k))
	end,
	hex = function(c, m, y, k)
		return cmy.hex(cmyk.cmy(c, m, y, k))
	end,
	rgb = function(c, m, y, k)
		return cmy.rgb(cmyk.cmy(c, m, y, k))
	end,
	cmy = function(c, m, y, k)
		local f = function(c)
			return c * (255 - k) / 255 + k
		end
		return f(c), f(m), f(y)
	end,
	cmyk = function(c, m, y, k)
		return c, m, y, k
	end,
	hsl = function(c, m, y, k)
		return cmy.hsl(cmyk.cmy(c, m, y, k))
	end,
	hsv = function(c, m, y, k)
		return cmy.hsv(cmyk.cmy(c, m, y, k))
	end,
	hwb = function(c, m, y, k)
		return cmy.hwb(cmyk.cmy(c, m, y, k))
	end
}
hsl = {
	hex12 = function(h, s, l)
		return hsv.hex12(hsl.hsv(h, s, l))
	end,
	hex = function(h, s, l)
		return hsv.hex(hsl.hsv(h, s, l))
	end,
	rgb = function(h, s, l)
		return hsv.rgb(hsl.hsv(h, s, l))
	end,
	cmy = function(h, s, l)
		return hsv.cmy(hsl.hsv(h, s, l))
	end,
	cmyk = function(h, s, l)
		return hsv.cmyk(hsl.hsv(h, s, l))
	end,
	hsl = function(h, s, l)
		return h, s, l
	end,
	hsv = function(h, s, l)
		local v = l + s * math.min(l, 1 - l)
		local sv = v == 0 and 0 or 2 * (1 - l / v)
		return h, sv, v
	end,
	hwb = function(h, s, l)
		return hsv.hwb(hsl.hsv(h, s, l))
	end
}
hsv = {
	hex12 = function(h, s, v)
		return rgb.hex12(hsv.rgb(h, s, v))
	end,
	hex = function(h, s, v)
		return rgb.hex(hsv.rgb(h, s, v))
	end,
	rgb = function(h, s, v)
		local hi = math.floor(h / 60)
		local f = h / 60 - hi
		local p = v * (1 - s)
		local q = v * (1 - f * s)
		local t = v * (1 - (1 - f) * s)
		local ff = function(r, g, b)
			return r * 255, g * 255, b * 255
		end
		if hi == 0 then
			return ff(v, t, p)
		elseif hi == 1 then
			return ff(q, v, p)
		elseif hi == 2 then
			return ff(p, v, t)
		elseif hi == 3 then
			return ff(p, q, v)
		elseif hi == 4 then
			return ff(t, p, v)
		else
			return ff(v, p, q)
		end
	end,
	cmy = function(h, s, v)
		return rgb.cmy(hsv.rgb(h, s, v))
	end,
	cmyk = function(h, s, v)
		return rgb.cmyk(hsv.rgb(h, s, v))
	end,
	hsl = function(h, s, v)
		local l = v * (1 - s / 2)
		local sl = (l == 0 or l == 1) and 0 or (v - l) / math.min(l, 1 - l)
		return h, sl, l
	end,
	hsv = function(h, s, v)
		return h, s, v
	end,
	hwb = function(h, s, v)
		return h, (1 - s) * v, 1 - v
	end
}
hwb = {
	hex12 = function(h, w, b)
		return hsv.hex12(hwb.hsv(h, w, b))
	end,
	hex = function(h, w, b)
		return hsv.hex(hwb.hsv(h, w, b))
	end,
	rgb = function(h, w, b)
		return hsv.rgb(hwb.hsv(h, w, b))
	end,
	cmy = function(h, w, b)
		return hsv.cmy(hwb.hsv(h, w, b))
	end,
	cmyk = function(h, w, b)
		return hsv.cmyk(hwb.hsv(h, w, b))
	end,
	hsl = function(h, w, b)
		return hsv.hsl(hwb.hsv(h, w, b))
	end,
	hsv = function(h, w, b)
		return h, b == 1 and 0 or (1 - w / (1 - b)), 1 - b
	end,
	hwb = function(h, w, b)
		return h, w, b
	end
}

local colorsort = {'hex12', 'hex', 'rgb', 'cmy', 'cmyk', 'hsl', 'hsv', 'hwb'}

local colorconvert = {
	hex12 = hex12,
	hex = hex,
	rgb = rgb,
	cmy = cmy,
	cmyk = cmyk,
	hsl = hsl,
	hsv = hsv,
	hwb = hwb
}

local colorformat = {
	hex12 = function(h)
		return ''
	end,
	hex = function(h)
		return '|-\n!colspan=2|[[网页颜色]]||#' .. h .. '\n'
	end,
	rgb = function(r, g, b)
		local s = '(' .. math.floor(r) .. ', ' .. math.floor(g) .. ', ' .. math.floor(b) .. ')'
		return '|-\n![[三原色光模式|RGB]]<sup>N</sup>||([[红色|r]], [[綠色|g]], [[藍色|b]])||nowrap|' .. s .. '\n'
	end,
	cmy = function(c, m, y)
		local s = '(' .. math.floor(c) .. ', ' .. math.floor(m) .. ', ' .. math.floor(y) .. ')'
		return '|-\n![[印刷四分色模式|CMY]]<sup>N</sup>||([[青色|c]], [[洋紅色|m]], [[黄色|y]])||nowrap|' .. s .. '\n'
	end,
	cmyk = function(c, m, y, k)
		local s = '(' .. math.floor(c) .. ', ' .. math.floor(m) .. ', ' .. math.floor(y) .. ', ' .. math.floor(k) .. ')'
		return '|-\n!nowrap|[[印刷四分色模式|CMYK]]<sup>N</sup>||nowrap|([[青色|c]], [[洋紅色|m]], [[黄色|y]], [[黑色|k]])||nowrap|' .. s .. '\n'
	end,
	hsl = function(h, s, l)
		local s = '(' .. math.floor(h) .. '&deg;, ' .. math.floor(s * 100) .. '%, ' .. math.floor(l * 100) .. '%)'
		return '|-\n![[HSL和HSV色彩空间|HSL]]||([[色相|h]], [[色度 (色彩学)|s]], [[亮度|l]])||nowrap|' .. s .. '\n'
	end,
	hsv = function(h, s, v)
		local s = '(' .. math.floor(h) .. '&deg;, ' .. math.floor(s * 100) .. '%, ' .. math.floor(v * 100) .. '%)'
		return '|-\n![[HSL和HSV色彩空间|HSV]]||([[色相|h]], [[色度 (色彩学)|s]], [[明度|v]])||nowrap|' .. s .. '\n'
	end,
	hwb = function(h, w, b)
		local s = '(' .. math.floor(h) .. '&deg;, ' .. math.floor(w * 100) .. '%, ' .. math.floor(b * 100) .. '%)'
		return '|-\n![[HWB色彩空间|HWB]]||([[色相|h]], [[白色|w]], [[黑色|b]])||nowrap|' .. s .. '\n'
	end
}

local p = {}

function p.colortable(args)
	local mod = string.lower(args.mod or 'rgb')
	if colorconvert[mod] == nil then
		mod = 'rgb'
	end
	local arr = ('hex12' or mod == 'hex') and {args[1]} or {tonumber(args[1]), tonumber(args[2]), tonumber(args[3])}
	local ss = ''
	-- for k, outmod in pairs(colorsort) do
	-- 	ss = ss .. colorformat[outmod](colorconvert[mod][outmod](table.unpack(arr)))
	-- end
	return ss
end

function p.colorhex(args)
	local mod = string.lower(args.mod or 'rgb')
	if colorconvert[mod] == nil then
		mod = 'rgb'
	end
	local arr = ('hex12' or mod == 'hex') and {args[1]} or {tonumber(args[1]), tonumber(args[2]), tonumber(args[3])}
	local h = colorconvert[mod].hex(table.unpack(arr))
	return ''
	-- return h
end

function p.source(args)
	local source = args.source or ''
	if source ~= '' then
		return '|-\n!colspan=2|資料來源||' .. source .. '\n'
	else
		return ''
	end
end

function p.note(args)
	local note = args.note or ''
	if note ~= '' then
		return '|-\n!colspan=2|說明||' .. note .. '\n'
	else
		return ''
	end
end