1 files changed, 117 insertions, 0 deletions

diff --git a/apps/plugins/lua/include_lua/color.lua b/apps/plugins/lua/include_lua/color.lua
new file mode 100644
index 0000000000..ed2e4f865e
--- /dev/null
+++ b/apps/plugins/lua/include_lua/color.lua
@@ -0,0 +1,117 @@
+--[[ Lua Color functions
+/***************************************************************************
+ *             __________               __   ___.
+ *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+ *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+ *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+ *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+ *                     \/            \/     \/    \/            \/
+ * $Id$
+ *
+ * Copyright (C) 2017 William Wilgus
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+ * KIND, either express or implied.
+ *
+ ****************************************************************************/
+]]
+
+--[[ Exposed Functions
+
+    _clr.inc
+    _clr.set
+
+-- Exposed Constants
+    IS_COLOR_TARGET
+
+]]
+if not rb.lcd_framebuffer then rb.splash(rb.HZ, "No Support!") return nil end
+
+IS_COLOR_TARGET = false
+-- Only true when we're on a color target, i.e. when LCD_RGBPACK is available
+if rb.lcd_rgbpack ~= _NIL then
+    IS_COLOR_TARGET = true
+end
+
+local _clr = {} do
+
+    -- Internal Constants
+    local _NIL = nil -- _NIL placeholder
+
+    local maxstate = (bit.lshift(1, rb.LCD_DEPTH) - 1)
+    
+    if rb.LCD_DEPTH > 24 then -- no alpha channels
+        maxstate = (bit.lshift(1, 24) - 1)
+    end
+
+    local function init(v)
+         return v or 0
+    end
+
+   -- clamps value to >= min and <= max rolls over to opposite
+    local function clamp_roll(val, min, max)
+        if min > max then
+            local swap = min
+            min, max = max, swap
+        end
+
+        if val < min then
+            val = max
+        elseif val > max then
+            val = min
+        end
+
+        return val
+    end
+
+    -- sets color -- monochrome / greyscale use 'set' -- color targets 'r,b,g'
+    -- on monochrome/ greyscale targets:
+    -- '-1' sets the highest 'color' state & 0 is the minimum 'color' state
+    local function clrset(set, r, g, b)
+        local color = set or 0
+
+        if IS_COLOR_TARGET then
+            if (r ~= _NIL or g ~= _NIL or b ~= _NIL) then
+                r, g, b = init(r), init(g), init(b)
+                color = rb.lcd_rgbpack(r, g, b)
+            end
+        end
+
+        return clamp_roll(color, 0, maxstate)
+    end -- clrset
+
+    -- de/increments current color by 'inc' -- optionally color targets by 'r,g,b'
+    local function clrinc(current, inc, r, g, b)
+        local color = 0
+        current = current or color
+        inc = inc or 1
+
+        if IS_COLOR_TARGET then
+            local ru, gu, bu = rb.lcd_rgbunpack(current);
+            if (r ~= _NIL or g ~= _NIL or b ~= _NIL) then
+                r, g, b = init(r), init(g), init(b)
+                ru = ru + r; gu = gu + g; bu = bu + b
+                color = rb.lcd_rgbpack(ru, gu, bu)
+            else
+                ru = ru + inc; gu = gu + inc; bu = bu + inc
+                color = rb.lcd_rgbpack(ru, gu, bu)
+            end
+        else
+            color = current + inc
+        end
+
+        return clamp_roll(color, 0, maxstate)
+    end -- clrinc
+
+    -- expose functions to the outside through _clr table
+    _clr.set = clrset
+    _clr.inc = clrinc
+end -- color functions
+
+return _clr
+