\transpose not work working inside define-music-function

[John Smith]

I'm trying to define a music function that transposes a chord and a melody multiple times.  But for some reason, the transposition is done only once.

 

Here's my attempt:

 

repeatpattern =
#(define-music-function (parser location chord pattern) (ly:music? 
ly:music?)
  #{
  <<
  \new ChordNames {
    \transpose c d { #chord }
    \transpose c e { #chord }
  }
  \new Staff {
    \transpose c d { #pattern }
    \transpose c e { #pattern }
  }
  >>
  #})

 

\score {
  \repeatpattern { c1 } { c'4 d' e' r }
}

 

Any ideas for why this is not working and how to fix it? (i.e., it 
should transpose "c d e" into "d e f#" and "e f# g#", not into "f# g# 
a#").

 

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user