Re: [Gimp-user] Image transformation batch processing

[JLuc <jluc no-log org>]

Le 26/05/2015 23:43, Saul Goode a écrit :
> The following code will work on GNU/Linux systems. It will only process the filesin the current directory (it 
> will not recurse into subdirectories).

What is that for a lisp-like code ?

JL

> gimp -i -f -b - <<HERE
>    (let ((outdir "/tmp/destdir") ; <<== change this to the destination folder (which MUST exist)
>          (patterns '("*.gif" "*.jpg" "*.png")))
>      (when (and (file-exists? outdir) (= (file-type outdir) 2))
>        (let loop ((filepaths (foldr  append '() (map (lambda (x) (cadr (file-glob x 1))) patterns))))
>          (unless (null? filepaths)
>            (let* ((filepath (car filepaths))
>                   (image (catch #f (car (gimp-file-load RUN-NONINTERACTIVE
>                                                         filepath
>                                                         filepath ))))
>                   (layer (if image (car (gimp-image-get-active-layer image)) #f))
>                   (filename (string-append outdir
>                                            DIR-SEPARATOR
>                                            (car (last (strbreakup filepath DIR-SEPARATOR))))))
>              (unless (null? filepaths)
>                (when image
>                  (let* ((w (car (gimp-image-width image)))
>                         (h (car (gimp-image-height image)))
>                         (aspect (/ h w))
>                         (factor (/ (max w h) 1000)))
>                    (when (> factor 1)
>                      (gimp-image-scale image (/ w factor) (/ h factor))
>                      (set! w (car (gimp-image-width image)))
>                      (set! h (car (gimp-image-height image))))
>                    (if (< w h)
>                      (gimp-image-resize image (max w h) (max w h) (/ (- h w) 2) 0)
>                      (gimp-image-resize image (max w h) (max w h) 0 (/ (- w h) 2))))
>                  (gimp-file-save 1 image (car (gimp-image-flatten image)) filename filename)
>                  (gimp-image-delete image))
>                (loop (cdr filepaths)))))))
>      (gimp-quit 0))
> HERE
>
> _______________________________________________
> gimp-user-list mailing list
> List address:    gimp-user-list gnome org
> List membership: https://mail.gnome.org/mailman/listinfo/gimp-user-list
> List archives:   https://mail.gnome.org/archives/gimp-user-list