diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:23:22 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:23:22 +0000 |
commit | e42129241681dde7adae7d20697e7b421682fbb4 (patch) | |
tree | af1fe815a5e639e68e59fabd8395ec69458b3e5e /plug-ins/script-fu/scripts/tileblur.scm | |
parent | Initial commit. (diff) | |
download | gimp-upstream.tar.xz gimp-upstream.zip |
Adding upstream version 2.10.22.upstream/2.10.22upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'plug-ins/script-fu/scripts/tileblur.scm')
-rw-r--r-- | plug-ins/script-fu/scripts/tileblur.scm | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/plug-ins/script-fu/scripts/tileblur.scm b/plug-ins/script-fu/scripts/tileblur.scm new file mode 100644 index 0000000..4be7a6c --- /dev/null +++ b/plug-ins/script-fu/scripts/tileblur.scm @@ -0,0 +1,83 @@ +; Chris Gutteridge (cjg@ecs.soton.ac.uk) +; At ECS Dept, University of Southampton, England. + +; This program is free software: you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 3 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License +; along with this program. If not, see <https://www.gnu.org/licenses/>. + + +(define (script-fu-tile-blur inImage inLayer inRadius inVert inHoriz inType) + + (let* ( + (theImage inImage) + (theLayer inLayer) + (theHeight (car (gimp-drawable-height theLayer))) + (theWidth (car (gimp-drawable-width theLayer))) + ) + + (define (pasteat xoff yoff) + (let ((theFloat (car(gimp-edit-paste theLayer 0)))) + (gimp-layer-set-offsets theFloat (* xoff theWidth) (* yoff theHeight) ) + (gimp-floating-sel-anchor theFloat) + ) + ) + + (gimp-context-push) + (gimp-context-set-feather FALSE) + (gimp-image-undo-group-start theImage) + + (gimp-layer-resize theLayer (* 3 theWidth) (* 3 theHeight) 0 0) + + (gimp-image-select-rectangle theImage CHANNEL-OP-REPLACE 0 0 theWidth theHeight) + (gimp-edit-cut theLayer) + + (gimp-selection-none theImage) + (gimp-layer-set-offsets theLayer theWidth theHeight) + + (pasteat 1 1) (pasteat 1 2) (pasteat 1 3) + (pasteat 2 1) (pasteat 2 2) (pasteat 2 3) + (pasteat 3 1) (pasteat 3 2) (pasteat 3 3) + + (gimp-selection-none theImage) + (if (= inType 0) + (plug-in-gauss-iir RUN-NONINTERACTIVE + theImage theLayer inRadius inHoriz inVert) + (plug-in-gauss-rle RUN-NONINTERACTIVE + theImage theLayer inRadius inHoriz inVert) + ) + + (gimp-layer-resize theLayer + theWidth theHeight (- 0 theWidth) (- 0 theHeight)) + (gimp-layer-set-offsets theLayer 0 0) + (gimp-image-undo-group-end theImage) + (gimp-displays-flush) + (gimp-context-pop) + ) +) + +(script-fu-register "script-fu-tile-blur" + _"_Tileable Blur..." + _"Blur the edges of an image so the result tiles seamlessly" + "Chris Gutteridge" + "1998, Chris Gutteridge / ECS dept, University of Southampton, England." + "25th April 1998" + "RGB*" + SF-IMAGE "The Image" 0 + SF-DRAWABLE "The Layer" 0 + SF-ADJUSTMENT _"Radius" '(5 0 128 1 1 0 0) + SF-TOGGLE _"Blur vertically" TRUE + SF-TOGGLE _"Blur horizontally" TRUE + SF-OPTION _"Blur type" '(_"IIR" _"RLE") +) + +(script-fu-menu-register "script-fu-tile-blur" + "<Image>/Filters/Blur") |