Subject: Dégroupement de durées

From: Daniel Cartron <[email-masked]>
Date: Mon, 02 Mar 2015 09:19:08 +0100

Bonjour,

Le sujet n'est pas vraiment explicite mais je ne sais pas comment appeler ça. 
Je cherche un truc pour que 

	do2 re2
	fa4 sol re mi

soit converti en 

	do8 do do do
	do do do do
	re re re re
	re re re re
	fa fa fa fa
	sol sol sol sol
	re re re re
	mi mi mi mi

J'ai fouillé dans les snippets, mais rien trouvé qui correspond...

Ça existe quelque part ?

Merci

-- 
Cordialement, Daniel Cartron
« Le bonheur à deux ça dure le temps de compter jusqu'à trois. »
Sacha Guitry

---

From: Daniel Cartron <[email-masked]>
Date: Wed, 04 Mar 2015 06:02:33 +0100

>         fa4 sol re mi

ooops écrit trop vite, c'est 

do1 re
fa2 sol re mi

Personne n'a de piste ?

-- 
Cordialement, Daniel Cartron
« En essayant continuellement on finit par réussir. Donc : plus ça rate, plus 
on a de chance que ça marche. »
Jacques Rouxel - Les shadoks

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Wed, 4 Mar 2015 10:23:00 +0100

Oui Daniel, je pense qu'on l'avait tous compris comme cela.
Je me suis un peu penché sur le sujet il y a deux jours et je n'ai rien
trouvé de magique.
Désolé,
Pierre

Le 4 mars 2015 06:02, Daniel Cartron <[email-masked]> a écrit :

> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>

---

From: Daniel Cartron <[email-masked]>
Date: Fri, 06 Mar 2015 11:26:47 +0100

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