Compare commits
1 Commits
78ed5a046b
...
0f41cde5f6
| Author | SHA1 | Date | |
|---|---|---|---|
| 0f41cde5f6 |
@@ -317,7 +317,8 @@ Chord_lyrics_spacing_engraver =
|
|||||||
((chord-name-interface this-engraver grob source-engraver)
|
((chord-name-interface this-engraver grob source-engraver)
|
||||||
(if (not (and
|
(if (not (and
|
||||||
(boolean? (ly:grob-property grob 'begin-of-line-visible))
|
(boolean? (ly:grob-property grob 'begin-of-line-visible))
|
||||||
(ly:grob-property grob 'begin-of-line-visible)))
|
(ly:grob-property grob 'begin-of-line-visible)
|
||||||
|
lyrics-seen-since-break))
|
||||||
(let* ((last-printed-chord-width (if last-printed-chord (interval-length (ly:grob-extent last-printed-chord last-printed-chord X)) 0))
|
(let* ((last-printed-chord-width (if last-printed-chord (interval-length (ly:grob-extent last-printed-chord last-printed-chord X)) 0))
|
||||||
(chord-overwidth (- last-printed-chord-width lyric-width-since-last-chord))
|
(chord-overwidth (- last-printed-chord-width lyric-width-since-last-chord))
|
||||||
(chord-gap 0.5))
|
(chord-gap 0.5))
|
||||||
@@ -339,6 +340,7 @@ Chord_lyrics_spacing_engraver =
|
|||||||
(set! last-printed-chord grob)
|
(set! last-printed-chord grob)
|
||||||
(set! last-lyric-syllable #f)
|
(set! last-lyric-syllable #f)
|
||||||
)
|
)
|
||||||
|
(ly:grob-set-property! grob 'X-extent '(+inf.0 . -inf.0))
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
((stanza-number-interface this-engraver grob source-engraver)
|
((stanza-number-interface this-engraver grob source-engraver)
|
||||||
|
|||||||
Reference in New Issue
Block a user