Re: raccourci de saisie rythmique

[Gilles]

> cependant j'ai maintenant une nouvelle erreur
> <string>:3:31: Erreur : syntax error, unexpected STRING
>     \changePitch \lilyvartmpca
>                                \music
>
> et je ne trouve nulle part trace de ce \lilyvartmpca...

Oups ! c'est moi qui ai fait une erreur bête. J'ai été trop vite. Il faut
remplacer dans \maFonction
      \changePitch $pattern \music par
      \changePitch $pattern $music
Désolé.

Ceci dit, tu dis dans un autre message que tu as la version 2.14.
La version réclamée par "changePitch.ly" est 2.16, car la structure
interne des notes a changé (il a fallu que je réécrive pas mal de
fonctions de la 2.14 à la 2.16 ...).
Je doute donc que ça marche pour ta version Lilypond, avec la dernière
version de \changePitch.
Par contre dans "ma grande sagesse" ..., j'ai sauvegardé la version pour
2.14 :-)
Le fichier s'appelle "changePitch2.14.ly" et c'est ici :
http://gillesth.free.fr/Lilypond/changePitch/

Bon courage

------------------------------------------------------------

Je réécris le code complet, pour plus de clarté

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%% A mettre dans "changePitch.ly" (ou "changePitch2.14.ly" )

maFonction = #(define-music-function (parser location pattern  
music)(ly:music? ly:music?)
"[Decrire la fonction]"
#{ \musicMap
   #(lambda(evt)
     (case (ly:music-property evt 'name)
       ((NoteEvent)
          (let* ((arti (ly:music-property evt 'articulations))
                 (text (and (pair? arti)
                            (ly:music-property (car arti) 'text #f)))
                 (index (ly:pitch-notename
                          (ly:music-property evt 'pitch))))
             (if text (ly:music-set-property! (car arti) '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
#})
%%%%%%%%%%  A mettre dans le fichier courant
\include "changePitch.ly"
% \include "changePitch2.14.ly"
\language "italiano"

patternAvecLeNomQuonVeut = \samePitch { do16^"bidon1" r do^"bidon2" r }
musicAvecLeNomQuonVeut = \relative { la si do re }

{ \maFonction \patternAvecLeNomQuonVeut \musicAvecLeNomQuonVeut }


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

--
Gilles