Merge branch 'dev' of feistymeow.org:feisty_meow into dev
[feisty_meow.git] / 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