set spacing for rests in chordlyrics

This commit is contained in:
tux 2024-07-18 23:04:38 +02:00
parent 81a5676965
commit 958efca6aa

View File

@ -253,21 +253,17 @@
#{
\markup {
\override #`(baseline-skip . ,intraverse-vspace)
\pad-left #-7
\score-equal-height #verse-line-height \score-lines {
\transposable #transposition
<<
\new Devnull { #verse-break-voice }
\new NullVoice = "dummyvoice" { #verse-reference-voice }
#(music-clone verse-chords)
\new NullVoice { #verse-reference-voice }
\addlyrics { #lyrics }
\new Lyrics \lyricsto "dummyvoice" { #lyrics }
>>
\layout {
\verselayout
\context {
\Staff
\override LeftEdge.space-alist.first-note = #'(fixed-space . 7.0)
}
ragged-right = ##t
\context {
\Lyrics
\override VerticalAxisGroup.nonstaff-relatedstaff-spacing.basic-distance = #verse-text-chord-distance
@ -277,9 +273,15 @@
\override LyricSpace.minimum-distance = 0.8
\override LyricText.stencil = #custom-lyric-text::print
}
\context {
\ChordNames
\override VerticalAxisGroup.staff-affinity = ##f
\override ChordName.extra-spacing-width = #'(-0.1 . 0.1)
}
\context {
\Score
\override PaperColumn.keep-inside-line = ##f
% \override SpacingSpanner.strict-note-spacing = ##t
\override SpacingSpanner.uniform-stretching = ##t
\override SpacingSpanner.spacing-increment = 0
\remove Bar_number_engraver
@ -292,6 +294,8 @@
\remove Staff_symbol_engraver
\remove Clef_engraver
\remove Time_signature_engraver
\remove Bar_engraver
\remove Separating_line_group_engraver
\omit KeySignature
\omit KeyCancellation
}
@ -306,6 +310,13 @@
\remove Dynamic_engraver
\remove Note_heads_engraver
}
\context {
\NullVoice
\consists Rest_engraver
\omit Rest
% \undo \omit NoteHead
% \hide NoteHead
}
}
}
}