))
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))
- (system-base-name (format "~a-~a" basename count))
- )
+ (rest (cdr stencils)))
(dump-stencil-as-EPS
- paper line system-base-name
+ paper line (format "~a-~a" basename count)
(ly:get-option 'eps-font-include))
-
- (if do-pdf
- (postscript->pdf 0 0 (string-append system-base-name ".eps")))
+
(dump-stencils-as-separate-EPS rest (1+ count)))))
;; main body
(let* ((tex-system-name (format "~a-systems.tex" basename))
- (pdftex-system-name (format "~a-systems.pdftex" basename))
(texi-system-name (format "~a-systems.texi" basename))
(tex-system-port (open-output-file tex-system-name))
- (texi-system-port (open-output-file texi-system-name))
- (pdftex-system-port (open-output-file pdftex-system-name)))
+ (texi-system-port (open-output-file texi-system-name)))
(ly:message (_ "Writing ~a...") tex-system-name)
(ly:message (_ "Writing ~a...") texi-system-name)
- (ly:message (_ "Writing ~a...") pdftex-system-name)
(set! stencils (widen-left-stencil-edges stencils))
" c) tex-system-port))
(display (format "\\includegraphics{~a-~a.eps}\n"
basename (1+ c)) tex-system-port)
- (display (format "\\includegraphics{~a-~a.pdf}\n"
- basename (1+ c)) pdftex-system-port)
(display (format "@image{~a-~a}\n"
basename (1+ c)) texi-system-port))
(iota (length stencils)))
(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)))
(output-scopes scopes fields basename)
(if (ly:get-option 'dump-signatures)
- (write-system-signatures basename (ly:paper-book-systems book) 1))
+ (write-system-signatures basename (ly:paper-book-systems book) 0))
(dump-stencils-as-EPSes
(map paper-system-stencil (ly:paper-book-systems book))
(define convert-to-tex convert-to-tex)
(define convert-to-dvi convert-to-dvi)
-