cleaning a bit, including moving out some old docs, and renaming

[feisty_meow.git] / database / patterns / gimp / batch-whiteboard-clean.scm

diff --git a/database/patterns/gimp/batch-whiteboard-clean.scm b/database/patterns/gimp/batch-whiteboard-clean.scm
deleted file mode 100644 (file)
index 90e597e..0000000
--- a/database/patterns/gimp/batch-whiteboard-clean.scm
+++ /dev/null
@@ -1,16 +0,0 @@
-(define (batch-whiteboard-clean 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))))
-             (plug-in-dog RUN-NONINTERACTIVE
-                                   image drawable 6.0 2.0 FALSE TRUE)
-             (plug-in-c-astretch RUN-NONINTERACTIVE
-                                   image drawable)
-            (gimp-file-save RUN-NONINTERACTIVE
-                             image drawable filename filename)
-             (gimp-image-delete image))
-           (set! filelist (cdr filelist)))))
-