music_box.lua

local factor = 4

local freq = {
  8.66196,
  9.17702,
  9.72272,
  10.3009,
  10.9134,
  11.5623,
  12.2499,
  12.9783,
  13.75,
  14.5676,
  15.4339,
  16.3516,
  17.3239,
  18.354,
  19.4454,
  20.6017,
  21.8268,
  23.1247,
  24.4997,
  25.9565,
  27.5,
  29.1352,
  30.8677,
  32.7032,
  34.6478,
  36.7081,
  38.8909,
  41.2034,
  43.6535,
  46.2493,
  48.9994,
  51.9131,
  55,
  58.2705,
  61.7354,
  65.4064,
  69.2957,
  73.4162,
  77.7817,
  82.4069,
  87.3071,
  92.4986,
  97.9989,
  103.826,
  110,
  116.541,
  123.471,
  130.813,
  138.591,
  146.832,
  155.563,
  164.814,
  174.614,
  184.997,
  195.998,
  207.652,
  220,
  233.082,
  246.942,
  261.626,
  277.183,
  293.665,
  311.127,
  329.628,
  349.228,
  369.994,
  391.995,
  415.305,
  440,
  466.164,
  493.883,
  523.251,
  554.365,
  587.33,
  622.254,
  659.255,
  698.456,
  739.989,
  783.991,
  830.609,
  880,
  932.328,
  987.767,
  1046.5,
  1108.73,
  1174.66,
  1244.51,
  1318.51,
  1396.91,
  1479.98,
  1567.98,
  1661.22,
  1760,
  1864.66,
  1975.53,
}

local notes = {
  {tone=0,time=0},
  {tone=76,time=56},
  {tone=0,time=1},
  {tone=79,time=26},
  {tone=0,time=37},
  {tone=81,time=15},
  {tone=0,time=28},
  {tone=79,time=210},
  {tone=0,time=1},
  {tone=81,time=52},
  {tone=0,time=1},
  {tone=83,time=104},
  {tone=0,time=2},
  {tone=83,time=25},
  {tone=0,time=42},
  {tone=81,time=195},
  {tone=0,time=1},
  {tone=75,time=52},
  {tone=0,time=1},
  {tone=76,time=52},
  {tone=0,time=1},
  {tone=79,time=25},
  {tone=0,time=33},
  {tone=81,time=20},
  {tone=0,time=28},
  {tone=79,time=210},
  {tone=0,time=1},
  {tone=80,time=52},
  {tone=0,time=1},
  {tone=81,time=104},
  {tone=0,time=1},
  {tone=81,time=26},
  {tone=0,time=37},
  {tone=79,time=200},
  {tone=0,time=1},
  {tone=80,time=52},
  {tone=0,time=1},
  {tone=81,time=52},
  {tone=0,time=54},
  {tone=83,time=0},
  {tone=0,time=0},
  {tone=84,time=25},
  {tone=0,time=27},
  {tone=81,time=211},
  {tone=0,time=1},
  {tone=80,time=51},
  {tone=0,time=1},
  {tone=79,time=52},
  {tone=0,time=1},
  {tone=80,time=52},
  {tone=0,time=1},
  {tone=81,time=25},
  {tone=0,time=33},
  {tone=76,time=240},
  {tone=0,time=19},
  {tone=76,time=78},
  {tone=0,time=23},
  {tone=75,time=0},
  {tone=0,time=0},
  {tone=74,time=30},
  {tone=0,time=27},
  {tone=76,time=78},
  {tone=0,time=1},
  {tone=75,time=26},
  {tone=0,time=1},
  {tone=74,time=25},
  {tone=0,time=28},
  {tone=76,time=24},
  {tone=0,time=28},
  {tone=74,time=26},
  {tone=0,time=27},
  {tone=79,time=399},
}

function sleep(seconds)
  local deadline = computer.uptime() + seconds
  repeat
  until computer.uptime() >= deadline
end

while true do
  for k, v in ipairs(notes) do
    if v.tone == 0 then
      sleep(v.time / 1000 * factor)
    else
      computer.beep(freq[v.tone], v.time / 1000 * factor)
    end
  end
end