going through ps2pdf wrappers.
+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
"\""))
(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))