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.13.46"
  17
  18 #(set-global-staff-size 11)
  19
  20 \book {
  21   \score {
  22     \relative c'' \new PianoStaff <<
  23       \new Voice  {
  24         c1_"followed by default spacing"\break
  25         c\break
  26
  27         \overrideProperty
  28         #"Score.NonMusicalPaperColumn"
  29         #'line-break-system-details
  30         #'((Y-extent . (-30 . 10)))
  31         c_"Big bounding box (property Y-extent)"\break
  32
  33         \overrideProperty
  34         #"Score.NonMusicalPaperColumn"
  35         #'line-break-system-details
  36         #'((refpoint-Y-extent . (-37 . -10)))
  37         c_\markup {
  38           \column {
  39             "Refpoints further apart (property refpoint-Y-extent)."
  40             "Stretchable space runs between refpoints"
  41           }
  42         }
  43
  44         \break
  45
  46         \overrideProperty
  47         #"Score.NonMusicalPaperColumn"
  48         #'line-break-system-details
  49         #'((next-padding . 10))
  50
  51         c_"Followed by padding, ie unstretchable space. (property next-padding)" \break
  52         \overrideProperty
  53         #"Score.NonMusicalPaperColumn"
  54         #'line-break-system-details
  55         #'((next-space . 20))
  56         c_"Followed by stretchable space (property next-space)"\break
  57         c\break
  58         \overrideProperty
  59         #"Score.NonMusicalPaperColumn" #'line-break-system-details
  60         #'((bottom-space . 25.0))
  61         c_"25 staff space to the bottom of the page. (property bottom-space)"\break
  62
  63
  64       }
  65       { c1 c c c c c c c }
  66     >>
  67   }
  68   \paper {
  69     ragged-last-bottom = ##f
  70     annotate-spacing = ##t
  71     obsolete-between-system-space = 1.0
  72     system-system-spacing #'basic-distance = #(/ obsolete-between-system-space staff-space)
  73     score-system-spacing #'basic-distance = #(/ obsolete-between-system-space staff-space)
  74     #(set! text-font-defaults
  75       (acons
  76        'font-size 6
  77        text-font-defaults)
  78
  79     )
  80   }
  81 }