lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Bracketing verses


From: Pierre Perol-Schneider
Subject: Re: Bracketing verses
Date: Wed, 24 Jun 2015 07:47:38 +0200

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 <address@hidden>:
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
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user


reply via email to

[Prev in Thread] Current Thread [Next in Thread]