))
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)
+ paper line system-base-name
(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)))))
\\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 convert-to-tex convert-to-tex)
(define convert-to-dvi convert-to-dvi)
+