;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-module (scm framework-eps))
(dump-stencil-as-EPS
paper line system-base-name
- (ly:get-option 'eps-font-include))
+ (ly:get-option 'include-eps-fonts))
(if do-pdf
(postscript->pdf 0 0 (string-append system-base-name ".eps")))
;; 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))
\\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 "\\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)))