Re: review of a Mutopia file (why TabStaff gives error here?)

[Thomas Morley]

2012/11/27 Nick Payne <address@hidden>:
> On 27/11/12 11:52, David Kastrup wrote:
>>
>> #(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. Substituting that works well except when \repeat unfold is used
> inside the braces holding the music for the barre, when the console contains
>
> warning: cannot find start of text spanner
> warning: unterminated text spanner.
>
> and the output is not what is desired.
>
> \version "2.16.0"
>
>
> #(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)
>
> barre =
> #(define-music-function (parser location strg music)(string? ly:music?)
>    (let ((arg (string-append "B " strg)))
>       #{
>          \override TextSpanner #'(bound-details left text) = $arg
>          #(text-spanner-start-stop music)
>       #}))
>
> \relative c {
>         \clef "treble_8"
>         \barre V { \repeat unfold 24 { c4 } }
> }
>
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>

Although I can confirm your observation, I asked myself: How would I
use a TextSpanner to span a repeat-unfold-expression with pure
LilyPond-syntax?

I couldn't find any reasonable method.

The following doesn't work (ofcourse not):

\relative c {
        \clef "treble_8"
        \override TextSpanner #'(bound-details left text) = #"B V"
        \startTextSpan
        \repeat unfold 24 { c4 } \stopTextSpan
}

How to do?

-Harm