input/regression/stem-length-estimation.ly

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