* scm/paper-system.scm (paper-system-annotate): also annotate the

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

diff --git a/scm/paper-system.scm b/scm/paper-system.scm
index 2f22865b4830fed7e6a7b2c06611d27da78f3ad6..d3a140531fac845276815dc18dccb11426bbdac3 100644 (file)
--- a/scm/paper-system.scm
+++ b/scm/paper-system.scm
@@ -103,7 +103,15 @@
                                        (list annotations
                                              (ly:make-stencil '() (cons 0 1) (cons 0 0))
                                              (apply ly:stencil-add
-                                                    extent-annotations)))))))))
+                                                    extent-annotations))))))))
+
+        (grob (ly:prob-property system 'system-grob))
+        (estimate-extent (if (ly:grob? grob)
+                             (annotate-y-interval layout
+                                                  "extent-estimate"
+                                                  (ly:grob-property grob 'pure-Y-extent)
+                                                  #f)
+                             #f)))
     (let ((next-space (ly:prob-property
                       system 'next-space
                       (cond ((and next-system
@@ -128,6 +136,12 @@
                                 (+ next-space next-padding)
                                 "refpoint-Y-extent" "next-space+padding"
                                 "space after next-space+padding"))
+    (if estimate-extent
+       (set! annotations
+             (stack-stencils X RIGHT 0.5
+                             (list annotations
+                                   estimate-extent))))
+                               
     (if (not (null? annotations))
        (set! (ly:prob-property system 'stencil)
              (ly:stencil-add