2012/11/27 David Kastrup <d...@gnu.org>: > Probably try something like > > #(define (text-spanner-start-stop mus) > (let ((elts (extract-typed-music mus 'rhythmic-event))) > (for-each > (lambda (sel) > (let ((m (sel elts))) > (set! (ly:music-property m 'articulations) > (cons (make-music 'TextSpanEvent > 'span-direction (sel '(-1 1))) > (ly:music-property m 'articulations))))) > (list last first))) > mus)
Thanks a lot. Works fine. I'll update the LSR-snippet following your suggestion. -Harm _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
