Hello Harm! Thank you so much it works neat! I've integrated that code to my .ily file that is attached here (without some of the tweaks from the original .ily included in the font distribution to avoid copyright issues with the font developer) so you can see how's my font implementation then I simply call it in my score using \include "[...].ily"
You'll notice I tweaked a bit the size of the tie character triying to
match lilypond's default output.
It seems odd to me you've mentioned a little x instead of the
lyrics.tie.default character when using \char ##xe196 you'll see in the
other attachment I obtain my desired output using that code. (Cuerpo‿y)
I'm going to adventure myself further away from my original question but
here I go: sometimes even in default output (using emmentaler and lyrics
default font) lyrics.tie.default character seems to colide (for example in
that same "Cuerpo~y" attached ) so looking at your code and documentation
seems to exist lyrics.tie.short I guess to avoid this, but I can't figure
it out on how to use it, perharps you or someone other reading can enlight
me with this.
Thanks again!
El sáb., 15 ago. 2020 a las 13:49, Thomas Morley (<thomasmorle...@gmail.com>)
escribió:
> Am Fr., 14. Aug. 2020 um 16:10 Uhr schrieb Fernando Gil <
> fernando...@gmail.com>:
> >
> > Hello to everyone, I'm struggled with the lyrics tie character when
> using an alternate font from Music Type Foundry.
> >
> > Since lilypond uses character from the music font, when using an
> alternate font with the character missing, it doesn't show.
> >
> > I have a workaround that goes like this:
> >
> > Cuer -- \markup {po\hspace #-0.3 \override #'(font-name .
> "emmentaler-20") \char ##xe196 \hspace #-0.3 y}
> >
> > But when transcribing 8 stanzas there's certainly much better to use the
> simplicity of "~" (i.e. Cuer -- po~y) rather than my workaround.
> >
> > I imagine there's a chance to achieve what I'm looking with a cleaner
> way but have no clue where to start. Hope you can help me. Thanks in
> advance.
>
> Hi Fernando,
>
> I can't reproduce your problem, because you didn't tell us how you
> used music-fonts in which way etc.
> Trying to make any sense of your example I come to
> \new Lyrics \lyricmode {
> Cuer -- \markup { po\hspace #-0.3 \override #'(font-name .
> "emmentaler-20") \char ##xe196 \hspace #-0.3 y
> }
> }
>
> Which always returns a small "x" instead of the tie.
>
> Ofcourse this small "x" can be done automatically:
>
> #(define-markup-command (my-tied-lyric layout props str)
> (string?)
> #:category music
> #:properties ((word-space))
> "
> @cindex simple text string, 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 (make-line-markup
> (list
> (make-hspace-markup half-space)
> tie
> (make-hspace-markup half-space))))
> (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))
> (my-tie
> #{
> \markup {
> \override #'(font-name . "emmentaler-20")
> \char ##xe196
> }
> #}))
> (if (not match)
> (make-concat-markup (list
> mkp
> (replace-ties
> my-tie ;"ties.lyric.default"
> str)))
> (let ((new-str (match:suffix match))
> (new-mkp (make-concat-markup (list
> mkp
> (replace-ties
> my-tie
> ;"ties.lyric.default"
> (match:prefix match))
> (replace-ties
> my-tie ;"ties.lyric.short"
> (match:substring
> match))))))
> (replace-short new-str new-mkp)))))
>
> (interpret-markup layout
> props
> (replace-short str (markup))))
>
> #(define-public (my-lyric-text::print grob)
> "Allow interpretation of tildes as lyric tieing marks."
>
> (let ((text (ly:grob-property grob 'text)))
>
> (grob-interpret-markup grob (if (string? text)
> (make-my-tied-lyric-markup text)
> text))))
>
> \new Lyrics \lyricmode {
> \override LyricText.stencil = #my-lyric-text::print
> Cuer -- po~y
> }
>
> Alas, I've no idea if it's close to your wishes at all...
>
>
> Cheers,
> Harm
>
CustomLyricTies.ily
Description: Binary data
