[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Dégroupement de durées
From: |
Daniel Cartron |
Subject: |
Re: Dégroupement de durées |
Date: |
Fri, 06 Mar 2015 11:26:47 +0100 |
User-agent: |
KMail/4.13.3 (Linux/3.13.0-46-generic; KDE/4.13.3; x86_64; ; ) |
Le mercredi 4 mars 2015 21:27:57, vous avez écrit :
Encore une fois merci à Nicolas, voici le code qui marche (légèrement retouché
pour mieux convenir à ce que je veux faire) :
\version "2.16.2"
test = #(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))
(set! number-dur (expt 2 (ly:duration-log dur)))
(set! (ly:music-property evt 'duration) (ly:make-duration (log2
duration) 0 1))
#{
\unfoldRepeats { \repeat tremolo $(/ duration number-dur)
$evt }
#}
)
)
)
)
)
music)
)
Musique = \relative c' {
\time 4/4
c2 d4 e
}
\test 8 \Musique
Reste à ajouter le traitement des notes pointées, et surtout réussir à
récupérer la métrique car le chiffre 8 passé à la fonction doit être le
dénominateur de la métrique...
--
Cordialement, Daniel Cartron
« Les dix meilleures années de la vie d'une femme? Entre vingt-cinq et vingt-
six ans. »
RIP