Re: raccourci de saisie rythmique

[Daniel Cartron]

Le lundi 6 mai 2013 11:45:24 Gilles a écrit :
> 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

bon je suis désolé mais depuis ce midi je me bats contre ce code et pas 
moyen de le faire marcher... Je dois ne pas recopier ce qu'il faut là où il 
faut. Mon envie est de mettre la fonction dans le fichier changePitch.ly, 
les variables pattern et music étant dans le fichier qui contient ma 
musique. Et bien entendu pattern ni music n'ont ce nom exact, c'est plutôt 
patternBass et Bass.

J'ai fait tous les essais imaginables et soit j'ai une des erreurs suivantes 
: 
unexpected STRING
    \changePitch \pattern 
                          \music


chaîne d'échappement inconnue : « \music »
    \changePitch \pattern 
                          \music

soit ça compile en mettant bidon1 et bidon2...

Donc encore une fois désolé mais si tu pouvais m'aider à nouveau.


> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> \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 }
> 
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-- 
Cordialement, Daniel Cartron
« Rivalisant Avec Corneille Il Nous Étonna .»
Portrait acrostiche anonyme.