sintezetor

-- DECLARING
local mn = peripheral.wrap("back")
local mnn = peripheral.wrap("top")
local spk = peripheral.find("speaker")
-- FUNCTIONS

local function clear()
  mn.clear()
end
local function setTextColor(clr)
  mn.setTextColor(clr)
end
local function setCursorPos(x,y)
  mn.setCursorPos(x,y)
end
local function setBackgroundColor(clr)
  mn.setBackgroundColor(clr)
end
local function write(txt)
  mn.write(txt)
end
local function playNote(sound,vol,ptc)
  spk.playNote(sound,vol,ptc)
end
local function Nclear()
    mnn.clear()
end
local function NsetTextColor(clr)
  mnn.setTextColor(clr)
end
local function NsetCursorPos(x,y)
  mnn.setCursorPos(x,y)
end
local function NsetBackgroundColor(clr)
  mnn.setBackgroundColor(clr)
end
local function Nwrite(txt)
  mnn.write(txt)
end
local sx,sy = mn.getSize()
local octabeL = 12
local octaveC = 6
local octave = {0,1,0,1,0,0,1,0,1,0,1,0}
local notes = {"C", "#","D", "#","E","F","#","G","#","A","#","H"}
local swf = 0
for i=1,sx do
  for g=1,sy do
    if (g == 1) then
      setBackgroundColor(colors.brown)
    else
      setBackgroundColor(colors.white)
    end
    setCursorPos(i,g)
    write(" ")
  end
  if (swf == 1) then
    swf = 0
  else
    swf = 1
  end
end
local color = 0
local startingY = 1
local startingX = 1
for o=1,octaveC do
setCursorPos(startingX, startingY)
--print("SX"..startingX.." | SY: "..startingY.."O: "..o )
for i=1,octabeL do
  color = octave[i]
  if (color == 1) then
    setCursorPos(startingX + i-1, startingY + 1)
    setBackgroundColor(colors.black)
    for h=1,2 do
      setCursorPos(startingX + i-1, startingY + 1 + h)
      if (h == 1) then
        write(" ")
        setCursorPos(startingX + i-1, startingY + 1 + h-1)
        setBackgroundColor(colors.black)
        setTextColor(colors.black)
        write(notes[i])
        setCursorPos(startingX + i-1, startingY + 1 + h)
        setBackgroundColor(colors.black)
      else
        write(" ")
      end
    end
  else
    setBackgroundColor(colors.white)
    setTextColor(colors.white)
    local px, py = mn.getCursorPos()
    setCursorPos(px,2)
    write(notes[i])
  end
  setCursorPos(startingX + i, startingY)
end
startingY = 1
startingX = 1
startingX =  startingX + (octabeL * o)
end
local instrument = "harp"
--123
local nsx,nsy = mnn.getSize()
NsetBackgroundColor(colors.white)
Nclear()
function drawBT(colorm, txt, line)
NsetBackgroundColor(colorm)
NsetCursorPos(1,line)
for i=1,7 do
    NsetBackgroundColor(colorm)
    for g=1,2 do
        Nwrite(" ")
    end
    NsetCursorPos(1+i,line)
end
NsetCursorPos(1,line)
Nwrite(txt)

local lastWrite = nil
local waitTime = nil
end
-- write to notesheet
function writeToNotes(name, pitch)
    local file = fs.open("disk/"..name, "r")
    local txt = file.readAll()
    file.close()
    local file = fs.open("disk/"..name, "w")
    if (lastWrite ~= nil) then
      waitTime = os.time() *50 - lastWrite
    else
      waitTime = 1
    end
    file.write(txt..pitch.."-"..waitTime.."-"..instrument.." ")
    file.close()
    lastWrite = os.time() * 50
end
-- end func

-- recs screen
function drawRSC()
    NsetBackgroundColor(colors.white)
    Nclear()
    local recsf = fs.open("disk/recs", "r")
    local recsn  = recsf.readAll()
    recsf.close()
    print(recsn)
    for i=1,tonumber(recsn) do
        if (tonumber(recsn) < 4) then
            NsetCursorPos(i,1)
        elseif (tonumber(recsn) < 7) then
            NsetCursorPos(i,2)
        elseif tonumber(recsn) < 10 then
            NsetCursorPos(i,3)
        end
        NsetBackgroundColor(colors.green)
        NsetTextColor(colors.white)
        Nwrite(tostring(i))
    end
    NsetCursorPos(1,nsy)
    NsetBackgroundColor(colors.blue)
    NsetTextColor(colors.white)
    Nwrite("back")
end
-- end
drawBT(colors.green, "Record",1)
drawBT(colors.blue, "Recs",2)
drawBT(colors.orange, "Instrs",4)
drawBT(colors.brown, "Hide",5)
--123
local recState = false
local recName = nil
local screen = 1
while (true) do
    event, side, xPos, yPos = os.pullEvent("monitor_touch")
    if (side == "back") then
        if (yPos > 1) then
            local noteMBR = xPos
            if (xPos > 12 and xPos < 24) then
                noteMBR = noteMBR - octabeL
            elseif (xPos > 23) then
                noteMBR = (noteMBR - (octabeL *2))
            end
            if (xPos == 24) then
                noteMBR = 1
            end
            print(noteMBR.." | "..xPos)
            if (string.find(notes[noteMBR], "#")) then
              playNote(instrument, 1, xPos-1+0.5)
              if (recState) then
                writeToNotes(tostring(recName), xPos-1+0.5)
            end
              for j=2,4 do
                setCursorPos(xPos,j)
                setBackgroundColor(colors.gray)
                write(" ")
              end
            os.sleep(0.2)
            for j=2,4 do
                setCursorPos(xPos,j)
                setBackgroundColor(colors.black)
                write(" ")
            end
            else
                if (recState) then
                    writeToNotes(tostring(recName), xPos-1)
                end
                playNote(instrument, 1, xPos-1)
                for j=2,5 do
                    setCursorPos(xPos,j)
                    setBackgroundColor(colors.lightGray)
                    write(" ")
                end
                os.sleep(0.2)
                for j=2,5 do
                    setCursorPos(xPos,j)
                    setBackgroundColor(colors.white)
                    write(" ")
                end
            end
        end
    elseif (side == "top") then
        if (screen == 1) then
        if (yPos == 1) then
            if (recState == true) then
               recState = false
               drawBT(colors.green, "Record",1)
            else
                recState = true
                local recsf = fs.open("disk/recs", "r")
                local recsn  = recsf.readAll()
                recsf.close()
                local recsf = fs.open("disk/recs", "w")
                recsf.write(tostring(tonumber(recsn) + 1))
                recsf.close()
                recName = tonumber(recsn) + 1
                lastWrite = os.time()*50
                local recfile = fs.open("disk/"..tostring(recName), "w")
                recfile.close()
                drawBT(colors.red, "STOP",1)
            end
        elseif (yPos == 2) then
            drawRSC()
            screen = 2
        elseif (yPos == 4) then
            screen =3
            NsetBackgroundColor(colors.white)
            Nclear()
            if (instrument == "harp") then
            drawBT(colors.orange, "Piano",1)
            drawBT(colors.red, "Guitar",2)
            drawBT(colors.red, "Cowbell",3)
            elseif (instrument == "guitar") then
                drawBT(colors.red, "Piano",1)
                drawBT(colors.orange, "Guitar",2)
                drawBT(colors.red, "Cowbell",3)
            elseif (instrument == "cowbell") then
                drawBT(colors.red, "Piano",1)
                drawBT(colors.red, "Guitar",2)
                drawBT(colors.orange, "Cowbell",3)
            else
                drawBT(colors.red, "Piano",1)
                drawBT(colors.red, "Guitar",2)
                drawBT(colors.red, "Cowbell",3)
            end
            drawBT(colors.blue, "back",5)
        elseif (yPos == 5)  then
            screen = 4
            setBackgroundColor(colors.brown)
            clear()
            NsetBackgroundColor(colors.brown)
            Nclear()
        end
    elseif (screen == 2) then
        if (yPos == 5 and xPos < 6) then
            screen =1
            NsetBackgroundColor(colors.white)
            Nclear()
            drawBT(colors.green, "Record",1)
            drawBT(colors.blue, "Recs",2)
            drawBT(colors.orange, "Instrs",4)
            drawBT(colors.brown, "Hide",5)
        else
            local rec = fs.open("disk/"..xPos, "r")
            local recN  = rec.readAll()
            local wait = nil
            local noteN = nil
            local instrName = nil
            rec.close()
            line = {} --Define a empty table for our words
            for word in string.gmatch(recN, "%S+") do --We go thru the string word by word ("%w+") and give one word at a time the value word
                local ii = 1
                for wordd in string.gmatch(word, "[^-]+") do
                    print(tonumber(wordd))
                    if (ii == 2) then
                        wait = tonumber(wordd)
                    elseif (ii==3) then
                        instrName = wordd
                    else
                        print("NOTE")
                        noteN = tonumber(wordd)
                    end
                    ii = ii + 1
                end
                print("wait secs:"..wait)
                print("note: "..noteN)
                print("RECORDING: "..xPos.." | NOTE: "..noteN.." WAITTIME: "..wait)
                playNote(instrName,1,tonumber(noteN))
                local waitTimeinSeconds = wait
                os.sleep(tonumber(waitTimeinSeconds))
            end --end our for loop
        end
    elseif (screen == 3) then
        if (yPos == 1) then
            instrument = "harp"
        elseif (yPos == 2) then
            instrument = "guitar"
        elseif (yPos == 3) then
            instrument = "cow_bell"
        end
        screen =1
        NsetBackgroundColor(colors.white)
        Nclear()
        drawBT(colors.green, "Record",1)
        drawBT(colors.blue, "Recs",2)
        drawBT(colors.orange, "Instrs",4)
        drawBT(colors.brown, "Hide",5)
    end
end
end