Hi David (et al.),
>> Is the built-in** lyric tie/elision tweakable?
> There's no LyricTie grob, so no convenient way to tweak it. You
> could modify "tied-lyric" in scm/define-markup-commands.scm, since
> that's what's engaged with the tilde.
I manually tweaked that function (see snippet, below), by adding an #:hspace
-1.25 and #:hspace -1 as “[negative] padding”. The default gives
while the tweaked version gives the far more pleasing
But I can’t seem to figure out how to add left-pad and right-pad as properties
(with default 0) — I keep getting “unbound variable” errors. If anyone could
help, I’d appreciate it.
Thanks,
Kieren.
%%% SNIPPET BEGINS
(define-markup-command (tied-lyric layout props str)
(string?)
#:category music
#:properties ((word-space))
"
@cindex simple text strings with tie characters
Like simple-markup, but use tie characters for @q{~} tilde symbols.
@lilypond[verbatim,quote]
\\markup \\column {
\\tied-lyric #\"Siam navi~all'onde~algenti Lasciate~in abbandono\"
\\tied-lyric #\"Impetuosi venti I nostri~affetti sono\"
\\tied-lyric #\"Ogni diletto~e scoglio Tutta la vita~e~un mar.\"
}
@end lilypond"
(define (replace-ties tie str)
(if (string-contains str "~")
(let*
((half-space (/ word-space 2))
(parts (string-split str #\~))
(tie-str (markup #:hspace half-space #:hspace -1.25
#:musicglyph tie
#:hspace half-space #:hspace -1))
(joined (list-join parts tie-str)))
(make-concat-markup joined))
str))
(define short-tie-regexp (make-regexp "~[^.]~"))
(define (match-short str) (regexp-exec short-tie-regexp str))
(define (replace-short str mkp)
(let ((match (match-short str)))
(if (not match)
(make-concat-markup (list
mkp
(replace-ties "ties.lyric.default" str)))
(let ((new-str (match:suffix match))
(new-mkp (make-concat-markup (list
mkp
(replace-ties "ties.lyric.default"
(match:prefix
match))
(replace-ties "ties.lyric.short"
(match:substring
match))))))
(replace-short new-str new-mkp)))))
(interpret-markup layout
props
(replace-short str (markup))))
%%%% SNIPPET ENDS
________________________________
Kieren MacMillan, composer
‣ website: www.kierenmacmillan.info <http://www.kierenmacmillan.info/>
‣ email: [email protected] <mailto:[email protected]>
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
