Nach jedem Score ein \markup einfügen (scorify-music anwenden) - geht das? (gelöst)

[Manuela]

Ich habe ab und zu den Fall, dass ich nach jedem Score einen Text einfügen möchte. Mit scorify-music geht das natürlich nicht, weil das \markup kein musikalischer Ausdruck ist.

Gibt es eine elegante Möglichkeit? Der Text ist im Code auskommentiert, weil er einen Fehler verursacht.

Code Auswählen Erweitern

\version "2.25.80"

mus = \relative {
  c''4 c c c
}

meintext = "Hier ein beliebiger Text"

\paper {

  tagline = ##f
}

meinscore =
%Musikfunktion für transponierbaren Score
#(define-music-function (m p)
   (ly:music? ly:pitch?)
   #{
     <<
       \new PianoStaff
       <<
         \new Staff="up"
         <<
           \new Voice
           {
             \voiceOne
             \key $p \major
             \transpose c $p $m
           }
           \new Voice
           {
             \voiceTwo
             \transpose c' $p $m
           }
         >>
         \new Staff="down"
         <<
           \new Voice
           {
             \clef bass
             \voiceOne
             \key $p \major
             \transpose c' $p $m
           }
           \new Voice
           {
             \voiceTwo
             \transpose c'' $p $m
           }
         >>
       >>
     >>
   #}
   )

\bookpart {
  #(for-each
    (lambda (p)
      (add-score
       (scorify-music #{
         {
           \meinscore \mus
           $p
         }
         %\markup \meintext
                      #} )))
    (music-pitches #{
      {
        c f e
                   } #}
                   ))
}

[harm6]

Code Auswählen Erweitern

\version "2.25.80"

mus = \relative {
  c''4 c c c
}

meintext = "Hier ein beliebiger Text"

\paper {
  tagline = ##f
}

meinscore =
%Musikfunktion für transponierbaren Score
#(define-music-function (m p)
   (ly:music? ly:pitch?)
   #{
     <<
       \new PianoStaff
       <<
         \new Staff="up"
         <<
           \new Voice
           {
             \voiceOne
             \key $p \major
             \transpose c $p $m
           }
           \new Voice
           {
             \voiceTwo
             \transpose c' $p $m
           }
         >>
         \new Staff="down"
         <<
           \new Voice
           {
             \clef bass
             \voiceOne
             \key $p \major
             \transpose c' $p $m
           }
           \new Voice
           {
             \voiceTwo
             \transpose c'' $p $m
           }
         >>
       >>
     >>
   #}
   )

\bookpart {
  #(for-each
    (lambda (p)
      (add-score
        (scorify-music (meinscore mus p)))
      (when (and (defined? 'meintext) (markup? meintext))
        (add-text meintext)))
    (music-pitches #{ { c f e } #}))
}

HTH,
  Harm

[Manuela]

Harm, vielen vielen Dank. Wenn es ein Smiley für eine ganz tiefe Verbeugung gäbe, würde ich es jetzt einfügen.