Compare commits
1 Commits
0f41cde5f6
...
393f2bdadc
| Author | SHA1 | Date | |
|---|---|---|---|
| 393f2bdadc |
@@ -256,7 +256,6 @@
|
||||
Chord_lyrics_spacing_engraver =
|
||||
#(lambda (ctx)
|
||||
(let ((last-lyric-syllable #f)
|
||||
(last-lyric-syllable-width 0)
|
||||
(lyric-width-since-last-chord 0)
|
||||
(music-columns-for-last-syllable 0)
|
||||
(last-printed-chord #f)
|
||||
@@ -284,7 +283,6 @@ Chord_lyrics_spacing_engraver =
|
||||
)
|
||||
((break-event engraver event)
|
||||
(set! last-lyric-syllable #f)
|
||||
(set! last-lyric-syllable-width 0)
|
||||
(set! lyric-width-since-last-chord 0)
|
||||
(set! music-columns-for-last-syllable 0)
|
||||
(set! last-printed-chord #f)
|
||||
@@ -298,7 +296,6 @@ Chord_lyrics_spacing_engraver =
|
||||
((lyric-syllable-interface this-engraver grob source-engraver)
|
||||
(let ((syllable-width (interval-length (ly:grob-extent grob grob X))))
|
||||
(set! lyric-width-since-last-chord (+ lyric-width-since-last-chord syllable-width))
|
||||
(set! last-lyric-syllable-width syllable-width)
|
||||
)
|
||||
(if (> chord-width-since-last-lyric 0)
|
||||
(if lyrics-seen-since-break
|
||||
|
||||
Reference in New Issue
Block a user