From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 29 Sep 2004 22:25:05 +0000 (+0000)
Subject: (dump-page): put stencil height in dumped
X-Git-Tag: release/2.3.20~16
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=24a41b6359460fbdbc457b5ae5fb26f29a9fb2a9;p=lilypond.git

(dump-page): put stencil height in dumped
page.
---

diff --git a/ChangeLog b/ChangeLog
index 8e3be60b12..e0c230bc9e 100644
--- 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 b1322e7bfe..9329f5167c 100644
--- 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 585082c6ef..d27785d75c 100644
--- 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