Re: Suite de notes répétées

[Olivier Miakinen]

Le 24/11/2019 08:55, martial a écrit :
> 
> Voilà, mais je ne pense pas qu'on y gagne en temps de frappe :-)
> %pour version "2.19." 
> %==================
> \version "2.19.83" 
> repeatNote = #(define-music-function (note) (ly:music?)
>          (let ((note2 (ly:music-deep-copy note)))
>            (set! (ly:music-property note 'NoteEvent)
>                  (cons (make-music 'NoteEvent )
>                        (ly:music-property note 'NoteEvent)))
>            (make-music 'SequentialMusic 'elements (list note note2))))
>            
> \relative c' { \repeatNote c \repeatNote e \repeatNote g \repeatNote a }      
> %==================

Haha ! Je suis persuadé qu'en Scheme il est possible d'écrire une
fonction \repeatNotes que l'on appellerait comme ceci :

\relative c' { \repeatNotes { c e g a } }