This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Convert the note on/off events to frequency/duration pair | |
# 1. Create the midi notes2frequency table. Tuning is based upon A=440 | |
my $a = 440; # a is 440 hz... | |
my @midi; | |
for($x = 0; $x < 127; ++$x) | |
{ | |
$midi[$x] = ($a / 32) * (2 ** (($x - 9) / 12)); | |
} | |
# 2. Parse the channel events |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import random | |
import sys | |
import argparse | |
#Characters | |
superscript = [ | |
"\u030d", "\u030e", "\u0304", "\u0305", "\u033f", | |
"\u0311", "\u0306", "\u0310", "\u0352", "\u0357", | |
"\u0351", "\u0307", "\u0308", "\u030a", "\u0342", | |
"\u0343", "\u0344", "\u034a", "\u034b", "\u034c", |
NewerOlder