axoona/GimpScriptsFu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Transférer les fichiers vers ''

Browse Source 
"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"
This commit is contained in:
Anna Jagodzinski
2022-11-10 21:50:01 +01:00
parent 7af72ade37
commit a0a98f797a
5 changed files with 152 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
add-hguide.scm Normal file
View File

@@ -0,0 +1,26 @@
(define (script-fu-add-hguides img layer dist)
(define (add-hguide y)
(gimp-image-add-hguide img y)
(if (= y 0) 1 (add-hguide (- y dist)))
)
;(let ((N (/ (car (gimp-image-width img)) dist)))
(add-hguide (car (gimp-image-height img)))
;(add-vguide 0)
;)
)
(script-fu-register "script-fu-add-hguides"
"<Image>/Script-Fu/Guides/Horizontal ..."
"add horizontal guides every X interval"
"axoona (@axoonaa)"
"Copyright 2016, axoona"
"Sept 03, 2016"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer - non used" 0
SF-VALUE "Interval" "200"
)

26
add-vguides.scm Normal file
View File

@@ -0,0 +1,26 @@
(define (script-fu-add-vguides img layer dist)
(define (add-vguide y)
(gimp-image-add-vguide img y)
(if (= y 0) 1 (add-vguide (- y dist)))
)
;(let ((N (/ (car (gimp-image-width img)) dist)))
(add-vguide (car (gimp-image-width img)))
;(add-vguide 0)
;)
)
(script-fu-register "script-fu-add-vguides"
"<Image>/Script-Fu/Guides/Vertical ..."
"add vertical guides every X interval"
"axoona (@axoonaa)"
"Copyright 2016, axoona"
"Dec 10, 2015"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer - non used" 0
SF-VALUE "Interval" "200"
)

33
batch-enlarge.scm Normal file
View File

@@ -0,0 +1,33 @@
(define (script-fu-batch-enlarge globexp outpath ratio inpol)
(define (resize-img n f)
(let* ((fname (car f))
(img (car (gimp-file-load 1 fname fname)))
(outname (string-append outpath (car (gimp-image-get-name img))))
(newy (* (car (gimp-image-height img)) ratio))
(newx (* (car (gimp-image-width img)) ratio)))
(gimp-image-undo-disable img)
(gimp-image-scale-full img newx newy inpol)
(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)))
)
;(set! files (file-glob globexp 0))
(let* ((files (file-glob globexp 0)))
(resize-img (car files) (car (cdr files))))
)
(script-fu-register "script-fu-batch-enlarge"
"<Image>/Script-Fu/Batch/Enlarge by ratio ..."
"Multiple images resize batch process"
"axoona (@axoonaa)"
"Copyright 2016, axoona"
"April 16, 2016"
""
SF-STRING "Input files" "C:\\Users\\Ania\\Documents\\Gry\\Dev\\Unity\\Fifth Exponent\\original graphics\\png\\*"
SF-STRING "Out path" "C:\\Users\\Ania\\Documents\\Gry\\Dev\\Unity\\Fifth Exponent\\Assets\\graphics\\gimp\\"
SF-VALUE "Ratio" "3.0"
SF-VALUE "Interpolation none-0, linear-1, cubic-2, lanczos-3" "0")

34
batch-shrink.scm Normal file
View File

@@ -0,0 +1,34 @@
(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")

33
save-as-png.scm Normal file
View File

@@ -0,0 +1,33 @@
(define (script-fu-batch-save-as-png globexp outpath)
(define (save-img n f)
(let* ((fname (car f))
(img (car (gimp-file-load 1 fname fname)))
(filename (substring (car (gimp-image-get-name img)) 0 (- (string-length (car (gimp-image-get-name img))) 4)))
(pngname (string-append filename ".png"))
(outname (string-append outpath pngname))
)
(gimp-image-undo-disable img)
(gimp-file-save 1 img (car (gimp-image-get-active-drawable img)) outname outname)
(gimp-image-delete img)
)
(if (= n 1) 1 (save-img (- n 1) (cdr f)))
)
(let* ((files (file-glob globexp 0)))
(save-img (car files) (car (cdr files))))
)
(script-fu-register "script-fu-batch-save-as-png"
"<Image>/Script-Fu/Batch/Save as png ..."
"Multiple images save as png"
"axoona (@axoonaa)"
"Copyright 2022, axoona"
"November 8, 2022"
""
SF-STRING "Input files" "IN_PATH\\*.jpg"
SF-STRING "Out path" "OUT_PATH\\")