input/regression/stem-length-estimation.ly

   1 \version "2.13.51"
   2
   3 \header {
   4   texidoc = "Stems with overridden 'length should not confuse height estimation.
   5 This example should fit snugly on one page.
   6 "
   7 }
   8
   9 #(define (assert-single-page layout props arg)
  10    (if (and (= (chain-assoc-get 'page:page-number props -1)
  11                (ly:output-def-lookup layout 'first-page-number))
  12             (chain-assoc-get 'page:last? props -1))
  13        (interpret-markup layout props arg)
  14        (ly:error "failed to fit test on single page")))
  15
  16 \paper {
  17   #(set-paper-size "a6")
  18   tagline = ##f
  19   indent = #0
  20   system-system-spacing = #'((padding . 1.2))
  21   oddHeaderMarkup = \markup \on-the-fly #assert-single-page \null
  22 }
  23
  24 \book {
  25   \score {
  26     \new Voice {
  27       \voiceTwo
  28       \override Stem #'length = #0
  29       \repeat unfold 144 a4
  30     }
  31     \layout {
  32       \context {
  33         \Score
  34         \remove "Bar_number_engraver"
  35       }
  36     }
  37   }
  38 }