%% http://lsr.di.unimi.it/LSR/Item?id=724 % by David Kastrup (Feb. 2014) autoChangeWithPitch = #(define-music-function (ref music) ((ly:pitch?) ly:music?) (let ((mus (make-autochange-music (if ref #{ \transpose $ref c' $music #} music)))) (set! (ly:music-property mus 'element) music) mus)) \context PianoStaff << \context Staff = "up" { \autoChangeWithPitch a \new Voice << \relative c' { g4 c e d c r4 a g } >> } \context Staff = "down" { \clef bass s1*2 } >>