Oh goodness, something heinous happened to the formatting there. Let me try
that again.
k = "ERROR"
test = #(define-music-function (parser location music) (ly:music?)
#{
\applyContext
#(lambda (context)
(set! k (ly:context-property context 'tonic))
(display k)
)
\transpose #(ly:make-pitch 0 0) #k #music
#}
)
\score {
\new Staff {
\key a \major
\test { Fa So La fa so }
}
}
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
