|
From: | Thomas Morley |
Subject: | Re: review of a Mutopia file (why TabStaff gives error here?) |
Date: | Tue, 27 Nov 2012 23:30:33 +0100 |
2012/11/27 David Kastrup <address@hidden>: > 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
[Prev in Thread] | Current Thread | [Next in Thread] |