- (let-optional
- rest ((resolution 90)
- (paper-size "a4")
- (rename-page-1? #f)
- (verbose? #f)
- (aa-factor 1)
- )
-
- (let* ((base (basename (re-sub "[.]e?ps" "" ps-name)))
- (header (gulp-file ps-name 10240))
- (png1 (string-append base ".png"))
- (pngn (string-append base "-page%d.png"))
+ (let-keywords*
+ rest #f
+ ((resolution 90)
+ (page-width 100)
+ (page-height 100)
+ (rename-page-1 #f)
+ (be-verbose #f)
+ (pixmap-format 'png16m)
+ (anti-alias-factor 1))
+
+ (let* (
+ (format-str (format "~a" pixmap-format))
+ (extension (cond
+ ((string-contains format-str "png") "png")
+ ((string-contains format-str "jpg") "jpeg")
+ ((string-contains format-str "jpeg") "jpeg")
+ (else
+ (ly:error "Unknown pixmap format ~a" pixmap-format))))
+ (base (basename (re-sub "[.]e?ps" "" ps-name)))
+ (png1 (format "~a.~a" base extension))
+ (pngn (format "~a-page%d.~a" base extension))