;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-module (scm framework-eps))
(use-modules (ice-9 regex)
(ice-9 string-fun)
- (ice-9 format)
(guile)
(scm framework-ps)
(scm paper-system)
(srfi srfi-13)
(lily))
+(define format ergonomic-simple-format)
+
(define framework-eps-module (current-module))
(define-public (output-framework basename book scopes fields)
(output-scopes scopes fields basename)
+ (if (ly:get-option 'clip-systems)
+ (clip-system-EPSes basename book))
+
(dump-stencils-as-EPSes
(map page-stencil (ly:paper-book-pages book)) book basename))