mirror of
https://github.com/MikaylaFischler/cc-mek-scada.git
synced 2024-08-30 18:22:34 +00:00
114 lines
3.4 KiB
Lua
114 lines
3.4 KiB
Lua
-- Indicator LED Pair Graphics Element (two LEDs provide: off, color_a, color_b)
|
|
|
|
local util = require("scada-common.util")
|
|
|
|
local element = require("graphics.element")
|
|
local flasher = require("graphics.flasher")
|
|
|
|
---@class indicator_led_pair_args
|
|
---@field label string indicator label
|
|
---@field off color color for off
|
|
---@field c1 color color for #1 on
|
|
---@field c2 color color for #2 on
|
|
---@field min_label_width? integer label length if omitted
|
|
---@field flash? boolean whether to flash when on rather than stay on
|
|
---@field period? PERIOD flash period
|
|
---@field parent graphics_element
|
|
---@field id? string element id
|
|
---@field x? integer 1 if omitted
|
|
---@field y? integer auto incremented if omitted
|
|
---@field fg_bg? cpair foreground/background colors
|
|
---@field hidden? boolean true to hide on initial draw
|
|
|
|
-- new dual LED indicator light
|
|
---@nodiscard
|
|
---@param args indicator_led_pair_args
|
|
---@return graphics_element element, element_id id
|
|
local function indicator_led_pair(args)
|
|
element.assert(type(args.label) == "string", "label is a required field")
|
|
element.assert(type(args.off) == "number", "off is a required field")
|
|
element.assert(type(args.c1) == "number", "c1 is a required field")
|
|
element.assert(type(args.c2) == "number", "c2 is a required field")
|
|
|
|
if args.flash then
|
|
element.assert(util.is_int(args.period), "period is a required field if flash is enabled")
|
|
end
|
|
|
|
args.height = 1
|
|
args.width = math.max(args.min_label_width or 0, string.len(args.label)) + 2
|
|
|
|
local flash_on = true
|
|
|
|
local co = colors.toBlit(args.off)
|
|
local c1 = colors.toBlit(args.c1)
|
|
local c2 = colors.toBlit(args.c2)
|
|
|
|
-- create new graphics element base object
|
|
local e = element.new(args)
|
|
|
|
e.value = 1
|
|
|
|
-- called by flasher when enabled
|
|
local function flash_callback()
|
|
e.w_set_cur(1, 1)
|
|
|
|
if flash_on then
|
|
if e.value == 2 then
|
|
e.w_blit("\x8c", c1, e.fg_bg.blit_bkg)
|
|
elseif e.value == 3 then
|
|
e.w_blit("\x8c", c2, e.fg_bg.blit_bkg)
|
|
end
|
|
else
|
|
e.w_blit("\x8c", co, e.fg_bg.blit_bkg)
|
|
end
|
|
|
|
flash_on = not flash_on
|
|
end
|
|
|
|
-- on state change
|
|
---@param new_state integer indicator state
|
|
function e.on_update(new_state)
|
|
local was_off = e.value <= 1
|
|
|
|
e.value = new_state
|
|
e.w_set_cur(1, 1)
|
|
|
|
if args.flash then
|
|
if was_off and (new_state > 1) then
|
|
flash_on = true
|
|
flasher.start(flash_callback, args.period)
|
|
elseif new_state <= 1 then
|
|
flash_on = false
|
|
flasher.stop(flash_callback)
|
|
e.w_blit("\x8c", co, e.fg_bg.blit_bkg)
|
|
end
|
|
elseif new_state == 2 then
|
|
e.w_blit("\x8c", c1, e.fg_bg.blit_bkg)
|
|
elseif new_state == 3 then
|
|
e.w_blit("\x8c", c2, e.fg_bg.blit_bkg)
|
|
else
|
|
e.w_blit("\x8c", co, e.fg_bg.blit_bkg)
|
|
end
|
|
end
|
|
|
|
-- set indicator state
|
|
---@param val integer indicator state
|
|
function e.set_value(val) e.on_update(val) end
|
|
|
|
-- draw label and indicator light
|
|
function e.redraw()
|
|
e.on_update(e.value)
|
|
if string.len(args.label) > 0 then
|
|
e.w_set_cur(3, 1)
|
|
e.w_write(args.label)
|
|
end
|
|
end
|
|
|
|
-- initial draw
|
|
e.redraw()
|
|
|
|
return e.complete()
|
|
end
|
|
|
|
return indicator_led_pair
|