player_monitor.lua

-- TODO much needed cleanup
local playermonitor = {}

local noteinfo = dofile("EasyPlay/Core/noteinfo.lua")

-- make it better
local indexedColors = {}
do
    local seen = {} -- treat colors.gray and colors.grey as the same
    local i = 0
    for k, v in pairs(colors) do
        if not seen[v] and type(v) == "number" then
            i = i + 1
            indexedColors[i] = v
            seen[v] = true
        end
    end
end
table.sort(indexedColors)
local maxColor = #indexedColors

local function monitor_print(monitor, str)
    local old = term.redirect(monitor) -- make print() use the monitor (monitors don't have a print())
    print(str .. "") -- do the print()
    term.redirect(old) -- restore
end

playermonitor.new = function(monitor, id, subid, settings)
    return function()
        local hasColor, title = settings.hasColor, settings.title

        monitor.setTextScale(0.5)

        if not hasColor then
            monitor.setTextColor(colors.white)
            monitor.setBackgroundColor(colors.black)
        end
        monitor.clear()
        monitor.setCursorPos(1, 1)

        local fgColor, bgColor = 1, 2

        local notesPlayed, row = 0, 0

        local sizeX, sizeY = monitor.getSize()
        local halfSizeX = math.ceil(sizeX / 2) + 1

        local header = "Now playing: " .. title
        local headerXPos = halfSizeX - math.ceil(#header / 2)

        local played, played2 = false, true

        while true do
            local evt, p1_id, p2_subid, p3_inst_or_state, p4_note, p5_volume =
                os.pullEvent()
            if id == p1_id and subid == p2_subid then
                if evt == "player:slave" then

                    if played2 then
                        played2 = false

                        sizeX, sizeY = monitor.getSize()
                        halfSizeX = math.ceil(sizeX / 2) + 1

                        header = "Now playing: " .. title
                        headerXPos = halfSizeX - math.ceil(#header / 2)

                        hasColor, title = settings.hasColor, settings.title

                        if hasColor then
                            bgColor = bgColor % maxColor + 1
                            while bgColor == fgColor or indexedColors[bgColor] ==
                                colors.white do
                                bgColor = bgColor % maxColor + 1
                            end
                            monitor.setBackgroundColor(indexedColors[bgColor])
                        else
                            monitor.setBackgroundColor(colors.black)
                        end

                        -- we want to be quick, so precalculate everything
                        local str = settings.footerRight
                        local str2 = settings.footerLeft
                        local strpos = sizeX - #str
                        local sizeYm1 = sizeY - 1
                        local completed =
                            math.floor(row / settings.length * 100)
                        local np = string.format(
                                       "%d notes played (%d%% completed)",
                                       notesPlayed, completed)
                        local combinedFooter = string.sub(str2, 1,
                                                          math.max(1, strpos)) ..
                                                   string.rep(" ", math.max(0,
                                                                            strpos -
                                                                                #str2)) ..
                                                   str

                        monitor.setCursorPos(math.max(1, headerXPos), 1)
                        monitor.clear()
                        monitor_print(monitor, header)
                        local posX, posY = monitor.getCursorPos()
                        monitor.setCursorPos(1, sizeYm1)
                        monitor.write(np)
                        monitor.setCursorPos(1, sizeY)
                        monitor.write(combinedFooter)
                        monitor.setCursorPos(posX, posY)
                    end

                    local inst, note = p3_inst_or_state, p4_note

                    -- notes
                    local instname = noteinfo.instnames[inst + 1]
                    local notename = noteinfo.notenames[note + 1]
                    if instname == nil then
                        instname = "CUSTOM"
                    end
                    if notename == nil then
                        notename = note + 1
                    end
                    instname = string.format("%-10s", instname):upper()
                    local str = instname .. " " .. notename
                    local _, pos = monitor.getCursorPos()
                    monitor.setCursorPos(halfSizeX -
                                             math.ceil(string.len(str) / 2), pos)

                    if hasColor then
                        fgColor = fgColor % maxColor + 1
                        if fgColor == bgColor then
                            fgColor = fgColor % maxColor + 1
                        end
                        monitor.setTextColor(indexedColors[fgColor] + 0)
                    end

                    monitor_print(monitor, str)

                    if hasColor then monitor.setTextColor(1) end

                    notesPlayed = notesPlayed + 1

                    played = true

                elseif evt == "player:monitor" and p3_inst_or_state == "pre" then
                    if played then
                        played = false
                        played2 = true
                    end
                elseif evt == "player:monitor" and p3_inst_or_state == "post" then

                    -- done after playing (print notes played, etc)
                    row = row + 1
                    local str = settings.footerRight
                    local str2 = settings.footerLeft
                    local strpos = sizeX - #str
                    local sizeYm1 = sizeY - 1
                    local completed = math.floor(row / settings.length * 100)
                    local np = string.format("%d notes played (%d%% completed)",
                                             notesPlayed, completed)
                    local combinedFooter = string.sub(str2, 1,
                                                      math.max(1, strpos)) ..
                                               string.rep(" ", math.max(0,
                                                                        strpos -
                                                                            #str2)) ..
                                               str

                    local posX, posY = monitor.getCursorPos()
                    monitor.setCursorPos(1, sizeYm1)
                    monitor.write(np)
                    monitor.setCursorPos(1, sizeY)
                    monitor.write(combinedFooter)
                    monitor.setCursorPos(posX, posY)

                end
            end
        end
    end
end

return playermonitor