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