Fwd: SostenutoPedalLineSpanner and texts

[David Nalesnik]

Oops, mistakenly sent this only to the OP...

---------- Forwarded message ----------
From: David Nalesnik <address@hidden>
Date: Fri, Dec 20, 2013 at 9:01 AM
Subject: Re: SostenutoPedalLineSpanner and texts
To: Simon Bailey <address@hidden>

Hi Simon,

On Fri, Dec 20, 2013 at 1:42 AM, Simon Bailey <address@hidden> wrote:

Hi,

I'd like the SostenutoLine to be prefixed with "(Sost.)" after a line break. Is there a possibility to get the SostenutoPedalLineSpanner to support the following definition?

\override SostenutoPedalLineSpanner.bound-details.left-broken.text = "(Sost.)"

Hmm.  I'm a little surprised that this doesn't exist.

In case it doesn't in some form or another, try this:

 \version "2.17.95"

#(define broken-stil

   (lambda (grob)

     (let* ((orig (ly:grob-original grob))

             (siblings (ly:spanner-broken-into orig))

             (broken? (pair? siblings))

             (default-stil (ly:piano-pedal-bracket::print grob))

             (first? (or (not broken?)

                           (eq? grob (first siblings)))))

       (if (and broken? (not first?))

           (let*

            ((text

              #{

                \markup \italic "(Sost.)"

              #})

             (default-stil-ext-X (ly:stencil-extent default-stil X))

             (line-length (interval-length default-stil-ext-X))

             (text-stil (grob-interpret-markup grob text))

             (text-ext-X (ly:stencil-extent text-stil X))

             (text-length (interval-length text-ext-X))

             (text-padding 1.0)

             (scaled-line

              (ly:stencil-scale

               default-stil

               (/ (- line-length (+ text-length text-padding)) line-length)

               1)))

            (ly:stencil-add

             (ly:stencil-translate-axis text-stil (/ text-length 2) X)

             (ly:stencil-translate-axis scaled-line (+ text-length text-padding) X)))

           ; If we have the first piece (or unbroken) return default

           default-stil))))

{

  \override Staff.PianoPedalBracket.stencil = #broken-stil

  c4\sostenutoOn d e f

  \repeat unfold 20 { c4 d e f }

  c4 d e f\sostenutoOff

}

%%%%%%%%%%%%%%%

HTH,

David