Re: Cello fingering indications

[MarcM]

Like the original OP I'd really like to get the stringNumberSpanner function
from LSR http://lsr.di.unimi.it/LSR/Snippet?id=616  to incorporate the
startTextSpan and number of notes. Ideally, one would wind up with something
like a8\restez {"5" 4} which would extend a line for 4 of  the note value of
the starting note. 

This seems to have worked in version 2.14 but in 2.19 it is not printing the
line.

\version "2.19.13"

restez =
  #(define-music-function (parser location StringNumber music) (string?
ly:music?)
  #{
     \override Voice.TextSpanner.style = #'solid
     \override Voice.TextSpanner.font-size = #-5
     \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
     \override TextSpanner.bound-details.left.text = \markup { \circle
\number $StringNumber }
     #(begin
        (let* ((elts (ly:music-property music 'elements)))
          (set! (ly:music-property (car elts) 'elements)
            (cons (make-music 'TextSpanEvent 'span-direction -1)
                  (ly:music-property (car elts) 'elements)))
          (set! (ly:music-property (car (reverse elts)) 'elements)
            (cons (make-music 'TextSpanEvent 'span-direction 1)
                  (ly:music-property (car (reverse elts)) 'elements)))
          (make-music 'SequentialMusic 'elements (list music))))
  #})
 


\relative c' {
 \restez "5" { a8 b c d e f }
 \restez "4" { g a bes4 a g2 }
}




--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Cello-fingering-indications-tp34653p166071.html
Sent from the User mailing list archive at Nabble.com.