Re: text spanning

[Hugh Myers]

Is there a way to repeat the text automagically with each wrap?

--hsm


On Fri, Nov 27, 2009 at 12:24 PM, Hugh Myers <address@hidden> wrote:
> Lovely! Much thanks Nick--- also nice to have code to examine prior to
> the point I need to roll my own :)
>
> --hsm
>
> On Fri, Nov 27, 2009 at 12:20 PM, Nick Payne
> <address@hidden> wrote:
>> Hugh Myers wrote:
>>>
>>> Perhaps I misunderstand your reply, but bar 14(where the problem is)
>>> has nothing to do with a rest. The text starts where (as you say) I
>>> wanted it to. That is not the problem. What is the problem is the
>>> continuation of the spanning text at bar 14--- here it starts outside
>>> in the margin instead of being aligned beneath a note. Is this
>>> behavior controllable?
>>
>> See music function below that I wrote for creating text spanners with
>> arbitrary text. It allows you to specify as parameters:
>>
>> The starting text
>> The outside staff priority
>> Whether the spanner is above or below the stave
>> The amount by which you want to adjust the left and right ends of the
>> spanner
>> The amount by which you want to adjust the left and right point at which the
>> spanner breaks when it crosses a line break
>>
>> % usage e.g.:
>> %   \tspan "sul ponticello" #0 #DOWN #'(0 . -0.5) #5 #1
>> %   g\startTextSpan c bes' ees, aes c, g c bes' ees, aes c,\stopTextSpan
>> tspan = #(define-music-function (parser location text osp dirn shorten
>> adjBreak adjEnd) (string? number? number? pair? number? number?) #{
>>   % set osp to 999 if spanner is colliding with another element
>>   % this will position the spanner outside all other elements
>>   % can be normally be set to zero
>>   \once \override TextSpanner #'outside-staff-priority = #$osp
>>   \once \override TextSpanner #'bound-details #'left #'text =
>> \markup\italic\small\bold { \concat { { $text } " " } }
>>   \once \override TextSpanner #'font-shape = #'upright
>>   % direction (either #UP or #DOWN)
>>   \once \override TextSpanner #'direction = #$dirn
>>   % setup dashed line and draw a bracket edge on RHS
>>   \once \override TextSpanner #'dash-period = #1.5
>>   \once \override TextSpanner #'dash-fraction = #0.3
>>   \once \override TextSpanner #'thickness = #0.8
>>   \once \override TextSpanner #'bound-details #'right #'text = \markup {
>> \draw-line #(cons 0 (/ $dirn -1)) }
>>   % set alignment of line with reference to left text
>>   \once \override TextSpanner #'bound-details #'left #'stencil-align-dir-y =
>> #CENTER
>>   \once \override TextSpanner #'bound-details #'left #'padding = #(car
>> $shorten)
>>   \once \override TextSpanner #'bound-details #'right #'padding = #(cdr
>> $shorten)
>>   % allow adjustment of line end when it wraps to following stave
>>   \once \override TextSpanner #'bound-details #'right-broken #'padding =
>> #$adjEnd
>>   % adjust LH end of line when it wraps to following stave so that it
>> doesn't
>>   % extend to the left of the notes on the stave
>>   \once \override TextSpanner #'bound-details #'left-broken #'X = #$adjBreak
>>   % optional override to remove text and bracket edge at line breaks
>>   \once \override TextSpanner #'bound-details #'left-broken #'text = ##f
>>   \once \override TextSpanner #'bound-details #'right-broken #'text = ##f
>> #})
>>
>>
>>
>