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.
\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
} #}
))
}
\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
Harm, vielen vielen Dank. Wenn es ein Smiley für eine ganz tiefe Verbeugung gäbe, würde ich es jetzt einfügen.