Equal Temperament by pooq

a=261.62565
do i=1 to 12
say left(word("C C# D D# E F F# G G# A A# B",i),6)format(a,,3)
a=a*1.059463
end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page