2023-07-22 22:07:57 +02:00
|
|
|
% set the speed of the midi music
|
|
|
|
#(define midiQuarterNoteSpeed (if (defined? 'midiQuarterNoteSpeed) midiQuarterNoteSpeed 90))
|
|
|
|
|
2024-05-25 13:14:14 +02:00
|
|
|
MUSIC = { \transposable #TRANSPOSITION \MUSIC }
|
2023-08-07 16:24:43 +02:00
|
|
|
|
2023-10-29 16:25:15 +01:00
|
|
|
verselayout = \layout {
|
|
|
|
\LAYOUT
|
|
|
|
\context {
|
|
|
|
\ChordNames
|
|
|
|
\override ChordName.font-size = \songTextChordFontSize
|
|
|
|
}
|
|
|
|
}
|
2024-05-22 22:38:02 +02:00
|
|
|
TEXT = \markuplist {
|
2024-05-25 13:14:14 +02:00
|
|
|
\override #`(transposition . ,TRANSPOSITION)
|
2024-05-25 17:28:02 +02:00
|
|
|
\override #`(verselayout . ,verselayout)
|
2024-05-22 22:38:02 +02:00
|
|
|
\override #`(verse-chords . ,#{ \chords { \verseChords } #})
|
|
|
|
\override #`(verse-reference-voice . ,#{ \global \firstVoice #})
|
|
|
|
\TEXT
|
|
|
|
}
|
2023-10-29 16:25:15 +01:00
|
|
|
|
2024-11-26 18:02:09 +01:00
|
|
|
#(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 #{
|
2023-07-22 22:07:57 +02:00
|
|
|
\score {
|
|
|
|
\MUSIC
|
|
|
|
\layout { \LAYOUT }
|
2024-11-26 18:02:09 +01:00
|
|
|
}#})
|
|
|
|
(add-score TEXT)
|
|
|
|
(add-score #{
|
2023-07-22 22:07:57 +02:00
|
|
|
\score {
|
2023-08-07 19:11:29 +02:00
|
|
|
\unfoldRepeats { \MUSIC \INLINESCOREMUSIC }
|
2023-07-22 22:07:57 +02:00
|
|
|
\midi {
|
|
|
|
\context {
|
|
|
|
\Score
|
|
|
|
% Tempo des midi files
|
|
|
|
tempoWholesPerMinute = #(ly:make-moment midiQuarterNoteSpeed 4)
|
|
|
|
}
|
|
|
|
}
|
2024-11-26 18:02:09 +01:00
|
|
|
}#})
|
|
|
|
))
|