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

improve spacing of chordlyrics

Browse Source
This commit is contained in:
tux 2024-06-30 19:02:12 +02:00
parent bab581042a
commit 09d3bb7fa1
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
chord_settings.ly
View File

@ -98,15 +98,6 @@ generalLayout = \layout {
}
}
#(define-public (custom-lyric-text::print grob)
"Allow interpretation of tildes as lyric tieing marks."
;; See also similar code in Lyric_performer.
(let ((text (ly:grob-property grob 'text)))
(grob-interpret-markup grob (if (string? text)
(make-pad-right-markup -0.1 (make-tied-lyric-markup text))
text))))
% Akkord mit Bunddiagramm anzeigen
#(define-markup-command (fret-chord layout props fret chord) (string? string?)
(interpret-markup layout props

15
verses_with_chords.ly
View File

@ -227,9 +227,18 @@
#:properties ((baseline-skip))
(stack-stencils Y DOWN baseline-skip
(map
(lambda (line) (ly:make-stencil (ly:stencil-expr line) (ly:stencil-extent line X) `(0 . ,reference-height)))
(lambda (line) (ly:make-stencil (ly:stencil-expr line) (ly:stencil-extent line X) `(,(/ reference-height -2.0) . ,(/ reference-height 2.0))))
(interpret-markup-list layout props lines))))
#(define-public (custom-lyric-text::print grob)
"Allow interpretation of tildes as lyric tieing marks."
;; See also similar code in Lyric_performer.
(let ((text (ly:grob-property grob 'text)))
(grob-interpret-markup grob (if (string? text)
(make-pad-right-markup -0.1 (make-tied-lyric-markup text))
text))))
#(define-markup-command (chordlyrics layout props lyrics) (ly:music?)
#:properties ((verse-chords #{#})
(verse-reference-voice #{#})
@ -244,7 +253,7 @@
#{
\markup {
\override #`(baseline-skip . ,intraverse-vspace)
\pad-left #-5
\pad-left #-7
\score-equal-height #verse-line-height \score-lines {
\transposable #transposition
<<
@ -257,7 +266,7 @@
\verselayout
\context {
\Staff
\override LeftEdge.space-alist.first-note = #'(fixed-space . 5.0)
\override LeftEdge.space-alist.first-note = #'(fixed-space . 7.0)
}
\context {
\Lyrics