Fix #642.

[lilypond.git] / scm / paper-system.scm

diff --git a/scm/paper-system.scm b/scm/paper-system.scm
index d3a140531fac845276815dc18dccb11426bbdac3..6a391a3a0f41099739022ab74027e33b287e8f66 100644 (file)
--- a/scm/paper-system.scm
+++ b/scm/paper-system.scm
@@ -17,6 +17,14 @@
 (define-public (paper-system-stencil system)
   (ly:prob-property system 'stencil))
 
+(define-public (paper-system-layout system)
+  (let*
+      ((g (paper-system-system-grob system)))
+
+    (if (ly:grob? g)
+       (ly:grob-layout  g)
+       #f)))
+
 (define-public (paper-system-system-grob paper-system)
   (ly:prob-property paper-system 'system-grob))
 
@@ -24,7 +32,7 @@
   (ly:stencil-extent (paper-system-stencil system) axis))
 
 (define-public (paper-system-staff-extents ps)
-  (ly:prob-property ps 'refpoint-Y-extent '(0 . 0)))
+  (ly:prob-property ps 'staff-refpoint-extent '(0 . 0)))
 
 (define-public (paper-system-annotate-last system layout)
   (let*
@@ -134,7 +142,7 @@
                                 "Y-extent" "next-padding" "space after next-padding")
       (annotate-extent-and-space paper-system-staff-extents
                                 (+ next-space next-padding)
-                                "refpoint-Y-extent" "next-space+padding"
+                                "staff-refpoint-extent" "next-space+padding"
                                 "space after next-space+padding"))
     (if estimate-extent
        (set! annotations
@@ -150,4 +158,4 @@
                (ly:stencil-expr annotations)
                (ly:stencil-extent empty-stencil X)
                (ly:stencil-extent empty-stencil Y)))))
-    (ly:prob-property system 'stencil)))
\ No newline at end of file
+    (ly:prob-property system 'stencil)))