axoona
a0a98f797a
"add horizontal guides every X interval" "add vertical guides every Y interval" "Multiple images resize batch process" "Multiple JPG shrink batch process" "Multiple images save as png batch process"
35 lines
1022 B
Scheme
35 lines
1022 B
Scheme
(define (script-fu-batch-shrink globexp outpath fctr)
|
|
(define (resize-img n f)
|
|
(let* (
|
|
(fname (car f))
|
|
(img (car (gimp-file-load 1 fname fname)))
|
|
(newy (/ (car (gimp-image-height img)) fctr))
|
|
(newx (/ (car (gimp-image-width img)) fctr))
|
|
(outname (string-append outpath (car (gimp-image-get-name img)))))
|
|
|
|
(gimp-image-undo-disable img)
|
|
|
|
|
|
|
|
(gimp-image-scale img newx newy)
|
|
(gimp-file-save 1 img (car (gimp-image-get-active-drawable img)) outname outname)
|
|
(gimp-image-delete img)
|
|
)
|
|
(if (= n 1) 1 (resize-img (- n 1) (cdr f)))
|
|
)
|
|
|
|
(let* ((files (file-glob globexp 0)))
|
|
(resize-img (car files) (car (cdr files))))
|
|
)
|
|
|
|
(script-fu-register "script-fu-batch-shrink"
|
|
"<Image>/Script-Fu/Batch/Shrink ..."
|
|
"Multiple JPG shrink batch process"
|
|
"axoona (@axoonaa)"
|
|
"Copyright 2015, axoona"
|
|
"Nov 17, 2015"
|
|
""
|
|
SF-STRING "In path" "IN_PATH\\*"
|
|
SF-STRING "Out path" "OUT_PATH\\"
|
|
SF-VALUE "Shrink factor" "4")
|