Re: raccourci de saisie rythmique

[Gilles]

Le Mon, 06 May 2013 10:03:48 +0200, Daniel Cartron <address@hidden> a  
écrit:

> ok ça fait une partie de ce que je veux, mais pas tout... C'est quand mm  
> un
> bon début

Essaie ça

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\include "changePitch.ly"

pattern = \samePitch { c16^"bidon1" r c^"bidon2" r}
music = \relative { a b c d}


maFonction = #(define-music-function (parser location 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
#})

%% { \displayMusic c8^"hello" }

{ \maFonction \music }

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



--
Gilles