- (format (current-error-port) (_ "Converting to `~a'...") pdf-name)
- (ly:system cmd)))
-
-(define-public (postscript->png resolution papersize name)
- (let ((cmd (string-append
- "ps2png --resolution="
- (if (number? resolution)
- (number->string resolution)
- "90 ")
- " --papersize=" (if (string? papersize) papersize "a4")
- (if (ly:get-option 'verbose)
- " --verbose "
- " ")
- name)))
- ;; Do not try to guess the name of the png file
- (format (current-error-port) (_ "Converting to `~a'...") "png")
- (ly:system cmd)))
+ (ly:message (_ "Converting to `~a'...") pdf-name)
+ (ly:progress "\n")
+ (ly:system cmd)
+ ))
+
+(use-modules (scm ps-to-png))
+
+(define-public (postscript->png resolution paper-size-name name)
+ ;; Do not try to guess the name of the png file,
+ ;; GS produces PNG files like BASE-page%d.png.
+ ;;(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))
+
+ (ly:message (_ "Converting to ~a...") "PNG")
+ (make-ps-images name resolution paper-size rename-page-1 verbose
+ (ly:get-option 'anti-alias-factor))
+ (ly:progress "\n")))