MESSAGE
| DATE | 2021-05-30 |
| FROM | ludo0565
|
| SUBJECT | Re: [Hangout - NYLXS] [Gimp-user] Script-fu in GIMP - and batch
|
Hello Robbie,
First of all I present my excuses to you:
My mail box placed your mail in spam - and I only saw it yesterday.
So thanks a lot for your answer. It's not so easy to find someone interested in a question about scheme & script-fu ...
;-)
I'll try this as soon as I get time - which is pretty scarce at the moment... unfortunately.
And I I'll let you know as soon as I do.
Thanks again.
ludo
Le 26 mai 2021 00:26:56 GMT+02:00, Robbie Huffman a écrit :
>On Sat, May 15, 2021 at 05:45:47PM +0200, ludo0565-at-dbmail.com wrote:
>> Then I tried with this:
>>
>> (define (batch-unsharp-mask pattern radius amount threshold
>filenamenew)
>> (let* ((filelist (cadr (file-glob pattern 1))))
>> (while (not (null? filelist))
>> (let* ((filename (car filelist))
>> (filenamenew (+ "(car filelist)" "-new"))
>> (image (car (gimp-file-load RUN-NONINTERACTIVE
>filename filename)))
>> (drawable (car (gimp-image-get-active-layer
>image))))
>> (plug-in-unsharp-mask RUN-NONINTERACTIVE image drawable
>radius amount threshold)
>> (gimp-file-save RUN-NONINTERACTIVE image drawable
>filenamenew filenamenew)
>> (gimp-image-delete image))
>> (set! filelist (cdr filelist)))))
>>
>> But that didn't work either, because the argument to " + " (sum) must
>be a number.
>
>I think you could (string-append filename "-new") to get something that
>works OK.
--
Envoyé de mon appareil Android avec Courriel K-9 Mail. Veuillez excuser ma brièveté.
_______________________________________________
gimp-user-list mailing list
List address: gimp-user-list-at-gnome.org
List membership: https://mail.gnome.org/mailman/listinfo/gimp-user-list
List archives: https://mail.gnome.org/archives/gimp-user-list
_______________________________________________
Hangout mailing list
Hangout-at-nylxs.com
http://lists.mrbrklyn.com/mailman/listinfo/hangout
|
|
