[ << Repeats ]	[Top][Contents]	[ Simultaneous notes >> ]
[ < Diminution de la taille du crochet d’alternative ]	[ Up: Repeats ]	[ Crochet de reprise sous les chiffrages d’accord > ]

---

Expansion de répétition de trémolo

Actuellement, saisir note:durée est en quelque sorte un raccourci de \repeat tremolo, mais n’est pas expansé par une directive \unfoldRepeats (ceci fait l’objet du ticket 6145). La fonction ci-dessous présentée constitue un contournement à cette faiblesse.

fixTremolos =
#(define-music-function (music) (ly:music?)
   (music-map
    (lambda (m)
      (let ((event (any (lambda (a)
                          (and (music-is-of-type? a 'tremolo-event)
                               a))
                        (ly:music-property m 'articulations))))
        (if event
            (let* ((total-tremolo-duration (ly:music-property m
                                                              'duration))
                   (tremolo-type (ly:music-property event
                                                    'tremolo-type))
                   (one-tremolo-note-duration
                    (ly:make-duration (ly:intlog2 tremolo-type)))
                   (tremolo-note-count
                    (/ tremolo-type (expt 2 (ly:duration-log
                                             total-tremolo-duration)))))
              (set! (ly:music-property m 'duration)
                    one-tremolo-note-duration)
              (set! (ly:music-property m 'articulations)
                    (delete! event (ly:music-property m 'articulations)))
              (make-music 'TremoloRepeatedMusic
                          'repeat-count tremolo-note-count
                          'element m))
            m)))
    music))

unfoldRepeats = \unfoldRepeats #'() \fixTremolos \etc

music = { \repeat tremolo 8 c'16 c'2:16 }

{
  \music
  \unfoldRepeats \music
}