On Jun 14, 2010, at 8:16 PM, saulgo...@flashingtwelve.brickfilms.com wrote:
> Quoting John Dey <js...@optonline.net>:
>
>> Sven,
>>
>> Thanks for the response. I had added the flatten command today but
>> the script still has an execution error. Here is what I have tried:
>> :
>> :
>> (set! drawable (gimp-image-flatten image))
>> (script-fu-round-corners RUN-NONINTERACTIVE
>> image drawable 15 TRUE 8 8 15 TRUE FALSE)
>> (gimp-file-save RUN-NONINTERACTIVE image drawable fileout fileout)
>
> You need to flatten your image AFTER running round-corners.
Saul,
Thanks for your suggestion. I moved the flatten command but the script still
doesn't execute.
Here I am now:
(define (round-corners filein fileout)
(let* ((image (car (gimp-file-load RUN-NONINTERACTIVE filein filein)))
(drawable (car (gimp-image-get-active-layer image))))
(script-fu-round-corners RUN-NONINTERACTIVE
image drawable 15.0 TRUE 8.0 8.0 15.0 TRUE FALSE)
(set! drawable (car (gimp-image-flatten image)))
(gimp-file-save RUN-NONINTERACTIVE image drawable fileout fileout)
(gimp-image-delete image)))
John
_______________________________________________
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
