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

Compare commits

base: boernel:410b8b4b4f36e51fba02709908cd1c84f450b2b7
Branches Tags
boernel:main boernel:chord-spacing-experimental boernel:tocSubtitleText-Variable
..
compare: boernel:2d14a5b632a89850f5237cef46d839fecad0048b
Branches Tags
boernel:main boernel:chord-spacing-experimental boernel:tocSubtitleText-Variable

1 Commits
410b8b4b4f ... 2d14a5b632

Author SHA1 Message Date
tux
2d14a5b632 new engraver for spacing in chordlyrics 2025-12-15 21:41:45 +01:00
1 changed files with 4 additions and 3 deletions
Expand all files Collapse all files

7
private_includes/base/verses_with_chords.ily
View File

@@ -302,9 +302,10 @@ Chord_lyrics_spacing_engraver =
(ly:grob-set-property! grob 'extra-spacing-width (ly:grob-set-property! grob 'extra-spacing-width
(cons (- chord-width-since-last-lyric) (cdr (ly:grob-property grob 'extra-spacing-width '(0 . 0))))) (cons (- chord-width-since-last-lyric) (cdr (ly:grob-property grob 'extra-spacing-width '(0 . 0)))))
(if last-printed-chord (if last-printed-chord
(begin (let ((gap-for-starting-rest 2.0))
(if stanza (ly:grob-set-property! stanza 'padding chord-width-since-last-lyric)) (if stanza (ly:grob-set-property! stanza 'padding (+ 1 gap-for-starting-rest)))
(place-at-right-edge grob last-printed-chord 0) (ly:grob-set-parent! grob X last-printed-chord)
(ly:grob-set-property! grob 'X-offset gap-for-starting-rest)
))) )))
) )
(set! last-lyric-syllable grob) (set! last-lyric-syllable grob)