X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=scm%2Fps-to-png.scm;h=d0f810fafbdf14370709f69911eb868770b85130;hb=4d405ef96a8a62771d7d9a283ff5369a772e89d8;hp=f5d40d0c5ceefdcd94cbcf4e39cc126c0b57a57b;hpb=f7265a8c02b611af4fb32421572aced68c0634c9;p=lilypond.git

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index f5d40d0c5c..d0f810fafb 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -69,6 +69,8 @@
            (search-pnmtopng)
            tmp2-name)))
 
+    (close-port port-tmp1)
+    (close-port port-tmp2)
     (ly:debug (_ "Copying `~a' to `~a'...") file tmp1-name)
     (copy-binary-file file tmp1-name)
     (ly:system-with-shell cmd)
@@ -143,6 +145,7 @@
                     "-dNOPAUSE"
                     "-dBATCH"
                     (ly:format "-sDEVICE=~a" pixmap-format)
+                    "-dAutoRotatePages=/None"
                     (string-append "-sOutputFile=" output-file)
                     (ly:format "-r~a" (* anti-alias-factor resolution))
                     (string-append "-f" tmp-name))))