ref: a85496cea4c5c62a2038b1b488f541e9030ff379
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" } '