tux
d94703547c
* compatibilty to Liederbuchgenerator * apply standalone output directly to top level not wrapped in a book
44 lines
1.1 KiB
Plaintext
44 lines
1.1 KiB
Plaintext
% set the speed of the midi music
|
|
#(define midiQuarterNoteSpeed (if (defined? 'midiQuarterNoteSpeed) midiQuarterNoteSpeed 90))
|
|
|
|
MUSIC = { \transposable #TRANSPOSITION \MUSIC }
|
|
|
|
verselayout = \layout {
|
|
\LAYOUT
|
|
\context {
|
|
\ChordNames
|
|
\override ChordName.font-size = \songTextChordFontSize
|
|
}
|
|
}
|
|
TEXT = \markuplist {
|
|
\override #`(transposition . ,TRANSPOSITION)
|
|
\override #`(verselayout . ,verselayout)
|
|
\override #`(verse-chords . ,#{ \chords { \verseChords } #})
|
|
\override #`(verse-reference-voice . ,#{ \global \firstVoice #})
|
|
\TEXT
|
|
}
|
|
|
|
#(if (not noStandaloneOutput)
|
|
(begin
|
|
(let ((header (ly:book-header HEADER)) (paper (ly:book-paper HEADER)))
|
|
(if header (set! $defaultheader header))
|
|
(if paper (set! $defaultpaper paper))
|
|
)
|
|
(add-score #{
|
|
\score {
|
|
\MUSIC
|
|
\layout { \LAYOUT }
|
|
}#})
|
|
(add-score TEXT)
|
|
(add-score #{
|
|
\score {
|
|
\unfoldRepeats { \MUSIC \INLINESCOREMUSIC }
|
|
\midi {
|
|
\context {
|
|
\Score
|
|
% Tempo des midi files
|
|
tempoWholesPerMinute = #(ly:make-moment midiQuarterNoteSpeed 4)
|
|
}
|
|
}
|
|
}#})
|
|
)) |