Re: scheme : récupérer la métrique

[Daniel Cartron]

Le lundi 27 avril 2015, 12:12:37 Gilles THIBAULT a écrit :
> Un truc comme ça devrait marcher.
> 
> %%%%%%%%%%%%%%%%%%%%%%
> #(define beatLen 0)
> #(define beatStr 0)
> #(define beatNum 0)
> 
> getTimeSig = #(define-music-function (parser location music) (ly:music?)
>  ""
>   (music-map
>     (lambda (evt)
>       (if (eq? (ly:music-property evt 'name) 'TimeSignatureMusic)
>         (begin
>           (set! beatLen (ly:music-property evt 'denominator #f))
>           (set! beatStr (ly:music-property evt 'beat-structure #f))
>           (set! beatNum (ly:music-property evt 'numerator #f))))
>       evt)
>      music))

J'y étais presque... J'avais juste mis music au lieu de evt dans  (if (eq? 
(ly:music-property

Bon ça me rassure j'avais pigé, c'était juste une faute d'étourderie.

-- 
Cordialement, Daniel Cartron
« Il y a des femmes dont l'infidélité est le seul lien qui les attachent à leur 
mari. »
Sacha Guitry —  Bloompott, exergue du chapitre 13