repair transposition for books

This commit is contained in:
tux
2024-05-25 13:14:14 +02:00
parent bce9ffe763
commit 0199813a81
4 changed files with 29 additions and 20 deletions

View File

@ -1,7 +1,7 @@
% set the speed of the midi music
#(define midiQuarterNoteSpeed (if (defined? 'midiQuarterNoteSpeed) midiQuarterNoteSpeed 90))
MUSIC = { \transposable \MUSIC }
MUSIC = { \transposable #TRANSPOSITION \MUSIC }
verselayout = \layout {
\LAYOUT
@ -11,6 +11,7 @@ verselayout = \layout {
}
}
TEXT = \markuplist {
\override #`(transposition . ,TRANSPOSITION)
\override #`(verselayout . verselayout)
\override #`(verse-chords . ,#{ \chords { \verseChords } #})
\override #`(verse-reference-voice . ,#{ \global \firstVoice #})