[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Cello fingering indications
From: |
MarcM |
Subject: |
Re: Cello fingering indications |
Date: |
Thu, 4 Sep 2014 18:36:08 -0700 (PDT) |
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.