From 75f449e7fe1daec2e172ce9e312f55f3cfe19138 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Sun, 19 Dec 2004 16:55:35 +0000
Subject: [PATCH] * scm/output-texstr.scm (placebox): add routine
* scm/framework-texstr.scm (output-framework): new file.
* scm/output-texstr.scm: new file. Collect (TEXT . ) calls for TeX
processing.
---
ChangeLog | 4 ++++
scm/framework-texstr.scm | 34 ----------------------------------
scm/output-texstr.scm | 20 ++++++++++++--------
3 files changed, 16 insertions(+), 42 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index ec008cbe1a..87c48b2dc1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2004-12-19 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * scm/output-texstr.scm (placebox): add routine
+
+ * VERSION (PACKAGE_NAME): release 2.5.4
+
* scm/framework-texstr.scm (output-framework): new file.
* scm/output-texstr.scm: new file. Collect (TEXT . ) calls for TeX
diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index 2c6a25f8b7..e021f471ef 100644
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -16,50 +16,16 @@
(srfi srfi-13)
(lily))
-(define (dump-page putter page last? with-extents?)
- (ly:outputter-dump-string
- putter
- (format "\\lybox{~a}{~a}{%\n"
- (if with-extents?
- (interval-start (ly:stencil-extent page X))
- 0.0)
- (if with-extents?
- (- (interval-start (ly:stencil-extent page Y)))
- 0.0)))
- (ly:outputter-dump-string
- putter
- (if last?
- "}%\n\\vfill\n"
- "}%\n\\vfill\n\\lilypondpagebreak\n")))
(define-public (output-framework outputter book scopes fields basename )
(let* ((paper (ly:paper-book-paper book))
(pages (ly:paper-book-pages book))
)
- (for-each
- (lambda (x)
- (ly:outputter-dump-string outputter x))
- (list))
(for-each
(lambda (page)
(ly:outputter-dump-stencil outputter page))
pages)))
-(define (dump-line putter line last?)
- (ly:outputter-dump-string
- putter
- (format "\\lybox{~a}{~a}{%\n"
- (ly:number->string
- (max 0 (interval-end (ly:paper-system-extent line X))))
- (ly:number->string
- (interval-length (ly:paper-system-extent line Y)))))
-
- (ly:outputter-dump-stencil putter (ly:paper-system-stencil line))
- (ly:outputter-dump-string
- putter
- (if last?
- "}%\n"
- "}\\interscoreline\n")))
(define-public (convert-to-ps . args) #t)
diff --git a/scm/output-texstr.scm b/scm/output-texstr.scm
index ffcf1797f1..54fd4f067e 100644
--- a/scm/output-texstr.scm
+++ b/scm/output-texstr.scm
@@ -10,19 +10,23 @@
(define (dummy . foo) #f)
-(map (lambda (x) (module-define! this-module x dummy))
- (append
- (ly:all-stencil-expressions)
- (ly:all-output-backend-commands)))
+(map (lambda (x) (module-define! this-module x dummy))
+ (ly:all-stencil-expressions))
+(define-public (grob-cause . x) "")
+(define-public (no-origin . x) "")
+(define-public (placebox
+ x y what)
+ (if (string? what)
+ what
+ ""))
+
(define-public (text font s)
(call-with-output-string
(lambda (port)
(write (list
- "HOI"
(ly:font-file-name font)
(ly:font-magnification font)
- s
- ) port))))
-
+ s) port)
+ (newline port))))
--
2.39.5