2008/11/1 Neil Puttock <[EMAIL PROTECTED]>:
> It saves you having to use cdr to get the value.
Brilliant!!!
%%%%%%%%%%%%%%%%%%%
#(define (make-text-span txt)
"Make a TextSpanner that begins with the given STR."
(let* ((m (make-music 'TextSpanEvent
'span-direction -1))
(details (assoc-get 'bound-details
(assoc-get 'TextSpanner
all-grob-descriptions)))
(left-details (assoc-get 'left
details)))
(ly:music-set-property! m 'tweaks
(acons 'bound-details
(acons 'left
(acons 'text txt
left-details)
details)
(ly:music-property m 'tweaks)))
m))
textSpan=
#(define-music-function (location parser txt) (string?)
(make-text-span txt))
stopText= #(define-music-function (location parser) ()(make-music 'TextSpanEvent
'span-direction 1))
rit = #(make-text-span "rit")
\relative{
c1\rit c c\stopTextSpan
}
%%%%%%%%%%%%%%%%%%%%
Now, still this annoying music-function limitation.
Cheers,
Valentin
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
