Re: Génération conditionnelle...

[Gilles THIBAULT]

> En modifiant légérement le code de Nicolas Sceaux qui est ici :
> http://lsr.dsi.unimi.it/LSR/Item?id=630
> tu peux avoir ceci :

Oups j'ai oublié un (reverse! ..
(Les \score seront dans l'ordre inverse)

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

#(define-public (toplevel-book-handler parser book)
(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))
(map (lambda (score)
         (ly:book-add-score! book score))
       (reverse! (ly:parser-lookup parser 'toplevel-scores)))
(ly:parser-define! parser 'toplevel-scores (list))
(print-book-with-defaults parser book)))


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

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

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