Gimp - batch mód

Info viz http://www.gimp.org/tutorials/Basic_Batch/ [uloženo].

Můj skript pro automatickou úpravu nafocených stránek (auto levels etc.)

(define (my-auto-levels 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-image-convert-grayscale image)
(gimp-levels-stretch drawable)
(gimp-file-save RUN-NONINTERACTIVE
image drawable filename filename)
(gimp-image-delete image))
(set! filelist (cdr filelist)))))

Volání:

gimp -i -b '(my-auto-levels "/path/IMG*")' -b '(gimp-quit 0)'