- ;;(ly:message (_ "Converting to `~a'...")
- ;; (string-append (basename name ".ps") "-page1.png" )))
- (let* ((verbose (ly:get-option 'verbose))
- (rename-page-1 #f)
- (pixmap-default "png16m")
- (pixmap-setting (ly:get-option 'pixmap-format))
- (pixmap-format (if (or (not (equal? pixmap-setting pixmap-default))
- (ps-has-color name))
- pixmap-setting
- "pnggray")))