La génération d'une image par système ne fonctionne plus

[Gilles TIAR]

Bonjour à tous,

Il y a quelque temps, je découvrais avec satisfaction le code suivant, apporté par Jean (https://lists.gnu.org/archive/html/lilypond-user-fr/2021-04/msg00023.html), qui permettait d’obtenir une image par système de portée :

#(define toplevel-book-handler print-book-with-defaults-as-systems)

#(ly:set-option 'backend 'eps)

#(ly:set-option 'aux-files #f)

Je cite Jean : « Si votre fichier source se nomme partition.ly, vous obtiendrez partition-1.pdf, partition-2.pdf, etc. »

Cela fonctionnait très bien pour moi, cependant aujourd’hui, je n’obtiens plus ces images séparées, mais une seule image avec les systèmes séparés sur une nouvelle page. Mais plus de fichiers partition-1, partition-2, etc.

Voici un exemple de code, qui fonctionnait jusqu'à maintenant, si Jean ou quelqu'un d'autre a une idée de la source du problème.

Merci

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.23.0"

\language français

#(define toplevel-book-handler print-book-with-defaults-as-systems)
#(ly:set-option 'backend 'eps)
#(ly:set-option 'aux-files #f)

clefAjout = { \break \set Staff.explicitClefVisibility = #end-of-line-invisible
              \set Staff.forceClef = ##t \clef treble \key mi\minor
              \set Staff.explicitKeySignatureVisibility = #end-of-line-invisible }
 
\layout {
  ragged-last = ##t
  \context {
    \Staff
    \remove Time_signature_engraver
    \remove Bar_engraver
  }
  \context {
    \Score
    \remove Timing_translator
  }
}

\paper  {
    indent = 6\mm
    paper-height = 6.9\cm
    paper-width = 13\cm
    line-width = 13\cm
    bottom-margin = 2\mm
    top-margin = 0
    ragged-last-bottom = ##f
    tagline = ##f    
}

melody = \relative do' {
  \key mi\minor
  mi8 mi [mi] mi16 [(fad)] mi8 si' si si la16 [(si)]\breathe\clefAjout
  si8 [si] sol sol si [si] si la\breathe
}

traduc = \lyricmode {   
  16Tous8. les8 fleuves8. vont à8 la mer,
  et la mer n'en est pas8.. remplie16 ;
}

paroles = \lyricmode {
 kolo haN -- \markup\concat{\underline "h""a"} -- lim hol -- khim él ha -- Yam
 ve -- ha -- Yam ê -- né -- Nou ma -- lé
}
 
 \score {
  <<
    \new Lyrics \with {
        \override LyricText.font-shape = #'italic
        fontSize = -2
      }\traduc
      
   \new Staff
   <<    
     \new Voice = "chant" \melody
     
     \new Lyrics \with {
      fontSize = -0.75
      \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #3
      \override VerticalAxisGroup.nonstaff-nonstaff-spacing
        = #'((basic-distance . 0)
             (minimum-distance . 0)
             (padding . 0))
      }
        \lyricsto "chant" \paroles
   >>
  >>
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%