2012/11/15 Rustik <r.ala...@mail.ru>:
> Rustik wrote
> I have some problems with this code.
[...]
> There is hyphen before first syllable at system («_lei»), but there is no
> hyphen after this syllable.
> Syllable «lei» in word «eleison» is no first and no final. In means what in
> case of this syllable is first at system, it must have hyphen before and
> after oneself.
Hi Rustik,
with my previous code i wrote two stencil-settings. In some cases the
second will override the first.
The solution seems to be not to create a completely new stencil with
the second setting, but rather add sth new to the first setting.
Try:
\version "2.16.0"
\paper {
ragged-right = ##f
}
strangeLyricHyphens =
\override LyricHyphen #'after-line-breaking =
#(lambda (grob)
(let* ((bound-left (ly:spanner-bound grob LEFT))
(bound-left-stil (ly:grob-property bound-left 'stencil))
(text-left (ly:grob-property bound-left 'text))
(bound-right (ly:spanner-bound grob RIGHT))
(bound-right-stil (ly:grob-property bound-right 'stencil))
(orig (ly:grob-original grob))
(siblings (if (ly:grob? orig)
(ly:spanner-broken-into orig)
'() ))
;; Underscore-markup:
(underscore #{ \markup \override #'(font-name . "Arial") "_" #})
(underscore-stil (grob-interpret-markup grob underscore))
(stil-after-line-break
(ly:stencil-combine-at-edge
bound-right-stil
X LEFT
underscore-stil
0))
(new-text-stil
(ly:stencil-combine-at-edge
bound-left-stil
X RIGHT
underscore-stil
0)))
(ly:grob-set-property! grob 'transparent #t)
(if (not (null? text-left))
(ly:grob-set-property! bound-left 'stencil new-text-stil))
(if (and (>= (length siblings) 2)
(eq? (car (last-pair siblings)) grob))
(ly:grob-set-property! bound-right 'stencil stil-after-line-break))))
lyr = \lyricmode {
Cy -- ri -- e e -- lei -- son,
Cy -- rie e -- lei -- son.
}
<<
\new Voice = "mel" \relative c' {
c d c d c d c2 \break
d4 c d c
}
\new Lyrics \lyricsto "mel" \lyr
>>
<<
\new Voice = "mel-2" \relative c' {
c d c d \break
c d c2
d4 c d c
}
\new Lyrics \lyricsto "mel-2" \lyr
>>
\new Lyrics \lyr
\layout {
\context {
\Lyrics
\strangeLyricHyphens
\override LyricText #'font-name = #"Times New Roman"
}
}
HTH,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
