Re: markup in lyrics

[Vaughan McAlley]

On 5 October 2011 18:48, Jan-Peter Voigt <address@hidden> wrote:
> Hello list,
>
> for the simple case of italic lyrics, the answer withe override/revert is
> already given. But I just wanted to point out another possibility for more
> complex markups in lyrics:
> In the following snippet I define a function to create music functions, that
> wraps all lyric syllables in another markup. The actual syllable is given in
> a property 'lyric:text, so \markup { \fromproperty #'lyric:text } prints the
> lyrics unmodified. If there are only few places to modify font-shape or
> font-size, I'd recommend the override/revert solution (you still might have
> a function with an \override $mus \revert construct). But if you have
> another markup command, that is not covered by the standard
> LyricText-properties, you can use this function. And you can have a central
> place to define, how all lyrics in places, marked with a special function,
> look like.
>
> Cheers, Jan-Peter
>
> --snip--
> \version "2.14.2"
> % create music-functions to markup lyrics
> #(define-public (define-lyric-markup mup)
>  (define-music-function (parser location lyrics) (ly:music?)
>    (music-map
>      (lambda (m)
>              (begin
>                (if (equal? (ly:music-property m 'name) 'LyricEvent)
>                    (let ((syl (ly:music-property m 'text)))
> ;;; the syllable text is found in property 'lyric:text
>                         (ly:music-set-property! m 'text (markup #:override
> (cons 'lyric:text syl) mup))))
>                m))
>      lyrics)))
>
> % create italic lyrics
> lita = \markup {
>  \italic \fromproperty #'lyric:text
> }
> lyritalic = #(define-lyric-markup lita)
>
> % create a wrapper for lyricsize with parameter
> lyricsize = #(define-music-function (parser location size lyrics) (number?
> ly:music?)
>  (let ((lsf (ly:music-function-extract (define-lyric-markup (markup
> #:fontsize size #:fromproperty 'lyric:text)))))
>       (lsf parser location lyrics))
> )
>
> % create some other markup cmd
> #(define-markup-command (hilite layout props mup)(markup?)
>  "hilite markup"
>  (let* ((wextent (lambda (ext diff) `(,(- (car ext) diff) . ,(+ (cdr ext)
> diff) )))
>         (gob (chain-assoc-get 'edge-round props 0.1))
>         (gauge-stencil (interpret-markup layout props mup))
>         (x-ext (wextent (ly:stencil-extent gauge-stencil X) gob))
>         (y-ext (wextent (ly:stencil-extent gauge-stencil Y) gob))
>         (color (chain-assoc-get 'hilite-color props yellow)))
>        (interpret-markup layout props
>          (markup #:combine #:with-color color #:filled-box x-ext y-ext gob
> #:with-color red mup))))
> % use the new markup command
> lite = \markup {
>  \hilite \fromproperty #'lyric:text
> }
> lyrhilite = #(define-lyric-markup lite)
>
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> %%% example
> \relative c' {
>  e4 a b c b bes a aes g ges f e ees d des c
> } \addlyrics {
>  a \lyritalic { b c } d e \lyricsize #3 { f g h } i j k \lyrhilite { l m n o
> p }
> }
> --snip--
>
>
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
>

Wow, if you could define a function for small caps, you would be my hero!

My first introduction to marking up lyrics was small caps, which I
suspect is “not covered by the standard LyricText-properties”, as far
as I can tell anyway.

Vaughan