From 112532a958c40e4e5d3e6ce9e018a6eeb89bca72 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 19 Dec 2004 17:03:22 +0000
Subject: [PATCH] (output-framework): new file.
---
scm/framework-texstr.scm | 6 ++++++
1 file changed, 6 insertions(+)
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))
--
2.39.5