iframe-proxy | Sunbelt Computer Software

110 lines (95 loc) · 3.41 KB

-- Utilities for design.lua
--@ module = true
function make_ascii_button(ch1, ch2)
    return {
        {218, 196, 196, 191},
        {179, ch1, ch2, 179},
        {192, 196, 196, 217},
function make_button_spec(ch1, ch2, ch1_color, ch2_color, border_color, border_hcolor, x, y)
    return {
        chars=make_ascii_button(ch1, ch2),
        pens={
            {border_color, border_color, border_color, border_color},
            {border_color, ch1_color,    ch2_color,    border_color},
            {border_color, border_color, border_color, border_color},
        pens_hover={
            {border_hcolor, border_hcolor, border_hcolor, border_hcolor},
            {border_hcolor, ch1_color,     ch2_color,     border_hcolor},
            {border_hcolor, border_hcolor, border_hcolor, border_hcolor},
        asset={page='INTERFACE_BITS', x=x, y=y},
-- Point class used by gui/design
Point = defclass(Point)
Point.ATTRS {
    x = DEFAULT_NIL,
    y = DEFAULT_NIL,
    z = DEFAULT_NIL
function Point:init(init_table)
    self.x = init_table.x
    self.y = init_table.y
    if init_table.z then self.z = init_table.z end
function Point:check_valid(point)
    point = point or self
    if not point.x or not point.y then error("Invalid Point: x and y values are required") end
    if not type(point.x) == "number" then error("Invalid value for x, must be a number") end
    if not type(point.y) == "number" then error("Invalid value for y, must be a number") end
    if point.z and not type(point.y) == "number" then error("Invalid value for z, must be a number") end
function Point:is_mouse_over()
    local pos = dfhack.gui.getMousePos()
    if not pos then return false end
    return Point(pos) == self
function Point:__tostring()
    return "("..tostring(self.x)..", "..tostring(self.y)..", "..tostring(self.z)..")"
function Point:get_add_sub_table(arg)
    local t_other = { x = 0, y = 0, z = 0 }
    if type(arg) == "number" then
        t_other = Point { x = arg, y = arg } -- As of now we don't want to add anything to z unless explicit
    elseif type(arg) == "table" then
        if not (arg.x ~= nil or arg.y ~= nil or arg.z ~= nil) then
            error("Adding table that doesn't have x, y or z values.")
        end
        if arg.x then
            if type(arg.x) == "number" then
                t_other.x = arg.x
        end
        if arg.y then
            if type(arg.y) == "number" then
                t_other.y = arg.y
        end
        if arg.z then
            if type(arg.z) == "number" then
                t_other.z = arg.z
        end
    return t_other
function Point:__add(arg)
    local t_other = self:get_add_sub_table(arg)
    return Point { x = self.x + t_other.x, y = self.y + t_other.y, z = (self.z and t_other.z) and self.z + t_other.z or nil }
function Point:__sub(arg)
    local t_other = self:get_add_sub_table(arg)
    return Point { x = self.x - t_other.x, y = self.y - t_other.y, z = (self.z and t_other.z) and self.z - t_other.z or nil}
-- For the purposes of gui/design, we only care about x and y being equal, z is only used for determining boundaries and x levels to apply the shape
function Point:__eq(other)
    self:check_valid(other)
    return self.x == other.x and self.y == other.y
function getMousePoint()
    local pos = dfhack.gui.getMousePos()
    return pos and Point(pos) or nil

Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

util.lua

Latest commit

History

util.lua

File metadata and controls