2012/3/6 David Kastrup <d...@gnu.org>:
> <URL:http://code.google.com/p/lilypond/issues/detail?id=2380> is fixed,
> so you might want to take a look at modifying the now working \responsum
> again.
% no need to \include "gregotian.ly"
#(define (add-suffix-to-lyrics prefix music)
(let ((found? #f))
(map-some-music
(lambda (m)
(if found? m
(and (music-is-of-type? m 'lyric-event)
(begin
(set! (ly:music-property m 'text)
(string-append (ly:music-property m 'text) prefix))
(set! found? #t)
m))))
music)))
postResponsum =
#(define-music-function (parser location music) (ly:music?)
(add-suffix-to-lyrics "℟." music))
sl = % how to use this?
#(define-music-function (parser location arg) (ly:music?)
#{ \tweak #'self-alignment-X #LEFT \tweak #'X-offset #-0.7 #arg #})
{ c' c' c' c' }
\addlyrics
{
la la la \postResponsum la.
}
% %% END
Unfortunately, this is too different from
http://old.nabble.com/file/p33442122/psalm-fragment.jpg in that the
whole syllable including the suffix is centered at the notehead, and
there is no bold typeface. The hidden note solution from Jakub Pavlík
is better for now.
Do you have a working example of the use of \sl ?
--
Francisco Vila. Badajoz (Spain)
www.paconet.org , www.csmbadajoz.com
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
