(dump-page): put stencil height in dumped

page.

diff --git a/ChangeLog b/ChangeLog
index 8e3be60b129f120cef9d7ac5b862371438ecbcae..e0c230bc9e07c034e86ab32e8dc24d65b3dab076 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-30  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+       * scm/framework-tex.scm (dump-page): put stencil height in dumped
+       page.
+
 2004-09-29  Mats Bengtsson  <mabe@drongo.s3.kth.se>
 
        * Documentation/user/notation.itely (Multi measure rests):

diff --git a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
index b1322e7bfe932ce8843f02b7f604f8ec156dc6ca..9329f5167c5b574f404b3fe874c2d739590434c5 100644 (file)
--- a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
+++ b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
@@ -174,6 +174,7 @@ smallerPaper = \paper {
 \score{
   \sarabandeCelloStaff
   \midi{ \tempo 4 = 40 }
+  \paper { }
   \header{
     opus= "" 
     piece ="Sarabande" }

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 585082c6efbcd796e7e28a9efb4e882aa81c500f..d27785d75c741fbe9efee4dbcd73dfaaedb2be41 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -165,7 +165,9 @@
 (define (dump-page putter page last?)
   (ly:outputter-dump-string
    putter
-   "\\vbox to 0pt{%\n\\leavevmode\n\\lybox{0}{0}{0}{0}{%\n")
+   (format "\\vbox to ~a\\outputscale{%\n\\leavevmode\n\\lybox{0}{0}{0}{0}{%\n"
+          (interval-length (ly:stencil-extent page Y))
+          ))
   (ly:outputter-dump-stencil putter page)
   (ly:outputter-dump-string
    putter