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