infobase/patterns/gimp/batch-whiteboard-clean.scm

   1 (define (batch-whiteboard-clean pattern)
   2   (let* ((filelist (cadr (file-glob pattern 1))))
   3     (while (not (null? filelist))
   4            (let* ((filename (car filelist))
   5                   (image (car (gimp-file-load RUN-NONINTERACTIVE
   6                                               filename filename)))
   7                   (drawable (car (gimp-image-get-active-layer image))))
   8              (plug-in-dog RUN-NONINTERACTIVE
   9                                    image drawable 6.0 2.0 FALSE TRUE)
  10              (plug-in-c-astretch RUN-NONINTERACTIVE
  11                                    image drawable)
  12              (gimp-file-save RUN-NONINTERACTIVE
  13                              image drawable filename filename)
  14              (gimp-image-delete image))
  15            (set! filelist (cdr filelist)))))
  16