Subject: re: Une fonction pour saisir plus simplement certain rythmes ?

From: "martial R" <[email-masked]>
Date: Tue, 12 Feb 2008 17:29:48 +0100

Bonjour

un truc comme ça ?
picorer sur LSR
http://lsr.dsi.unimi.it/LSR/Snippet?id=302

%%%fonction rythym
#(define (make-note-req p d)
  (make-music 'NoteEvent
   'duration d
   'pitch p))

#(define (make-note p d)
  (make-music 'EventChord
   'elements (list (make-note-req p d))))

#(define (seq-music-list elts)
  (make-music 'SequentialMusic
   'elements elts))

dblcrh = #(define-music-function (parser location note) (ly:music?)
                   (let* ((p (ly:music-property
                    (car (ly:music-property note 'elements))
                      'pitch)))
          (seq-music-list (list
            (make-note p (ly:make-duration 3 1))
            (make-note p (ly:make-duration 4 0))
          ))))
%%--------------------------
\score {
   \new Staff {
       \time 3/4

       \dblcrh c'
       \dblcrh e'
       \dblcrh c'
   }
}
%%--------------------------

---

From: "Nicolas Klutchnikoff" <[email-masked]>
Date: Tue, 12 Feb 2008 17:53:30 +0100

En gros ! Sauf que (et mes exemples étaient donc mal choisis) je veux
pouvoir changer les notes.
Donc je m'explique mieux. Je voudrais pouvoir saisir quelque chose comme

\truc 8 { do do do re | mi re mi re |}

Et qe ce soit interprété comme :

do8. do16 do8. re16 | mi8. re16 mi8. re16

Voilà ! Peut-être que le code provenant du LSR permet de faire cela après
légère modification. Mais je ne le comprends pas et je ne suis donc pas
capable de l'adapter...

Merci tout de même,
Nicolas.