boernel/lilypond-common-includes
10
0
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

fix verse-chord multiple transpose problem

Browse Source
This commit is contained in:
Christoph Wagner 2024-05-12 16:13:56 +02:00
parent 8c7386807b
commit 199f515be9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
verses_with_chords.ly
View File

@ -232,12 +232,12 @@
#{ #{
\markup { \markup {
\override #`(baseline-skip . ,intraverse-vspace) \override #`(baseline-skip . ,intraverse-vspace)
\pad-left #-10 \pad-left #-5
\score-equal-height #verse-line-height \score-lines { \score-equal-height #verse-line-height \score-lines {
\transposable \transposable
<< <<
\new Devnull { #(if (ly:music? verse-break-voice) verse-break-voice) } \new Devnull { #(if (ly:music? verse-break-voice) verse-break-voice) }
#(if (ly:music? verse-chords) verse-chords #{ \chords { \verseChords } #}) #(if (ly:music? verse-chords) (music-clone verse-chords) #{ \chords { \verseChords } #})
\new NullVoice { #(if (ly:music? verse-reference-voice) verse-reference-voice #{ \global \firstVoice #}) } \new NullVoice { #(if (ly:music? verse-reference-voice) verse-reference-voice #{ \global \firstVoice #}) }
\addlyrics { #lyrics } \addlyrics { #lyrics }
>> >>
@ -245,7 +245,7 @@
\lyricsWithChordsLayout \lyricsWithChordsLayout
\context { \context {
\Staff \Staff
\override LeftEdge.space-alist.first-note = #'(fixed-space . 10.0) \override LeftEdge.space-alist.first-note = #'(fixed-space . 5.0)
} }
} }
} }