[ << Scheme ]	[Top][Contents]	[ Spacing >> ]
[ < Scheme ]	[ Up: Scheme ]	[ Ajout d’indicateurs à une portée dédoublée après un saut de ligne > ]

---

Ajout d’un doigté supplémentaire avec Scheme

Il est possible, à l’aide de la fonction map-some-music, d’ajouter divers éléments à des notes. Voici comment attacher un script supplémentaire à une note.

En règle générale, réaliser préalablement un \displayMusic de la musique que vous souhaitez créer vous aidera à écrire la fonction chargée de structurer votre musique.

addScript =
#(define-music-function (script music) (ly:event? ly:music?)
   (map-some-music
    (lambda (mus)
      (define (append-script-at! prop)
        (set! (ly:music-property mus prop)
              (append (ly:music-property mus prop)
                      (list (ly:music-deep-copy script))))
        mus)

      (case (ly:music-property mus 'name)
        ((EventChord)
         (append-script-at! 'elements))
        ((NoteEvent)
         (append-script-at! 'articulations))
        (else #f)))
    music))

{
  \addScript _6 { c'4-3 <c' e' g'> }
}