|
| 1 | +local M = {} |
| 2 | + |
| 3 | +---@param rrggbb string |
| 4 | +---@return string |
| 5 | +function M.darken(rrggbb) |
| 6 | + local light78 = 255 * 7 / 8 |
| 7 | + local light68 = 255 * 6 / 8 |
| 8 | + local light58 = 255 * 5 / 8 |
| 9 | + local light12 = 255 / 2 |
| 10 | + local light13 = 255 / 3 |
| 11 | + |
| 12 | + local hex = bit.tohex ---@type fun(n: number): string |
| 13 | + |
| 14 | + local r, g, b = rrggbb:match "%#(%x%x)(%x%x)(%x%x)" |
| 15 | + r, g, b = tonumber("0x" .. r), tonumber("0x" .. g), tonumber("0x" .. b) |
| 16 | + -- luminance formula: see https://stackoverflow.com/a/596243 |
| 17 | + local lum = 0.299 * r + 0.587 * g + 0.114 * b |
| 18 | + if lum < light13 then -------------------- darkest tertile |
| 19 | + return rrggbb |
| 20 | + elseif lum < light12 then ---------------- second darkest quartile |
| 21 | + r = hex(r / 4 * 3):sub(-2) |
| 22 | + g = hex(g / 4 * 3):sub(-2) |
| 23 | + b = hex(b / 4 * 3):sub(-2) |
| 24 | + elseif lum < light58 then ---------------- lightest octiles: first |
| 25 | + r = hex(r / 3 * 2):sub(-2) |
| 26 | + g = hex(g / 3 * 2):sub(-2) |
| 27 | + b = hex(b / 3 * 2):sub(-2) |
| 28 | + elseif lum < light68 then ---------------- lightest octiles: second |
| 29 | + r = hex(r / 2):sub(-2) |
| 30 | + g = hex(g / 2):sub(-2) |
| 31 | + b = hex(b / 2):sub(-2) |
| 32 | + elseif lum < light78 then ---------------- lightest octiles: third |
| 33 | + r = hex(r / 3):sub(-2) |
| 34 | + g = hex(g / 3):sub(-2) |
| 35 | + b = hex(b / 3):sub(-2) |
| 36 | + else ------------------------------------- lightest octile |
| 37 | + r = hex(r / 5):sub(-2) |
| 38 | + g = hex(g / 5):sub(-2) |
| 39 | + b = hex(b / 5):sub(-2) |
| 40 | + end |
| 41 | + return string.format("#%s%s%s", r, g, b) |
| 42 | +end |
| 43 | + |
| 44 | +return M |
0 commit comments