;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-module (scm framework-eps))
(use-modules (ice-9 regex)
(ice-9 string-fun)
- (ice-9 format)
(guile)
(scm framework-ps)
(scm paper-system)
(srfi srfi-13)
(lily))
+(define format ergonomic-simple-format)
+
(define framework-eps-module (current-module))
(tex-system-port (open-output-string))
(texi-system-port (open-output-string))
+ (count-system-port (open-output-string))
(widened-stencils (widen-left-stencil-edges stencils))
(counted-systems (count-list widened-stencils))
(eps-files (map dump-counted-stencil counted-systems))
(display "@c eof." texi-system-port)
(display "% eof. " tex-system-port)
-
+ (display (format "~a" (length stencils)) count-system-port)
(dump-infinite-stack-EPS stencils)
(postprocess-output book framework-eps-module
(format "~a.eps" basename) (ly:output-formats))
(write-file texi-system-port "texi")
(write-file tex-system-port "tex")
+
+ ;; do this as the last action so we know the rest is complete if
+ ;; this file is present.
+ (write-file count-system-port "count")
))
(define-public (output-framework basename book scopes fields)
(output-scopes scopes fields basename)
+ (if (ly:get-option 'clip-systems)
+ (clip-system-EPSes basename book))
+
(dump-stencils-as-EPSes
(map page-stencil (ly:paper-book-pages book)) book basename))
(define convert-to-pdf convert-to-pdf)
(define convert-to-ps convert-to-ps)
(define convert-to-png convert-to-png)
-(define convert-to-tex convert-to-tex)
-(define convert-to-dvi convert-to-dvi)
-
-