Web-ja: update introduction

[lilypond.git] / input / regression / page-spacing.ly

diff --git a/input/regression/page-spacing.ly b/input/regression/page-spacing.ly
index 928659a643bed8d05d5ce41ba6d2c3272047d5b3..2227b0fb1ec45b31217a5e82c15482fff9ad9f70 100644 (file)
--- a/input/regression/page-spacing.ly
+++ b/input/regression/page-spacing.ly
@@ -4,48 +4,57 @@
   texidoc = "By setting properties in NonMusicalPaperColumn, vertical
 spacing of page layout can be adjusted.
 
-For technical reasons, @code{outputProperty} has to be used for
-setting properties on individual object. @code{\override} may still be
+For technical reasons, @code{overrideProperty} has to be used for
+setting properties on individual object. @code{\\override} may still be
 used for global overrides.
 
+By setting @code{annotate-spacing}, we can see the effect of each property.
 "
 
 }
 
-\version "2.7.10"
+\version "2.19.21"
 
 #(set-global-staff-size 11)
 
 \book {
   \score {
-    \relative c'' \new StaffGroup <<
+    \relative \new PianoStaff <<
       \new Voice  {
-       c1\break
+       c''1_"followed by default spacing"\break
+       c\break
 
-       \outputProperty
-       #"Score.NonMusicalPaperColumn"
-       #'line-break-system-details
+       \overrideProperty
+       Score.NonMusicalPaperColumn.line-break-system-details
        #'((Y-extent . (-30 . 10)))
-       c^"This system has big extents (property Y-extent)"\break
+       c_"Big bounding box (property Y-extent)"\break
 
-       c\break
-       \outputProperty
-       #"Score.NonMusicalPaperColumn"
-       #'line-break-system-details
-       #'((next-padding . 20))
-
-       c^"This system is followed by padding, ie unstretchable space. (property next-padding)" \break
-       \outputProperty
-       #"Score.NonMusicalPaperColumn"
-       #'line-break-system-details
+       \overrideProperty
+       Score.NonMusicalPaperColumn.line-break-system-details
+       #'((refpoint-Y-extent . (-37 . -10)))
+       c_\markup {
+         \column {
+           "Refpoints further apart (property refpoint-Y-extent)."
+           "Stretchable space runs between refpoints"
+         }
+       }
+
+       \break
+
+       \overrideProperty
+       Score.NonMusicalPaperColumn.line-break-system-details
+       #'((next-padding . 10))
+
+       c_"Followed by padding, ie unstretchable space. (property next-padding)" \break
+       \overrideProperty
+       Score.NonMusicalPaperColumn.line-break-system-details
        #'((next-space . 20))
-       c^"This system is followed by stretchable space (property next-space)"\break
-       c\break
+       c_"Followed by stretchable space (property next-space)"\break
        c\break
-       \outputProperty
-       #"Score.NonMusicalPaperColumn" #'line-break-system-details
-       #'((bottom-space . 25.0)) 
-       c^"This system has 25 staff space to the bottom of the page. (property bottom-space)"\break
+       \overrideProperty
+       Score.NonMusicalPaperColumn.line-break-system-details
+       #'((bottom-space . 25.0))
+       c_"25 staff space to the bottom of the page. (property bottom-space)"\break
 
 
       }
@@ -53,7 +62,16 @@ used for global overrides.
     >>
   }
   \paper {
-    raggedlastbottom = ##f
-    betweensystemspace = 1.0
+    ragged-last-bottom = ##f
+    annotate-spacing = ##t
+    obsolete-between-system-space = 1.0
+    system-system-spacing.basic-distance = #(/ obsolete-between-system-space staff-space)
+    score-system-spacing.basic-distance = #(/ obsolete-between-system-space staff-space)
+    #(set! text-font-defaults
+      (acons
+       'font-size 6
+       text-font-defaults)
+
+    )
   }
 }