Fix some bugs in the dynamic engraver and PostScript backend

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

diff --git a/scm/paper-system.scm b/scm/paper-system.scm
index eec080e253d8b4521aa63be7d69f59ecd6e6e1aa..d414285d9df3d75a5dde138f8905343f5f7164a7 100644 (file)
--- a/scm/paper-system.scm
+++ b/scm/paper-system.scm
@@ -17,6 +17,9 @@
 (define-public (paper-system-stencil system)
   (ly:prob-property system 'stencil))
 
+(define-public (paper-system-system-grob paper-system)
+  (ly:prob-property paper-system 'system-grob))
+
 (define-public (paper-system-extent system axis)
   (ly:stencil-extent (paper-system-stencil system) axis))
 
@@ -48,6 +51,7 @@
   
 (define-public (paper-system-annotate system layout)
   "Add arrows and texts to indicate which lengths are set."
+  
   (let*
       ((annotations (ly:make-stencil '() (cons 0 2) (cons 0 0)))
        (append-stencil
@@ -69,7 +73,6 @@
        (next-padding (ly:prob-property system 'next-padding
                                               (ly:output-def-lookup layout 'between-system-padding)
                                               ))
-                    
        )
 
     (if (number-pair? bbox-extent)
@@ -89,8 +92,6 @@
          (annotate-property "next-space"
                             (interval-translate (cons (- next-space) 0) (car refp-extent))
                       #t)))
-       
-    
 
     (set! (ly:prob-property system 'stencil)
          (ly:stencil-add