Nice work, Pierre! That's a fantastic way to differentiate verses.

- Abraham

On Wed, Jun 24, 2015 at 2:33 PM, RomanticStrings [via Lilypond] <
ml-node+s1069038n178169...@n5.nabble.com> wrote:

> Dear all,
>
> Thank you!  That works beautifully!  I don't quite understand everything
> that just happened, but it looks great!
>
> ~Conor
>
> On Wed, Jun 24, 2015 at 12:48 AM, Schneidy [via Lilypond] <[hidden email]
> <http:///user/SendEmail.jtp?type=node&node=178169&i=0>> wrote:
>
>> 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 <[hidden email]
>> <http:///user/SendEmail.jtp?type=node&node=178135&i=0>>:
>>
>>> 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
>>> [hidden email] <http:///user/SendEmail.jtp?type=node&node=178135&i=1>
>>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>>
>>
>>
>> _______________________________________________
>> lilypond-user mailing list
>> [hidden email] <http:///user/SendEmail.jtp?type=node&node=178135&i=2>
>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>  ~Pierre
>>
>>
>> ------------------------------
>>  If you reply to this email, your message will be added to the
>> discussion below:
>>
>> http://lilypond.1069038.n5.nabble.com/Bracketing-verses-tp178126p178135.html
>>  To unsubscribe from Bracketing verses, click here.
>> NAML
>> <http://lilypond.1069038.n5.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
>>
>
>
>
> ------------------------------
>  If you reply to this email, your message will be added to the discussion
> below:
>
> http://lilypond.1069038.n5.nabble.com/Bracketing-verses-tp178126p178169.html
>  To start a new topic under User, email ml-node+s1069038n...@n5.nabble.com
> To unsubscribe from Lilypond, click here
> <http://lilypond.1069038.n5.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=2&code=dGlzaW1zdC5saWx5cG9uZEBnbWFpbC5jb218Mnw4MzU3Njg3MDU=>
> .
> NAML
> <http://lilypond.1069038.n5.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
>




--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Bracketing-verses-tp178126p178170.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

Reply via email to