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.


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)))

Gimp-user mailing list

Reply via email to