Add '-dcrop' option to ps and svg backends

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

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index 5aa5c0e3bb7859a31eed36c58da5068b143ba3f4..60d468a123d708019585762670cf8ad203bfdbbe 100644 (file)
--- 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 <hanwen@xs4all.nl>
+;;;; Copyright (C) 2004--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; 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