|
From: | survoje |
Subject: | Re: Lilypond : un livret CD |
Date: | Sat, 1 Aug 2020 17:44:37 +0200 |
User-agent: | Mozilla/5.0 (X11; Linux i686; rv:68.0) Gecko/20100101 Thunderbird/68.10.0 |
Envoyé trop vite ; donc, à nouveau :
\version "2.20.0"
#(define ctrToc 0)
#(define-markup-command (ctrToc layout props) ()
(set! ctrToc (1+ ctrToc))
(interpret-markup layout props (markup (number->string ctrToc))))
#(define counter 0)
#(define-markup-command (counter layout props) ()
(set! counter (1+ counter))
(interpret-markup layout props (markup (number->string counter))))
#(define-markup-command (ctrTot layout props) ()
(interpret-markup layout props (markup (number->string counter))))
\paper {
tocItemMarkup = \tocItemWithDotsMarkup
}
\markuplist \table-of-contents
\markup\vspace #3
\tocItem \markup { Pièce \counter }
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\tocItem \markup { Pièce \counter }
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\tocItem \markup { Pièce \counter }
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\tocItem \markup { Pièce \counter }
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\tocItem \markup { Pièce \counter }
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\markup { Ce livret contient \ctrTot pièces. }
Cordialement,Pierre
[Prev in Thread] | Current Thread | [Next in Thread] |