scheme : récupérer la métrique

[Daniel Cartron]

Bonjour,

Je me suis inspiré de extractMusic de Gilles et de code que m'a envoyé Nicolas 
pour écrire ce qui suit mais il ne se passe rien... Ce que je cherche à faire 
c'est mettre ces valeurs dans des variables globales pour les réutiliser dans 
d'autres fonctions.


getTimeSig = #(define-music-function (parser location music) (ly:music?)
 ""
(define beatLen 0)
(define beatStr 0)
(define beatNum 0)
  (music-map
    (lambda (evt)
      (cond (eq? (ly:music-property music 'name) 'TimeSignatureMusic)
        (let 
          (
            (beatLen (ly:music-property evt 'denominator #f))
            (beatStr (ly:music-property evt 'beat-structure #f))
            (beatNum (ly:music-property evt 'numerator #f))
          )
        )
      )
      evt
     )
     music
  )
)

music = \relative c' {
  \time 7/4
  a4 b c e d f
}

{\getTimeSig \music}

-- 
Cordialement, Daniel Cartron
« La terre étant ronde, les kilomètres devraient être ronds et non carrés. »
Ramon Gomez de la Serna