use RUN-NONINTERACTIVE for the run-mode where 1 was used instead.

2007-10-01  Sven Neumann  <sven@gimp.org>

	* plug-ins/script-fu/scripts/*.scm: use RUN-NONINTERACTIVE for 
the
	run-mode where 1 was used instead.


svn path=/trunk/; revision=23707
This commit is contained in:
Sven Neumann 2007-10-01 19:44:23 +00:00 committed by Sven Neumann
parent 26121b8cbd
commit 1a75b7258e
53 changed files with 156 additions and 151 deletions

View File

@ -1,3 +1,8 @@
2007-10-01 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/*.scm: use RUN-NONINTERACTIVE for the
run-mode where 1 was used instead.
2007-10-01 Michael Natterer <mitch@gimp.org>
* app/widgets/gimpwidgets-utils.[ch]: removed

View File

@ -56,14 +56,14 @@
(gimp-context-set-foreground '(0 0 0))
(gimp-edit-fill logo-layer FOREGROUND-FILL)
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-gauss-iir 1 img logo-layer outline-blur-radius TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img logo-layer outline-blur-radius TRUE TRUE)
(gimp-drawable-set-visible pattern FALSE)
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(plug-in-edge 1 img layer2 2 1 0)
(plug-in-edge RUN-NONINTERACTIVE img layer2 2 1 0)
(set! layer3 (car (gimp-layer-copy layer2 TRUE)))
(gimp-image-add-layer img layer3 2)
(plug-in-gauss-iir 1 img layer2 bump-map-blur-radius TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img layer2 bump-map-blur-radius TRUE TRUE)
(gimp-selection-all img)
(gimp-context-set-pattern text-pattern)
@ -82,7 +82,7 @@
(gimp-layer-remove-mask pattern MASK-APPLY)
(gimp-invert layer3)
(plug-in-gauss-iir 1 img layer3 shadow-blur-radius TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img layer3 shadow-blur-radius TRUE TRUE)
(gimp-drawable-offset layer3 0 1 s-offset-x s-offset-y)

View File

@ -139,13 +139,13 @@
(gimp-selection-none image)
; To further lessen jaggies?
;(plug-in-gauss-rle 1 image bump-layer thickness TRUE TRUE)
;(plug-in-gauss-rle RUN-NONINTERACTIVE image bump-layer thickness TRUE TRUE)
;
; BUMPMAP INVOCATION:
;
(plug-in-bump-map 1 image pic-layer bump-layer 125 45 3 0 0 0 0 TRUE FALSE 1)
(plug-in-bump-map RUN-NONINTERACTIVE image pic-layer bump-layer 125 45 3 0 0 0 0 TRUE FALSE 1)
;------------------------------------------------------------
;

View File

@ -156,7 +156,7 @@
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer blur-radius TRUE TRUE)
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)

View File

@ -68,7 +68,7 @@
(gimp-selection-grow img border)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 25 TRUE TRUE)
(gimp-image-undo-enable img)

View File

@ -78,8 +78,8 @@
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(if (>= radius 16)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)
(plug-in-gauss-rle 1 img glow-layer 12 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 25 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 12 TRUE TRUE)
)
(if (= flatten TRUE)

View File

@ -123,7 +123,7 @@
(gimp-context-set-foreground glow-color)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer glow-radius TRUE TRUE)
(gimp-context-set-foreground text-color)
(let (
(textl (car (gimp-text-fontname

View File

@ -117,7 +117,7 @@
FALSE 0 0 TRUE
0 0 (- img-width 1) (- img-height 1))
(plug-in-bump-map 1 img gradient bumpmap
(plug-in-bump-map RUN-NONINTERACTIVE img gradient bumpmap
135 45 bevel-width 0 0 0 0 TRUE pressed 0)
; Create text layer

View File

@ -120,7 +120,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
; Darken arrow

View File

@ -56,7 +56,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
; Background

View File

@ -90,7 +90,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE pressed 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE pressed 0)
; Color and position text

View File

@ -78,7 +78,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
; Clean up

View File

@ -60,7 +60,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(gimp-image-set-active-layer img background)
(gimp-image-remove-layer img bumpmap)

View File

@ -133,7 +133,7 @@
blur
blur)
(if (>= blur 1.0)
(plug-in-gauss-rle 1
(plug-in-gauss-rle RUN-NONINTERACTIVE
image
upper-copy
blur
@ -150,7 +150,7 @@
blur
blur)
(if (>= blur 1.0)
(plug-in-gauss-rle 1
(plug-in-gauss-rle RUN-NONINTERACTIVE
image
lower-copy
blur

View File

@ -56,15 +56,15 @@
(gimp-layer-set-lock-alpha blur-layer FALSE)
(gimp-selection-layer-alpha logo-layer)
(gimp-edit-fill blur-layer BACKGROUND-FILL)
(plug-in-gauss-rle 1 img blur-layer 5.0 1 1)
(plug-in-gauss-rle RUN-NONINTERACTIVE img blur-layer 5.0 1 1)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer TRUE)
(gimp-selection-all img)
(plug-in-solid-noise 1 img logo-layer 0 0 23 1 spots-x spots-y)
(plug-in-solid-noise RUN-NONINTERACTIVE img logo-layer 0 0 23 1 spots-x spots-y)
(gimp-brightness-contrast logo-layer 0 127)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-bump-map 1 img logo-layer blur-layer
(plug-in-bump-map RUN-NONINTERACTIVE img logo-layer blur-layer
135 50 10 0 0 0 30 TRUE FALSE 0)
(gimp-layer-set-offsets blur-layer 5 5)
(gimp-invert blur-layer)

View File

@ -90,7 +90,7 @@
(gimp-edit-copy mask-drawable)
(gimp-image-add-channel img mask 0)
(plug-in-tile 1 img layer1 width height FALSE)
(plug-in-tile RUN-NONINTERACTIVE img layer1 width height FALSE)
(set! mask-fs (car (gimp-edit-paste mask FALSE)))
(gimp-floating-sel-anchor mask-fs)
(if (= carve-white FALSE)
@ -106,8 +106,8 @@
(set! mask-emboss (car (gimp-channel-copy mask-fat)))
(gimp-image-add-channel img mask-emboss 0)
(plug-in-gauss-rle 1 img mask-emboss feather TRUE TRUE)
(plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img mask-emboss feather TRUE TRUE)
(plug-in-emboss RUN-NONINTERACTIVE img mask-emboss 315.0 45.0 7 TRUE)
(gimp-context-set-background '(180 180 180))
(gimp-selection-load mask-fat)
@ -139,7 +139,7 @@
(gimp-floating-sel-to-layer cast-shadow-layer)
(gimp-layer-set-mode cast-shadow-layer MULTIPLY-MODE)
(gimp-layer-set-opacity cast-shadow-layer 75)
(plug-in-gauss-rle 1 img cast-shadow-layer feather TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img cast-shadow-layer feather TRUE TRUE)
(gimp-layer-translate cast-shadow-layer offx offy)
(set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK)))

View File

@ -64,7 +64,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill mask BACKGROUND-FILL)
(plug-in-tile 1 img layer1 width height FALSE)
(plug-in-tile RUN-NONINTERACTIVE img layer1 width height FALSE)
(gimp-edit-copy mask-layer)
(set! mask-fs (car (gimp-edit-paste mask FALSE)))
@ -85,8 +85,8 @@
(set! mask-emboss (car (gimp-channel-copy mask-fat)))
(gimp-image-add-channel img mask-emboss 0)
(plug-in-gauss-rle 1 img mask-emboss feather TRUE TRUE)
(plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img mask-emboss feather TRUE TRUE)
(plug-in-emboss RUN-NONINTERACTIVE img mask-emboss 315.0 45.0 7 TRUE)
(gimp-context-set-background '(180 180 180))
(gimp-selection-load mask-fat)
@ -118,7 +118,7 @@
(gimp-floating-sel-to-layer cast-shadow-layer)
(gimp-layer-set-mode cast-shadow-layer MULTIPLY-MODE)
(gimp-layer-set-opacity cast-shadow-layer 75)
(plug-in-gauss-rle 1 img cast-shadow-layer feather TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img cast-shadow-layer feather TRUE TRUE)
(gimp-layer-translate cast-shadow-layer offx offy)
(set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK)))

View File

@ -42,11 +42,11 @@
; the actual effect
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-gauss-rle 1 img logo-layer 2.0 1 1)
(plug-in-spread 1 img logo-layer 5.0 5.0)
(plug-in-ripple 1 img logo-layer 27 2 0 0 0 TRUE TRUE)
(plug-in-ripple 1 img logo-layer 27 2 1 0 0 TRUE TRUE)
(plug-in-sobel 1 img logo-layer TRUE TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img logo-layer 2.0 1 1)
(plug-in-spread RUN-NONINTERACTIVE img logo-layer 5.0 5.0)
(plug-in-ripple RUN-NONINTERACTIVE img logo-layer 27 2 0 0 0 TRUE TRUE)
(plug-in-ripple RUN-NONINTERACTIVE img logo-layer 27 2 1 0 0 TRUE TRUE)
(plug-in-sobel RUN-NONINTERACTIVE img logo-layer TRUE TRUE TRUE)
(gimp-levels logo-layer 0 0 120 3.5 0 255)
; work-around for sobel edge detect screw-up (why does this happen?)

View File

@ -82,13 +82,13 @@
(gimp-selection-none img)
(gimp-layer-set-lock-alpha bump-layer FALSE)
(plug-in-spread 1 img bump-layer spread-amount spread-amount)
(plug-in-spread RUN-NONINTERACTIVE img bump-layer spread-amount spread-amount)
(gimp-selection-layer-alpha bump-layer)
(plug-in-gauss-rle 1 img bump-layer blur-amount TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img bump-layer blur-amount TRUE TRUE)
(gimp-selection-none img)
(plug-in-bump-map 1 img logo-layer bump-layer
(plug-in-bump-map RUN-NONINTERACTIVE img logo-layer bump-layer
135.00 25.0 60 0 0 0 0 TRUE invert 1)
(gimp-drawable-set-visible bump-layer FALSE)
@ -104,7 +104,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img shadow-layer 5 TRUE TRUE)
(gimp-layer-translate shadow-layer 6 6))))
(if (= keep-bump FALSE)

View File

@ -148,7 +148,7 @@
(copy-layer-chrome-it img layer1 banding-img banding-layer)
(gimp-image-delete banding-img)
(gimp-layer-scale layer1 width height FALSE)
(plug-in-gauss-iir 1 img layer1 10 TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img layer1 10 TRUE TRUE)
(gimp-layer-set-opacity layer1 50)
(set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-curves-spline layer1 0 18 (spline-chrome-it))

View File

@ -103,9 +103,9 @@
)
(gimp-selection-load active-selection)
(plug-in-maze 1 image active-layer 5 5 TRUE 0 seed 57 1)
(plug-in-oilify 1 image active-layer mask-size 0)
(plug-in-edge 1 image active-layer 2 1 0)
(plug-in-maze RUN-NONINTERACTIVE image active-layer 5 5 TRUE 0 seed 57 1)
(plug-in-oilify RUN-NONINTERACTIVE image active-layer mask-size 0)
(plug-in-edge RUN-NONINTERACTIVE image active-layer 2 1 0)
(if (= type RGBA-IMAGE)
(gimp-desaturate active-layer))

View File

@ -24,21 +24,21 @@
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill layer-one BACKGROUND-FILL)
(plug-in-noisify 1 img layer-one FALSE 0.7 0.7 0.7 0.7)
(plug-in-noisify RUN-NONINTERACTIVE img layer-one FALSE 0.7 0.7 0.7 0.7)
(set! layer-two (car (gimp-layer-copy layer-one 0)))
(gimp-layer-set-mode layer-two MULTIPLY-MODE)
(gimp-image-add-layer img layer-two 0)
(plug-in-gauss-rle 1 img layer-one bx TRUE FALSE)
(plug-in-gauss-rle 1 img layer-two by FALSE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img layer-one bx TRUE FALSE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img layer-two by FALSE TRUE)
(gimp-image-flatten img)
(set! bump-layer (car (gimp-image-get-active-layer img)))
(plug-in-c-astretch 1 img bump-layer)
(plug-in-noisify 1 img bump-layer FALSE 0.2 0.2 0.2 0.2)
(plug-in-c-astretch RUN-NONINTERACTIVE img bump-layer)
(plug-in-noisify RUN-NONINTERACTIVE img bump-layer FALSE 0.2 0.2 0.2 0.2)
(plug-in-bump-map 1 img tdrawable bump-layer azimuth elevation depth 0 0 0 0 FALSE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img tdrawable bump-layer azimuth elevation depth 0 0 0 0 FALSE FALSE 0)
(gimp-image-delete img)
(gimp-displays-flush)

View File

@ -58,9 +58,9 @@
(gimp-selection-all img)
(gimp-edit-fill white-layer BACKGROUND-FILL)
(gimp-layer-set-lock-alpha white-layer FALSE)
(plug-in-spread 1 img white-layer (* 3 ol-width) (* 3 ol-width))
(plug-in-gauss-rle 1 img white-layer (* 2 ol-width) 1 1)
(plug-in-threshold-alpha 1 img white-layer 0)
(plug-in-spread RUN-NONINTERACTIVE img white-layer (* 3 ol-width) (* 3 ol-width))
(plug-in-gauss-rle RUN-NONINTERACTIVE img white-layer (* 2 ol-width) 1 1)
(plug-in-threshold-alpha RUN-NONINTERACTIVE img white-layer 0)
(gimp-layer-set-lock-alpha white-layer TRUE)
(gimp-edit-fill white-layer BACKGROUND-FILL)
(gimp-selection-none img)
@ -71,8 +71,8 @@
(gimp-edit-fill black-layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha black-layer FALSE)
(plug-in-gauss-rle 1 img black-layer ol-width 1 1)
(plug-in-threshold-alpha 1 img black-layer 0)
(plug-in-gauss-rle RUN-NONINTERACTIVE img black-layer ol-width 1 1)
(plug-in-threshold-alpha RUN-NONINTERACTIVE img black-layer 0)
(gimp-context-set-gradient gradient)
(gimp-layer-set-lock-alpha logo-layer TRUE)
@ -83,11 +83,11 @@
FALSE 0 0 TRUE
0 (* height 0.3) 0 (* height 0.78))
(plug-in-noisify 1 img logo-layer 0 0.20 0.20 0.20 0.20)
(plug-in-noisify RUN-NONINTERACTIVE img logo-layer 0 0.20 0.20 0.20 0.20)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer FALSE)
(gimp-brightness-contrast logo-layer 0 30)
(plug-in-threshold-alpha 1 img logo-layer 60)
(plug-in-threshold-alpha RUN-NONINTERACTIVE img logo-layer 60)
(gimp-image-set-active-layer img logo-layer)
(gimp-context-pop)

View File

@ -54,9 +54,9 @@
0 0 0 (+ height 5))
(gimp-rect-select img 0 (- (/ height 2) feather) img-width (* 2 feather) CHANNEL-OP-REPLACE 0 0)
(plug-in-gauss-iir 1 img logo-layer smear TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img logo-layer smear TRUE TRUE)
(gimp-selection-none img)
(plug-in-ripple 1 img logo-layer period amplitude 1 0 1 TRUE FALSE)
(plug-in-ripple RUN-NONINTERACTIVE img logo-layer period amplitude 1 0 1 TRUE FALSE)
(gimp-layer-translate logo-layer 5 5)
(gimp-layer-resize logo-layer img-width img-height 5 5)
@ -64,14 +64,14 @@
(set! channel (car (gimp-selection-save img)))
(gimp-selection-shrink img shrink)
(gimp-selection-invert img)
(plug-in-gauss-rle 1 img channel feather TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img channel feather TRUE TRUE)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-invert img)
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill channel BACKGROUND-FILL)
(gimp-selection-none img)
(plug-in-bump-map 1 img logo-layer channel 135 45 depth 0 0 0 0 FALSE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img logo-layer channel 135 45 depth 0 0 0 0 FALSE FALSE 0)
(gimp-selection-layer-alpha logo-layer)
(set! fs (car (gimp-selection-float shadow-layer 0 0)))
@ -83,7 +83,7 @@
(+ 5 width) height
FALSE FALSE)
(gimp-floating-sel-anchor fs)
(plug-in-gauss-rle 1 img shadow-layer smear TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img shadow-layer smear TRUE TRUE)
(gimp-rect-select img 5 5 width height CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-copy logo-layer)

View File

@ -97,7 +97,7 @@
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(tile-ret (plug-in-tile 1 back-img back-layer width height TRUE))
(tile-ret (plug-in-tile RUN-NONINTERACTIVE back-img back-layer width height TRUE))
(tile-img (car tile-ret))
(tile-layer (cadr tile-ret))
(tile-width (car (gimp-drawable-width tile-layer)))
@ -139,7 +139,7 @@
(copy-layer-crystal img layer1 banding-img banding-layer)
(gimp-image-delete banding-img)
(gimp-layer-scale layer1 width height FALSE)
(plug-in-gauss-iir 1 img layer1 10 TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img layer1 10 TRUE TRUE)
(gimp-layer-set-opacity layer1 50)
(set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-curves-spline layer1 0 18 (spline1))
@ -156,7 +156,7 @@
(gimp-edit-stroke disp-map)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img disp-map blur TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img disp-map blur TRUE TRUE)
(gimp-levels disp-map 0 0 255 1.0 96 255)
(if (= (car (gimp-drawable-is-rgb bg-layer)) 1)
@ -170,7 +170,7 @@
(set! layer2 (car (gimp-layer-copy bg-layer TRUE)))
(gimp-image-add-layer img layer2 1)
(plug-in-displace 1 img layer2 displace displace TRUE TRUE disp-map disp-map 0)
(plug-in-displace RUN-NONINTERACTIVE img layer2 displace displace TRUE TRUE disp-map disp-map 0)
(set! layer-mask2 (car (gimp-layer-create-mask layer2 ADD-BLACK-MASK)))
(gimp-layer-add-mask layer2 layer-mask2)
(gimp-selection-layer-alpha text-layer)
@ -181,7 +181,7 @@
(gimp-levels layer2 0 0 200 1.5 50 255)
(gimp-layer-set-mode layer1 OVERLAY-MODE)
(plug-in-gauss-rle 1 img text-layer blur TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img text-layer blur TRUE TRUE)
(gimp-layer-set-lock-alpha text-layer TRUE)
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill text-layer BACKGROUND-FILL)

View File

@ -137,7 +137,7 @@
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none image)
(gimp-layer-set-lock-alpha shadow-layer FALSE)
(if (>= shadow-blur 1.0) (plug-in-gauss-rle 1
(if (>= shadow-blur 1.0) (plug-in-gauss-rle RUN-NONINTERACTIVE
image
shadow-layer
shadow-blur

View File

@ -45,13 +45,13 @@
(gimp-image-add-layer img layer-one 0)
; (gimp-img-add-layer img layer-two 1)
(plug-in-solid-noise 1 img layer-one 1 0 seed detail xscale yscale )
(plug-in-c-astretch 1 img layer-one)
(plug-in-solid-noise RUN-NONINTERACTIVE img layer-one 1 0 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-add-layer img layer-two -1)
(gimp-image-set-active-layer img layer-two)
(plug-in-gradmap 1 img layer-two)
(plug-in-gradmap RUN-NONINTERACTIVE img layer-two)
(gimp-image-undo-enable img)
(gimp-display-new img)
)

View File

@ -40,10 +40,10 @@
(gimp-selection-feather img border)
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill sparkle-layer BACKGROUND-FILL)
(plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
(plug-in-c-astretch 1 img sparkle-layer)
(plug-in-noisify RUN-NONINTERACTIVE img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
(plug-in-c-astretch RUN-NONINTERACTIVE img sparkle-layer)
(gimp-selection-none img)
(plug-in-sparkle 1 img sparkle-layer 0.03 0.5
(plug-in-sparkle RUN-NONINTERACTIVE img sparkle-layer 0.03 0.5
(/ (min width height) 2)
6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0)
(gimp-levels sparkle-layer 1 0 255 0.2 0 255)

View File

@ -87,7 +87,7 @@
(gimp-layer-translate shadow-layer 5 5)
(gimp-layer-set-lock-alpha shadow-layer FALSE)
(plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img shadow-layer 5 TRUE TRUE)
(gimp-layer-set-opacity shadow-layer 60)
(gimp-image-lower-layer img shadow-layer)
(gimp-image-lower-layer img shadow-layer)
@ -108,7 +108,7 @@
)
(if (= crop TRUE)
(plug-in-autocrop 1 img text-layer)
(plug-in-autocrop RUN-NONINTERACTIVE img text-layer)
)
(if (= index TRUE)

View File

@ -54,7 +54,7 @@
(gimp-layer-set-lock-alpha blur-layer FALSE)
(gimp-selection-layer-alpha logo-layer)
(gimp-edit-fill blur-layer BACKGROUND-FILL)
(plug-in-gauss-rle 1 img blur-layer bevel-width 1 1)
(plug-in-gauss-rle RUN-NONINTERACTIVE img blur-layer bevel-width 1 1)
(gimp-selection-none img)
(gimp-context-set-background '(127 127 127))
(gimp-context-set-foreground '(255 255 255))
@ -68,7 +68,7 @@
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-bump-map 1 img logo-layer blur-layer 115 bevel-height 5 0 0 0 15 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img logo-layer blur-layer 115 bevel-height 5 0 0 0 15 TRUE FALSE 0)
(gimp-layer-set-offsets blur-layer 5 5)
(gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0)

View File

@ -42,7 +42,7 @@
(gimp-context-set-foreground (list fg-color fg-color fg-color))
(gimp-context-set-background (list bg-color bg-color bg-color))
(plug-in-checkerboard 1 img drawable 0 8)
(plug-in-checkerboard RUN-NONINTERACTIVE img drawable 0 8)
(gimp-context-pop)

View File

@ -55,21 +55,21 @@
;; now make the distortion data
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill distortion-layer BACKGROUND-FILL)
(plug-in-noisify 1 distortion-img distortion-layer FALSE prob prob prob 0.0)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
(plug-in-c-astretch 1 distortion-img distortion-layer)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
(plug-in-noisify RUN-NONINTERACTIVE distortion-img distortion-layer FALSE prob prob prob 0.0)
(plug-in-gauss-rle RUN-NONINTERACTIVE distortion-img distortion-layer radius 1 1)
(plug-in-c-astretch RUN-NONINTERACTIVE distortion-img distortion-layer)
(plug-in-gauss-rle RUN-NONINTERACTIVE distortion-img distortion-layer radius 1 1)
;; OK, apply it to dist-text-layer
(plug-in-displace 1 img dist-text-layer radius radius 1 1
(plug-in-displace RUN-NONINTERACTIVE img dist-text-layer radius radius 1 1
distortion-layer distortion-layer 0)
;; make the distortion data once again fro the frame
(gimp-edit-fill distortion-layer BACKGROUND-FILL)
(plug-in-noisify 1 distortion-img distortion-layer FALSE prob prob prob 0.0)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
(plug-in-c-astretch 1 distortion-img distortion-layer)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
(plug-in-noisify RUN-NONINTERACTIVE distortion-img distortion-layer FALSE prob prob prob 0.0)
(plug-in-gauss-rle RUN-NONINTERACTIVE distortion-img distortion-layer radius 1 1)
(plug-in-c-astretch RUN-NONINTERACTIVE distortion-img distortion-layer)
(plug-in-gauss-rle RUN-NONINTERACTIVE distortion-img distortion-layer radius 1 1)
;; then, apply it to dist-frame-layer
(plug-in-displace 1 img dist-frame-layer radius radius 1 1
(plug-in-displace RUN-NONINTERACTIVE img dist-frame-layer radius radius 1 1
distortion-layer distortion-layer 0)
;; Finally, clear the bottom layer (text-layer)
(gimp-selection-all img)

View File

@ -41,24 +41,24 @@
(gimp-image-undo-disable img)
(gimp-image-add-layer img layer-one 0)
(plug-in-solid-noise 1 img layer-one TRUE FALSE seed detail xscale yscale)
(plug-in-c-astretch 1 img layer-one)
(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-add-layer img layer-two -1)
(gimp-image-set-active-layer img layer-two)
(plug-in-gradmap 1 img layer-two)
(plug-in-gradmap RUN-NONINTERACTIVE img layer-two)
(gimp-by-color-select layer-one '(190 190 190) 55 CHANNEL-OP-REPLACE FALSE FALSE 0 FALSE)
(plug-in-bump-map 1 img layer-two layer-one 135.0 35 landheight 0 0 0 0 TRUE FALSE 0)
(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 1 img layer-two)
;(plug-in-c-astretch RUN-NONINTERACTIVE img layer-two)
(gimp-selection-invert img)
(plug-in-bump-map 1 img layer-two layer-one 135.0 35 seadepth 0 0 0 0 TRUE FALSE 0)
(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 1 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)

View File

@ -92,12 +92,12 @@
(gimp-context-set-gradient gradient)
)
(plug-in-solid-noise 1 image active-layer FALSE TRUE seed 2 2 2)
(plug-in-cubism 1 image active-layer tile_size 2.5 0)
(plug-in-oilify 1 image active-layer mask_size 0)
(plug-in-edge 1 image active-layer 2 0 0)
(plug-in-gauss-rle 1 image active-layer 2 TRUE TRUE)
(plug-in-gradmap 1 image active-layer)
(plug-in-solid-noise RUN-NONINTERACTIVE image active-layer FALSE TRUE seed 2 2 2)
(plug-in-cubism RUN-NONINTERACTIVE image active-layer tile_size 2.5 0)
(plug-in-oilify RUN-NONINTERACTIVE image active-layer mask_size 0)
(plug-in-edge RUN-NONINTERACTIVE image active-layer 2 0 0)
(plug-in-gauss-rle RUN-NONINTERACTIVE image active-layer 2 TRUE TRUE)
(plug-in-gradmap RUN-NONINTERACTIVE image active-layer)
(if (= keep-selection FALSE)
(gimp-selection-none image)

View File

@ -171,10 +171,10 @@
(gimp-selection-none img)
(if (not (= feather1 0))
(plug-in-gauss-rle 1 img tube-layer feather1 TRUE TRUE))
(plug-in-gauss-rle RUN-NONINTERACTIVE img tube-layer feather1 TRUE TRUE))
(gimp-selection-load selection)
(if (not (= feather2 0))
(plug-in-gauss-rle 1 img tube-layer feather2 TRUE TRUE))
(plug-in-gauss-rle RUN-NONINTERACTIVE img tube-layer feather2 TRUE TRUE))
(gimp-selection-feather img inc-shrink)
(gimp-selection-shrink img inc-shrink)

View File

@ -56,10 +56,10 @@
(gimp-edit-fill text-mask BACKGROUND-FILL)
(gimp-selection-none img)
(if (> blur-radius 0)
(plug-in-gauss-iir 1 img text-mask blur-radius 1 1)
(plug-in-gauss-iir RUN-NONINTERACTIVE img text-mask blur-radius 1 1)
)
(plug-in-newsprint 1 img text-mask cell-size
(plug-in-newsprint RUN-NONINTERACTIVE img text-mask cell-size
0 0 45.0 3 45.0 0 45.0 0 45.0 0 3)
(gimp-edit-fill text-layer FOREGROUND-FILL)

View File

@ -153,7 +153,7 @@
shadow-height
shadow-blur
shadow-blur)
(plug-in-gauss-rle 1
(plug-in-gauss-rle RUN-NONINTERACTIVE
image
shadow-layer
shadow-blur

View File

@ -96,10 +96,10 @@
; all the fun stuff goes here
(if (= pixelize TRUE)
(plug-in-pixelize 1 image active-layer pixel-size)
(plug-in-pixelize RUN-NONINTERACTIVE image active-layer pixel-size)
)
(plug-in-max-rgb 1 image active-layer 0)
(plug-in-edge 1 image active-layer edge-amount 1 0)
(plug-in-max-rgb RUN-NONINTERACTIVE image active-layer 0)
(plug-in-edge RUN-NONINTERACTIVE image active-layer edge-amount 1 0)
; clean up the selection copy
(gimp-selection-load active-selection)

View File

@ -131,7 +131,7 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img bumpmap bevel 1 1)
(plug-in-gauss-rle RUN-NONINTERACTIVE img bumpmap bevel 1 1)
; Create gradient layer
@ -148,7 +148,7 @@
(gimp-selection-none img)
(plug-in-bump-map 1 img gradient bumpmap
(plug-in-bump-map RUN-NONINTERACTIVE img gradient bumpmap
135 45 bevel 0 0 0 0 TRUE pressed 0)
; Create text layer

View File

@ -48,9 +48,9 @@
(gimp-context-set-background '(127 127 127))
(gimp-image-add-layer ripple-image ripple-layer 0)
(gimp-edit-fill ripple-layer BACKGROUND-FILL)
(plug-in-noisify 1 ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0)
(plug-in-noisify RUN-NONINTERACTIVE ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0)
; tile noise
(set! rippletiled-ret (plug-in-tile 1 ripple-image ripple-layer (* width 3) (* height 3) TRUE))
(set! rippletiled-ret (plug-in-tile RUN-NONINTERACTIVE ripple-image ripple-layer (* width 3) (* height 3) TRUE))
(gimp-image-undo-enable ripple-image)
(gimp-image-delete ripple-image)
@ -59,9 +59,9 @@
(gimp-image-undo-disable rippletiled-image)
; process tiled noise into usable displacement map
(plug-in-gauss-iir 1 rippletiled-image rippletiled-layer 35 TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE rippletiled-image rippletiled-layer 35 TRUE TRUE)
(gimp-equalize rippletiled-layer TRUE)
(plug-in-gauss-rle 1 rippletiled-image rippletiled-layer 5 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE rippletiled-image rippletiled-layer 5 TRUE TRUE)
(gimp-equalize rippletiled-layer TRUE)
; displacement map is now in rippletiled-layer of rippletiled-image
@ -94,7 +94,7 @@
(copy-layer-ripple out-imagestack this-layer img drawable)
(set! dup-layer (car (gimp-image-get-active-layer dup-image)))
(plug-in-displace 1 out-imagestack this-layer
(plug-in-displace RUN-NONINTERACTIVE out-imagestack this-layer
displacement displacement
TRUE TRUE dup-layer dup-layer edge-type)

View File

@ -115,7 +115,7 @@
(/ (- width crop-width) 2)
(/ (- height crop-height) 2))
(if (< ratio 1)
(plug-in-rotate 1 image pic-layer 1 FALSE)
(plug-in-rotate RUN-NONINTERACTIVE image pic-layer 1 FALSE)
)
; add the background layer
@ -208,7 +208,7 @@
(gimp-context-set-foreground '(0 0 0))
(gimp-edit-fill film-mask BACKGROUND-FILL)
(gimp-selection-none image)
(plug-in-gauss-rle 1 image film-mask hole-radius TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE image film-mask hole-radius TRUE TRUE)
(gimp-threshold film-mask 127 255)
(gimp-layer-remove-mask film-layer MASK-APPLY)
@ -220,7 +220,7 @@
; eventually rotate the whole thing back
(if (< ratio 1)
(plug-in-rotate 1 image pic-layer 3 TRUE)
(plug-in-rotate RUN-NONINTERACTIVE image pic-layer 3 TRUE)
)
; clean up after the script

View File

@ -141,7 +141,7 @@
(copy-layer-sota img layer1 banding-img banding-layer)
(gimp-image-delete banding-img)
(gimp-layer-scale layer1 width height FALSE)
(plug-in-gauss-iir 1 img layer1 10 TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img layer1 10 TRUE TRUE)
(gimp-layer-set-opacity layer1 50)
(gimp-drawable-set-visible layer1 TRUE)
(gimp-drawable-set-visible layer2 TRUE)

View File

@ -71,7 +71,7 @@
(gimp-edit-fill text-mask BACKGROUND-FILL)
(gimp-selection-none img)
(plug-in-newsprint 1 img text-mask cell-size 0 0 0.0 1 45.0 0 45.0 0 45.0 0 5)
(plug-in-newsprint RUN-NONINTERACTIVE img text-mask cell-size 0 0 0.0 1 45.0 0 45.0 0 45.0 0 5)
(gimp-layer-remove-mask text-layer MASK-APPLY)

View File

@ -44,7 +44,7 @@
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill layer-mask BACKGROUND-FILL)
(gimp-selection-none img)
(plug-in-nova 1 img burst-layer (car burst-coords) (cdr burst-coords)
(plug-in-nova RUN-NONINTERACTIVE img burst-layer (car burst-coords) (cdr burst-coords)
burst-color burstradius 100 0)
(gimp-selection-layer-alpha logo-layer)

View File

@ -108,12 +108,12 @@
FALSE 0 0 TRUE
cx cy bx by)
(plug-in-nova 1 img glow-layer novax novay glow-color novaradius 100 0)
(plug-in-nova RUN-NONINTERACTIVE img glow-layer novax novay glow-color novaradius 100 0)
(gimp-selection-all img)
(gimp-context-set-pattern "Stone")
(gimp-edit-bucket-fill bump-channel PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(plug-in-bump-map 1 img logo-layer bump-channel
(plug-in-bump-map RUN-NONINTERACTIVE img logo-layer bump-channel
135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
(gimp-image-remove-channel img bump-channel)
(gimp-selection-none img)

View File

@ -24,21 +24,21 @@
(gimp-image-add-layer img layer-one 0)
(gimp-context-set-background bg-color)
(gimp-edit-fill layer-one BACKGROUND-FILL)
(plug-in-noisify 1 img layer-one FALSE noise-level noise-level noise-level 1.0)
(plug-in-noisify RUN-NONINTERACTIVE img layer-one FALSE noise-level noise-level noise-level 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0)
(gimp-drawable-offset layer-one TRUE 0 cx cy)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0)
(plug-in-gauss-rle 1 img layer-one blurRadius TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img layer-one blurRadius TRUE TRUE)
(plug-in-bump-map 1 img layer-one layer-one azimuth elevation depth 0 0 0 0 FALSE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img layer-one layer-one azimuth elevation depth 0 0 0 0 FALSE FALSE 0)
(gimp-display-new img)
(gimp-image-undo-enable img)

View File

@ -24,7 +24,7 @@
(define (whirl-it img drawable angle times)
(if (> times 0)
(begin
(plug-in-whirl-pinch 1 img drawable angle 0.0 1.0)
(plug-in-whirl-pinch RUN-NONINTERACTIVE img drawable angle 0.0 1.0)
(whirl-it img drawable angle (- times 1)))))
(let* ((hsize (* qsize 2))
@ -44,7 +44,7 @@
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background '(255 255 255))
(plug-in-checkerboard 1 img drawable 0 qsize)
(plug-in-checkerboard RUN-NONINTERACTIVE img drawable 0 qsize)
; Whirl upper left

View File

@ -36,12 +36,12 @@
(gimp-selection-layer-alpha logo-layer)
(set! selection (car (gimp-selection-save img)))
(gimp-selection-grow img edge-size)
(plug-in-noisify 1 img sparkle-layer FALSE
(plug-in-noisify RUN-NONINTERACTIVE img sparkle-layer FALSE
(* 0.1 hit-rate) (* 0.1 hit-rate) (* 0.1 hit-rate) 0.0)
(gimp-selection-border img edge-size)
(plug-in-noisify 1 img sparkle-layer FALSE hit-rate hit-rate hit-rate 0.0)
(plug-in-noisify RUN-NONINTERACTIVE img sparkle-layer FALSE hit-rate hit-rate hit-rate 0.0)
(gimp-selection-none img)
(plug-in-sparkle 1 img sparkle-layer 0.03 0.49 width 6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0)
(plug-in-sparkle RUN-NONINTERACTIVE img sparkle-layer 0.03 0.49 width 6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0)
(gimp-selection-load selection)
(gimp-selection-shrink img edge-size)
(gimp-levels sparkle-layer 0 0 255 1.2 0 255)

View File

@ -81,7 +81,7 @@
FALSE 0 0 TRUE
0 0 width 0)
(plug-in-mosaic 1 img blend-layer 12 1 1 0.7 TRUE 135 0.2 TRUE FALSE
(plug-in-mosaic RUN-NONINTERACTIVE img blend-layer 12 1 1 0.7 TRUE 135 0.2 TRUE FALSE
tile-type 1 0)
(gimp-layer-translate logo-layer (- b-size-2) (- b-size-2))

View File

@ -106,13 +106,13 @@
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill bumpmap-layer BACKGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img bumpmap-layer 4.0 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img bumpmap-layer 4.0 TRUE TRUE)
; Fore layer, bumpmap
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill fore-layer BACKGROUND-FILL)
(plug-in-bump-map 1 img fore-layer bumpmap-layer 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img fore-layer bumpmap-layer 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
; Text layer

View File

@ -63,7 +63,7 @@
(gimp-image-add-layer image waves-layer -1)
(gimp-drawable-set-name waves-layer layer-name)
(plug-in-waves 1
(plug-in-waves RUN-NONINTERACTIVE
image
waves-layer
amplitude
@ -78,7 +78,7 @@
)
(gimp-drawable-set-name source-layer "Frame 1")
(plug-in-waves 1
(plug-in-waves RUN-NONINTERACTIVE
image
source-layer
amplitude

View File

@ -147,7 +147,7 @@
shadow-depth))
(tile-img (car tile))
(tile-layer (cadr tile))
(weaving (plug-in-tile 1 tile-img tile-layer width height TRUE)))
(weaving (plug-in-tile RUN-NONINTERACTIVE tile-img tile-layer width height TRUE)))
(gimp-image-delete tile-img)
weaving))
@ -213,7 +213,7 @@
r3-x1 r3-y1 r3-width r3-height))
(tile-img (car tile))
(tile-layer (cadr tile))
(mask (plug-in-tile 1 tile-img tile-layer final-width final-height
(mask (plug-in-tile RUN-NONINTERACTIVE tile-img tile-layer final-width final-height
TRUE)))
(gimp-image-delete tile-img)
mask))
@ -278,13 +278,13 @@
(gimp-image-add-layer img drawable -1)
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill drawable BACKGROUND-FILL)
(plug-in-noisify 1 img drawable FALSE dense dense dense dense)
(plug-in-c-astretch 1 img drawable)
(plug-in-noisify RUN-NONINTERACTIVE img drawable FALSE dense dense dense dense)
(plug-in-c-astretch RUN-NONINTERACTIVE img drawable)
(cond ((eq? orientation 'horizontal)
(plug-in-gauss-rle 1 img drawable length TRUE FALSE))
(plug-in-gauss-rle RUN-NONINTERACTIVE img drawable length TRUE FALSE))
((eq? orientation 'vertical)
(plug-in-gauss-rle 1 img drawable length FALSE TRUE)))
(plug-in-c-astretch 1 img drawable)
(plug-in-gauss-rle RUN-NONINTERACTIVE img drawable length FALSE TRUE)))
(plug-in-c-astretch RUN-NONINTERACTIVE img drawable)
drawable))
(define (create-complete-weave width

View File

@ -100,7 +100,7 @@
(gimp-context-set-background ds-color)
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none image)
(plug-in-gauss-rle 1 image shadow-layer ds-blur TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE image shadow-layer ds-blur TRUE TRUE)
(gimp-selection-load active-selection)
(gimp-edit-clear shadow-layer)
(gimp-image-lower-layer image shadow-layer)