problème d'un simple script gimp

Question

J'ai pris des photos de mon négative et je veux inverser la couleur dans un lot, je copie « en quelque sorte » et coller un script comme ceci:

(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))))) 

J'essaie de suivre le tutoriel, mais échoue, je pense qu'il ya quelque chose de mal à la ligne pour gimp-invert, mais je ne sais pas où, quelqu'un peut-il aider?

Merci!

Edit: Pour votre information, je me sers ubuntu 10.10, merci encore

Answer 1

résoudre, j'ai ajouté trop de paramètres pour gimp-levels-stretch et gimp-invert, code modifié est comme ci-dessous:

(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)))))