summaryrefslogtreecommitdiffstats
path: root/plug-ins/script-fu/scripts/distress-selection.scm
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 16:23:22 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 16:23:22 +0000
commite42129241681dde7adae7d20697e7b421682fbb4 (patch)
treeaf1fe815a5e639e68e59fabd8395ec69458b3e5e /plug-ins/script-fu/scripts/distress-selection.scm
parentInitial commit. (diff)
downloadgimp-e42129241681dde7adae7d20697e7b421682fbb4.tar.xz
gimp-e42129241681dde7adae7d20697e7b421682fbb4.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/distress-selection.scm')
-rw-r--r--plug-ins/script-fu/scripts/distress-selection.scm122
1 files changed, 122 insertions, 0 deletions
diff --git a/plug-ins/script-fu/scripts/distress-selection.scm b/plug-ins/script-fu/scripts/distress-selection.scm
new file mode 100644
index 0000000..ef87b79
--- /dev/null
+++ b/plug-ins/script-fu/scripts/distress-selection.scm
@@ -0,0 +1,122 @@
+;
+; distress selection
+;
+;
+; 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 the function:
+
+(define (script-fu-distress-selection inImage
+ inDrawable
+ inThreshold
+ inSpread
+ inGranu
+ inSmooth
+ inSmoothH
+ inSmoothV)
+
+ (let (
+ (theImage inImage)
+ (theWidth (car (gimp-image-width inImage)))
+ (theHeight (car (gimp-image-height inImage)))
+ (theLayer 0)
+ (theMode (car (gimp-image-base-type inImage)))
+ (prevLayer (car (gimp-image-get-active-layer inImage)))
+ )
+
+ (gimp-context-push)
+ (gimp-context-set-defaults)
+ (gimp-image-undo-group-start theImage)
+
+ (if (= theMode GRAY)
+ (set! theMode GRAYA-IMAGE)
+ (set! theMode RGBA-IMAGE)
+ )
+ (set! theLayer (car (gimp-layer-new theImage
+ theWidth
+ theHeight
+ theMode
+ "Distress Scratch Layer"
+ 100
+ LAYER-MODE-NORMAL)))
+
+ (gimp-image-insert-layer theImage theLayer 0 0)
+
+ (if (= FALSE (car (gimp-selection-is-empty theImage)))
+ (gimp-drawable-edit-fill theLayer FILL-BACKGROUND)
+ )
+
+ (gimp-selection-invert theImage)
+
+ (if (= FALSE (car (gimp-selection-is-empty theImage)))
+ (gimp-drawable-edit-clear theLayer)
+ )
+
+ (gimp-selection-invert theImage)
+ (gimp-selection-none inImage)
+
+ (gimp-layer-scale theLayer
+ (/ theWidth inGranu)
+ (/ theHeight inGranu)
+ TRUE)
+
+ (plug-in-spread RUN-NONINTERACTIVE
+ theImage
+ theLayer
+ inSpread
+ inSpread)
+
+ (plug-in-gauss-iir RUN-NONINTERACTIVE
+ theImage theLayer inSmooth inSmoothH inSmoothV)
+ (gimp-layer-scale theLayer theWidth theHeight TRUE)
+ (plug-in-threshold-alpha RUN-NONINTERACTIVE theImage theLayer inThreshold)
+ (plug-in-gauss-iir RUN-NONINTERACTIVE theImage theLayer 1 TRUE TRUE)
+ (gimp-image-select-item inImage CHANNEL-OP-REPLACE theLayer)
+ (gimp-image-remove-layer theImage theLayer)
+ (if (and (= (car (gimp-item-is-channel inDrawable)) TRUE)
+ (= (car (gimp-item-is-layer-mask inDrawable)) FALSE))
+ (gimp-image-set-active-channel theImage inDrawable)
+ )
+ (gimp-image-undo-group-end theImage)
+
+ (gimp-image-set-active-layer theImage prevLayer)
+
+ (gimp-displays-flush)
+ (gimp-context-pop)
+ )
+)
+
+
+(script-fu-register "script-fu-distress-selection"
+ _"_Distort..."
+ _"Distress the selection"
+ "Chris Gutteridge"
+ "1998, Chris Gutteridge / ECS dept, University of Southampton, England."
+ "23rd April 1998"
+ "RGB*,GRAY*"
+ SF-IMAGE "The image" 0
+ SF-DRAWABLE "The layer" 0
+ SF-ADJUSTMENT _"_Threshold (bigger 1<-->254 smaller)" '(127 1 254 1 10 0 0)
+ SF-ADJUSTMENT _"_Spread" '(8 0 1000 1 10 0 1)
+ SF-ADJUSTMENT _"_Granularity (1 is low)" '(4 1 25 1 10 0 1)
+ SF-ADJUSTMENT _"S_mooth" '(2 1 150 1 10 0 1)
+ SF-TOGGLE _"Smooth hor_izontally" TRUE
+ SF-TOGGLE _"Smooth _vertically" TRUE
+)
+
+(script-fu-menu-register "script-fu-distress-selection"
+ "<Image>/Select/Modify")