Timelapse preparation: reduce noise on a lot of images

batch-noise-reduction.scm

(define (batch-noise-reduction pattern
                               radii
                               delta)
(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))))
           (plug-in-sel-gauss RUN-NONINTERACTIVE
                              image drawable radii delta)
           (gimp-file-save RUN-NONINTERACTIVE
                           image drawable filename filename)
           (gimp-image-delete image))
         (set! filelist (cdr filelist)))))