tracker

local note = require("note")
local os = require("os")
local fs = require("io")

-- WRITTEN FOR OPEN COMPUTERS BY Voxelat3d
local sleepsecs = 0.5

local curtone = ""
local curoct = 2

function translatenotes(t)
  local curnote = note.name(note.ticks(t))
  local oct = curnote:gsub("%a","")
  oct = oct:gsub("#","")
  local octave = tonumber(oct)+curoct
  curtone = curnote:gsub("%d","")..octave
end


function n(t)
    os.sleep(sleepsecs)
    translatenotes(t)
    note.play(curtone)
end

--TRACKER BEGIN
local args = {...}
local sheet = fs.open(args[1],"r")
local validdata = true
local lc = 1

while validdata do
    data = sheet:read()
    if data ~= nil then
        if not string.match(data,"#") then
            if string.match(data,"s") then
                if string.match(data,"s%d+%.*%d*") then
                    tosleep = string.match(data,"%d+%.*%d*")
                    print("Z ",tosleep)
                    sleepsecs = tonumber(tosleep)
                else
                    error("NOPE SLEEP SYNTAX WRONG @ "..lc)
                end
            elseif string.match(data,"o") then
                if string.match(data,"o%d+") then
                    curoct = string.match(data,"%d+")
                    print("O ",curoct)
                else
                    error("NOPE OCTAVE SYNTAX WRONG @ "..lc)
                end

            elseif string.match(data,"%d+") then
                print("* ",data)
                n(tonumber(data))
            else
                error("NOPE @ "..lc)
            end
        else
            print(data)
        end
        lc=lc+1
    else
        validdata = false
    end
end
sheet:close()