;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
(define-module (scm framework-eps))
(ice-9 format)
(guile)
(scm framework-ps)
+ (scm paper-system)
+ (scm page)
(scm output-ps)
(srfi srfi-1)
(srfi srfi-13)
(dump-stencil-as-EPS
paper line (format "~a-~a" basename count)
- (ly:output-def-lookup paper 'force-eps-font-include))
+ (ly:get-option 'eps-font-include))
(dump-stencils-as-separate-EPS rest (1+ count)))))
(define-public (output-framework basename book scopes fields)
(output-scopes scopes fields basename)
- (dump-stencils-as-EPSes (ly:paper-book-pages book) book basename))
+ (dump-stencils-as-EPSes
+ (map page-stencil (ly:paper-book-pages book)) book basename))
; redefine to imports from framework-ps