From 87a267edfee89ba8c6ef071ccbe50b32993e8fe2 Mon Sep 17 00:00:00 2001
From: janneke <janneke>
Date: Tue, 10 May 2005 07:29:38 +0000
Subject: [PATCH] (postscript->pdf): Invoke gs instead of going through ps2pdf
 wrappers.

---
 ChangeLog               |  5 +++++
 scm/backend-library.scm | 20 +++++++++++++++++---
 2 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6f5e58f0f1..abb2e764ec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-10  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* scm/backend-library.scm (postscript->pdf): Invoke gs instead of
+	going through ps2pdf wrappers.
+
 2005-05-09  Jürgen Reuter  <reuter@ipd.uka.de>
 
 	* Documentation/user/instrument-notation.itely: petrucci note
diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index a008fd28dd..ceac0725e4 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -32,9 +32,23 @@
    "\""))
 
 (define-public (postscript->pdf papersizename name)
-  (let* ((cmd (format #f "ps2pdf -sPAPERSIZE=~a '~a'"
-		      (sanitize-command-option papersizename) name))
-	 (pdf-name (string-append (basename name ".ps") ".pdf" )))
+  (let* ((pdf-name (string-append (basename name ".ps") ".pdf" ))
+	 (cmd (format #f
+		      "gs\
+ -dCompatibilityLevel=1.2\
+ -dSAFER\
+ -sPAPERSIZE=~a\
+ -q\
+ -dNOPAUSE\
+ -dBATCH\
+ -sDEVICE=pdfwrite\
+ -sOutputFile='~a'\
+ -c .setpdfwrite\
+ -f'~a'\
+"
+		      (sanitize-command-option papersizename)
+		      pdf-name
+		      name)))
 
     (if (access? pdf-name W_OK)
 	(delete-file pdf-name))
-- 
2.39.5