問題有關的簡單GIMP腳本

Question

我採取了從我負的照片，我想反轉的顏色在一個批處理，我有「不知何故」複製和粘貼這樣的腳本：

(define (batch-negative pattern) 
    (let* ((filelist (cadr (file-glob pattern 1)))) 
    (while (not (null? filelist)) 
      (let* ((filename (car filelist)) 
        (image (car (gimp-file-load RUN-NONINTERACTIVE 
               filename filename))) 
        (drawable (car (gimp-image-get-active-layer image)))) 
      (gimp-invert RUN-NONINTERACTIVE 
            image drawable) 
      (gimp-levels-stretch RUN-NONINTERACTIVE 
            image drawable) 
      (gimp-file-save RUN-NONINTERACTIVE 
          image drawable filename filename) 
      (gimp-image-delete image)) 
      (set! filelist (cdr filelist))))) 

我試着按照教程，但失敗，我認爲在gimp-invert行有什麼問題，但我不知道在哪裏，任何人都可以幫忙？

謝謝！

編輯：僅供參考，我使用Ubuntu 10.10，再次感謝

Answer 1

解決，我加了太多的參數gimp-levels-stretch和gimp-invert，修改後的代碼是如下：

(define (batch-negative pattern) 
    (let* ((filelist (cadr (file-glob pattern 1)))) 
    (while (not (null? filelist)) 
      (let* ((filename (car filelist)) 
        (image (car (gimp-file-load RUN-NONINTERACTIVE 
               filename filename))) 
        (drawable (car (gimp-image-get-active-layer image)))) 
      (gimp-invert RUN-NONINTERACTIVE 
            image drawable) 
      (gimp-levels-stretch RUN-NONINTERACTIVE 
            image drawable) 
      (gimp-file-save RUN-NONINTERACTIVE 
          image drawable filename filename) 
      (gimp-image-delete image)) 
      (set! filelist (cdr filelist)))))