From 1759a10e0e322868d2eefb13ebd13b047c6afd55 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 17 Dec 2006 20:53:00 +0100 Subject: [PATCH] Use netpbm iso convert. Keeps grayscales grayscale. --- scm/ps-to-png.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm index 11515f1dea..19473b9a63 100644 --- a/scm/ps-to-png.scm +++ b/scm/ps-to-png.scm @@ -94,13 +94,16 @@ (define (scale-down-image be-verbose factor file) (let* ((status 0) - (percentage (* 100 (/ 1.0 factor))) + ;;(percentage (* 100 (/ 1.0 factor))) (old (string-append file ".old"))) (rename-file file old) (my-system be-verbose #t - (format #f "convert -scale \"~a%\" -depth 8 ~a ~a" percentage old file)) + ;; convert -scale creates (a large rgb) png from a grayscale + ;; (format #f "convert -scale \"~a%\" -depth 8 ~a ~a" percentage old file)) + + (format #f "pngtopnm ~a | pnmscale -reduce ~a | pnmtopng > ~a" old factor file)) (delete-file old))) (define-public (ps-page-count ps-name) @@ -197,7 +200,6 @@ )) (if (not (= 1 anti-alias-factor)) - (for-each (lambda (f) (scale-down-image be-verbose anti-alias-factor f)) - files)) - + (for-each + (lambda (f) (scale-down-image be-verbose anti-alias-factor f)) files)) files))) -- 2.39.2