|
From: | RomanticStrings |
Subject: | Re: Bracketing verses |
Date: | Wed, 24 Jun 2015 13:33:05 -0700 (MST) |
PierreCheers,Hi,Using Harm's link and Simon markup:\set stanza = \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 = {
\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 }
}2015-06-23 23:39 GMT+02:00 RomanticStrings <[hidden email]>: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]
https://lists.gnu.org/mailman/listinfo/lilypond-user
_______________________________________________
lilypond-user mailing list
[hidden email]
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
[Prev in Thread] | Current Thread | [Next in Thread] |