(convert-to-ps): add -ofoo.ps to dvips

options.

diff --git a/ChangeLog b/ChangeLog
index 33ceb29764462fb2eec754fef818451e70d9fd03..fc6c24acd455478f54cdeb0620bc7c9c1e757d93 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-03-27  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * scm/framework-tex.scm (convert-to-ps): add -ofoo.ps to dvips
+       options.
+
        * lily/slur-scoring.cc (get_base_attachments): only look at stem
        extent for visible stems.
 

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 69bdf09afe09b3d021a20030046f14f9c83b7e36..af6ea94548d81c21fc096d9a2d56fef229a9abec 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -316,6 +316,7 @@
         (papersizename (ly:output-def-lookup paper 'papersizename))
         (landscape? (eq? #t (ly:output-def-lookup paper 'landscape)))
         (base (basename name ".tex"))
+        (ps-name (format "~a.ps"  base ".ps"))
         (cmd (string-append "dvips "
                             (if preview?
                                 "-E "
@@ -330,10 +331,10 @@
                             (if (ly:kpathsea-find-file "ecrm10.pfa")
                                 "-u+ec-mftrace.map " "")
                             "-u+lilypond.map -Ppdf " ""
+                            "-o" ps-name
                             base)))
-    (let ((ps-name (string-append base ".ps")))
-      (if (access? ps-name W_OK)
-         (delete-file ps-name)))
+    (if (access? ps-name W_OK)
+       (delete-file ps-name)))
     (if (not (ly:get-option 'verbose))
        (begin
          (format (current-error-port) (_ "Converting to `~a'...")