Re: Bracketing verses

[Pierre Perol-Schneider]

Hi,

Using Harm's link and Simon markup:

\version "2.18.2"

% After:  http://lsr.dsi.unimi.it/LSR/Item?id=641
%%
http://lilypond.1069038.n5.nabble.com/Different-markups-for-odd-and-even-lyrics-lines-stanzas-td58072.html

#(define (lyricswitch context)
  (let ((cnt 0))
    (make-engraver
     (listeners
      ((AnnounceNewContext translator ev)
       (if (eq? (ly:context-name (ly:event-property ev 'context)) 'Lyrics)
           (begin
             (set! cnt (1+ cnt))
             (if (even? cnt)
              (ly:context-mod-apply! (ly:event-property ev 'context)
               #{
                 \with {
                \override StanzaNumber.font-series = #'medium
                \override LyricText.font-shape = #'italic
                \override LyricText.color = #(x11-color 'grey20)
                \override VerticalAxisGroup.nonstaff-nonstaff-spacing =
                       #'((basic-distance . 0)
                          (minimum-distance . 5)  ;; <================ more
lower space
                          (padding . 0.2)
                          (stretchability . 0))
                 }
              #})))))))))

%% Implement an alternate lyric context
myLayout =
\layout {
        \context {
        \Lyrics
        \override LyricText.font-size = #-1
        }
        \context {
        \Score
                \consists #lyricswitch
        }

        \context {
        \StaffGroup
                \consists #lyricswitch
        }

        \context {
        \ChoirStaff
                \consists #lyricswitch
        }

}

%%%%%%%%%%%% test %%%%%%%%%%%%%%%%%%%

mus = \relative c' \repeat unfold 3 { c4 c c c\break }

lyrOne = {
        \set stanza = \markup {
          \translate #'(0 . -.7)
          \with-dimensions #'(0 . 0) #'(0 . 0)
          \left-brace #22
          1.
        }
        \lyricmode {
        \repeat unfold 2 { bla -- bla -- bla -- bla -- }
        bla -- bla -- bla -- bla
        }
}

lyrTwo = {
        \set stanza = "1."
        \lyricmode {
        \repeat unfold 2 { blub -- blub -- blub -- blub -- }
        blub -- blub -- blub -- blub
        }
}

lyrThree = {
        \set stanza = \markup {
          \translate #'(0 . -.7)
          \with-dimensions #'(0 . 0) #'(0 . 0)
          \left-brace #22
          2.
        }
        \lyricmode {
        \repeat unfold 2 { foo -- foo -- foo -- foo -- }
        foo -- foo -- foo -- foo
        }
}

lyrFour = {
        \set stanza = "2."
        \lyricmode {
        \repeat unfold 2 { bla -- bla -- bla -- bla -- }
        bla -- bla -- bla -- bla
        }
}

lyrFive = {
        \set stanza = \markup {
          \translate #'(0 . -.7)
          \with-dimensions #'(0 . 0) #'(0 . 0)
          \left-brace #22
          3.
        }
        \lyricmode {
        \repeat unfold 2 { blub -- blub -- blub -- blub -- }
        blub -- blub -- blub -- blub
        }
}

lyrSix = {
        \set stanza = "3."
        \lyricmode {
        \repeat unfold 2 { foo -- foo -- foo -- foo -- }
        foo -- foo -- foo -- foo
        }
}

\score {
        <<
          \new Staff <<
            \new Voice = "mus" \mus
            \new Lyrics \lyricsto "mus" \lyrOne
            \new Lyrics \lyricsto "mus" \lyrTwo
            \new Lyrics \lyricsto "mus" \lyrThree
            \new Lyrics \lyricsto "mus" \lyrFour
            \new Lyrics \lyricsto "mus" \lyrFive
            \new Lyrics \lyricsto "mus" \lyrSix
          >>
          \new PianoStaff <<
            \new Staff { \repeat unfold 12 c' }
            \new Staff { \clef F \repeat unfold 12 c }
          >>
        >>
        \layout { \myLayout }
}

Cheers,
Pierre

2015-06-23 23:39 GMT+02:00 RomanticStrings <conor.p.c...@gmail.com>:

> Thank you, Simon.  It does indeed create a bracket to the left of the
> verse.
> It creates a space below the top verse, however, as well.  Is there any way
> to prevent that?
>
>
>
> --
> View this message in context:
> http://lilypond.1069038.n5.nabble.com/Bracketing-verses-tp178126p178131.html
> Sent from the User mailing list archive at Nabble.com.
>
> _______________________________________________
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user