From 629cb019b8641c1278309bb3aa53463c4a4ac66f Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev@truth.pearl.pomorsu.ru>
Date: Wed, 28 Oct 2009 14:14:58 +0300
Subject: Public release

---
 img-fu | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 img-fu

(limited to 'img-fu')

diff --git a/img-fu b/img-fu
new file mode 100644
index 0000000..17c1b6e
--- /dev/null
+++ b/img-fu
@@ -0,0 +1,21 @@
+(define (img-recode
+          srcfile
+          destfile
+          fmt
+          ckey)        
+
+(let*
+   (
+    (image (car (file-img-load RUN-NONINTERACTIVE srcfile srcfile)))
+    (drawable (car (gimp-image-get-active-layer image)))
+   )
+
+    (file-img-save RUN-NONINTERACTIVE image drawable destfile destfile fmt ckey)
+)
+)
+
+(img-recode "samples/rgb.img" "samples/recoded-rgb565.img" "RGB565" "no")
+(img-recode "samples/rgb.img" "samples/recoded-rgba.img" "RGBA" "0x0F0")
+
+(gimp-quit 0)
+
-- 
cgit v1.2.3