RouterOS beeper player

At Doom’s Gate

The first level of Doom: the riff through every bedroom door, in square waves.

1# At Doom's Gate: the E1M1 riff for one speaker2# https://lab.glossema.dev/play/dooms-gate3# Doom, 1993. E minor, 170 bpm: the riff in eighths on a low E, the lead in quarters an octave up.45:local beat 352ms;67:global notes {8  "E3"=165; "Bb3"=233; "B3"=247; "C4"=262; "D4"=294; "E4"=330; "G4"=392;9  "B4"=494; "D5"=587; "E5"=659; "F#5"=740; "G5"=784; "A5"=880; "B5"=98810};1112:global durs {13  "w"=($beat * 4);14  "h"=($beat * 2);15  "q"=$beat;16  "e"=($beat / 2)17};1819# $play "NOTE:dur" sounds one note; "-" is a rest.20# The gap is carved out of the note, not added after it, so the grid holds at 170.21:global play do={22  :global notes;23  :global durs;24  :local cut [:find $1 ":"];25  :local note [:pick $1 0 $cut];26  :local key [:pick $1 ($cut + 1) [:len $1]];27  :local len ($durs->$key);28  :if ($note != "-") do={29    :beep frequency=($notes->$note) length=($len - 24ms);30  }31  :delay $len;32}3334# The riff: two low E's, then the note that walks down, the octave, D, C, B flat, and back up35:local riff {36  "E3:e"; "E3:e"; "E4:e";37  "E3:e"; "E3:e"; "D4:e";38  "E3:e"; "E3:e"; "C4:e";39  "E3:e"; "E3:e"; "Bb3:e";40  "E3:e"; "E3:e"; "B3:e"; "C4:e"41};4243# The riff's second half: the walk stops on B flat and holds it44:local held {45  "E3:e"; "E3:e"; "E4:e";46  "E3:e"; "E3:e"; "D4:e";47  "E3:e"; "E3:e"; "C4:e";48  "E3:e"; "E3:e"; "Bb3:h"; "-:e"49};5051# The riff's first bar, then the lead's answer set into the gap where the B flat would hold52:local lead1 {53  "E3:e"; "E3:e"; "E4:e";54  "E3:e"; "E3:e"; "D4:e"; "E3:e"; "E3:e";55  "B4:q"; "D5:q"; "F#5:q"; "A5:q";56  "F#5:q"; "D5:q"; "B4:h"57};58:local lead2 {59  "E3:e"; "E3:e"; "E4:e";60  "E3:e"; "E3:e"; "D4:e"; "E3:e"; "E3:e";61  "B4:q"; "G4:q"; "E5:q"; "G5:q";62  "B5:q"; "G5:q"; "E5:h"63};6465# 1. Riff: twice in full, hard and even66:put "Riff";67:for i from=1 to=2 do={68  :foreach n in=$riff do={ $play $n; }69  :foreach n in=$held do={ $play $n; }70}7172# 2. Lead: the riff, then the lead answers in its gap; twice, the answer climbing73:put "Lead";74:foreach n in=$riff do={ $play $n; }75:foreach n in=$lead1 do={ $play $n; }76:foreach n in=$riff do={ $play $n; }77:foreach n in=$lead2 do={ $play $n; }7879# 3. Riff again: once more in full, and the gate shuts on the riff's own first cell80:put "Riff again";81:foreach n in=$riff do={ $play $n; }82:foreach n in=$held do={ $play $n; }83:local shut {"E3:e"; "E3:e"; "E4:w"};84:foreach n in=$shut do={ $play $n; }

# At Doom's Gate: the E1M1 riff for one speaker
# https://lab.glossema.dev/play/dooms-gate
# Doom, 1993. E minor, 170 bpm: the riff in eighths on a low E, the lead in quarters an octave up.

:local beat 352ms;

:global notes {
  "E3"=165; "Bb3"=233; "B3"=247; "C4"=262; "D4"=294; "E4"=330; "G4"=392;
  "B4"=494; "D5"=587; "E5"=659; "F#5"=740; "G5"=784; "A5"=880; "B5"=988
};

:global durs {
  "w"=($beat * 4);
  "h"=($beat * 2);
  "q"=$beat;
  "e"=($beat / 2)
};

# $play "NOTE:dur" sounds one note; "-" is a rest.
# The gap is carved out of the note, not added after it, so the grid holds at 170.
:global play do={
  :global notes;
  :global durs;
  :local cut [:find $1 ":"];
  :local note [:pick $1 0 $cut];
  :local key [:pick $1 ($cut + 1) [:len $1]];
  :local len ($durs->$key);
  :if ($note != "-") do={
    :beep frequency=($notes->$note) length=($len - 24ms);
  }
  :delay $len;
}

# The riff: two low E's, then the note that walks down, the octave, D, C, B flat, and back up
:local riff {
  "E3:e"; "E3:e"; "E4:e";
  "E3:e"; "E3:e"; "D4:e";
  "E3:e"; "E3:e"; "C4:e";
  "E3:e"; "E3:e"; "Bb3:e";
  "E3:e"; "E3:e"; "B3:e"; "C4:e"
};

# The riff's second half: the walk stops on B flat and holds it
:local held {
  "E3:e"; "E3:e"; "E4:e";
  "E3:e"; "E3:e"; "D4:e";
  "E3:e"; "E3:e"; "C4:e";
  "E3:e"; "E3:e"; "Bb3:h"; "-:e"
};

# The riff's first bar, then the lead's answer set into the gap where the B flat would hold
:local lead1 {
  "E3:e"; "E3:e"; "E4:e";
  "E3:e"; "E3:e"; "D4:e"; "E3:e"; "E3:e";
  "B4:q"; "D5:q"; "F#5:q"; "A5:q";
  "F#5:q"; "D5:q"; "B4:h"
};
:local lead2 {
  "E3:e"; "E3:e"; "E4:e";
  "E3:e"; "E3:e"; "D4:e"; "E3:e"; "E3:e";
  "B4:q"; "G4:q"; "E5:q"; "G5:q";
  "B5:q"; "G5:q"; "E5:h"
};

# 1. Riff: twice in full, hard and even
:put "Riff";
:for i from=1 to=2 do={
  :foreach n in=$riff do={ $play $n; }
  :foreach n in=$held do={ $play $n; }
}

# 2. Lead: the riff, then the lead answers in its gap; twice, the answer climbing
:put "Lead";
:foreach n in=$riff do={ $play $n; }
:foreach n in=$lead1 do={ $play $n; }
:foreach n in=$riff do={ $play $n; }
:foreach n in=$lead2 do={ $play $n; }

# 3. Riff again: once more in full, and the gate shuts on the riff's own first cell
:put "Riff again";
:foreach n in=$riff do={ $play $n; }
:foreach n in=$held do={ $play $n; }
:local shut {"E3:e"; "E3:e"; "E4:w"};
:foreach n in=$shut do={ $play $n; }

Note—Freq—Line—

On the router: paste the script into a terminal, or upload the file and run it.

Download the script

Ask for a tune you may arrange: your own, one out of copyright, or one you are licensed to use.

Paste any beeper script into the editor to hear it.

How it works

One command sounds one tone: :beep frequency=<hertz> length=<time>; the beeper plays one note at a time.

:delay is the clock. A beep starts the tone and returns at once, so every note is a beep followed by a delay of the same length and a small gap.

A tune is a script: a note table, a melody as an array, one function that plays a note. Download any of these and run it in a terminal.