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

set spacing for rests in chordlyrics

Browse Source
This commit is contained in:
tux 2024-07-18 23:04:38 +02:00
parent 81a5676965
commit 958efca6aa
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
verses_with_chords.ly
View File

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