J'ai tout dit dans le titre...
C'est en relation avec mon autre fil sur le dégroupement de durées mais comme
c'est assez spécifique je préfère ouvrir un autre fil.
Précisions : je veux utiliser la valeur du dénominateur/2 à la place du chiffre
8 inscrit en dur en dernière ligne lors de l'appel de la fonction
\unfold_duration (hé oui j'ai un peu modifié le code qui me convient mieux
comme ça)
\version "2.16.2"
unfold_duration = #(define-music-function
(parser location duration music)
(number? ly:music?)
(map-some-music
(lambda (evt)
(let
((dur (ly:music-property evt 'duration #f)))
(and dur (begin
(let ((number-dur 0) (nb_notes 0))
(set! number-dur (expt 2 (ly:duration-log dur)))
(set! nb_notes (/ duration (expt 2 (ly:duration-log dur)) ))
(display nb_notes)
(set! (ly:music-property evt 'duration) (ly:make-duration (log2
duration) 0 1))
#{
\repeat unfold $nb_notes { $evt }
#}
)
)
)
)
)
music)
)
Musique = \relative c' {
\time 4/4
d2 c1 f4 a
}
\unfold_duration 8 \Musique
···
--
Cordialement, Daniel Cartron
« Il ne faut pas oublier que le jour du Déluge ceux qui savaient nager se
noyèrent aussi. »
Ramon Gomez de la Serna
