* scm/page-layout.scm (default-page-make-stencil): whoops. Add

[lilypond.git] / scm / page-layout.scm

diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index 99b5bb6b395f45a59ae2ded80ba247cbb58d90fe..265affbf7d9c7ddd29547aa3cd02569a2dbe7bd0 100644 (file)
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -143,6 +143,11 @@
                     
       (head (page-headfoot paper scopes number 'make-header 'headsep UP last?))
       (foot (page-headfoot paper scopes number 'make-footer 'footsep DOWN last?))
+
+      (head-height (if (ly:stencil? head)
+                      (interval-length (ly:stencil-extent head Y))
+                      0.0))
+
       (line-stencils (map ly:paper-system-stencil lines))
       (height-proc (ly:output-def-lookup paper 'page-music-height))
 
@@ -156,6 +161,7 @@
                           (ly:stencil-translate-axis
                            (car stencil-position)
                            (- 0
+                              head-height
                               (cadr stencil-position)
                               topmargin)
                               Y)
@@ -163,6 +169,9 @@
       )
 
 
+    (set! page-stencil (ly:stencil-combine-at-edge
+         page-stencil Y DOWN head 0. 0.))
+
     (map add-system (zip line-stencils offsets))
     (if (ly:stencil? foot)
        (set! page-stencil