X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=database%2Fpatterns%2Fgimp%2Fbatch-whiteboard-clean.scm;fp=database%2Fpatterns%2Fgimp%2Fbatch-whiteboard-clean.scm;h=0000000000000000000000000000000000000000;hb=0f49452f40415efb2a62048397ed8514a1058bb7;hp=90e597ec2f7f9060d8b166ecbf46d19bde4afb47;hpb=dfe6c3aedd3487a00acf94683163be7ed0baa6da;p=feisty_meow.git

diff --git a/database/patterns/gimp/batch-whiteboard-clean.scm b/database/patterns/gimp/batch-whiteboard-clean.scm
deleted file mode 100644
index 90e597ec..00000000
--- 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)))))
-