lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Lilypond : un livret CD


From: Pierre Perol-Schneider
Subject: Re: Lilypond : un livret CD
Date: Sat, 1 Aug 2020 10:18:05 +0200

Bonjour Gérard,
Il y a un compteur sur le LSR : http://lsr.di.unimi.it/LSR/Item?id=543
Mais il est limité par un bug (cf. http://lilypond.1069038.n5.nabble.com/Toc-with-counter-td214472.html)
Sinon tu peux faire quelque chose comme :

\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) ()
   (set! counter counter)
   (interpret-markup layout props (markup (number->string counter))))

\paper {
  tocItemMarkup = \tocItemWithDotsMarkup
}

\markuplist \table-of-contents
\markup\vspace #3
\tocItem \markup\counter
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\tocItem \markup\counter
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\tocItem \markup\counter
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\tocItem \markup\counter
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }
\tocItem \markup\counter
\score { { c' } \header { piece = \markup { Pièce \ctrToc } } }

\markup { Ce livret contient \ctrTot pièces }

Cordialement,
Pierre



 

reply via email to

[Prev in Thread] Current Thread [Next in Thread]