diff --git a/add-hguide.scm b/add-hguide.scm new file mode 100644 index 0000000..198684b --- /dev/null +++ b/add-hguide.scm @@ -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" + "/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" +) + \ No newline at end of file diff --git a/add-vguides.scm b/add-vguides.scm new file mode 100644 index 0000000..b46b8d1 --- /dev/null +++ b/add-vguides.scm @@ -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" + "/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" +) + \ No newline at end of file diff --git a/batch-enlarge.scm b/batch-enlarge.scm new file mode 100644 index 0000000..65db7cc --- /dev/null +++ b/batch-enlarge.scm @@ -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" + "/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") diff --git a/batch-shrink.scm b/batch-shrink.scm new file mode 100644 index 0000000..f950a30 --- /dev/null +++ b/batch-shrink.scm @@ -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" + "/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") diff --git a/save-as-png.scm b/save-as-png.scm new file mode 100644 index 0000000..df53475 --- /dev/null +++ b/save-as-png.scm @@ -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" + "/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\\") \ No newline at end of file