CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Jan Nieuwenhuizen <[EMAIL PROTECTED]> 05/05/10 07:29:38
Modified files:
scm : backend-library.scm
. : ChangeLog
Log message:
(postscript->pdf): Invoke gs instead of
going through ps2pdf wrappers.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/backend-library.scm.diff?tr1=1.20&tr2=1.21&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3584&tr2=1.3585&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3584 lilypond/ChangeLog:1.3585
--- lilypond/ChangeLog:1.3584 Tue May 10 07:22:17 2005
+++ lilypond/ChangeLog Tue May 10 07:29:38 2005
@@ -1,3 +1,8 @@
+2005-05-10 Jan Nieuwenhuizen <[EMAIL PROTECTED]>
+
+ * scm/backend-library.scm (postscript->pdf): Invoke gs instead of
+ going through ps2pdf wrappers.
+
2005-05-09 Jürgen Reuter <[EMAIL PROTECTED]>
* Documentation/user/instrument-notation.itely: petrucci note
Index: lilypond/scm/backend-library.scm
diff -u lilypond/scm/backend-library.scm:1.20
lilypond/scm/backend-library.scm:1.21
--- lilypond/scm/backend-library.scm:1.20 Sat May 7 14:49:37 2005
+++ lilypond/scm/backend-library.scm Tue May 10 07:29:38 2005
@@ -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))
_______________________________________________
Lilypond-cvs mailing list
Lilypond-cvs@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
