Re: sheme - ajouter des éléments à une alist

[Daniel Cartron]

Le lundi 18 mai 2015, 06:28:54 PharoahS a écrit :
> J'essaie de voir comment tester le code scmeme dans lilypond
> au début je mets
>  #(define fisarmonica
>   '(
>     (i . ,(ly:make-pitch 8 0 DOUBLE-SHARP))   ; input note, ie a closing
> note
>     (o . ,(ly:make-pitch 8 0 DOUBLE-FLAT))    ; output note, ie a drawing
> note
>   ))
> pas de probleme
> ensuite je voudrais voir ce que contient fisarmonica. J'ai essayé
> \displayMusic mais ma syntaxe ne marche pas
> comment faites vous pour tester?

Je me sert du bac à sable de scheme:  lilypond scheme-sandbox

je rentre 
(define fisarmonica
  '(
    (i . ,(ly:make-pitch 8 0 DOUBLE-SHARP))   ; input note, ie a closing
note
    (o . ,(ly:make-pitch 8 0 DOUBLE-FLAT))    ; output note, ie a drawing
note
  ))
puis 
fisarmonica
et ça me renvoie

guile> fisarmonica
((i unquote (ly:make-pitch 8 0 DOUBLE-SHARP)) note (o unquote (ly:make-pitch 8 
0 DOUBLE-FLAT)) note)

et on voit bien que c'est pas la mm chose que

guile> (define-public language-pitch-names
  `(
    (nederlands . (
       (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
       (c . ,(ly:make-pitch -1 0 NATURAL))
       ))

    (catalan . (
    (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
    (do . ,(ly:make-pitch -1 0 NATURAL))
    ))

    (italiano . (
     (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
     (do . ,(ly:make-pitch -1 0 NATURAL))
     ))
))
guile> language-pitch-names
((nederlands (ceses . #<Pitch ceses >) (c . #<Pitch c >)) (catalan (dobb . 
#<Pitch ceses >) (do . #<Pitch c >)) (italiano (dobb . #<Pitch ceses >) (do . 
#<Pitch c >)))

-- 
Cordialement, Daniel Cartron
« Il n'y a point de génie sans un grain de folie. »
Aristote - Poétique