Am 19.05.2016 um 17:21 schrieb David Wright:
> I printed and processed the pot of coffee for myself, and thought I
> might as well put it into these archives.
>
> I added the overlooked lyric alignment, changed the hyphenation (most
> disappears) and removed the indentation. Ragged right closes up the
> syllables. In any case, I've always printed recitatives ragged so that
> I don't lose my place under pressure.
Great! This does the trick, but I found an issue where I can work
around, but which feels a bit hacky: the bars are only expanded, when
there is a note with text following. Also a \break does not work between
two \balken (I need this because there is a lot of text, which breaks
into more lines).
I figured out to work around it by placing a dummy note with \hide at
the end. But I don't know how to hide the text assigned to the hidden
note, and now filled in the NARROW NO-BREAK SPACE Unicode character.
Bye
Rudi.
\version "2.18.2"
ohr = \markup {
\with-dimensions #'(0 . 0) #'(0 . 0)
\translate #'( 0 . -0.3)
\combine \filled-box #'(-0.3 . +0.3) #'(0 . 0.3) #0 % Naht
\filled-box #'(-0.8 . +0.8) #'(0 . 0.15) #0 % Strich
}
balken = {
\once \override Glissando #'after-line-breaking = #(lambda (grob)
(let* ((left-bound (ly:spanner-bound grob LEFT))
(left-Y (assoc-get 'Y (ly:grob-property grob 'left-bound-info))))
(ly:grob-set-property! left-bound 'stencil #f)
(ly:grob-set-nested-property! grob '(right-bound-info Y) left-Y)))
\once \override Glissando #'thickness = #6
\once \override Glissando #'(bound-details left padding) = #-0.5
\once \override Glissando #'(bound-details right padding) = #1.3
\once \override Glissando #'(bound-details left text) = \markup \rotate #-90 \ohr
\once \override Glissando #'(bound-details right text) = \markup \rotate #90 \ohr
\once \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
\once \override Glissando #'minimum-length = 10
<>\glissando
}
lbalken = {
\once \override Glissando #'after-line-breaking = #(lambda (grob)
(let* ((left-bound (ly:spanner-bound grob LEFT))
(left-Y (assoc-get 'Y (ly:grob-property grob 'left-bound-info))))
(ly:grob-set-property! left-bound 'stencil #f)
(ly:grob-set-nested-property! grob '(right-bound-info Y) left-Y)))
\once \override Glissando #'thickness = #6
\once \override Glissando #'(bound-details left padding) = #-0.5
\once \override Glissando #'(bound-details right padding) = #1.3
\once \override Glissando #'(bound-details left text) = \markup \rotate #-90 \ohr
\once \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
\once \override Glissando #'minimum-length = 10
<>\glissando
}
rbalken = {
\once \override Glissando #'after-line-breaking = #(lambda (grob)
(let* ((left-bound (ly:spanner-bound grob LEFT))
(left-Y (assoc-get 'Y (ly:grob-property grob 'left-bound-info))))
(ly:grob-set-property! left-bound 'stencil #f)
(ly:grob-set-nested-property! grob '(right-bound-info Y) left-Y)))
\once \override Glissando #'thickness = #6
\once \override Glissando #'(bound-details left padding) = #-0.5
\once \override Glissando #'(bound-details right padding) = #1.3
\once \override Glissando #'(bound-details right text) = \markup \rotate #90 \ohr
\once \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
\once \override Glissando #'minimum-length = 10
<>\glissando
}
ll = \lyricmode { \once \override LyricText.self-alignment-X = #LEFT } %%
\score {
<<
\new Staff <<
\new Voice = "Alt"
\relative c' {
\key g \major
\clef treble
\time 1/4
\autoBeamOff
\override Score.SpacingSpanner #'packed-spacing = ##f
\set Score.timing = ##f
d e \lbalken g \hide g \break % The last hidden g makes the \balken and \break work
% the first hidden g makes it possible to bring the key at the start of the line without having
% the key repeated at the end of the prior line.
\hide g \key g \major \rbalken g e g fis e e d~d \break
}
\addlyrics {
Die E -- \ll "pistel dieser Christnacht stehet geschrieben"
"â¯" "â¯" % << There are two NARROW NO-BREAK SPACE (U+202F) hidden here to append text to the hidden gs
\ll "bei Sankt Paulus im Brief an die Philipper" im vier -- ten Ka -- pi -- tel:
}
>>
>>
\midi {
}
\layout {
indent = 0 %%
ragged-right = ##t %%
\context {
\Staff
\remove "Time_signature_engraver"
\remove "Bar_engraver"
\override Stem #'transparent = ##t
\override Flag #'transparent = ##t
\override Beam #'transparent = ##t
} % context
} % layout
}_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
