Ajout de staccato

[Philhar]

Bonjour,

J'avais récupéré une fonction dans le LSR qui permet d'ajouter des signes
d'articulation à une série de notes. Et ça marchait très bien... jusqu'au
passage en 2.16 qui l'ignore complètement. Qu'est-ce qui a changé ?
Voici le code:

\version "2.16.0"

        %%% addStacc ..........................................
                        #(define (make-script x)
                 (make-music 'ArticulationEvent
                                                                 
'articulation-type x))

                        #(define (add-script m x)
                        (if
                                (equal? (ly:music-property m 'name) 'EventChord)
                                (set! (ly:music-property m 'elements)
                                                        (append 
(ly:music-property m 'elements)
                                                                                
                (list (make-script x)))))
                        m)

                        #(define (add-staccato m)
                                (add-script m "staccato"))

                        addStacc =
                        #(define-music-function (parser location music) 
                                                                (ly:music?)
                                        (music-map add-staccato music))    
        %%% fin addStacc ............................................

\score {
  \relative c'' { 
    c c c c
    \addStacc { c c c c }               %% ajoute un point (staccato) aux notes 
entre { }
        }
}      

Cordialement,
Michel



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