ref: a6875be771d0b79f59abe6529231d294094b4a23
dir: /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" } '