Kieren MacMillan <kieren_macmillan <at> sympatico.ca> writes:
>
> Hello all,
>
> Is the fontsize of the lyric tie glyph user-settable?
> [v2.13, if it matters...]
>
> Thanks,
> Kieren.
>
I don't see any simple way, but you can copy the default (mostly in
define-markup-commands.scm), tweak it to suit, and override the
LyricText stencil.
The important bit here is the definition of tie-markup. As an example
I used "tiny," but you could do whatever you want.
\version "2.12.0"
\include "english.ly"
#(define-markup-command (my-tied-lyric layout props str)
(string?)
"Like the builtin tied-lyric, with a smaller tie"
(if (string-contains str "~")
(let*
((parts (string-split str #\~))
(tie-str (ly:wide-char->utf-8 #x203f))
(tie-markup (markup #:tiny tie-str))
(joined (list-join parts tie-markup))
(join-stencil (interpret-markup layout props tie-markup))
)
(interpret-markup layout
(prepend-alist-chain
'word-space
(/ (interval-length (ly:stencil-extent join-stencil
X)) -3.5)
props)
(make-line-markup joined)))
(interpret-markup layout props str)))
#(define (my-lyric-print grob)
"Like the usual lyric print function, except with a smaller tie symbol"
(let*
((text (ly:grob-property grob 'text))
(layout (ly:grob-layout grob))
(defs (ly:output-def-lookup layout 'text-font-defaults))
(props (ly:grob-alist-chain grob defs)))
(interpret-markup layout
props
(if (string? text)
(markup #:my-tied-lyric text)
text))))
\score
{
\new Voice
{
c'1 c'1
}
\addlyrics
{
A~tie
\override LyricText #'stencil = #my-lyric-print
A~tie
}
}
Hope this helps,
Michael
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
