input/regression/page-spacing.ly

   1
   2 \header {
   3
   4   texidoc = "By setting properties in NonMusicalPaperColumn, vertical
   5 spacing of page layout can be adjusted.
   6
   7 For technical reasons, @code{overrideProperty} has to be used for
   8 setting properties on individual object. @code{\\override} may still be
   9 used for global overrides.
  10
  11 By setting @code{annotate-spacing}, we can see the effect of each property.
  12 "
  13
  14 }
  15
  16 \version "2.19.21"
  17
  18 #(set-global-staff-size 11)
  19
  20 \book {
  21   \score {
  22     \relative \new PianoStaff <<
  23       \new Voice  {
  24         c''1_"followed by default spacing"\break
  25         c\break
  26
  27         \overrideProperty
  28         Score.NonMusicalPaperColumn.line-break-system-details
  29         #'((Y-extent . (-30 . 10)))
  30         c_"Big bounding box (property Y-extent)"\break
  31
  32         \overrideProperty
  33         Score.NonMusicalPaperColumn.line-break-system-details
  34         #'((refpoint-Y-extent . (-37 . -10)))
  35         c_\markup {
  36           \column {
  37             "Refpoints further apart (property refpoint-Y-extent)."
  38             "Stretchable space runs between refpoints"
  39           }
  40         }
  41
  42         \break
  43
  44         \overrideProperty
  45         Score.NonMusicalPaperColumn.line-break-system-details
  46         #'((next-padding . 10))
  47
  48         c_"Followed by padding, ie unstretchable space. (property next-padding)" \break
  49         \overrideProperty
  50         Score.NonMusicalPaperColumn.line-break-system-details
  51         #'((next-space . 20))
  52         c_"Followed by stretchable space (property next-space)"\break
  53         c\break
  54         \overrideProperty
  55         Score.NonMusicalPaperColumn.line-break-system-details
  56         #'((bottom-space . 25.0))
  57         c_"25 staff space to the bottom of the page. (property bottom-space)"\break
  58
  59
  60       }
  61       { c1 c c c c c c c }
  62     >>
  63   }
  64   \paper {
  65     ragged-last-bottom = ##f
  66     annotate-spacing = ##t
  67     obsolete-between-system-space = 1.0
  68     system-system-spacing.basic-distance = #(/ obsolete-between-system-space staff-space)
  69     score-system-spacing.basic-distance = #(/ obsolete-between-system-space staff-space)
  70     #(set! text-font-defaults
  71       (acons
  72        'font-size 6
  73        text-font-defaults)
  74
  75     )
  76   }
  77 }