使用Script-Fu时，加载和保存PNG会丢失alpha

Question

我正在尝试用GIMP编写一个脚本，它将加载一个PNG文件，并以最大的压缩率再次保存它(我还计划添加其他处理步骤)。但是，以下脚本似乎会破坏alpha信息：

(define (process-png pattern)
  (let* (
      (filelist (cadr (file-glob pattern 1)))
    )
    (while (not (null? filelist))
      (begin
        (catch ()
          (let* (
              (filename (car filelist))
              (image (car (file-png-load RUN-NONINTERACTIVE filename filename)))
            )
            (begin
              (file-png-save2 RUN-NONINTERACTIVE
                  image (car (gimp-image-get-active-drawable image))
                  filename filename
                  0 9 0 0 0 0 0 0 0)
              (gimp-image-delete image)
            )
          )
        )
        (set! filelist (cdr filelist))
      )
    )
  )
)

例如，JQuery icons中的半透明像素似乎全部变得完全透明，从而使所有内容产生锯齿。

如何解决这个问题？

Answer 1

file-png-save2的文档显示，最后一个参数用于Preserve color of transparent pixels?，在本例中，该参数设置为0。尝试将其设置为1，它应该可以正常工作。