From 27bef34bd550320706b90a4fa29130c7022b2111 Mon Sep 17 00:00:00 2001 From: Kevin Cozens Date: Wed, 9 Nov 2011 02:42:34 -0500 Subject: [PATCH] Don't change global context and protect scripts from global context settings. --- plug-ins/script-fu/scripts/add-bevel.scm | 1 + .../script-fu/scripts/alien-glow-arrow.scm | 3 +- .../script-fu/scripts/alien-glow-logo.scm | 3 +- .../script-fu/scripts/alien-neon-logo.scm | 1 + plug-ins/script-fu/scripts/basic1-logo.scm | 1 + plug-ins/script-fu/scripts/basic2-logo.scm | 1 + .../scripts/beveled-pattern-arrow.scm | 3 +- .../scripts/beveled-pattern-bullet.scm | 3 +- .../scripts/beveled-pattern-heading.scm | 1 + plug-ins/script-fu/scripts/blended-logo.scm | 1 + plug-ins/script-fu/scripts/bovinated-logo.scm | 1 + plug-ins/script-fu/scripts/burn-in-anim.scm | 2 +- plug-ins/script-fu/scripts/camo.scm | 1 + plug-ins/script-fu/scripts/carve-it.scm | 1 + plug-ins/script-fu/scripts/carved-logo.scm | 1 + plug-ins/script-fu/scripts/chip-away.scm | 1 + plug-ins/script-fu/scripts/chrome-it.scm | 1 + plug-ins/script-fu/scripts/chrome-logo.scm | 1 + plug-ins/script-fu/scripts/circuit.scm | 1 + plug-ins/script-fu/scripts/coffee.scm | 3 +- plug-ins/script-fu/scripts/contactsheet.scm | 1 + plug-ins/script-fu/scripts/coolmetal-logo.scm | 1 + plug-ins/script-fu/scripts/crystal-logo.scm | 1 + .../script-fu/scripts/distress-selection.scm | 100 +++---- plug-ins/script-fu/scripts/drop-shadow.scm | 1 + plug-ins/script-fu/scripts/frosty-logo.scm | 1 + plug-ins/script-fu/scripts/glossy.scm | 7 +- plug-ins/script-fu/scripts/glowing-logo.scm | 1 + .../script-fu/scripts/gradient-bevel-logo.scm | 1 + plug-ins/script-fu/scripts/i26-gunya2.scm | 1 + plug-ins/script-fu/scripts/land.scm | 42 +-- plug-ins/script-fu/scripts/lava.scm | 1 + plug-ins/script-fu/scripts/line-nova.scm | 3 +- plug-ins/script-fu/scripts/mkbrush.scm | 2 +- plug-ins/script-fu/scripts/neon-logo.scm | 1 + plug-ins/script-fu/scripts/news-text.scm | 1 + .../script-fu/scripts/perspective-shadow.scm | 269 +++++++++--------- plug-ins/script-fu/scripts/predator.scm | 3 + plug-ins/script-fu/scripts/pupi-button.scm | 2 +- plug-ins/script-fu/scripts/round-corners.scm | 3 +- .../script-fu/scripts/select-to-brush.scm | 1 + .../script-fu/scripts/select-to-image.scm | 1 + .../script-fu/scripts/selection-round.scm | 3 +- .../script-fu/scripts/sota-chrome-logo.scm | 2 +- plug-ins/script-fu/scripts/speed-text.scm | 1 + plug-ins/script-fu/scripts/starscape-logo.scm | 1 + plug-ins/script-fu/scripts/t-o-p-logo.scm | 1 + plug-ins/script-fu/scripts/test-sphere.scm | 2 +- plug-ins/script-fu/scripts/text-circle.scm | 1 + plug-ins/script-fu/scripts/textured-logo.scm | 2 +- plug-ins/script-fu/scripts/tileblur.scm | 6 +- plug-ins/script-fu/scripts/title-header.scm | 3 +- plug-ins/script-fu/scripts/truchet.scm | 1 + plug-ins/script-fu/scripts/xach-effect.scm | 1 + 54 files changed, 268 insertions(+), 231 deletions(-) diff --git a/plug-ins/script-fu/scripts/add-bevel.scm b/plug-ins/script-fu/scripts/add-bevel.scm index 70fe42b355..501c87f421 100644 --- a/plug-ins/script-fu/scripts/add-bevel.scm +++ b/plug-ins/script-fu/scripts/add-bevel.scm @@ -82,6 +82,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) ; disable undo on copy, start group otherwise (if (= work-on-copy TRUE) diff --git a/plug-ins/script-fu/scripts/alien-glow-arrow.scm b/plug-ins/script-fu/scripts/alien-glow-arrow.scm index 21a2abb1a6..9eb8a3d8e6 100644 --- a/plug-ins/script-fu/scripts/alien-glow-arrow.scm +++ b/plug-ins/script-fu/scripts/alien-glow-arrow.scm @@ -128,8 +128,7 @@ ) (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (gimp-image-undo-disable img) ;(gimp-image-resize img (+ length height) (+ height height) 0 0) diff --git a/plug-ins/script-fu/scripts/alien-glow-logo.scm b/plug-ins/script-fu/scripts/alien-glow-logo.scm index 4c3268d8a3..04307681d6 100644 --- a/plug-ins/script-fu/scripts/alien-glow-logo.scm +++ b/plug-ins/script-fu/scripts/alien-glow-logo.scm @@ -20,8 +20,7 @@ ) (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (gimp-selection-none img) (script-fu-util-image-resize-from-layer img logo-layer) diff --git a/plug-ins/script-fu/scripts/alien-neon-logo.scm b/plug-ins/script-fu/scripts/alien-neon-logo.scm index 4efc6980f2..b27f961851 100644 --- a/plug-ins/script-fu/scripts/alien-neon-logo.scm +++ b/plug-ins/script-fu/scripts/alien-neon-logo.scm @@ -45,6 +45,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img bands-layer bg-layer) diff --git a/plug-ins/script-fu/scripts/basic1-logo.scm b/plug-ins/script-fu/scripts/basic1-logo.scm index 7b78023fda..07f63b2a1b 100644 --- a/plug-ins/script-fu/scripts/basic1-logo.scm +++ b/plug-ins/script-fu/scripts/basic1-logo.scm @@ -13,6 +13,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-selection-none img) (script-fu-util-image-resize-from-layer img logo-layer) diff --git a/plug-ins/script-fu/scripts/basic2-logo.scm b/plug-ins/script-fu/scripts/basic2-logo.scm index f4dc962be8..1cab076eb9 100644 --- a/plug-ins/script-fu/scripts/basic2-logo.scm +++ b/plug-ins/script-fu/scripts/basic2-logo.scm @@ -31,6 +31,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-selection-none img) (script-fu-util-image-resize-from-layer img logo-layer) diff --git a/plug-ins/script-fu/scripts/beveled-pattern-arrow.scm b/plug-ins/script-fu/scripts/beveled-pattern-arrow.scm index 2225155f06..02ea5c36ab 100644 --- a/plug-ins/script-fu/scripts/beveled-pattern-arrow.scm +++ b/plug-ins/script-fu/scripts/beveled-pattern-arrow.scm @@ -83,8 +83,7 @@ ) (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-insert-layer img background 0 -1) diff --git a/plug-ins/script-fu/scripts/beveled-pattern-bullet.scm b/plug-ins/script-fu/scripts/beveled-pattern-bullet.scm index 6560cc5331..c76405a7e9 100644 --- a/plug-ins/script-fu/scripts/beveled-pattern-bullet.scm +++ b/plug-ins/script-fu/scripts/beveled-pattern-bullet.scm @@ -27,8 +27,7 @@ ) (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-insert-layer img background 0 -1) diff --git a/plug-ins/script-fu/scripts/beveled-pattern-heading.scm b/plug-ins/script-fu/scripts/beveled-pattern-heading.scm index 9a240aa272..83ee2cd9da 100644 --- a/plug-ins/script-fu/scripts/beveled-pattern-heading.scm +++ b/plug-ins/script-fu/scripts/beveled-pattern-heading.scm @@ -45,6 +45,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-resize img width height 0 0) diff --git a/plug-ins/script-fu/scripts/blended-logo.scm b/plug-ins/script-fu/scripts/blended-logo.scm index 5d3403f1ff..bcd4a35762 100644 --- a/plug-ins/script-fu/scripts/blended-logo.scm +++ b/plug-ins/script-fu/scripts/blended-logo.scm @@ -108,6 +108,7 @@ blend-gradient-reverse) (begin (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-group-start img) (apply-blended-logo-effect img logo-layer b-size bg-color diff --git a/plug-ins/script-fu/scripts/bovinated-logo.scm b/plug-ins/script-fu/scripts/bovinated-logo.scm index 3a614f1c65..3738e9934b 100644 --- a/plug-ins/script-fu/scripts/bovinated-logo.scm +++ b/plug-ins/script-fu/scripts/bovinated-logo.scm @@ -35,6 +35,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img blur-layer bg-layer) diff --git a/plug-ins/script-fu/scripts/burn-in-anim.scm b/plug-ins/script-fu/scripts/burn-in-anim.scm index 60a09d1e52..45ee08095b 100644 --- a/plug-ins/script-fu/scripts/burn-in-anim.scm +++ b/plug-ins/script-fu/scripts/burn-in-anim.scm @@ -55,7 +55,7 @@ ;--- main program structure starts here, begin of "if-1" (begin (gimp-context-push) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (set! img (car (gimp-image-duplicate org-img))) (gimp-image-undo-disable img) diff --git a/plug-ins/script-fu/scripts/camo.scm b/plug-ins/script-fu/scripts/camo.scm index 8347e40d8e..b90eb4e7d0 100644 --- a/plug-ins/script-fu/scripts/camo.scm +++ b/plug-ins/script-fu/scripts/camo.scm @@ -31,6 +31,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-insert-layer theImage baseLayer 0 0) diff --git a/plug-ins/script-fu/scripts/carve-it.scm b/plug-ins/script-fu/scripts/carve-it.scm index 7335981738..4eae4ef2c8 100644 --- a/plug-ins/script-fu/scripts/carve-it.scm +++ b/plug-ins/script-fu/scripts/carve-it.scm @@ -77,6 +77,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable img) diff --git a/plug-ins/script-fu/scripts/carved-logo.scm b/plug-ins/script-fu/scripts/carved-logo.scm index e6746ad9f5..20625a5343 100644 --- a/plug-ins/script-fu/scripts/carved-logo.scm +++ b/plug-ins/script-fu/scripts/carved-logo.scm @@ -51,6 +51,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable img) diff --git a/plug-ins/script-fu/scripts/chip-away.scm b/plug-ins/script-fu/scripts/chip-away.scm index ee7d130b82..7bd0ade509 100644 --- a/plug-ins/script-fu/scripts/chip-away.scm +++ b/plug-ins/script-fu/scripts/chip-away.scm @@ -53,6 +53,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img bump-layer bg-layer) diff --git a/plug-ins/script-fu/scripts/chrome-it.scm b/plug-ins/script-fu/scripts/chrome-it.scm index 4bc54ea895..b3742213b7 100644 --- a/plug-ins/script-fu/scripts/chrome-it.scm +++ b/plug-ins/script-fu/scripts/chrome-it.scm @@ -110,6 +110,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable img) diff --git a/plug-ins/script-fu/scripts/chrome-logo.scm b/plug-ins/script-fu/scripts/chrome-logo.scm index 0824154d73..f5682f07a5 100644 --- a/plug-ins/script-fu/scripts/chrome-logo.scm +++ b/plug-ins/script-fu/scripts/chrome-logo.scm @@ -21,6 +21,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img layer1 layer2 layer3 shadow background) diff --git a/plug-ins/script-fu/scripts/circuit.scm b/plug-ins/script-fu/scripts/circuit.scm index a0ef443304..e8421f09ae 100644 --- a/plug-ins/script-fu/scripts/circuit.scm +++ b/plug-ins/script-fu/scripts/circuit.scm @@ -51,6 +51,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-group-start image) diff --git a/plug-ins/script-fu/scripts/coffee.scm b/plug-ins/script-fu/scripts/coffee.scm index 7011cffa0e..2b0eba31e8 100644 --- a/plug-ins/script-fu/scripts/coffee.scm +++ b/plug-ins/script-fu/scripts/coffee.scm @@ -26,8 +26,7 @@ ) (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (gimp-image-undo-group-start theImage) diff --git a/plug-ins/script-fu/scripts/contactsheet.scm b/plug-ins/script-fu/scripts/contactsheet.scm index e691445e8d..90cda52457 100644 --- a/plug-ins/script-fu/scripts/contactsheet.scm +++ b/plug-ins/script-fu/scripts/contactsheet.scm @@ -176,6 +176,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-context-set-foreground text-color) (gimp-context-set-background bg-color) diff --git a/plug-ins/script-fu/scripts/coolmetal-logo.scm b/plug-ins/script-fu/scripts/coolmetal-logo.scm index fe7c805b16..47341c0498 100644 --- a/plug-ins/script-fu/scripts/coolmetal-logo.scm +++ b/plug-ins/script-fu/scripts/coolmetal-logo.scm @@ -32,6 +32,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-context-set-feather FALSE) (gimp-context-set-interpolation INTERPOLATION-NONE) (gimp-context-set-transform-resize TRANSFORM-RESIZE-ADJUST) diff --git a/plug-ins/script-fu/scripts/crystal-logo.scm b/plug-ins/script-fu/scripts/crystal-logo.scm index 2d83f181d1..5f58c08290 100644 --- a/plug-ins/script-fu/scripts/crystal-logo.scm +++ b/plug-ins/script-fu/scripts/crystal-logo.scm @@ -112,6 +112,7 @@ (disp-map 0) ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-delete back-img) (gimp-image-undo-disable img) diff --git a/plug-ins/script-fu/scripts/distress-selection.scm b/plug-ins/script-fu/scripts/distress-selection.scm index dcd6e9c1da..b2faa33745 100644 --- a/plug-ins/script-fu/scripts/distress-selection.scm +++ b/plug-ins/script-fu/scripts/distress-selection.scm @@ -37,59 +37,63 @@ (theMode (car (gimp-image-base-type inImage))) ) - (gimp-image-undo-group-start theImage) - (if (= theMode GRAY) - (set! theMode GRAYA-IMAGE) - (set! theMode RGBA-IMAGE) + (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 - NORMAL-MODE))) + (set! theLayer (car (gimp-layer-new theImage + theWidth + theHeight + theMode + "Distress Scratch Layer" + 100 + NORMAL-MODE))) - (gimp-image-insert-layer theImage theLayer 0 0) + (gimp-image-insert-layer theImage theLayer 0 0) - (if (= FALSE (car (gimp-selection-is-empty theImage))) - (gimp-edit-fill theLayer BACKGROUND-FILL) - ) - - (gimp-selection-invert theImage) - - (if (= FALSE (car (gimp-selection-is-empty theImage))) - (gimp-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) + (if (= FALSE (car (gimp-selection-is-empty theImage))) + (gimp-edit-fill theLayer BACKGROUND-FILL) ) - (gimp-image-undo-group-end theImage) - (gimp-displays-flush) + (gimp-selection-invert theImage) + + (if (= FALSE (car (gimp-selection-is-empty theImage))) + (gimp-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-displays-flush) + (gimp-context-pop) ) ) diff --git a/plug-ins/script-fu/scripts/drop-shadow.scm b/plug-ins/script-fu/scripts/drop-shadow.scm index 0f1aca03cf..2b77edfc19 100644 --- a/plug-ins/script-fu/scripts/drop-shadow.scm +++ b/plug-ins/script-fu/scripts/drop-shadow.scm @@ -56,6 +56,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-set-active-layer image drawable) diff --git a/plug-ins/script-fu/scripts/frosty-logo.scm b/plug-ins/script-fu/scripts/frosty-logo.scm index 693c277adb..b7eb80981f 100644 --- a/plug-ins/script-fu/scripts/frosty-logo.scm +++ b/plug-ins/script-fu/scripts/frosty-logo.scm @@ -34,6 +34,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (if ( = isnew 1) (script-fu-util-image-resize-from-layer img shadow-layer)) diff --git a/plug-ins/script-fu/scripts/glossy.scm b/plug-ins/script-fu/scripts/glossy.scm index e5e5d1a3aa..0df4dd5bc7 100644 --- a/plug-ins/script-fu/scripts/glossy.scm +++ b/plug-ins/script-fu/scripts/glossy.scm @@ -50,6 +50,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img grow-me bg-layer) @@ -121,9 +122,9 @@ (gimp-selection-none img) (plug-in-bump-map (if (= noninteractive TRUE) - RUN-NONINTERACTIVE - RUN-INTERACTIVE) - img grow-me logo-layer + RUN-NONINTERACTIVE + RUN-INTERACTIVE) + img grow-me logo-layer 110.0 45.0 3 0 0 0 0 TRUE FALSE 0) (gimp-layer-set-mode logo-layer SCREEN-MODE) diff --git a/plug-ins/script-fu/scripts/glowing-logo.scm b/plug-ins/script-fu/scripts/glowing-logo.scm index 9fb5150a18..8bfb1e062e 100644 --- a/plug-ins/script-fu/scripts/glowing-logo.scm +++ b/plug-ins/script-fu/scripts/glowing-logo.scm @@ -19,6 +19,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img glow-layer bg-layer) diff --git a/plug-ins/script-fu/scripts/gradient-bevel-logo.scm b/plug-ins/script-fu/scripts/gradient-bevel-logo.scm index d71b42f5fc..6021d24dba 100644 --- a/plug-ins/script-fu/scripts/gradient-bevel-logo.scm +++ b/plug-ins/script-fu/scripts/gradient-bevel-logo.scm @@ -34,6 +34,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img blur-layer bg-layer) diff --git a/plug-ins/script-fu/scripts/i26-gunya2.scm b/plug-ins/script-fu/scripts/i26-gunya2.scm index 05fc6350a2..225b4d751d 100644 --- a/plug-ins/script-fu/scripts/i26-gunya2.scm +++ b/plug-ins/script-fu/scripts/i26-gunya2.scm @@ -32,6 +32,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-undo-disable distortion-img) diff --git a/plug-ins/script-fu/scripts/land.scm b/plug-ins/script-fu/scripts/land.scm index ea84e081ea..b514cf999a 100644 --- a/plug-ins/script-fu/scripts/land.scm +++ b/plug-ins/script-fu/scripts/land.scm @@ -36,34 +36,36 @@ RGB-IMAGE "Bottom" 100 NORMAL-MODE))) (layer-two 0) ) - (gimp-context-set-gradient gradient) - (gimp-image-undo-disable img) - (gimp-image-insert-layer img layer-one 0 0) - (plug-in-solid-noise RUN-NONINTERACTIVE img layer-one TRUE FALSE seed detail xscale yscale) - (plug-in-c-astretch RUN-NONINTERACTIVE img layer-one) - (set! layer-two (car (gimp-layer-copy layer-one TRUE))) - (gimp-image-insert-layer img layer-two 0 -1) - (gimp-image-set-active-layer img layer-two) + (gimp-context-push) + (gimp-context-set-defaults) + (gimp-context-set-gradient gradient) + (gimp-image-undo-disable img) + (gimp-image-insert-layer img layer-one 0 0) - (plug-in-gradmap RUN-NONINTERACTIVE img layer-two) + (plug-in-solid-noise RUN-NONINTERACTIVE img layer-one TRUE FALSE seed detail xscale yscale) + (plug-in-c-astretch RUN-NONINTERACTIVE img layer-one) + (set! layer-two (car (gimp-layer-copy layer-one TRUE))) + (gimp-image-insert-layer img layer-two 0 -1) + (gimp-image-set-active-layer img layer-two) + (plug-in-gradmap RUN-NONINTERACTIVE img layer-two) + (gimp-image-select-color img CHANNEL-OP-REPLACE layer-one '(190 190 190)) + (plug-in-bump-map RUN-NONINTERACTIVE img layer-two layer-one 135.0 35 landheight 0 0 0 0 TRUE FALSE 0) - (gimp-image-select-color img CHANNEL-OP-REPLACE layer-one '(190 190 190)) - (plug-in-bump-map RUN-NONINTERACTIVE img layer-two layer-one 135.0 35 landheight 0 0 0 0 TRUE FALSE 0) + ;(plug-in-c-astretch RUN-NONINTERACTIVE img layer-two) + (gimp-selection-invert img) + (plug-in-bump-map RUN-NONINTERACTIVE img layer-two layer-one 135.0 35 seadepth 0 0 0 0 TRUE FALSE 0) - ;(plug-in-c-astretch RUN-NONINTERACTIVE img layer-two) - (gimp-selection-invert img) - (plug-in-bump-map RUN-NONINTERACTIVE img layer-two layer-one 135.0 35 seadepth 0 0 0 0 TRUE FALSE 0) + ;(plug-in-c-astretch RUN-NONINTERACTIVE img layer-two) - ;(plug-in-c-astretch RUN-NONINTERACTIVE img layer-two) + ; uncomment the next line if you want to keep a selection of the "land" + (gimp-selection-none img) - ; uncomment the next line if you want to keep a selection of the "land" - (gimp-selection-none img) - - (gimp-display-new img) - (gimp-image-undo-enable img) + (gimp-display-new img) + (gimp-image-undo-enable img) + (gimp-context-pop) ) ) diff --git a/plug-ins/script-fu/scripts/lava.scm b/plug-ins/script-fu/scripts/lava.scm index 4a6dec6c43..1735711cd8 100644 --- a/plug-ins/script-fu/scripts/lava.scm +++ b/plug-ins/script-fu/scripts/lava.scm @@ -46,6 +46,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-group-start image) (if (= (car (gimp-drawable-has-alpha drawable)) FALSE) diff --git a/plug-ins/script-fu/scripts/line-nova.scm b/plug-ins/script-fu/scripts/line-nova.scm index 00ff5ca4de..e600a53f41 100644 --- a/plug-ins/script-fu/scripts/line-nova.scm +++ b/plug-ins/script-fu/scripts/line-nova.scm @@ -25,8 +25,7 @@ (dir-deg/line (/ 360 num-of-lines)) ) (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (define (draw-vector beg-x beg-y direction) diff --git a/plug-ins/script-fu/scripts/mkbrush.scm b/plug-ins/script-fu/scripts/mkbrush.scm index 7dcd51f7b5..3e745f84f0 100644 --- a/plug-ins/script-fu/scripts/mkbrush.scm +++ b/plug-ins/script-fu/scripts/mkbrush.scm @@ -36,7 +36,7 @@ ) (gimp-context-push) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-insert-layer img drawable 0 0) diff --git a/plug-ins/script-fu/scripts/neon-logo.scm b/plug-ins/script-fu/scripts/neon-logo.scm index ae7a09f10c..58bdcec4fc 100644 --- a/plug-ins/script-fu/scripts/neon-logo.scm +++ b/plug-ins/script-fu/scripts/neon-logo.scm @@ -116,6 +116,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) ; ensure that we don't shrink selection so much ; that we create an empty selection. diff --git a/plug-ins/script-fu/scripts/news-text.scm b/plug-ins/script-fu/scripts/news-text.scm index 03c67bc6a7..b9c8f8fad0 100644 --- a/plug-ins/script-fu/scripts/news-text.scm +++ b/plug-ins/script-fu/scripts/news-text.scm @@ -32,6 +32,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-insert-layer img bg-layer 0 1) diff --git a/plug-ins/script-fu/scripts/perspective-shadow.scm b/plug-ins/script-fu/scripts/perspective-shadow.scm index 78ac74207e..7a42146361 100644 --- a/plug-ins/script-fu/scripts/perspective-shadow.scm +++ b/plug-ins/script-fu/scripts/perspective-shadow.scm @@ -48,148 +48,149 @@ (shadow-layer 0) ) - (gimp-context-push) + (gimp-context-push) + (gimp-context-set-defaults) - (if (> rel-distance 24) (set! rel-distance 999999)) - (if (= rel-distance rel-length) (set! rel-distance (+ rel-distance 0.01))) + (if (> rel-distance 24) (set! rel-distance 999999)) + (if (= rel-distance rel-length) (set! rel-distance (+ rel-distance 0.01))) - (gimp-image-undo-group-start image) + (gimp-image-undo-group-start image) - (gimp-layer-add-alpha drawable) - (if (= (car (gimp-selection-is-empty image)) TRUE) - (begin - (gimp-image-select-item image CHANNEL-OP-REPLACE drawable) - (set! from-selection FALSE)) - (begin - (set! from-selection TRUE) - (set! active-selection (car (gimp-selection-save image))))) - - (let* ((selection-bounds (gimp-selection-bounds image)) - (select-offset-x (cadr selection-bounds)) - (select-offset-y (caddr selection-bounds)) - (select-width (- (cadr (cddr selection-bounds)) select-offset-x)) - (select-height (- (caddr (cddr selection-bounds)) select-offset-y)) - - (abs-length (* rel-length select-height)) - (abs-distance (* rel-distance select-height)) - (half-bottom-width (/ select-width 2)) - (half-top-width (* half-bottom-width - (/ (- rel-distance rel-length) rel-distance))) - - (x0 (+ select-offset-x (+ (- half-bottom-width half-top-width) - (* (cos alpha) abs-length)))) - (y0 (+ select-offset-y (- select-height - (* (sin alpha) abs-length)))) - (x1 (+ x0 (* 2 half-top-width))) - (y1 y0) - (x2 select-offset-x) - (y2 (+ select-offset-y select-height)) - (x3 (+ x2 select-width)) - (y3 y2) - - (shadow-width (+ (- (max x1 x3) (min x0 x2)) (* 2 shadow-blur))) - (shadow-height (+ (- (max y1 y3) (min y0 y2)) (* 2 shadow-blur))) - (shadow-offset-x (- (min x0 x2) shadow-blur)) - (shadow-offset-y (- (min y0 y2) shadow-blur))) - - - (set! shadow-layer (car (gimp-layer-new image - select-width - select-height - type - "Perspective Shadow" - shadow-opacity - NORMAL-MODE))) - - - (gimp-image-insert-layer image shadow-layer 0 -1) - (gimp-layer-set-offsets shadow-layer select-offset-x select-offset-y) - (gimp-drawable-fill shadow-layer TRANSPARENT-FILL) - (gimp-context-set-background shadow-color) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - (gimp-selection-none image) - - (if (= allow-resize TRUE) - (let* ((new-image-width image-width) - (new-image-height image-height) - (image-offset-x 0) - (image-offset-y 0)) - - (if (< shadow-offset-x 0) - (begin - (set! image-offset-x (abs shadow-offset-x)) - (set! new-image-width (+ new-image-width image-offset-x)) - ; adjust to new coordinate system - (set! x0 (+ x0 image-offset-x)) - (set! x1 (+ x1 image-offset-x)) - (set! x2 (+ x2 image-offset-x)) - (set! x3 (+ x3 image-offset-x)) - )) - - (if (< shadow-offset-y 0) - (begin - (set! image-offset-y (abs shadow-offset-y)) - (set! new-image-height (+ new-image-height image-offset-y)) - ; adjust to new coordinate system - (set! y0 (+ y0 image-offset-y)) - (set! y1 (+ y1 image-offset-y)) - (set! y2 (+ y2 image-offset-y)) - (set! y3 (+ y3 image-offset-y)) - )) - - (if (> (+ shadow-width shadow-offset-x) new-image-width) - (set! new-image-width (+ shadow-width shadow-offset-x))) - - (if (> (+ shadow-height shadow-offset-y) new-image-height) - (set! new-image-height (+ shadow-height shadow-offset-y))) - (gimp-image-resize image - new-image-width - new-image-height - image-offset-x - image-offset-y))) - - (gimp-context-set-transform-direction TRANSFORM-FORWARD) - (gimp-context-set-interpolation interpolation) - (gimp-context-set-transform-recursion 3) - (gimp-context-set-transform-resize TRANSFORM-RESIZE-ADJUST) - - (gimp-item-transform-perspective shadow-layer - x0 y0 - x1 y1 - x2 y2 - x3 y3) - - (if (>= shadow-blur 1.0) + (gimp-layer-add-alpha drawable) + (if (= (car (gimp-selection-is-empty image)) TRUE) (begin - (gimp-layer-set-lock-alpha shadow-layer FALSE) - (gimp-layer-resize shadow-layer - shadow-width - shadow-height - shadow-blur - shadow-blur) - (plug-in-gauss-rle RUN-NONINTERACTIVE - image - shadow-layer - shadow-blur - TRUE - TRUE)))) + (gimp-image-select-item image CHANNEL-OP-REPLACE drawable) + (set! from-selection FALSE)) + (begin + (set! from-selection TRUE) + (set! active-selection (car (gimp-selection-save image))))) - (if (= from-selection TRUE) - (begin - (gimp-image-select-item image CHANNEL-OP-REPLACE active-selection) - (gimp-edit-clear shadow-layer) - (gimp-image-remove-channel image active-selection))) + (let* ((selection-bounds (gimp-selection-bounds image)) + (select-offset-x (cadr selection-bounds)) + (select-offset-y (caddr selection-bounds)) + (select-width (- (cadr (cddr selection-bounds)) select-offset-x)) + (select-height (- (caddr (cddr selection-bounds)) select-offset-y)) - (if (and - (= (car (gimp-layer-is-floating-sel drawable)) 0) - (= from-selection FALSE)) - (gimp-image-raise-item image drawable)) + (abs-length (* rel-length select-height)) + (abs-distance (* rel-distance select-height)) + (half-bottom-width (/ select-width 2)) + (half-top-width (* half-bottom-width + (/ (- rel-distance rel-length) rel-distance))) - (gimp-image-set-active-layer image drawable) - (gimp-image-undo-group-end image) - (gimp-displays-flush) + (x0 (+ select-offset-x (+ (- half-bottom-width half-top-width) + (* (cos alpha) abs-length)))) + (y0 (+ select-offset-y (- select-height + (* (sin alpha) abs-length)))) + (x1 (+ x0 (* 2 half-top-width))) + (y1 y0) + (x2 select-offset-x) + (y2 (+ select-offset-y select-height)) + (x3 (+ x2 select-width)) + (y3 y2) - (gimp-context-pop) + (shadow-width (+ (- (max x1 x3) (min x0 x2)) (* 2 shadow-blur))) + (shadow-height (+ (- (max y1 y3) (min y0 y2)) (* 2 shadow-blur))) + (shadow-offset-x (- (min x0 x2) shadow-blur)) + (shadow-offset-y (- (min y0 y2) shadow-blur))) + + + (set! shadow-layer (car (gimp-layer-new image + select-width + select-height + type + "Perspective Shadow" + shadow-opacity + NORMAL-MODE))) + + + (gimp-image-insert-layer image shadow-layer 0 -1) + (gimp-layer-set-offsets shadow-layer select-offset-x select-offset-y) + (gimp-drawable-fill shadow-layer TRANSPARENT-FILL) + (gimp-context-set-background shadow-color) + (gimp-edit-fill shadow-layer BACKGROUND-FILL) + (gimp-selection-none image) + + (if (= allow-resize TRUE) + (let* ((new-image-width image-width) + (new-image-height image-height) + (image-offset-x 0) + (image-offset-y 0)) + + (if (< shadow-offset-x 0) + (begin + (set! image-offset-x (abs shadow-offset-x)) + (set! new-image-width (+ new-image-width image-offset-x)) + ; adjust to new coordinate system + (set! x0 (+ x0 image-offset-x)) + (set! x1 (+ x1 image-offset-x)) + (set! x2 (+ x2 image-offset-x)) + (set! x3 (+ x3 image-offset-x)) + )) + + (if (< shadow-offset-y 0) + (begin + (set! image-offset-y (abs shadow-offset-y)) + (set! new-image-height (+ new-image-height image-offset-y)) + ; adjust to new coordinate system + (set! y0 (+ y0 image-offset-y)) + (set! y1 (+ y1 image-offset-y)) + (set! y2 (+ y2 image-offset-y)) + (set! y3 (+ y3 image-offset-y)) + )) + + (if (> (+ shadow-width shadow-offset-x) new-image-width) + (set! new-image-width (+ shadow-width shadow-offset-x))) + + (if (> (+ shadow-height shadow-offset-y) new-image-height) + (set! new-image-height (+ shadow-height shadow-offset-y))) + (gimp-image-resize image + new-image-width + new-image-height + image-offset-x + image-offset-y))) + + (gimp-context-set-transform-direction TRANSFORM-FORWARD) + (gimp-context-set-interpolation interpolation) + (gimp-context-set-transform-recursion 3) + (gimp-context-set-transform-resize TRANSFORM-RESIZE-ADJUST) + + (gimp-item-transform-perspective shadow-layer + x0 y0 + x1 y1 + x2 y2 + x3 y3) + + (if (>= shadow-blur 1.0) + (begin + (gimp-layer-set-lock-alpha shadow-layer FALSE) + (gimp-layer-resize shadow-layer + shadow-width + shadow-height + shadow-blur + shadow-blur) + (plug-in-gauss-rle RUN-NONINTERACTIVE + image + shadow-layer + shadow-blur + TRUE + TRUE)))) + + (if (= from-selection TRUE) + (begin + (gimp-image-select-item image CHANNEL-OP-REPLACE active-selection) + (gimp-edit-clear shadow-layer) + (gimp-image-remove-channel image active-selection))) + + (if (and + (= (car (gimp-layer-is-floating-sel drawable)) 0) + (= from-selection FALSE)) + (gimp-image-raise-item image drawable)) + + (gimp-image-set-active-layer image drawable) + (gimp-image-undo-group-end image) + (gimp-displays-flush) + + (gimp-context-pop) ) ) diff --git a/plug-ins/script-fu/scripts/predator.scm b/plug-ins/script-fu/scripts/predator.scm index adb8fe1c82..f8e1fe4e23 100644 --- a/plug-ins/script-fu/scripts/predator.scm +++ b/plug-ins/script-fu/scripts/predator.scm @@ -45,6 +45,8 @@ (active-layer 0) ) + (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-group-start image) (gimp-layer-add-alpha drawable) @@ -111,6 +113,7 @@ (gimp-image-remove-channel image active-selection) (gimp-image-undo-group-end image) (gimp-displays-flush) + (gimp-context-pop) ) ) diff --git a/plug-ins/script-fu/scripts/pupi-button.scm b/plug-ins/script-fu/scripts/pupi-button.scm index 4300473252..f8cafb6e62 100644 --- a/plug-ins/script-fu/scripts/pupi-button.scm +++ b/plug-ins/script-fu/scripts/pupi-button.scm @@ -114,8 +114,8 @@ ) (gimp-context-push) - (gimp-context-set-antialias FALSE) + (gimp-context-set-feather FALSE) (gimp-image-undo-disable img) ; Create bumpmap layer diff --git a/plug-ins/script-fu/scripts/round-corners.scm b/plug-ins/script-fu/scripts/round-corners.scm index 83aa58f29e..d5549fb6e2 100644 --- a/plug-ins/script-fu/scripts/round-corners.scm +++ b/plug-ins/script-fu/scripts/round-corners.scm @@ -59,8 +59,7 @@ (pic-layer (car (gimp-image-get-active-drawable image)))) (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (if (= work-on-copy TRUE) (gimp-image-undo-disable image) diff --git a/plug-ins/script-fu/scripts/select-to-brush.scm b/plug-ins/script-fu/scripts/select-to-brush.scm index 6960e8274e..ee95a9e183 100644 --- a/plug-ins/script-fu/scripts/select-to-brush.scm +++ b/plug-ins/script-fu/scripts/select-to-brush.scm @@ -47,6 +47,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable image) diff --git a/plug-ins/script-fu/scripts/select-to-image.scm b/plug-ins/script-fu/scripts/select-to-image.scm index eb0496fc2e..f3860f6691 100644 --- a/plug-ins/script-fu/scripts/select-to-image.scm +++ b/plug-ins/script-fu/scripts/select-to-image.scm @@ -38,6 +38,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable image) diff --git a/plug-ins/script-fu/scripts/selection-round.scm b/plug-ins/script-fu/scripts/selection-round.scm index 18c5c90267..bc0d030be3 100644 --- a/plug-ins/script-fu/scripts/selection-round.scm +++ b/plug-ins/script-fu/scripts/selection-round.scm @@ -53,8 +53,7 @@ ) (gimp-context-push) - (gimp-context-set-antialias FALSE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) ;; select to the full bounds of the selection, ;; fills in irregular shapes or holes. diff --git a/plug-ins/script-fu/scripts/sota-chrome-logo.scm b/plug-ins/script-fu/scripts/sota-chrome-logo.scm index 1464172a2e..5cd760bdaa 100644 --- a/plug-ins/script-fu/scripts/sota-chrome-logo.scm +++ b/plug-ins/script-fu/scripts/sota-chrome-logo.scm @@ -106,7 +106,7 @@ ) (gimp-context-push) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-resize img width height 0 0) diff --git a/plug-ins/script-fu/scripts/speed-text.scm b/plug-ins/script-fu/scripts/speed-text.scm index 4f099a1fd7..b95504b89b 100644 --- a/plug-ins/script-fu/scripts/speed-text.scm +++ b/plug-ins/script-fu/scripts/speed-text.scm @@ -35,6 +35,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-insert-layer img bg-layer 0 1) diff --git a/plug-ins/script-fu/scripts/starscape-logo.scm b/plug-ins/script-fu/scripts/starscape-logo.scm index 0301174c86..1652153c50 100644 --- a/plug-ins/script-fu/scripts/starscape-logo.scm +++ b/plug-ins/script-fu/scripts/starscape-logo.scm @@ -72,6 +72,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-selection-none img) (script-fu-util-image-resize-from-layer img logo-layer) diff --git a/plug-ins/script-fu/scripts/t-o-p-logo.scm b/plug-ins/script-fu/scripts/t-o-p-logo.scm index cdb8b4f063..058b02823e 100644 --- a/plug-ins/script-fu/scripts/t-o-p-logo.scm +++ b/plug-ins/script-fu/scripts/t-o-p-logo.scm @@ -23,6 +23,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img sparkle-layer shadow-layer bg-layer) diff --git a/plug-ins/script-fu/scripts/test-sphere.scm b/plug-ins/script-fu/scripts/test-sphere.scm index f9d46647b4..2b4cbe1a2a 100644 --- a/plug-ins/script-fu/scripts/test-sphere.scm +++ b/plug-ins/script-fu/scripts/test-sphere.scm @@ -199,7 +199,7 @@ ) (gimp-context-push) - (gimp-context-set-antialias TRUE) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-insert-layer img drawable 0 0) diff --git a/plug-ins/script-fu/scripts/text-circle.scm b/plug-ins/script-fu/scripts/text-circle.scm index 54358f55eb..c1688ea80a 100644 --- a/plug-ins/script-fu/scripts/text-circle.scm +++ b/plug-ins/script-fu/scripts/text-circle.scm @@ -55,6 +55,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-context-set-antialias antialias) (gimp-image-undo-disable img) (gimp-image-insert-layer img BG-layer 0 0) diff --git a/plug-ins/script-fu/scripts/textured-logo.scm b/plug-ins/script-fu/scripts/textured-logo.scm index f19a3a55f8..d6ff45c741 100644 --- a/plug-ins/script-fu/scripts/textured-logo.scm +++ b/plug-ins/script-fu/scripts/textured-logo.scm @@ -37,7 +37,7 @@ ) (gimp-context-push) - (gimp-context-set-feather TRUE) + (gimp-context-set-defaults) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img text-shadow-layer drop-shadow-layer blend-layer shadow-layer) diff --git a/plug-ins/script-fu/scripts/tileblur.scm b/plug-ins/script-fu/scripts/tileblur.scm index 41abde4023..2f01eb6375 100644 --- a/plug-ins/script-fu/scripts/tileblur.scm +++ b/plug-ins/script-fu/scripts/tileblur.scm @@ -31,11 +31,12 @@ ) ) + (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-context-set-feather 0) - (gimp-context-set-feather-radius 0 0) (gimp-image-select-rectangle theImage CHANNEL-OP-REPLACE 0 0 theWidth theHeight) (gimp-edit-cut theLayer) @@ -59,6 +60,7 @@ (gimp-layer-set-offsets theLayer 0 0) (gimp-image-undo-group-end theImage) (gimp-displays-flush) + (gimp-context-pop) ) ) diff --git a/plug-ins/script-fu/scripts/title-header.scm b/plug-ins/script-fu/scripts/title-header.scm index fcfeaa8026..cca47f1b14 100644 --- a/plug-ins/script-fu/scripts/title-header.scm +++ b/plug-ins/script-fu/scripts/title-header.scm @@ -79,8 +79,7 @@ ) (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) + (gimp-context-set-defaults) ; Create image diff --git a/plug-ins/script-fu/scripts/truchet.scm b/plug-ins/script-fu/scripts/truchet.scm index cc816575c1..312eb165a1 100644 --- a/plug-ins/script-fu/scripts/truchet.scm +++ b/plug-ins/script-fu/scripts/truchet.scm @@ -121,6 +121,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-disable img) (gimp-image-undo-disable tile) diff --git a/plug-ins/script-fu/scripts/xach-effect.scm b/plug-ins/script-fu/scripts/xach-effect.scm index daa33acc4c..679f97f963 100644 --- a/plug-ins/script-fu/scripts/xach-effect.scm +++ b/plug-ins/script-fu/scripts/xach-effect.scm @@ -51,6 +51,7 @@ ) (gimp-context-push) + (gimp-context-set-defaults) (gimp-image-undo-group-start image) (gimp-layer-add-alpha drawable)