mirror of
https://github.com/MikaylaFischler/cc-mek-scada.git
synced 2024-08-30 18:22:34 +00:00
96 lines
2.8 KiB
Lua
96 lines
2.8 KiB
Lua
-- "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_c? color optional frame color
|
|
---@field parent graphics_element
|
|
---@field id? string element id
|
|
---@field x? integer 1 if omitted
|
|
---@field y? integer auto incremented 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
|
|
---@field hidden? boolean true to hide on initial draw
|
|
|
|
-- new tiling box
|
|
---@param args tiling_args
|
|
---@return graphics_element element, element_id id
|
|
local function tiling(args)
|
|
assert(type(args.fill_c) == "table", "tiling: fill_c is a required field")
|
|
|
|
-- create new graphics element base object
|
|
local e = element.new(args)
|
|
|
|
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 inner_width = math.floor(e.frame.w / util.trinary(even, 2, 1))
|
|
local inner_height = e.frame.h
|
|
|
|
-- border
|
|
if args.border_c ~= nil then
|
|
start_x = 1 + util.trinary(even, 2, 1)
|
|
start_y = 2
|
|
|
|
inner_width = math.floor((e.frame.w - 2 * util.trinary(even, 2, 1)) / util.trinary(even, 2, 1))
|
|
inner_height = e.frame.h - 2
|
|
end
|
|
|
|
-- check dimensions
|
|
assert(inner_width > 0, "tiling: inner_width <= 0")
|
|
assert(inner_height > 0, "tiling: inner_height <= 0")
|
|
assert(start_x <= inner_width, "tiling: start_x > inner_width")
|
|
assert(start_y <= inner_height, "tiling: start_y > inner_height")
|
|
|
|
-- draw tiling box
|
|
function e.redraw()
|
|
local alternator = true
|
|
|
|
if args.border_c ~= nil then
|
|
e.w_set_bkg(args.border_c)
|
|
e.window.clear()
|
|
end
|
|
|
|
-- draw pattern
|
|
for y = start_y, inner_height + (start_y - 1) do
|
|
e.w_set_cur(start_x, y)
|
|
for _ = 1, inner_width do
|
|
if alternator then
|
|
if even then
|
|
e.w_blit(" ", "00", fill_a .. fill_a)
|
|
else
|
|
e.w_blit(" ", "0", fill_a)
|
|
end
|
|
else
|
|
if even then
|
|
e.w_blit(" ", "00", fill_b .. fill_b)
|
|
else
|
|
e.w_blit(" ", "0", fill_b)
|
|
end
|
|
end
|
|
|
|
alternator = not alternator
|
|
end
|
|
|
|
if inner_width % 2 == 0 then alternator = not alternator end
|
|
end
|
|
end
|
|
|
|
-- initial draw
|
|
e.redraw()
|
|
|
|
return e.complete()
|
|
end
|
|
|
|
return tiling
|