diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2022-11-14 17:38:33 +0200 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2022-11-14 21:00:32 +0200 |
commit | 433bb35ceeb64e6442e10491f72f635d5ebe7bc0 (patch) | |
tree | ed17754629f2fa3ddb5ded1aaa3d28c58ddf7bd7 /test.scm | |
parent | 6f4542fb9ab491912532468766b0f0f4adb0cb67 (diff) | |
download | gimp-plugin-img-433bb35ceeb64e6442e10491f72f635d5ebe7bc0.tar.gz |
Update Script-Fu
Diffstat (limited to 'test.scm')
-rw-r--r-- | test.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test.scm b/test.scm new file mode 100644 index 0000000..113c443 --- /dev/null +++ b/test.scm @@ -0,0 +1,15 @@ +(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))) + +(catch (gimp-quit 0) + (img-recode "samples/rgb.img" "samples/recoded-rgb-rgb565.img" "RGB565" "no") + (img-recode "samples/rgb.img" "samples/recoded-rgb-rgba.img" "RGBA" "0x0F0") + (img-recode "samples/rgb565.img" "samples/recoded-rgb565-rgb.img" "RGB" "") + (img-recode "samples/rgb565.img" "samples/recoded-rgb565-rgba.img" "RGBA" "(255, 255, 255)") + (img-recode "samples/rgba.img" "samples/recoded-rgba-rgb.img" "RGB" "no") + (img-recode "samples/rgba.img" "samples/recoded-rgba-rgb565.img" "RGB565" "no")) + +(with-output-to-file "samples/success" (lambda () (write "SUCCESS"))) +(gimp-quit 0) |