Re: \override StrokeFinger

[elmamyra]

Autant pour moi. ly:event-property a changé entre la version 2.16 et 2.17.
Pour la version 2.16 "stroke-finger::calc-text" est:

(define-public (stroke-finger::calc-text grob)
  (let* ((digit (ly:event-property (event-cause grob) 'digit))
         (text (ly:event-property (event-cause grob) 'text)))

    (if (string? text)
        text
        (vector-ref (ly:grob-property grob 'digit-names)
                    (1- (max (min 5 digit) 1))))))

Du coup tu peux faire: 

#(define (my-stroke-finger::calc-text grob)
  (let* ((digit (ly:event-property (event-cause grob) 'digit))
         (text (ly:event-property (event-cause grob) 'text)))

    (markup #:underline (if (string? text)
        text
        (vector-ref (ly:grob-property grob 'digit-names)
                    (1- (max (min 5 digit) 1)))))))

La nuit portant conseil, il y a beaucoup plus simple. Tu peux directement
récupérer la sortie de "stroke-finger::calc-text" et appliquer le
"underline":

\override StrokeFinger #'text = #(lambda (grob) 
                                    (markup #:underline
(stroke-finger::calc-text grob)))




--
View this message in context: 
http://lilypond-french-users.1298960.n2.nabble.com/override-StrokeFinger-tp7579743p7579761.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.