Fix some bugs in the dynamic engraver and PostScript backend

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

diff --git a/input/regression/page-spacing.ly b/input/regression/page-spacing.ly
index 928659a643bed8d05d5ce41ba6d2c3272047d5b3..4081ba6d8cfa6d855753fa446cae8c67946c88d9 100644 (file)
--- a/input/regression/page-spacing.ly
+++ b/input/regression/page-spacing.ly
@@ -4,48 +4,61 @@
   texidoc = "By setting properties in NonMusicalPaperColumn, vertical
 spacing of page layout can be adjusted.
 
-For technical reasons, @code{outputProperty} has to be used for
+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{annotatespacing}, we can see the effect of each property.
 "
 
 }
 
-\version "2.7.10"
+\version "2.7.39"
 
 #(set-global-staff-size 11)
 
 \book {
   \score {
-    \relative c'' \new StaffGroup <<
+    \relative c'' \new PianoStaff <<
       \new Voice  {
-       c1\break
+       c1_"followed by default spacing"\break
+       c\break
 
-       \outputProperty
+       \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
+       \overrideProperty
        #"Score.NonMusicalPaperColumn"
        #'line-break-system-details
-       #'((next-padding . 20))
+       #'((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^"This system is followed by padding, ie unstretchable space. (property next-padding)" \break
-       \outputProperty
+       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
+       \overrideProperty
        #"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
+       c_"25 staff space to the bottom of the page. (property bottom-space)"\break
 
 
       }
@@ -53,7 +66,14 @@ used for global overrides.
     >>
   }
   \paper {
-    raggedlastbottom = ##f
-    betweensystemspace = 1.0
+    ragged-last-bottom = ##f
+    annotate-spacing = ##t
+    between-system-space = 1.0
+    #(set! text-font-defaults
+      (acons
+       'font-size 6
+       text-font-defaults)
+      
+    )
   }
 }