input/lsr/spacing/page-spacing.ly

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