(write-system-signature): new routine: write

[lilypond.git] / scm / framework-eps.scm

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index 9a7036df3682fb08d5bdc68ce544774ffee3fd95..18464278dd8ea6b7f673a4c9cf363b8ef580d483 100644 (file)
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -95,8 +95,22 @@ stencil, so LaTeX includegraphics doesn't fuck up the alignment."
     (postprocess-output book framework-eps-module
                        (format "~a.eps" basename) (ly:output-formats)))
 
+
+(define (write-system-signatures basename paper-systems count)
+  (if (pair? paper-systems)
+      (begin
+       (let*
+           ((outname (format "~a-~a.signature" basename count)) )
+            
+         (ly:message "writing ~a" outname)
+         (write-system-signature outname (car paper-systems))
+         (write-system-signatures basename (cdr paper-systems) (1+ count))))))
+
+
 (define-public (output-classic-framework basename book scopes fields)
   (output-scopes scopes fields basename)
+
+  (write-system-signatures basename (ly:paper-book-systems book) 0)
   
   (dump-stencils-as-EPSes
    (map paper-system-stencil (ly:paper-book-systems book))