;;;;
;;;; 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)
))
stencils))
+
(define (dump-stencils-as-EPSes stencils book basename)
+ (define do-pdf (member "pdf" (ly:output-formats)))
(define paper (ly:paper-book-paper book))
(define (dump-infinite-stack-EPS stencils)
(let* ((dump-me (stack-stencils Y DOWN 2.0 stencils)))
(dump-stencil-as-EPS paper dump-me basename #t)))
- (define (dump-stencils-as-separate-EPS stencils count)
+ (define (dump-stencils-as-separate-EPS stencils count )
(if (pair? stencils)
(let* ((line (car stencils))
- (rest (cdr stencils)))
+ (rest (cdr stencils))
+ (system-base-name (format "~a-~a" basename count))
+ )
(dump-stencil-as-EPS
- paper line (format "~a-~a" basename count)
- (ly:output-def-lookup paper 'force-eps-font-include))
-
+ paper line system-base-name
+ (ly:get-option 'include-eps-fonts))
+
+ (if do-pdf
+ (postscript->pdf 0 0 (string-append system-base-name ".eps")))
(dump-stencils-as-separate-EPS rest (1+ count)))))
\\betweenLilyPondSystem{~a}
\\fi
" c) tex-system-port))
- (display (format "\\includegraphics{~a-~a.eps}\n"
+ (display (format "\\includegraphics{~a-~a}\n"
basename (1+ c)) tex-system-port)
(display (format "@image{~a-~a}\n"
basename (1+ c)) texi-system-port))
(display "@c eof - 'eof' is a Makefile marker; do not remove. " texi-system-port)
(display "% eof - 'eof' is Makefile marker; do not remove. " tex-system-port)
- (dump-infinite-stack-EPS stencils))
+ (dump-infinite-stack-EPS stencils)
(postprocess-output book framework-eps-module
- (format "~a.eps" basename) (ly:output-formats)))
+ (format "~a.eps" basename) (ly:output-formats))))
+
+
(define-public (output-classic-framework basename book scopes fields)
(output-scopes scopes fields basename)
+
+ (if (ly:get-option 'dump-signatures)
+ (write-system-signatures basename (ly:paper-book-systems book) 1))
(dump-stencils-as-EPSes
(map paper-system-stencil (ly:paper-book-systems book))
(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
(define convert-to-tex convert-to-tex)
(define convert-to-dvi convert-to-dvi)
+