X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-eps.scm;h=60d468a123d708019585762670cf8ad203bfdbbe;hb=HEAD;hp=5aa5c0e3bb7859a31eed36c58da5068b143ba3f4;hpb=c39d188d28fdc84cef8cbaea7b8d6e2fb718c30f;p=lilypond.git diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm index 5aa5c0e3bb..60d468a123 100644 --- a/scm/framework-eps.scm +++ b/scm/framework-eps.scm @@ -1,6 +1,6 @@ ;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; Copyright (C) 2004--2014 Han-Wen Nienhuys +;;;; Copyright (C) 2004--2015 Han-Wen Nienhuys ;;;; ;;;; LilyPond is free software: you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -83,8 +83,10 @@ alignment." ;; First, create the output, then if necessary, individual staves and ;; finally write some auxiliary files if desired (dump-infinite-stack-EPS stencils) - (postprocess-output book framework-eps-module - (format #f "~a.eps" basename) (ly:output-formats)) + (postprocess-output book framework-eps-module (ly:output-formats) + basename + (format #f "~a.eps" basename) + #t) ;; individual staves (*-1.eps etc.); only print if more than one stencil ;; Otherwise the .eps and the -1.eps file will be identical and waste space @@ -95,7 +97,9 @@ alignment." (eps-files (map dump-counted-stencil counted-systems))) (if do-pdf ;; par-for-each: a bit faster ... - (for-each (lambda (y) (postscript->pdf 0 0 y)) + (for-each (lambda (y) (postscript->pdf 0 0 + (dir-basename y ".eps") + y #t)) eps-files)))) ;; Now, write some aux files if requested: .texi, .tex and .count