(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)
+ (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)
"-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))))