Re: Détection d'une propriété de 'NoteEvent par scheme

[Pierre Perol-Schneider]

Bonjour Simon,

Malgré ces échecs je ne vois pas autre chose que :
(if (member monElement maListe) ...

Pierre

Le 22 février 2015 11:18, Simon Froger <address@hidden> a écrit :

Bonjour.

Je suis en train de construire une fonction musicale en scheme, dans laquelle j'ai besoin de détecter si la note traitée fait l'objet d'un départ de crochet d'analyse (\startGroup).

Cette fonction est de type :

maFonction = #(define-music-function

(parser location myNote)

(ly:music?)
[définition de ma fonction...]

)

Si je rentre :

\displayMusic c4\startGroup


j'obtiens :
(make-music
  'NoteEvent
  'articulations
  (list (make-music
          'NoteGroupingEvent
          'span-direction
          -1))
  'duration
  (ly:make-duration 2 0 1)
  'pitch
  (ly:make-pitch -1 0 0))

Si j'ai bien compris, à l'intérieur de la liste : (ly:music-property myNote 'articulations)
je dois trouver l'élément : (make-music 'NoteGroupingEvent 'span-direction -1)
pour avoir une fonction de type :  (if [monElement est présent dans maListe] [fais ceci] [sinon fais cela])
Problème : je ne trouve pas la fonction scheme qui corresponde à "est présent dans"... J'ai essayé successivement "memq", "memv" et "member", sans résultat...



_______________________________________________
liste de diffusion lilypond-user-fr
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr