récupérer les valeurs des articulations

[Daniel Cartron]

Bonjour,

Dans la série mes fonctions scheme buggent mais je pige pas pourquoi, en voici 
encore une.

J'écris
d4 e-- fis-8

et je voudrais récupérer le fait que la première note soit tenuto et la 
seconde ait une indication de  doigté pour modifier la valeur d'une vaiable.

Donc j'ai écrit ça :

    (let (
           (arti (ly:music-property evt 'articulations))
           (altern 0)
         )
      (for-each
        (lambda(evt)
          (let ((name (ly:music-property evt 'name)))
           (cond 
              ((eq? name 'ArticulationEvent)
                 (if (eq? (ly:music-property evt 'articulation-type) "tenuto")
                     (define altern "d")
                 )
                 (if (eq? (ly:music-property evt 'articulation-type) 
"stopped")
                     (set! altern "b")
                 )
              )
              ((eq? name 'StrokeFingerEvent)
                    (define altern (ly:music-property evt 'digit)))
             )
           (display altern)
           ))
        arti))

Mais le display n'affiche que des zéros... Et si j'essaye FingeringEvent à la 
place de StrokeFingerEvent ça plante...

Qu'est-ce qui n'est pas bon ?

-- 
Cordialement, Daniel Cartron
« Quand on a oublié d'acheter du sucre, on peut parfaitement sucrer son café 
avec une betterave, mais c'est plus long. »
François Cavanna - Le saviez-vous ?