Re: lilypond scheme-sandbox

[Daniel Cartron]

Le vendredi 31 mai 2013 00:44:42 elmamyra a écrit :
> Bonjour,
> Ta fonction n'est pas correctement définie. Les 2 syntaxes corrects sont:
> 
> (define (nom-de-la-fonction arg1 arg2 ...)
>     (
>         ;corp de la fonction
>     )
> )
> 
> ou
> 
> (define nom-de-la-fonction (lambda (arg1 arg1 arg2 ...)
>         ;corp de la fonction
>     )
> )

Mais ce qui est curieux est que ça marche dans le bac à sable...
Et le peu d'exemples que j'ai trouvé sur le web étaient tous comme ça, mais 
il se peut que j'aie mal compris.

> Ensuite je ne suis pas sûr de comprendre. Que doit faire exactement cette
> fonction?
> Que contient la variable "kdb"?

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.

> Daniel Cartron-2 wrote
> 
> > voici ma fonction, qui pour l'instant effectivement attend un pitch,
> > lequel
> > sera récupéré par une autre fonction.
> > 
> > #(define av-btn (filter (lambda (ref)
> > 
> >     (and
> >     
> >             (equal? (caar ref) note-name)
> >             (equal? (cadr (car ref)) note-oct)
> >             (equal? (caddr (car ref)) note-alt)
> >     
> >     )) kbd ))
> > 
> > Je me suis dit que ça coince parce que note-name et compagnie ne sont 
pas
> > définies, mais mm en les définissant et en leur donnant une valeur
> > plausible
> > au préalable ça coince toujours pareil. Et kbd est correctement défini,
> > 
> > Le message d'erreur :
> > 
> > Erreur : GUILE a signalé une erreur pour l'expression débutant ici
> > #
> > 
> >  (define av-btn (filter (lambda (ref)
> 
> --
> View this message in context:
> http://lilypond-french-users.1298960.n2.nabble.com/lilypond-scheme-sandbox-> 
> tp7579856p7579864.html Sent from the LilyPond French Users mailing list
> archive at Nabble.com.
> 
> _______________________________________________
> liste de diffusion lilypond-user-fr
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
-- 
Cordialement, Daniel Cartron
« Si le Christ était mort sur la chaise électrique, tous les petits 
chrétiens porteraient une chaise autour du cou. »
Serge Gainsbourg - Extrait d'une interview dans Libération - Novembre 1981