From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Sun, 14 Jun 2015 14:38:24 +0000 (+0900)
Subject: Issue 4451 / 2: Add debug messages for PNG scale down
X-Git-Tag: release/2.19.22-1~18
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f7265a8c02b611af4fb32421572aced68c0634c9;p=lilypond.git

Issue 4451 / 2: Add debug messages for PNG scale down

In procedure ``scale-down-image'' (ps-to-png.scm),
debug messages are added.
---

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index a8a170cc2f..f5d40d0c5c 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -69,10 +69,14 @@
            (search-pnmtopng)
            tmp2-name)))
 
+    (ly:debug (_ "Copying `~a' to `~a'...") file tmp1-name)
     (copy-binary-file file tmp1-name)
     (ly:system-with-shell cmd)
+    (ly:debug (_ "Copying `~a' to `~a'...") tmp2-name file)
     (copy-binary-file tmp2-name file)
+    (ly:debug (_ "Deleting `~a'...") tmp1-name)
     (delete-file tmp1-name)
+    (ly:debug (_ "Deleting `~a'...") tmp2-name)
     (delete-file tmp2-name)))
 
 (define-public (ps-page-count ps-name)