Module:HexShade - Revision history

Lemondoge: syncing again

2023-04-17T00:21:59Z

syncing again

← Previous revision		Revision as of 00:21, 17 April 2023
Line 18:		Line 18:
	local function rgbdec2hsl(r, g, b)		local function rgbdec2hsl(r, g, b)
	local H, S, L		local H, S, L
		⚫
		⚫	local max = math.max(r, g, b)
		⚫	local min = math.min(r, g, b)
	-- hue		-- hue
	if ((r == g) and (g == b)) then		if ((r == g) and (g == b)) then
Line 44:		Line 47:
	S = 0		S = 0
	else		else
⚫	local max = math.max(g, r, b)
⚫	local min = math.min(g, r, b)

	if ((max + min) > 255) then		if ((max + min) > 255) then
	S = (max - min) / (510 - max - min)		S = (max - min) / (510 - max - min)
Line 53:		Line 53:
	end		end
	end		end
⚫
	-- luminosity		-- luminosity
	L = (~~math.~~max~~(r, math.max(g, b))~~ + ~~math.~~min~~(r, math.min(g, b))~~) / (255 * 2)		L = (max + min) / (255 * 2)

	return H, S, L		return H, S, L

Lemondoge: Syncing with simplifications from sandbox

2023-04-16T20:48:09Z

Syncing with simplifications from sandbox

@@ Line 43: / Line 43: @@
 	if ((r == g) and (g == b)) then
 		S = 0
 	else
-		if (g > r) then
+		local max = math.max(g, r, b)
-				S = (b - r) / (b + r)
+			S = (max - min) / (510 - max - min)
 		else
-			if ((b + g) > 255) then
+			S = (max - min) / (max + min)
 		end
 	end

Julio974fr: Fix, saturation was not correctly interpreted for some colors

2022-01-08T22:30:29Z

Fix, saturation was not correctly interpreted for some colors

← Previous revision		Revision as of 22:30, 8 January 2022
Line 58:		Line 58:
	end		end
	elseif ((r >= b) and (r >= g)) then		elseif ((r >= b) and (r >= g)) then
	if (r > g) then		if (b > g) then
	if ((r + g) > 255) then		if ((r + g) > 255) then
	S = (r - g) / (510 - r - g)		S = (r - g) / (510 - r - g)
Line 130:		Line 130:

	-- Remove nowiki and leading hash signs		-- Remove nowiki and leading hash signs
	local c = mw.text.unstrip(args[1] or '')		local c = mw.text.unstrip(args[1] or '#f0e68c')
	c = mw.ustring.match(c, '^[%s](.-)[%s]$')		c = mw.ustring.match(c, '^[%s](.-)[%s]$')
	c = mw.ustring.gsub(c, '^[%s#]*', '')		c = mw.ustring.gsub(c, '^[%s#]*', '')
Line 136:		Line 136:
	-- Lowercase		-- Lowercase
	c = c:lower()		c = c:lower()
			mw.log(c)
	-- Expand short 3 hex for to 6 hex form		-- Expand short 3 hex for to 6 hex form
	c = mw.ustring.gsub(c, '^([0-9A-Fa-f])([0-9A-Fa-f])([0-9A-Fa-f])$', '%1%1%2%2%3%3')		c = mw.ustring.gsub(c, '^([0-9A-Fa-f])([0-9A-Fa-f])([0-9A-Fa-f])$', '%1%1%2%2%3%3')
			mw.log(c)

	-- Get new value for luminosity		-- Get new value for luminosity
	local Lnew = tonumber(args[2] or '-1') or -1		local Lnew = tonumber(args[2] or '-1') or 0.6

	-- Default return		-- Default return
Line 152:		Line 154:
	local G = 16*tonumber('0x' .. cs[3]) + tonumber('0x' .. cs[4])		local G = 16*tonumber('0x' .. cs[3]) + tonumber('0x' .. cs[4])
	local B = 16*tonumber('0x' .. cs[5]) + tonumber('0x' .. cs[6])		local B = 16*tonumber('0x' .. cs[5]) + tonumber('0x' .. cs[6])
			mw.log(R, G, B)

	-- Convert RGBdec to HSL		-- Convert RGBdec to HSL
	local H, S, L = rgbdec2hsl(R, G, B)		local H, S, L = rgbdec2hsl(R, G, B)
			mw.log(H, S, L)

	-- Convert back to RGBdec		-- Convert back to RGBdec

Plastikspork: Fix

2021-12-12T22:35:45Z

Fix

Show changes

Plastikspork: Creating LUA version of Template:HexShade using code from Template:HexShade/1, Template:HSLtoRGB.R, Template:HSLtoRGB.G, Template:HSLtoRGB.B, Template:RGBtoHSL.H, Template:RGBtoHSL.S, Template:RGBtoHSL.L, Template:Hex2

2021-12-12T21:35:57Z

Creating LUA version of Template:HexShade using code from Template:HexShade/1, Template:HSLtoRGB.R, Template:HSLtoRGB.G, Template:HSLtoRGB.B, Template:RGBtoHSL.H, Template:RGBtoHSL.S, Template:RGBtoHSL.L, Template:Hex2

New page

-- This module implements {{HexShade}}
local p = {}

local function rgbdec2hex(r, g, b, d)
if (r >= 0 and g >= 0 and b >= 0 ) then
local baseconvert = require('Module:BaseConvert')
local s1 = baseconvert.convert({n = math.floor(r+0.5), base = 16})
local s2 = baseconvert.convert({n = math.floor(g+0.5), base = 16})
local s3 = baseconvert.convert({n = math.floor(b+0.5), base = 16})
s1 = mw.ustring.gsub(s1, '^([0-9A-Fa-f])$', '0%1')
s2 = mw.ustring.gsub(s2, '^([0-9A-Fa-f])$', '0%1')
s3 = mw.ustring.gsub(s3, '^([0-9A-Fa-f])$', '0%1')
return s1 .. s2 .. s3
end
return d
end

local function rgbdec2hsl(r, g, b)
local H, S, L
-- hue
if ((r == g) and (g == b)) then
H = 0
elseif ((g >= r) and (g >= b)) then
if (r > b) then
H = 120 - 60 * (r - b) / (g - b)
else
H = 120 + 60 * (b - r) / (g - r)
end
elseif ((b >= r) and (b >= g)) then
if (g > r) then
H = 240 - 60 * (g - r) / (b - r)
else
H = 240 + 60 * (r - g) / (b - g)
end
else
if (b > g) then
H = 360 - 60 * (b - g) / (r - g)
else
H = 60 * (g - b) / (r - b)
end
end
-- saturation
if ((r == g) and (g == b)) then
S = 0
elseif ((g >= r) and (g >= b)) then
if (r > b) then
if ((g + b) > 255) then
S = (g - b) / (510 - g - b)
else
S = (g - b) / (g + b)
end
else
if ((g + r) > 255) then
S = (g - r) / (510 - g - r)
else
S = (g - r) / (g + r)
end
end
elseif ((r >= b) and (r >= g)) then
if (r > g) then
if ((r + g) > 255) then
S = (r - g) / (510 - r - g)
else
S = (r - g) / (r + g)
end
else
if ((r + b) > 255) then
S = (r - b) / (510 - r - b)
else
S = (r - b) / (r + b)
end
end
else
if (g > r) then
if ((b + r) > 255) then
S = (b - r) / (510 - b - r)
else
S = (b - r) / (b + r)
end
else
if ((b + g) > 255) then
S = (b - g) / (510 - b - g)
else
S = (b - g) / (b + g)
end
end
end

-- luminosity
L = (math.max(r, math.max(g, b)) + math.min(r, math.min(g, b))) / (255 * 2)

return H, S, L
end

local function hsl2rgbdec(H, S, L)
local R, G, B
if ( 0 <= H and H < 360 and 0 <= S and S <= 1 and 0 <= L and L <= 1 ) then
-- R
if (math.fmod(H + 120, 360) > 180) then
if (math.fmod(H + 120, 360) > 240) then
if (L > 0.5) then
R = L - S * (1 - L)
else
R = (1 - S) * L
end
else
if (L > 0.5) then
R = L - (1 - (240 - math.fmod(H + 120, 360) / 30) * S * (1 - L))
else
R = (1 - (1 - (240 - math.fmod(H + 120, 360) / 30) * S) * L)
end
end
else
if (math.fmod(H + 120, 360) > 60) then
if (L > 0.5) then
R = L + S * (1 - L)
else
R = (1 + S) * L
end
else
if (L > 0.5) then
R = L - ((1 - math.fmod(H + 120, 360) / 30) * S * (1 - L))
else
R = (1 - ((1 - math.fmod(H + 120, 360) / 30) * S) * L)
end
end
end
-- G
if (math.fmod(H,360) > 180) then
if (math.fmod(H,360) > 240) then
if (L > 0.5) then
G = L - S * (1 - L)
else
G = (1 - S) * L
end
else
if (L > 0.5) then
G = L - (1 - (240 - math.fmod(H,360)) / 30) * S * (1 - L)
else
G = (1 - (1 - (240 - math.fmod(H,360)) / 30) * S) * L
end
end
else
if (math.fmod(H,360) > 60) then
if (L > 0.5) then
G = L + S * (1 - L)
else
G = (1 + S) * L
end
else
if (L > 0.5) then
G = L - ((1 - math.fmod(H,360)) / 30) * S * (1 - L)
else
G = (1 - ((1 - math.fmod(H,360)) / 30) * S) * L
end
end
end
-- B
if (math.fmod(H - 120,360) > 180) then
if (math.fmod(H - 120,360) > 240) then
if (L > 0.5) then
B = L - S * (1 - L)
else
B = (1 - S) * L
end
else
if (L > 0.5) then
B = L - (1 - (240 - math.fmod(H - 120,360)) / 30) * S * (1 - L)
else
B = (1 - (1 - (240 - math.fmod(H - 120,360)) / 30) * S) * L
end
end
else
if (math.fmod(H - 120,360) > 60) then
if (L > 0.5) then
B = L + S * (1 - L)
else
B = (1 + S) * L
end
else
if (L > 0.5) then
B = L - (1 - math.fmod(H - 120,360) / 30) * S * (1 - L)
else
B = (1 - (1 - math.fmod(H - 120,360) / 30) * S) * L
end
end
end

return 255*R, 255*G, 255*B
end
return -1, -1, -1
end

function p.main(frame)
local args = require('Module:Arguments').getArgs(frame)

-- Remove nowiki and leading hash signs
local c = mw.text.unstrip(args[1] or '')
c = mw.ustring.match(c, '^[%s]*(.-)[%s]*$')
c = mw.ustring.gsub(c, '^[%s#]*', '')
c = mw.ustring.gsub(c, '^ [%s]*', '')
-- Lowercase
c = c:lower()
-- Expand short 3 hex for to 6 hex form
c = mw.ustring.gsub(c, '^([0-9a-f])([0-9a-f])([0-9a-f])$', '%1%1%2%2%3%3')

-- Get new value for luminosity
local Lnew = tonumber(args[2] or '-1') or -1

-- Default return
local res = c

-- Adjust shading
local cs = mw.text.split(c or '', '')
if( #cs == 6 ) then
-- Convert to RGBdec
local R = 16*tonumber('0x' .. cs[1]) + tonumber('0x' .. cs[2])
local G = 16*tonumber('0x' .. cs[3]) + tonumber('0x' .. cs[4])
local B = 16*tonumber('0x' .. cs[5]) + tonumber('0x' .. cs[6])

-- Convert RGBdec to HSL
local H, S, L = rgbdec2hsl(R, G, B)

-- Convert back to RGBdec
local R, G, B = hsl2rgbdec(H, S, Lnew)

-- Convert back to RGBhex
res = rgbdec2hex(R, G, B, c)
end

if args[3] == '#' and mw.ustring.match('^[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]') then
return '#' .. res
end

return res
end

return p