From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 19 Dec 2004 17:03:22 +0000 (+0000)
Subject: (output-framework): new file.
X-Git-Tag: release/2.5.14~380
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=112532a958c40e4e5d3e6ce9e018a6eeb89bca72;p=lilypond.git

(output-framework): new file.
---

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index e021f471ef..834df7d309 100644
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -17,10 +17,16 @@
 	     (lily))
 
 
+(define (define-fonts paper)
+   ;; UGH. FIXME.
+   (format "(globalscale ~a)\n" (ly:paper-outputscale paper)))
+
+
 (define-public (output-framework outputter book scopes fields basename )
   (let* ((paper (ly:paper-book-paper book))
 	 (pages (ly:paper-book-pages book))
 	 )
+    (ly:outputter-dump-string outputter (define-fonts paper))
     (for-each
      (lambda (page)
        (ly:outputter-dump-stencil outputter page))