CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/06/12 14:11:19
Modified files:
. : ChangeLog
scm : backend-library.scm ps-to-png.scm
Log message:
* scm/ps-to-png.scm (make-ps-images): fix rename-page-1 functionality.
* scm/backend-library.scm (postscript->png): set rename-page-1 to
true.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3766&tr2=1.3767&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/backend-library.scm.diff?tr1=1.35&tr2=1.36&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/ps-to-png.scm.diff?tr1=1.8&tr2=1.9&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3766 lilypond/ChangeLog:1.3767
--- lilypond/ChangeLog:1.3766 Sun Jun 12 06:46:22 2005
+++ lilypond/ChangeLog Sun Jun 12 14:11:15 2005
@@ -1,3 +1,10 @@
+2005-06-12 Han-Wen Nienhuys <[EMAIL PROTECTED]>
+
+ * scm/ps-to-png.scm (make-ps-images): fix rename-page-1 functionality.
+
+ * scm/backend-library.scm (postscript->png): set rename-page-1 to
+ true.
+
2005-06-11 Graham Percival <[EMAIL PROTECTED]>
* Documentation/user/lilypond-book.itely: add warning about
@@ -5,6 +12,8 @@
2005-06-11 Han-Wen Nienhuys <[EMAIL PROTECTED]>
+ * THANKS: typo
+
* mf/GNUmakefile ($(outdir)/$(redhat-package)): Fedora-4 url.
* GNUmakefile.in: remove links for .map, .enc
Index: lilypond/scm/backend-library.scm
diff -u lilypond/scm/backend-library.scm:1.35
lilypond/scm/backend-library.scm:1.36
--- lilypond/scm/backend-library.scm:1.35 Fri Jun 10 08:19:19 2005
+++ lilypond/scm/backend-library.scm Sun Jun 12 14:11:19 2005
@@ -93,10 +93,10 @@
;;(ly:message (_ "Converting to `~a'...")
;; (string-append (basename name ".ps") "-page1.png" )))
(let ((paper-size (sanitize-command-option paper-size-name))
- (verbose? (ly:get-option 'verbose))
- (rename-page-1? #f))
+ (verbose (ly:get-option 'verbose))
+ (rename-page-1 #t))
(ly:message (_ "Converting to ~a...") "PNG")
- (make-ps-images name resolution paper-size rename-page-1? verbose?)
+ (make-ps-images name resolution paper-size rename-page-1 verbose)
(ly:progress "\n")))
(define-public (postprocess-output paper-book module filename formats)
Index: lilypond/scm/ps-to-png.scm
diff -u lilypond/scm/ps-to-png.scm:1.8 lilypond/scm/ps-to-png.scm:1.9
--- lilypond/scm/ps-to-png.scm:1.8 Fri Jun 10 12:59:05 2005
+++ lilypond/scm/ps-to-png.scm Sun Jun 12 14:11:19 2005
@@ -147,5 +147,5 @@
(format #f (_ "~a exited with status: ~S") "GS" status))
(exit 1)))
(if (and rename-page-1? multi-page?)
- (rename (re-sub "%d" "1" pngn) png1))
+ (rename-file (re-sub "%d" "1" pngn) png1))
(append (dir-re "." png1) (dir-re "." pngn-re)))))
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
