On Fri, May 1, 2015 at 7:48 AM, David Nalesnik <david.nales...@gmail.com>
wrote:
test =
> #(define-music-function (parser location music) (ly:music?)
> (let ((k "ERROR"))
> #{
>
> \applyContext
>
> #(lambda (context)
>
> (set! k (ly:context-property context 'tonic))
>
> (display k)
>
> )
>
> \transpose #(ly:make-pitch 0 0) #k #music
>
\transpose c #k #music
> #(display k)
> #(newline)
> #}
>
> ))
>
> \score {
>
> \new Staff {
>
> \key a \major
> \test { a b cis d e }
>
> }
>
> }
>
>
DN
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
