Re: Génération conditionnelle...

[Olivier Chamley]

Le 02/05/2010 01:04, Gilles THIBAULT a écrit :
> > J'ai bien identifié la façon de faire le test en scheme _#(if (defined?
> > Musiqueb) (...))_, mais ensuite, je voudrais exprimer ma partition 
> > conditionnelle en syntaxe lilypond, pas scheme ! En gros, j'aimerais
> > > bien avoir l'équivalent d'un #ifdef du langage C.
> Tu peux mettre du Lilypond à l'intérieur du scheme en l'entourant par
> #{         #} mais ça ne marche pas pour \score, avec lequel il faut 
> utiliser entre autre, ly:make-score .
Merci... Ca marche bien unitairement, mais quand j'essaye de faire 
plusieurs 'book' (je veux générer les partitions à différents formats), 
ça ne marche plus...

%%%%%%%%%%%%%%
musica = c'1
musicb = d'1     % a décommenter

myBook = #(define-music-function (parser location)()
(let ((a (ly:make-score #{  \musica  #} ))
     (b (and (defined? 'musicb)
             (ly:make-score #{  \musicb  #} ))))
 (collect-scores-for-book parser a)
 (if b (collect-scores-for-book parser b))
 (make-music 'Music 'void #t)))

\book
{
    \paper { #(set-paper-size "a4") }
    \myBook
}

\book
{
    \paper { #(set-paper-size "a5") }
    \myBook
}

\version "2.12.0"
%%%%%%%%%%%%%%%