add dottedExtender

This commit is contained in:
Christoph Wagner 2025-03-24 19:35:33 +01:00
parent 04a01d3b3f
commit 2b55925fe1

View File

@ -193,4 +193,19 @@ updown =
\tag #'up { \markup { #(string-capitalize word) } }
\tag #'down { \markup { #(string-downcase word) } }
}
#})
#})
dottedExtender = {
\override LyricExtender.style = #'dotted-line
\override LyricExtender.thickness = 2
\override LyricExtender.Y-offset = 0.1
\override LyricExtender.stencil =
#(lambda (grob)
(let* ((stil (ly:lyric-extender::print grob))
(x-ext (ly:stencil-extent stil X)))
(make-connected-line
(list
(cons (car x-ext) 0)
(cons (cdr x-ext) 0))
grob)))
}