problem with parasites in script-fu
Hello,
I have created a small script-fu for batch processing, but I have
stuck on defining the parasite, I would be thankful for help.
I have found that parasite have structure of (name, flags, data) in
perl-fu and (name, flags, size, data) in C, but I haven't found on web
and in existing scrit-fu's the use of it in Scheme.
My script:
define (script-fu-xcf2gif infile outfile)
(let*
(
(img (car (gimp-file-load 1 infile infile)))
(drawable (car (gimp-drawable-get-image img)))
(parasite '("gimp-comment", PERSISTENT, 13, "some comment"))
)
(gimp-image-flatten img)
(gimp-image-parasite-detach img "gimp-comment")
(gimp-image-parasite-attach img parasite)
(gimp-image-convert-indexed img 1 0 256 0 1 "")
(file-gif-save 1 img drawable outfile outfile 1 0 0 0)
)
)
(script-fu-register "script-fu-xcf2gif"
"/Xtns/Script-Fu/Test/xcftogif"
"XCFtoGIF"
"Irek Slonina"
"Irek Slonina"
"2004"
""
)
and I run it like this:
[ireks@brightstar ufki]$ gimp -d -i -s -S -c -b '(script-fu-xcf2gif
"blokada.xcf" "blokada.gif")' '(gimp-quit 0)'
This is a development version of The GIMP.
Debug messages may appear here.
gimp_composite: use=yes, verbose=no +mmx +sse +sse2 -3dnow -altivec -vis
batch command: experienced an execution error.
(gimp:2766): Gimp-Plug-In-WARNING **: plug_in_close: plug-in aborted
before sending its procedure return values
[ireks@brightstar ufki]$
Could you point me where could be the problem? (execution error
is on line with parasite-attach).
I am running gimp-2.0-0.pre1.2.
Regards,
Irek Slonina