|
From: | tisimst |
Subject: | Re: Bracketing verses |
Date: | Wed, 24 Jun 2015 14:25:39 -0700 (MST) |
Dear all,Thank you! That works beautifully! I don't quite understand everything that just happened, but it looks great!~ConorOn Wed, Jun 24, 2015 at 12:48 AM, Schneidy [via Lilypond] <[hidden email]> wrote: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
If you reply to this email, your message will be added to the discussion below:http://lilypond.1069038.n5.nabble.com/Bracketing-verses-tp178126p178169.htmlTo start a new topic under User, email [hidden email]
To unsubscribe from Lilypond, click here.
NAML
[Prev in Thread] | Current Thread | [Next in Thread] |