Re: Signets de pages pdf

[Vincent Gay]

Le 24/08/2022 à 23:10, Jean Abou Samra a écrit :

> Voici
>       une solution de contournement possible, à insérer
>       
>       au début du fichier :
>       
>     
    
    Merci Jean, c'est presque parfait. J'imagine avec ça pouvoir faire
    un "vrai" RealBook d'environ 300 partitions. Je suis juste un peu
    inquiet sur le temps de compilation... 
    
    Le seul petit problème restant est l'ordre des items
    
    La table des matières en page 1 est parfaitement ordonnée

    Mais pas le contenu :

    Le code
    
    \version "2.23.11"
    
    #(let ((default-table-of-contents
    make-table-of-contents-markup-list))
       (define-markup-list-command (table-of-contents layout props) ()
         (let* ((result (interpret-markup-list layout props
    (default-table-of-contents)))
                (alist (ly:output-def-lookup layout 'label-alist-table))
                (parent (ly:output-def-parent layout)))
           (when (not (null? parent))
             (ly:output-def-set-variable! parent 'label-alist-table
    alist))
           result)))
    
    
    \paper {
      indent = 0\mm
      ragged-last-bottom = ##t
      ragged-last = ##f
      tocActMarkup = \markup \large \column {
        \hspace #1
        \fill-line { \null \italic \fromproperty #'toc:text \null }
        \hspace #1
      }
      tocItemMarkup = \markup
      \fill-line {
        \fill-with-pattern #1.5 #CENTER .
        \line {
          \hspace #-4 %% Cancelling the first level's tocIndentMarkup
          \fromproperty #'toc:indent \fromproperty #'toc:text
          \hspace #2
        }
        \fromproperty #'toc:page
      }
      tocTitleMarkup =
      \markup {
        \column {
          \vspace #3
          \fill-line { \fontsize #9 "Music Title" }
          \fill-line { \fontsize #3 "Music from Someone" }
        }
      }
    }
    
    tocAct =
    #(define-music-function (label text) (symbol-list-or-symbol?
    markup?)
       (add-toc-item! 'tocActMarkup text label))
    
    
    \header { tagline = ##f }
    
    basse = { \clef "bass" \repeat unfold 4 { c1 } }
    tenor = { \repeat unfold 4 { e'1 } }
    trompette = { \repeat unfold 4 { bes'1 } }
    accords = \chordmode { c1:7 }
    
    \book {
      \paper {
        #(set-paper-size "a4")
        print-first-page-number = ##f
      }
      #(define output-suffix "a4")
        \paper { line-width = 13.0\cm }
            \markuplist \table-of-contents
      \pageBreak
      \bookpart {
        \header { subtitle = "For C Instruments" }
        \tocAct CaIV \markup { "For C Instruments" }
        \tocItem \markup { \underline "Trumpet Part" }
        \score {
          <<
            \new ChordNames { \accords }
            \new Staff  \with { instrumentName = Trumpet } \trompette
          >>
        }
      }
      \bookpart {
        \header { subtitle = "For C Instruments" }
        \tocItem \markup { \underline "Tenor Part" }
        \score {
          <<
            \new ChordNames { \accords }
            \new Staff  \with { instrumentName = Tenor } \tenor
          >>
        }
      }
      \bookpart {
        \header { subtitle = "For C Instruments" }
        \tocItem \markup { \underline "Bass Part" }
        \score {
          <<
            \new ChordNames { \accords }
            \new Staff  \with { instrumentName = Bass } \basse
          >>
        }
      }
      \bookpart {
        \header { subtitle = \markup \concat { "For B" \flat "
    Instruments" } }
        \tocAct BbaIV \markup { "For B♭ Instruments" }
        \tocItem \markup { \underline "Trumpet Part" }
        \score {
          <<
            \new ChordNames { \transpose c d \accords }
            \new Staff  \with { instrumentName = Trumpet } \transpose c
    d \trompette
          >>
        }
      }
      \bookpart {
        \header { subtitle = \markup \concat { "For B" \flat "
    Instruments" } }
        \tocItem \markup { \underline "Tenor Part" }
        \score {
          <<
            \new ChordNames { \transpose c d \accords }
            \new Staff  \with { instrumentName = Tenor } \transpose c d
    \tenor
          >>
        }
      }
      \bookpart {
        \header { subtitle = \markup \concat { "For E" \flat "
    Instruments" } }
        \tocAct EbaIV \markup  { "For E♭ Instruments" }
        \tocItem \markup { \underline "Trumpet Part" }
        \score {
          <<
            \new ChordNames { \transpose c a \accords }
            \new Staff  \with { instrumentName = Trumpet } \transpose c
    a \trompette
          >>
        }
      }
      \bookpart {
        \header { subtitle = \markup \concat { "For E" \flat "
    Instruments" } }
        \tocItem \markup { \underline "Tenor Part" }
        \score {
          <<
            \new ChordNames { \transpose c a \accords }
            \new Staff  \with { instrumentName = Tenor } \transpose c a
    \tenor
          >>
        }
      }
    }
    
    
    
-- 
Vincent Gay
Envoyé depuis mon saxo-phone :)
https://myrealbook.vintherine.org/ - http://photos.vintherine.org/