ref: 92275f3b95309a13c8e1aa136bb62e7f6ea71458
dir: /piper/notegen/
#!/bin/rc awk ' BEGIN { octave = -1 } /#/ { $1 = tolower($1) sub("#", "") } { split($1, n, "") if(n[2] != octave){ if(octave >= 0) printf " },\n" printf " [%d] = {\n", n[2] } octave = n[2] printf " [''%s''-''A''] = %s,\n", n[1], $2 } END { printf " }\n" } '