ccde/startup.lua

os.pullEvent = os.pullEventRaw

local window = require("libs.window")
local nft = require "cc.image.nft"
local image = nft.load(".wallpaper.nft")
local paint_image = paintutils.loadImage(".wallpaper.nfp")
local wrap = require("cc.strings").wrap
_G.threads = {}
_G.windows = {}
_G.keybinds = {}
local nterm = term.native()
local sx,sy = term.getSize()
local term = window.create("",sx,sy,1,1,true)
local event = { n = 0 }

local function drawPixelInternal(xPos, yPos)
    term.setCursorPos(xPos, yPos)
    term.write(" ")
end

local function drawImage(image, xPos, yPos)
    for y = 1, #image do
        local tLine = image[y]
        for x = 1, #tLine do
            if tLine[x] > 0 then
                term.setBackgroundColor(tLine[x])
                drawPixelInternal(x + xPos - 1, y + yPos - 1)
            end
        end
    end
end

local function threads()
    for id, thr in pairs(_G.threads) do
        if thr then
            if coroutine.status(thr.co) ~= "dead" then
                if thr.filter == nil or thr.filter == event[1] or event[1] == "terminate" then
                    local ok, msg = coroutine.resume(thr.co, table.unpack(event, 1, event.n))
                    if not ok then
                        msg = tostring(msg)
                        local wrapped_lines = wrap(msg, 23)
                        local win = window.create("Error", 25, #wrapped_lines + 2)
                        for y, i in ipairs(wrapped_lines) do
                            win.setCursorPos(2, y + 1)
                            win.setTextColor(colors.red)
                            win.write(i)
                        end
                        _G.threads[id] = nil
                    else
                        thr.filter = msg
                    end
                end
            else
                _G.threads[id] = nil
            end
        end
    end
    event = { os.pullEventRaw() }
end

local function windows()
    term.setCursorBlink(false)
    for id, win in ipairs(_G.windows) do
        local h= win.h
        local w = win.w
        local x = win.x
        local y = win.y
        if win.isFullscreen then
            local sw,sh = term.getSize()
            w = sw
            h = sh-2
            x=1
            y=3
        end
        for cy = 1, h do
            term.setCursorPos(x, y + cy - 1)
            local line, fg, bg = "", "", ""
            for cx = 1, w do
                if win.buffer[cx] then
                    local cell = win.buffer[cx][cy]
                    if cell then
                        line = line .. cell.char
                        fg = fg .. ("0123456789abcdef"):sub(math.log(cell.tc, 2) + 1, math.log(cell.tc, 2) + 1)
                        bg = bg .. ("0123456789abcdef"):sub(math.log(cell.bc, 2) + 1, math.log(cell.bc, 2) + 1)
                    else
                        line = line .. " "
                        fg = fg .. "0"
                        bg = bg .. "f"
                    end
                else 
                    line = line .. " "
                    fg = fg .. "0"
                    bg = bg .. "f"
                end
            end
            term.blit(line, fg, bg)
        end
        if win.decorations then
            term.setCursorPos(x, y - 1)
            term.setTextColor(colors.white)
            term.setBackgroundColor(colors.blue)
            local window_buttons = "X"
            if win.fullscreenButton then window_buttons = window_buttons.."O" end
            term.write(string.sub(window_buttons.." " .. win.name .. string.rep(" ", w - #win.name -1 -#window_buttons),1,w))
            if win.resizable and not win.isFullscreen then
                term.setCursorPos(x+w-1,y+h-1)
                term.write("\127")
            end
        end
        term.setCursorPos(x + win.cursorX - 1, y + win.cursorY - 1)
        nterm.setCursorBlink(win.cursorBlink)
        if win.closing then
            _G.windows[id] = nil
        end
    end
    window.reorder()
end

local function desktop()
    local w, h = term.getSize()
    term.setBackgroundColor(colors.white)
    term.clear()
    if image then
        nft.draw(image,1,1)
    elseif paint_image then
        drawImage(paint_image,1,2)
    end
end

local function bars()
    local cx,cy = term.getCursorPos()
    local w, h = term.getSize()
    term.setCursorPos(1, 1)
    term.setTextColor(colors.white)
    term.setBackgroundColor(colors.gray)
    term.clearLine()
    term.write(" "..((_G.windows[#_G.windows] or {name=""}).name or "").." ")
    local rightbar = ""
    if network and network.getID and network.getDistance and network.getID() ~= -1 then
        rightbar = "id: "..tostring(network.getID()).." dist: "..tostring(math.floor(network.getDistance()+0.5))
    end
    term.setCursorPos(w-(#rightbar),1)
    term.write(rightbar)
    term.setCursorPos(cx,cy)
end
local threading = require("libs.threading")
local compat = require("libs.compat")
for _, i in ipairs(fs.list("/modules")) do
    if not fs.isDir("/modules/" .. i) then
        threading.addFromFile("/modules/" .. i)
    end
end

local function screen()
    local cx,cy = term.getCursorPos()
    for cy = 1, term.h do
            nterm.setCursorPos(term.x, term.y + cy - 1)
            local line, fg, bg = "", "", ""
            for cx = 1, term.w do
                if term.buffer[cx] then
                    local cell = term.buffer[cx][cy]
                    if cell then
                        line = line .. cell.char
                        fg = fg .. ("0123456789abcdef"):sub(math.log(cell.tc, 2) + 1, math.log(cell.tc, 2) + 1)
                        bg = bg .. ("0123456789abcdef"):sub(math.log(cell.bc, 2) + 1, math.log(cell.bc, 2) + 1)
                    else
                        line = line .. " "
                        fg = fg .. "0"
                        bg = bg .. "f"
                    end
                else 
                    line = line .. " "
                    fg = fg .. "0"
                    bg = bg .. "f"
                end
            end
            nterm.blit(line, fg, bg)
        end
    nterm.setCursorPos(cx,cy)
end

local function render()
    while true do
        desktop()
        windows()
        bars()
        screen()
        sleep(1 / 20)
    end
end

local function process()
    while true do
        threads()
    end
end

parallel.waitForAny(process, render)