Re: lilypond scheme-sandbox

[elmamyra]

D'accord je comprends mieux. Je pense que cela devrait fonctionner si "ref"
est une liste de 3 valeurs:

#(define (av-btn ref)
    (filter
       (lambda (pair) (equal? (car pair) ref) )
       kdb
    )
)

Et si tu veux que la fonction retourne uniquement les listes de droite:

#(define (av-btn ref)
    (map cdr
      (filter
         (lambda (pair) (equal? (car pair) ref) )
         kdb
      )
    )
)


Daniel Cartron-2 wrote
> j'ai raccourci pas mal mais en gros c'est comme ça :
> 
> (define kdb
>  '(
>   ( (4 0 0) . (1 1 2) )
>   ( (6 0 0) . (2 1 2) )
>   ( (0 1 0) . (1 1 3) )
>   ( (0 1 0) . (2 1 3) )
>  )
> )
> 
> Ce qui est important c'est que je peux avoir deux ou trois fois la mm
> valeur 
> à gauche mais pas à droite.
> 
> Ensuite à partir des trois valeurs d'un pitch comme par exemple 0 1 0 qui 
> constitue la partie gauche je récupère une liste filtrée qui comprend dans 
> mon exemple les deux dernières sous-listes. Ensuite je me sert de la
> partie 
> droite pour générer des markup.
> 
> D'ailleurs je réalise que dans ma fonction j'ai inversé note-name et note-
> oct. Pour le pb actuel ça ne change rien, mais je corrige.





--
View this message in context: 
http://lilypond-french-users.1298960.n2.nabble.com/lilypond-scheme-sandbox-tp7579856p7579866.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.