OpenComputerScripts/kgui.lua

-- Kiritow's GUI Library
-- Author: Github/Kiritow

local component=require("component")

local function GPUClear(t)
    local w,h=t.gpu.getResolution()
    t.gpu.fill(1,1,w,h," ")
end

local function GPUSet(t,line,col,str)
    t.gpu.set(col,line,str)
end

local function GPUGet(t,line,col)
    return t.gpu.get(col,line)
end

local function GPUSetColorFG(t,rgb)
    t.gpu.setForeground(rgb)
end

local function GPUSetColorBG(t,rgb)
    t.gpu.setBackground(rgb)
end

local function GPUGetColorFG(t)
    return t.gpu.getForeground()
end

local function GPUGetColorBG(t)
    return t.gpu.getBackground()
end

local function GPUPushFG(t,rgb)
    t.fgstk[t.fgstk.n+1]=t:getfg()
    t.fgstk.n=t.fgstk.n+1
    t:setfg(rgb)
end

local function GPUPopFG(t)
    t:setfg(t.fgstk[t.fgstk.n])
    t.fgstk[t.fgstk.n]=nil
    t.fgstk.n=t.fgstk.n-1
end

local function GPUPushBG(t,rgb)
    t.bgstk[t.bgstk.n+1]=t:getbg()
    t.bgstk.n=t.bgstk.n+1
    t:setbg(rgb)
end

local function GPUPopBG(t)
    t:setbg(t.bgstk[t.bgstk.n])
    t.bgstk[t.bgstk.n]=nil
    t.bgstk.n=t.bgstk.n-1
end

-- API
function GetGPU()
    if(component.gpu==nil) then
        error("No GPU Found.")
    else
        local t={}
        t.gpu=component.gpu
        t.clear=GPUClear
        t.set=GPUSet
        t.get=GPUGet
        t.setfg=GPUSetColorFG
        t.getfg=GPUGetColorFG
        t.setbg=GPUSetColorBG
        t.getbg=GPUGetColorBG
        t.fgstk={n=0}
        t.bgstk={n=0}
        t.pushfg=GPUPushFG
        t.popfg=GPUPopFG
        t.pushbg=GPUPushBG
        t.popbg=GPUPopBG
        return t
    end
end