mirror of https://github.com/GNOME/gimp.git
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:
parent
26121b8cbd
commit
1a75b7258e
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
||||
;------------------------------------------------------------
|
||||
;
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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?)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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))
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue