Try to generate a script-fu-alien-glow-logo and save it to /root/a.png i get the error
ERROR: bad function (see errobj)
if i replace: (image (car ( (script-fu-alien-glow-logo "hello hello" 150 "-*-utopia-bold-r-*-*-150-*-*-*-*-*-*-*" '(255 0 0)) )) )
with : (image (car (gimp-file-load 0 "/root/clock.gif" "/root/clock.gif"))), the saved image is ok.
Valter
-----------
(begin
(let*
(
(image (car ( (script-fu-alien-glow-logo "hello hello" 150 "-*-utopia-bold-r-*-*-150-*-*-*-*-*-*-*" '(255 0 0)) )) )
; (image (car (gimp-file-load 0 "/root/clock.gif" "/root/clock.gif")))
(drawable nil)
)
(set! drawable (car (gimp-image-flatten image)))
(gimp-file-save 1 image drawable "/root/a.png" "/root/a.png")
(gimp-image-delete image)
) ;let
)
