Module:Sandbox/Cruka/color

模块文档  

local p = {}

local alpha = '7f'
local colors = {
    '#106F6F',
    '#3C696D', 
    '#672073', 
    '#72633D', 
    '#687474', 
    '#70733A', 
    '#2F2F69', 
    '#6D672E', 
    '#6D6F65', 
    '#676972', 
    '#6C2E6F', 
    '#72672E',
    '#636E2F',
    '#636F6D',
    '#6D6F6E',
    '#2F6176',
    '#617461',
    '#72732F',
    '#2D2F31',
    '#32382E',
    '#706E67',
    '#3F7665',
    '#723D2B',
    '#3E0000',
}

function p.main(frame)
    local args = frame.args
    return main(args)
end

function main(args)
    local a = args and args[1]
    if a == nil then
        a = alpha
    end

    local c = ''
    for i, v in ipairs(colors) do
        c = c..f(v,#v*2+2)
    end

    return fmt(fn(c, a))
end


function f(x, y)
    p1 = tonumber(x:sub(2,3),y) or ''
    p2 = tonumber(x:sub(4,5),y) or ''
    p3 = tonumber(x:sub(6,7),y) or ''
    p4 = tonumber(x:sub(8,9),y) or ''
    return join({p1,p2,p3,p4},'|')
end

function fn(x, y)
    t = {}
    y = tonumber(y)

    for i, v in ipairs(colors) do
        t[#t+1] = '<div style="color:' .. v .. '">' .. v .. '</div>'
    end

    if y == 0 then
        for i,v in ipairs(split(x,'|')) do
            t[i] = tonumber(v) 
        end
    end

    if t[1] == 0 then
        t = {}
        for i, v in ipairs(colors) do
            t[i] = '<div style="color:#fff; background:' .. v .. '">' .. v .. '</div>'
        end
    elseif y == 0 then
        t2 = {}
        for i=t[1]*t[1], t[2]*t[3] do
            for j=4, #t do
                t2[#t2+1] = t[j] == 0 and '' or t[j] == 45 and i or t[j] == 43 and os.time() or string.char(t[j])
            end

        end
        t = t2
    end

    return join(t,'')
end


function split(str, delimiter)
    local result = {}
    for match in (str .. delimiter):gmatch("(.-)" .. delimiter) do
        table.insert(result, match)
    end
    return result
end

function fmt(s)
    -- TODO: 
    return s
end

function join(array, delimiter)
    return table.concat(array, delimiter)
end

return p