Re: raccourci de saisie rythmique

[Gilles]

> Alors avec ce nouveau code j'ai encore deux problèmes :
>  le texte bidon n'est pas remplacé par celui de la liste

Ah mais oui bien-sûr \maFonction ne peut marcher que sous 2.16 :-(
J'aurai dû y penser.
Voici une version pour 2.14. Après j'arrête ...

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Pour Lilypond 2.14
maFonction = #(define-music-function (parser location pattern  
music)(ly:music? ly:music?)
"[Decrire la fonction]"
#{ \musicMap
   #(lambda(evt)
     (case (ly:music-property evt 'name)
       ((EventChord)
          (let* ((elts (ly:music-property evt 'elements))
                 (last-elt (and (pair? elts)(last elts))))
            (if last-elt
              (let ((pitch (ly:music-property (first elts) 'pitch #f))
                    (text (ly:music-property last-elt 'text #f)))
                (if (and text pitch)
                  (let ((index (ly:pitch-notename pitch)))
                    (ly:music-set-property! last-elt 'text
                      (cond ((string=? text "bidon1")
                               (list-ref '("C" "D" "E" "F" "G" "A" "B")  
index))
                            ((string=? text "bidon2")
                               (list-ref '("c" "d" "e" "f" "g" "a" "b")  
index))
                            (else text)))))))
            evt))
       (else evt)))
   \changePitch $pattern $music
#})


--
Gilles