farbeyond

local nb = peripheral.find("iron_noteblock")
local bpm = 180

delay = 1 / (bpm / 60) /2

function dminor()
  nb.playNote(0,8)
  nb.playNote(0,11)
  nb.playNote(0,15)
  nb.playNote(0,20)
end

function bflat()
  nb.playNote(0,4)
  nb.playNote(0,8)
  nb.playNote(0,11)
  nb.playNote(0,16)
end

function cmajor()
  nb.playNote(0,6)
  nb.playNote(0,10)
  nb.playNote(0,13)
  nb.playNote(0,18)
end

function backRhythm()
  chord = dminor
  -- 1
  chord()
  nb.playNote(1,0)
  sleep(delay * 2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  sleep(delay*2)

  chord = bflat

  -- 1
  chord()
  nb.playNote(1,0)
  sleep(delay * 2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  sleep(delay*2)

  chord = dminor
  -- 1
  chord()
  nb.playNote(1,0)
  sleep(delay * 2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  sleep(delay*2)

  chord = bflat

  -- 1
  chord()
  nb.playNote(1,0)
  sleep(delay * 2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  sleep(delay*2)

  chord = dminor
  -- BEGIN MELODY
  chord()
  nb.playNote(1,0)
  nb.playNote(0,8) -- D
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(0,3) -- A
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(0,8) --D
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  nb.playNote(0,11) -- F
  cmajor()
  sleep(delay*2)

  chord = bflat

    -- 1
  chord()
  nb.playNote(0,15)-- A
  nb.playNote(1,0)
  sleep(delay * 2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  nb.playNote(0,8) -- D
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(0,18) -- C
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  nb.playNote(0,16)-- Bb
  sleep(delay*2)

chord = dminor
  -- 1
  chord()
  nb.playNote(0,15)-- A
  nb.playNote(1,0)
  sleep(delay)
  nb.playNote(0,16) -- Bb
  sleep(delay)
  chord()
  nb.playNote(0,15) -- A
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  nb.playNote(0,13) -- G
  sleep(delay)
  nb.playNote(0,11) -- F
  sleep(delay)
  -- 2
  chord()
  nb.playNote(0,13) -- G
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  nb.playNote(0,15) -- A
  sleep(delay)
  chord()
  nb.playNote(0,13) -- G
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  nb.playNote(0,11) -- F
  sleep(delay*2)

  chord = bflat

  -- 1
  chord()
  nb.playNote(0,8) -- D
  nb.playNote(1,0)
  sleep(delay * 2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  nb.playNote(0,10)
  sleep(delay)
  cmajor()
  sleep(delay*2)

    chord = dminor
  chord()
  nb.playNote(1,0)
  nb.playNote(0,8) -- D
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(0,3) -- A
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(0,8) --D
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  nb.playNote(0,11) -- F
  cmajor()
  sleep(delay*2)

  chord = bflat

    -- 1
  chord()
  nb.playNote(0,18)-- C
  nb.playNote(1,0)
  sleep(delay * 2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  nb.playNote(0,11) -- F
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(0,11) -- F
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  nb.playNote(0,13)-- G
  sleep(delay*2)

    chord = dminor
  chord()
  nb.playNote(1,0)
  nb.playNote(0,15) -- A
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(0,11) -- F
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  chord()
  nb.playNote(0,8) -- D
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(0,11) -- F
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(0,10) -- E
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  cmajor()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  sleep(delay*2)
    -- 1
  chord()
  nb.playNote(0, 8)-- D
  nb.playNote(1,0)
  sleep(delay * 2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  chord()
  sleep(delay*2)
  chord()
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  cmajor()
  sleep(delay*2)
  -- 2
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  chord()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay*2)
  cmajor()
  sleep(delay)
  chord()
  nb.playNote(1,0)
  sleep(delay*2)
  sleep(delay)
  nb.playNote(1,0)
  nb.playNote(2,0)
  sleep(delay)
  sleep(delay*2)
end

function strings()
  chord = dminor
  backRhythm()
  chord = bflat
  backRhythm()
end

-- BEGIN MAIN --
while true do
backRhythm()
end