#63 basketweave tiling pattern element

graphics/elements/rectangle.lua

@@ -1,8 +1,9 @@
 -- Rectangle Graphics Element
 
-local element = require("graphics.element")
 local util    = require("scada-common.util")
 
+local element = require("graphics.element")
+
 ---@class rectangle_args
 ---@field border? graphics_border
 ---@field parent graphics_element
@@ -32,6 +33,7 @@ local function rectangle(args)
         local blit_bg_top_bot = ""
         local blit_bg_sides = ""
 
+        -- check dimensions
         assert(border_width_v * 2 <= e.frame.w, "graphics.elements.rectangle: border too thick for width")
         assert(border_width_h * 2 <= e.frame.h, "graphics.elements.rectangle: border too thick for height")
 
@@ -54,7 +56,7 @@ local function rectangle(args)
 
         -- draw rectangle with borders
         for y = 1, e.frame.h do
-            e.setCursorPos(y, 1)
+            e.setCursorPos(1, y)
             if y <= border_width_v or y > (e.frame.h - border_width_v) then
                 e.blit(spaces, blit_fg, blit_bg_top_bot)
             else

graphics/elements/tiling.lua

@@ -0,0 +1,81 @@
+-- "Basketweave" Tiling Graphics Element
+
+local util    = require("scada-common.util")
+
+local element = require("graphics.element")
+
+---@class tiling_args
+---@field fill_c cpair colors to fill with
+---@field even? boolean whether to account for rectangular pixels
+---@field border? graphics_border
+---@field parent graphics_element
+---@field x? integer 1 if omitted
+---@field y? integer 1 if omitted
+---@field width? integer parent width if omitted
+---@field height? integer parent height if omitted
+---@field gframe? graphics_frame frame instead of x/y/width/height
+---@field fg_bg cpair foreground/background colors
+
+-- new tiling box
+---@param args tiling_args
+local function tiling(args)
+    -- create new graphics element base object
+    local e = element.new(args)
+
+    -- draw tiling box
+
+    local fill_a = args.fill_c.blit_a
+    local fill_b = args.fill_c.blit_b
+
+    local even = args.even == true
+
+    local start_x = 1
+    local start_y = 1
+    local width = e.frame.w
+    local height = e.frame.h
+    local alternator = true
+
+    -- border
+    if args.border ~= nil then
+        e.window.setBackgroundColor(args.border.color)
+        e.window.clear()
+
+        start_x = 1 + util.trinary(args.border.even, args.border.width * 2, args.border.width)
+        start_y = 1 + args.border.width
+
+        width = width - (2 * util.trinary(args.border.even, args.border.width * 2, args.border.width))
+        height = height - (2 * args.border.width)
+    end
+
+    -- check dimensions
+    assert(start_x <= width, "graphics.elements.tiling: start_x > width")
+    assert(start_y <= height, "graphics.elements.tiling: start_y > height")
+    assert(width > 0, "graphics.elements.tiling: width <= 0")
+    assert(height > 0, "graphics.elements.tiling: height <= 0")
+
+    -- create pattern
+    for y = start_y, height do
+        e.window.setCursorPos(1, y)
+        for _ = start_x, width do
+            if alternator then
+                if even then
+                    e.window.blit("  ", "00", fill_a .. fill_a)
+                else
+                    e.window.blit(" ", "0", fill_a)
+                end
+            else
+                if even then
+                    e.window.blit("  ", "00", fill_b .. fill_b)
+                else
+                    e.window.blit(" ", "0", fill_b)
+                end
+            end
+
+            alternator = not alternator
+        end
+    end
+
+    return e.get()
+end
+
+return tiling