(output-framework): new file.

[lilypond.git] / scm / framework-texstr.scm

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index e021f471ef022ff59223ecb3d1dfce5311c03660..834df7d30951e24281ff89a772d5e94ff3b80101 100644 (file)
--- 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))