Re: Deux bookpart sur une page

[Valentin Villenave]

On 5/1/20, Valentin Villenave <address@hidden> wrote:
> avec Y-extent = #'(-10 . 10) il ajoutera 10 staff-spaces vers le
> haut et 10 vers le bas.

… Mais ça va faire moche quand même.

Tu veux du hack? En voilà (attention ça pique) :

%%%%

\language "français"

addSpace =
#(define-music-function (padding music) (number? ly:music?)
   #{ \context Voice <<
     \repeat unfold $(ly:moment-main-numerator
                      (ly:moment-div
                       (ly:music-length music)
                       (ly:make-moment 1 4)))
     s4_\markup {
       $(make-vspace-markup padding)
       \null }
     $music
   >> #})

un = \repeat unfold 16 \fixed do'
{do8 ré mi fa sol la si do}

deux = \repeat unfold 8 \fixed do'
{do8 ré mi fa sol la si do}

\book {
  \header { title = "Titre" }
  \bookpart {
    \markup\bold\fontsize #2 "Un"
    \score  {
      \addSpace 3 \un
      \layout {
        system-count = 4
      }
    }
    \markuplist { \vspace #5 \bold\fontsize #2 "Deux" }
    \score  {
      \addSpace 5 \deux
      \layout {
        system-count = 2
      }
    }
  }
}

%%%

V.