dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Applied modified version of second patch for bug #642939. 

Original patch supplied by Nelson A. de Oliveira. Modified to not use the
-1 "insanity" for invalid/none layer ID's in scripts per IRC discussion.
Additional scripts were changed to not pass -1 to gimp-image-insert-layer.
This commit is contained in:
Kevin Cozens 2011-03-02 02:55:43 -05:00
parent 403630fd57
commit b435e55d14
62 changed files with 130 additions and 130 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
plug-ins/script-fu/scripts/3dTruchet.scm
View File

@ -84,8 +84,8 @@
)
(gimp-image-undo-disable temp-img)
(gimp-image-insert-layer temp-img temp-draw -1 0)
(gimp-image-insert-layer temp-img temp-draw2 -1 0)
(gimp-image-insert-layer temp-img temp-draw 0 0)
(gimp-image-insert-layer temp-img temp-draw2 0 0)
(gimp-context-set-background backcolor)
(gimp-edit-fill temp-draw BACKGROUND-FILL)
(gimp-edit-fill temp-draw2 BACKGROUND-FILL)
@ -181,9 +181,9 @@
(gimp-image-undo-disable img)
(gimp-image-undo-disable tile)
(gimp-image-insert-layer img layer-one -1 0)
(gimp-image-insert-layer tile tiledraw1 -1 0)
(gimp-image-insert-layer tile tiledraw2 -1 0)
(gimp-image-insert-layer img layer-one 0 0)
(gimp-image-insert-layer tile tiledraw1 0 0)
(gimp-image-insert-layer tile tiledraw2 0 0)
;just to look a little better
(gimp-selection-all img)

2
plug-ins/script-fu/scripts/add-bevel.scm
View File

@ -89,7 +89,7 @@
(gimp-image-undo-group-start image)
)
(gimp-image-insert-layer image bump-layer -1 1)
(gimp-image-insert-layer image bump-layer 0 1)
; If the layer we're bevelling is offset from the image's origin, we
; have to do the same to the bumpmap

2
plug-ins/script-fu/scripts/addborder.scm
View File

@ -117,7 +117,7 @@
xsize
ysize)
(gimp-image-insert-layer img layer -1 0)
(gimp-image-insert-layer img layer 0 0)
(gimp-drawable-fill layer TRANSPARENT-FILL)
(gimp-context-set-background (adjcolour colour dvalue))

6
plug-ins/script-fu/scripts/alien-glow-arrow.scm
View File

@ -131,9 +131,9 @@
(gimp-image-undo-disable img)
;(gimp-image-resize img (+ length height) (+ height height) 0 0)
(gimp-image-insert-layer img bg-layer -1 1)
(gimp-image-insert-layer img glow-layer -1 -1)
(gimp-image-insert-layer img ruler-layer -1 -1)
(gimp-image-insert-layer img bg-layer 0 1)
(gimp-image-insert-layer img glow-layer 0 -1)
(gimp-image-insert-layer img ruler-layer 0 -1)
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)

6
plug-ins/script-fu/scripts/alien-glow-bar.scm
View File

@ -42,9 +42,9 @@
(gimp-image-undo-disable img)
(gimp-image-resize img (+ length height) (+ height height) 0 0)
(gimp-image-insert-layer img bg-layer -1 1)
(gimp-image-insert-layer img glow-layer -1 -1)
(gimp-image-insert-layer img ruler-layer -1 -1)
(gimp-image-insert-layer img bg-layer 0 1)
(gimp-image-insert-layer img glow-layer 0 -1)
(gimp-image-insert-layer img ruler-layer 0 -1)
; (gimp-layer-set-lock-alpha ruler-layer TRUE)
(gimp-context-set-background bg-color)

6
plug-ins/script-fu/scripts/alien-glow-bullet.scm
View File

@ -48,9 +48,9 @@
(gimp-image-undo-disable img)
(gimp-image-resize img diameter diameter 0 0)
(gimp-image-insert-layer img bg-layer -1 1)
(gimp-image-insert-layer img glow-layer -1 -1)
(gimp-image-insert-layer img bullet-layer -1 -1)
(gimp-image-insert-layer img bg-layer 0 1)
(gimp-image-insert-layer img glow-layer 0 -1)
(gimp-image-insert-layer img bullet-layer 0 -1)
; (gimp-layer-set-lock-alpha ruler-layer TRUE)
(gimp-context-set-background bg-color)

6
plug-ins/script-fu/scripts/alien-glow-button.scm
View File

@ -90,15 +90,15 @@
; Create bumpmap layer
(gimp-image-insert-layer img bg-layer -1 -1)
(gimp-image-insert-layer img bg-layer 0 -1)
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-image-insert-layer img glow-layer -1 -1)
(gimp-image-insert-layer img glow-layer 0 -1)
; Create text layer
(gimp-image-insert-layer img button-layer -1 -1)
(gimp-image-insert-layer img button-layer 0 -1)
(gimp-layer-set-offsets button-layer (/ glow-radius 2) (/ glow-radius 2))
(gimp-selection-none img)
(gimp-rect-select img 0 0 img-width img-height CHANNEL-OP-REPLACE FALSE 0)

4
plug-ins/script-fu/scripts/beveled-button.scm
View File

@ -86,7 +86,7 @@
; Create bumpmap layer
(gimp-image-insert-layer img bumpmap -1 -1)
(gimp-image-insert-layer img bumpmap 0 -1)
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -107,7 +107,7 @@
; Create gradient layer
(gimp-image-insert-layer img gradient -1 -1)
(gimp-image-insert-layer img gradient 0 -1)
(gimp-context-set-foreground ul-color)
(gimp-context-set-background lr-color)

4
plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
View File

@ -85,8 +85,8 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-insert-layer img background -1 -1)
(gimp-image-insert-layer img bumpmap -1 -1)
(gimp-image-insert-layer img background 0 -1)
(gimp-image-insert-layer img bumpmap 0 -1)
; Create pattern layer

4
plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
View File

@ -29,8 +29,8 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-insert-layer img background -1 -1)
(gimp-image-insert-layer img bumpmap -1 -1)
(gimp-image-insert-layer img background 0 -1)
(gimp-image-insert-layer img bumpmap 0 -1)
; Create pattern layer

4
plug-ins/script-fu/scripts/beveled-pattern-button.scm
View File

@ -63,8 +63,8 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-insert-layer img background -1 1)
(gimp-image-insert-layer img bumpmap -1 1)
(gimp-image-insert-layer img background 0 1)
(gimp-image-insert-layer img bumpmap 0 1)
; Create pattern layer

4
plug-ins/script-fu/scripts/beveled-pattern-heading.scm
View File

@ -48,8 +48,8 @@
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-insert-layer img background -1 1)
(gimp-image-insert-layer img bumpmap -1 1)
(gimp-image-insert-layer img background 0 1)
(gimp-image-insert-layer img bumpmap 0 1)
; Create pattern layer

4
plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
View File

@ -33,8 +33,8 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-insert-layer img background -1 -1)
(gimp-image-insert-layer img bumpmap -1 -1)
(gimp-image-insert-layer img background 0 -1)
(gimp-image-insert-layer img bumpmap 0 -1)
; Create pattern layer

8
plug-ins/script-fu/scripts/blend-anim.scm
View File

@ -68,7 +68,7 @@
; add a copy of the lowest blend layer on top
(let* ((copy (car (gimp-layer-copy
(aref layer-array (- num-layers 2)) TRUE))))
(gimp-image-insert-layer image copy -1 0)
(gimp-image-insert-layer image copy 0 0)
(set! layers (gimp-image-get-layers image))
(set! num-layers (car layers))
(set! layer-array (cadr layers))
@ -113,9 +113,9 @@
(upper-copy (car (gimp-layer-copy upper-layer TRUE)))
(lower-copy (car (gimp-layer-copy lower-layer TRUE)))
(bg-copy (car (gimp-layer-copy bg-layer TRUE))))
(gimp-image-insert-layer image bg-copy -1 0)
(gimp-image-insert-layer image lower-copy -1 0)
(gimp-image-insert-layer image upper-copy -1 0)
(gimp-image-insert-layer image bg-copy 0 0)
(gimp-image-insert-layer image lower-copy 0 0)
(gimp-image-insert-layer image upper-copy 0 0)
(gimp-item-set-visible upper-copy TRUE)
(gimp-item-set-visible lower-copy TRUE)
(gimp-item-set-visible bg-copy TRUE)

4
plug-ins/script-fu/scripts/burn-in-anim.scm
View File

@ -74,7 +74,7 @@
(set! bl-layer-name (string-append "fr-nr"
(number->string frame-nr 10) ) )
(gimp-image-insert-layer img bl-layer -1 -2)
(gimp-image-insert-layer img bl-layer 0 -2)
(gimp-item-set-name bl-layer bl-layer-name)
(gimp-item-set-visible bl-layer TRUE)
(gimp-layer-set-lock-alpha bl-layer TRUE)
@ -164,7 +164,7 @@
;--- merge with bg layer
(set! bg-layer (car (gimp-layer-copy bg-source-layer FALSE)))
(gimp-image-insert-layer img bg-layer -1 -1)
(gimp-image-insert-layer img bg-layer 0 -1)
(gimp-image-lower-item img bg-layer)
(set! bg-layer-name (string-append "bg-"
(number->string frame-nr 10)))

4
plug-ins/script-fu/scripts/carve-it.scm
View File

@ -80,7 +80,7 @@
(gimp-image-undo-disable img)
(gimp-image-insert-layer img layer1 -1 0)
(gimp-image-insert-layer img layer1 0 0)
(gimp-selection-all img)
(gimp-edit-clear layer1)
@ -149,7 +149,7 @@
(gimp-edit-fill csl-mask BACKGROUND-FILL)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-insert-layer img inset-layer -1 1)
(gimp-image-insert-layer img inset-layer 0 1)
(set! il-mask (car (gimp-layer-create-mask inset-layer ADD-BLACK-MASK)))
(gimp-layer-add-mask inset-layer il-mask)

2
plug-ins/script-fu/scripts/carved-logo.scm
View File

@ -128,7 +128,7 @@
(gimp-edit-fill csl-mask BACKGROUND-FILL)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-insert-layer img inset-layer -1 1)
(gimp-image-insert-layer img inset-layer 0 1)
(set! il-mask (car (gimp-layer-create-mask inset-layer ADD-BLACK-MASK)))
(gimp-layer-add-mask inset-layer il-mask)

12
plug-ins/script-fu/scripts/chrome-it.scm
View File

@ -114,10 +114,10 @@
(gimp-image-undo-disable img)
(gimp-image-insert-channel img mask -1 0)
(gimp-image-insert-layer img bg-layer -1 0)
(gimp-image-insert-layer img shadow -1 0)
(gimp-image-insert-layer img layer3 -1 0)
(gimp-image-insert-layer img layer2 -1 0)
(gimp-image-insert-layer img bg-layer 0 0)
(gimp-image-insert-layer img shadow 0 0)
(gimp-image-insert-layer img layer3 0 0)
(gimp-image-insert-layer img layer2 0 0)
(gimp-edit-copy mask-drawable)
(set! mask-fs (car (gimp-edit-paste mask FALSE)))
@ -146,7 +146,7 @@
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert layer2)
(gimp-image-insert-layer img layer1 -1 0)
(gimp-image-insert-layer img layer1 0 0)
(copy-layer-chrome-it img layer1 banding-img banding-layer)
(gimp-image-delete banding-img)
(gimp-layer-scale layer1 width height FALSE)
@ -162,7 +162,7 @@
(gimp-edit-fill layer-mask BACKGROUND-FILL)
(set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-insert-layer img layer2 -1 0)
(gimp-image-insert-layer img layer2 0 0)
(gimp-context-set-brush (brush brush-size))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke layer-mask)

2
plug-ins/script-fu/scripts/circuit.scm
View File

@ -81,7 +81,7 @@
100
NORMAL-MODE)))
(gimp-image-insert-layer image effect-layer -1 -1)
(gimp-image-insert-layer image effect-layer 0 -1)
(gimp-layer-set-offsets effect-layer select-offset-x select-offset-y)
(gimp-selection-none image)
(gimp-edit-clear effect-layer)

4
plug-ins/script-fu/scripts/clothify.scm
View File

@ -19,7 +19,7 @@
(gimp-image-undo-disable img)
(gimp-image-insert-layer img layer-one -1 0)
(gimp-image-insert-layer img layer-one 0 0)
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill layer-one BACKGROUND-FILL)
@ -28,7 +28,7 @@
(set! layer-two (car (gimp-layer-copy layer-one 0)))
(gimp-layer-set-mode layer-two MULTIPLY-MODE)
(gimp-image-insert-layer img layer-two -1 0)
(gimp-image-insert-layer img layer-two 0 0)
(plug-in-gauss-rle RUN-NONINTERACTIVE img layer-one bx TRUE FALSE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img layer-two by FALSE TRUE)

2
plug-ins/script-fu/scripts/coffee.scm
View File

@ -36,7 +36,7 @@
(if (= inDark TRUE)
DARKEN-ONLY-MODE NORMAL-MODE))))
(gimp-image-insert-layer theImage theStain -1 0)
(gimp-image-insert-layer theImage theStain 0 0)
(gimp-selection-all theImage)
(gimp-edit-clear theStain)

4
plug-ins/script-fu/scripts/contactsheet.scm
View File

@ -201,7 +201,7 @@
(set! sheet-layer (car (gimp-layer-new sheet-img sheet-width sheet-height
RGB-IMAGE "Background"
100 NORMAL-MODE)))
(gimp-image-add-layer sheet-img sheet-layer 0)
(gimp-image-insert-layer sheet-img sheet-layer 0 0)
(init-sheet-img sheet-img sheet-num sheet-width border-y off-y)
@ -229,7 +229,7 @@
(car (gimp-image-get-active-drawable new-img))
sheet-img)))
(gimp-image-add-layer sheet-img tmp-layer 0)
(gimp-image-insert-layer sheet-img tmp-layer 0 0)
;Move thumbnail in to position and center it in area available.
(gimp-layer-set-offsets tmp-layer

10
plug-ins/script-fu/scripts/crystal-logo.scm
View File

@ -116,8 +116,8 @@
(gimp-image-delete back-img)
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img layer3 0)
(gimp-image-add-layer img layer2 0)
(gimp-image-insert-layer img layer3 0 0)
(gimp-image-insert-layer img layer2 0 0)
(gimp-context-set-background '(255 255 255))
(gimp-selection-none img)
(gimp-edit-fill layer2 BACKGROUND-FILL)
@ -135,7 +135,7 @@
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert layer2)
(gimp-image-add-layer img layer1 0)
(gimp-image-insert-layer img layer1 0 0)
(copy-layer-crystal img layer1 banding-img banding-layer)
(gimp-image-delete banding-img)
(gimp-layer-scale layer1 width height FALSE)
@ -164,11 +164,11 @@
(gimp-image-add-layer img bg-layer 2)
(gimp-image-insert-layer img bg-layer 0 2)
(copy-layer-crystal img bg-layer tile-img tile-layer)
(gimp-image-delete tile-img)
(set! layer2 (car (gimp-layer-copy bg-layer TRUE)))
(gimp-image-add-layer img layer2 1)
(gimp-image-insert-layer img layer2 0 1)
(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)))

2
plug-ins/script-fu/scripts/difference-clouds.scm
View File

@ -38,7 +38,7 @@
(gimp-image-undo-group-start image)
; Add the cloud layer above the current layer
(gimp-image-insert-layer image diff-clouds -1 -1)
(gimp-image-insert-layer image diff-clouds 0 -1)
; Clear the layer (so there are no noise in it)
(gimp-drawable-fill diff-clouds TRANSPARENT-FILL)

2
plug-ins/script-fu/scripts/distress-selection.scm
View File

@ -50,7 +50,7 @@
100
NORMAL-MODE)))
(gimp-image-insert-layer theImage theLayer -1 0)
(gimp-image-insert-layer theImage theLayer 0 0)
(if (= FALSE (car (gimp-selection-is-empty theImage)))
(gimp-edit-fill theLayer BACKGROUND-FILL)

2
plug-ins/script-fu/scripts/drop-shadow.scm
View File

@ -126,7 +126,7 @@
"Drop Shadow"
shadow-opacity
NORMAL-MODE)))
(gimp-image-insert-layer image shadow-layer -1 -1)
(gimp-image-insert-layer image shadow-layer 0 -1)
(gimp-layer-set-offsets shadow-layer
shadow-offset-x
shadow-offset-y))

4
plug-ins/script-fu/scripts/flatland.scm
View File

@ -41,13 +41,13 @@
)
(gimp-image-undo-disable img)
(gimp-image-add-layer img layer-one 0)
(gimp-image-insert-layer img layer-one 0 0)
; (gimp-img-add-layer img layer-two 1)
(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-insert-layer img layer-two 0 -1)
(gimp-image-set-active-layer img layer-two)
(plug-in-gradmap RUN-NONINTERACTIVE img layer-two)

4
plug-ins/script-fu/scripts/font-map.scm
View File

@ -93,7 +93,7 @@
(gimp-context-set-background '(255 255 255))
(gimp-context-set-foreground '(0 0 0))))
(gimp-image-add-layer img drawable 0)
(gimp-image-insert-layer img drawable 0 0)
(gimp-edit-clear drawable)
(if (= labels TRUE)
@ -102,7 +102,7 @@
(if (= colors 0)
GRAYA-IMAGE RGBA-IMAGE)
"Labels" 100 NORMAL-MODE)))
(gimp-image-add-layer img drawable -1)))
(gimp-image-insert-layer img drawable 0 -1)))
(gimp-edit-clear drawable)
(while (< count num-fonts)

8
plug-ins/script-fu/scripts/frosty-logo.scm
View File

@ -38,11 +38,11 @@
(if ( = isnew 1) (script-fu-util-image-resize-from-layer img shadow-layer))
(gimp-layer-add-mask logo-layer logo-layer-mask)
(gimp-image-add-layer img sparkle-layer (+ 1 stack))
(gimp-image-add-layer img matte-layer (+ 2 stack))
(gimp-image-add-layer img shadow-layer (+ 3 stack))
(gimp-image-insert-layer img sparkle-layer 0 (+ 1 stack))
(gimp-image-insert-layer img matte-layer 0 (+ 2 stack))
(gimp-image-insert-layer img shadow-layer 0 (+ 3 stack))
(gimp-layer-translate shadow-layer (- border) (- border))
(gimp-image-add-layer img bg-layer 5)
(gimp-image-insert-layer img bg-layer 0 5)
(gimp-selection-none img)
(gimp-edit-clear sparkle-layer)
(gimp-edit-clear matte-layer)

4
plug-ins/script-fu/scripts/fuzzyborder.scm
View File

@ -61,7 +61,7 @@
100
NORMAL-MODE)))
(gimp-image-add-layer theImage theLayer 0)
(gimp-image-insert-layer theImage theLayer 0 0)
(gimp-edit-clear theLayer)
@ -97,7 +97,7 @@
(if (= inShadow TRUE)
(begin
(gimp-selection-none inImage)
(gimp-image-add-layer theImage
(gimp-image-insert-layer theImage -1
(car (gimp-layer-copy theLayer FALSE)) 0)
(gimp-layer-scale theLayer
(- theWidth inSize) (- theHeight inSize) TRUE)

2
plug-ins/script-fu/scripts/gradient-example.scm
View File

@ -33,7 +33,7 @@
)
(gimp-image-undo-disable img)
(gimp-image-add-layer img drawable 0)
(gimp-image-insert-layer img drawable 0 0)
; Render background checkerboard

2
plug-ins/script-fu/scripts/grid-system.scm
View File

@ -52,7 +52,7 @@
(gimp-image-undo-group-start img)
(set! grid-layer (car (gimp-layer-copy drw TRUE)))
(gimp-image-add-layer img grid-layer 0)
(gimp-image-insert-layer img grid-layer 0 0)
(gimp-edit-clear grid-layer)
(gimp-item-set-name grid-layer "Grid Layer")

6
plug-ins/script-fu/scripts/i26-gunya2.scm
View File

@ -36,9 +36,9 @@
(gimp-image-undo-disable img)
(gimp-image-undo-disable distortion-img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img dist-text-layer -1)
(gimp-image-add-layer img dist-frame-layer -1)
(gimp-image-add-layer distortion-img distortion-layer -1)
(gimp-image-insert-layer img dist-text-layer 0 -1)
(gimp-image-insert-layer img dist-frame-layer 0 -1)
(gimp-image-insert-layer distortion-img distortion-layer 0 -1)
(gimp-selection-none img)
(gimp-edit-clear dist-text-layer)
(gimp-edit-clear dist-frame-layer)

2
plug-ins/script-fu/scripts/lava.scm
View File

@ -75,7 +75,7 @@
100
NORMAL-MODE)))
(gimp-image-add-layer image lava-layer -1)
(gimp-image-insert-layer image lava-layer 0 -1)
(gimp-layer-set-offsets lava-layer select-offset-x select-offset-y)
(gimp-selection-none image)
(gimp-edit-clear lava-layer)

8
plug-ins/script-fu/scripts/mkbrush.scm
View File

@ -38,7 +38,7 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-insert-layer img drawable -1 0)
(gimp-image-insert-layer img drawable 0 0)
(gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL)
@ -97,7 +97,7 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-insert-layer img drawable -1 0)
(gimp-image-insert-layer img drawable 0 0)
(gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL)
@ -157,7 +157,7 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-insert-layer img drawable -1 0)
(gimp-image-insert-layer img drawable 0 0)
(gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL)
@ -216,7 +216,7 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-insert-layer img drawable -1 0)
(gimp-image-insert-layer img drawable 0 0)
(gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL)

2
plug-ins/script-fu/scripts/neon-logo.scm
View File

@ -145,7 +145,7 @@
(script-fu-util-image-add-layers img glow-layer bg-layer)
(if (not (= shadow 0))
(begin
(gimp-image-add-layer img shadow-layer -1)
(gimp-image-insert-layer img shadow-layer 0 -1)
(gimp-edit-clear shadow-layer)))
(gimp-context-set-background '(0 0 0))

4
plug-ins/script-fu/scripts/news-text.scm
View File

@ -34,8 +34,8 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img text-layer -1)
(gimp-image-insert-layer img bg-layer 0 1)
(gimp-image-insert-layer img text-layer 0 -1)
(gimp-context-set-background bg-color)
(gimp-edit-clear bg-layer)

2
plug-ins/script-fu/scripts/old-photo.scm
View File

@ -62,7 +62,7 @@
100 DARKEN-ONLY-MODE)))
)
(gimp-image-add-layer theImage mLayer 0)
(gimp-image-insert-layer theImage mLayer 0 0)
(gimp-selection-all theImage)
(gimp-edit-clear mLayer)
(gimp-selection-none theImage)

2
plug-ins/script-fu/scripts/perspective-shadow.scm
View File

@ -102,7 +102,7 @@
NORMAL-MODE)))
(gimp-image-insert-layer image shadow-layer -1 -1)
(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)

2
plug-ins/script-fu/scripts/predator.scm
View File

@ -78,7 +78,7 @@
)
(gimp-layer-set-offsets effect-layer select-offset-x select-offset-y)
(gimp-image-add-layer image effect-layer -1)
(gimp-image-insert-layer image effect-layer 0 -1)
(gimp-selection-none image)
(gimp-edit-clear effect-layer)

4
plug-ins/script-fu/scripts/pupi-button.scm
View File

@ -119,7 +119,7 @@
; Create bumpmap layer
(gimp-image-add-layer img bumpmap -1)
(gimp-image-insert-layer img bumpmap 0 -1)
(gimp-selection-none img)
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -134,7 +134,7 @@
; Create gradient layer
(gimp-image-add-layer img gradient -1)
(gimp-image-insert-layer img gradient 0 -1)
(gimp-edit-clear gradient)
(round-select img 0 0 width height ratio)
(gimp-context-set-foreground ul-color)

4
plug-ins/script-fu/scripts/rendermap.scm
View File

@ -36,7 +36,7 @@
RGBA-IMAGE
"I've got more rubber ducks than you!"
100 NORMAL-MODE)))
(gimp-image-add-layer theImage theLayer 0)
(gimp-image-insert-layer theImage theLayer 0 0)
(plug-in-solid-noise RUN-NONINTERACTIVE
theImage theLayer 1 0 (rand 65536)
inGrain inGrain inGrain)
@ -46,7 +46,7 @@
(set! thinLayer (car (gimp-layer-new theImage theWidth theHeight
RGBA-IMAGE "Camo Thin Layer"
100 NORMAL-MODE)))
(gimp-image-add-layer theImage thinLayer 0)
(gimp-image-insert-layer theImage thinLayer 0 0)
(let ((theBigGrain (min 15 (* 2 inGrain))))
(plug-in-solid-noise RUN-NONINTERACTIVE

4
plug-ins/script-fu/scripts/ripply-anim.scm
View File

@ -46,7 +46,7 @@
(gimp-image-undo-disable ripple-image)
(gimp-context-set-background '(127 127 127))
(gimp-image-add-layer ripple-image ripple-layer 0)
(gimp-image-insert-layer ripple-image ripple-layer 0 0)
(gimp-edit-fill ripple-layer BACKGROUND-FILL)
(plug-in-noisify RUN-NONINTERACTIVE ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0)
; tile noise
@ -89,7 +89,7 @@
(set! this-layer (car (gimp-layer-new out-imagestack
width height RGB
layer-name 100 NORMAL-MODE)))
(gimp-image-add-layer out-imagestack this-layer 0)
(gimp-image-insert-layer out-imagestack this-layer 0 0)
(copy-layer-ripple out-imagestack this-layer img drawable)

2
plug-ins/script-fu/scripts/round-corners.scm
View File

@ -105,7 +105,7 @@
100
NORMAL-MODE))))
(gimp-drawable-fill bg-layer BACKGROUND-FILL)
(gimp-image-add-layer image bg-layer -1)
(gimp-image-insert-layer image bg-layer 0 -1)
(gimp-image-raise-layer image pic-layer)
(if (= shadow-toggle TRUE)
(gimp-image-lower-layer image bg-layer))))

2
plug-ins/script-fu/scripts/script-fu-util.scm
View File

@ -38,7 +38,7 @@
(while (not (null? layers))
(let ((layer (car layers)))
(set! layers (cdr layers))
(gimp-image-add-layer image layer -1)
(gimp-image-insert-layer image layer 0 -1)
(gimp-image-lower-layer image layer)
)
)

2
plug-ins/script-fu/scripts/select-to-brush.scm
View File

@ -86,7 +86,7 @@
100
NORMAL-MODE)))
(gimp-image-insert-layer brush-image brush-draw -1 0)
(gimp-image-insert-layer brush-image brush-draw 0 0)
(gimp-selection-none brush-image)

2
plug-ins/script-fu/scripts/select-to-image.scm
View File

@ -60,7 +60,7 @@
(set! new-draw (car (gimp-layer-new new-image
selection-width selection-height
draw-type "Selection" 100 NORMAL-MODE)))
(gimp-image-insert-layer new-image new-draw -1 0)
(gimp-image-insert-layer new-image new-draw 0 0)
(gimp-drawable-fill new-draw BACKGROUND-FILL)
(let ((floating-sel (car (gimp-edit-paste new-draw FALSE))))

2
plug-ins/script-fu/scripts/select-to-pattern.scm
View File

@ -67,7 +67,7 @@
(gimp-drawable-fill pattern-draw TRANSPARENT-FILL)
(gimp-image-insert-layer pattern-image pattern-draw -1 0)
(gimp-image-insert-layer pattern-image pattern-draw 0 0)
(gimp-edit-copy drawable)

4
plug-ins/script-fu/scripts/slide.scm
View File

@ -119,12 +119,12 @@
; add the background layer
(gimp-drawable-fill bg-layer BACKGROUND-FILL)
(gimp-image-add-layer image bg-layer -1)
(gimp-image-insert-layer image bg-layer 0 -1)
; add the film layer
(gimp-context-set-background '(0 0 0))
(gimp-drawable-fill film-layer BACKGROUND-FILL)
(gimp-image-add-layer image film-layer -1)
(gimp-image-insert-layer image film-layer 0 -1)
; add the text
(gimp-context-set-foreground font-color)

10
plug-ins/script-fu/scripts/sota-chrome-logo.scm
View File

@ -109,9 +109,9 @@
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img shadow 0)
(gimp-image-add-layer img layer3 0)
(gimp-image-add-layer img layer2 0)
(gimp-image-insert-layer img shadow 0 0)
(gimp-image-insert-layer img layer3 0 0)
(gimp-image-insert-layer img layer2 0 0)
(gimp-context-set-background '(255 255 255))
(gimp-selection-none img)
(gimp-edit-fill layer2 BACKGROUND-FILL)
@ -137,7 +137,7 @@
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert layer2)
(gimp-image-add-layer img layer1 0)
(gimp-image-insert-layer img layer1 0 0)
(copy-layer-sota img layer1 banding-img banding-layer)
(gimp-image-delete banding-img)
(gimp-layer-scale layer1 width height FALSE)
@ -155,7 +155,7 @@
(gimp-edit-fill layer-mask BACKGROUND-FILL)
(set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0)
(gimp-image-insert-layer img layer2 0 0)
(gimp-context-set-brush (brush brush-size))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke layer-mask)

4
plug-ins/script-fu/scripts/speed-text.scm
View File

@ -37,8 +37,8 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img text-layer -1)
(gimp-image-insert-layer img bg-layer 0 1)
(gimp-image-insert-layer img text-layer 0 -1)
(gimp-context-set-background bg-color)
(gimp-edit-clear bg-layer)

2
plug-ins/script-fu/scripts/spinning-globe.scm
View File

@ -43,7 +43,7 @@
(while (> inFrames n)
(set! n (+ n 1))
(set! theFrame (car (gimp-layer-copy theLayer FALSE)))
(gimp-image-add-layer theImage theFrame 0)
(gimp-image-insert-layer theImage theFrame 0 0)
(gimp-item-set-name theFrame
(string-append "Anim Frame: "
(number->string (- inFrames n) 10)

2
plug-ins/script-fu/scripts/swirltile.scm
View File

@ -21,7 +21,7 @@
(gimp-image-undo-disable img)
(gimp-image-add-layer img layer-one 0)
(gimp-image-insert-layer img layer-one 0 0)
(gimp-context-set-background bg-color)
(gimp-edit-fill layer-one BACKGROUND-FILL)
(plug-in-noisify RUN-NONINTERACTIVE img layer-one FALSE noise-level noise-level noise-level 1.0)

2
plug-ins/script-fu/scripts/swirly-pattern.scm
View File

@ -36,7 +36,7 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img drawable 0)
(gimp-image-insert-layer img drawable 0 0)
; Render checkerboard

2
plug-ins/script-fu/scripts/test-sphere.scm
View File

@ -201,7 +201,7 @@
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img drawable 0)
(gimp-image-insert-layer img drawable 0 0)
(gimp-context-set-foreground sphere-color)
(gimp-context-set-background bg-color)
(gimp-edit-fill drawable BACKGROUND-FILL)

2
plug-ins/script-fu/scripts/text-circle.scm
View File

@ -55,7 +55,7 @@
)
(gimp-image-undo-disable img)
(gimp-image-add-layer img BG-layer 0)
(gimp-image-insert-layer img BG-layer 0 0)
(gimp-edit-fill BG-layer BACKGROUND-FILL)
;; change units

8
plug-ins/script-fu/scripts/title-header.scm
View File

@ -85,10 +85,10 @@
(gimp-image-undo-disable img)
(gimp-image-resize img img-width img-height 0 0)
(gimp-image-add-layer img bg-layer -1)
(gimp-image-add-layer img bumpmap-layer -1)
(gimp-image-add-layer img fore-layer -1)
; (gimp-image-add-layer img text-layer -1)
(gimp-image-insert-layer img bg-layer 0 -1)
(gimp-image-insert-layer img bumpmap-layer 0 -1)
(gimp-image-insert-layer img fore-layer 0 -1)
; (gimp-image-insert-layer img text-layer 0 -1)
(gimp-image-raise-layer img text-layer)
(gimp-image-raise-layer img text-layer)
(gimp-image-raise-layer img text-layer)

8
plug-ins/script-fu/scripts/truchet.scm
View File

@ -57,7 +57,7 @@
(temp-draw (car (gimp-layer-new temp-img tempSize tempSize RGB-IMAGE "Jabar" 100 NORMAL-MODE)))
)
(gimp-image-undo-disable temp-img)
(gimp-image-add-layer temp-img temp-draw 0)
(gimp-image-insert-layer temp-img temp-draw 0 0)
(gimp-context-set-background backcolor)
(gimp-edit-fill temp-draw BACKGROUND-FILL)
@ -117,9 +117,9 @@
(gimp-image-undo-disable img)
(gimp-image-undo-disable tile)
(gimp-image-add-layer img layer-one 0)
(gimp-image-add-layer tile tiledraw1 0)
(gimp-image-add-layer tile tiledraw2 0)
(gimp-image-insert-layer img layer-one 0 0)
(gimp-image-insert-layer tile tiledraw1 0 0)
(gimp-image-insert-layer tile tiledraw2 0 0)
;just to look a little better

10
plug-ins/script-fu/scripts/unsharp-mask.scm
View File

@ -25,7 +25,7 @@
(gimp-image-undo-disable new-image)
(gimp-image-add-layer new-image original-layer 0)
(gimp-image-insert-layer new-image original-layer 0 0)
(gimp-floating-sel-anchor
(car (gimp-edit-paste original-layer FALSE)))
@ -36,12 +36,12 @@
(gimp-display-new new-image)
;; make darker mask
(gimp-image-add-layer new-image blured-layer-for-darker -1)
(gimp-image-insert-layer new-image blured-layer-for-darker 0 -1)
(plug-in-gauss-iir RUN-NONINTERACTIVE
new-image blured-layer-for-darker mask-size TRUE TRUE)
(set! blured-layer-for-lighter
(car (gimp-layer-copy blured-layer-for-darker TRUE)))
(gimp-image-add-layer new-image original-layer-for-darker -1)
(gimp-image-insert-layer new-image original-layer-for-darker 0 -1)
(gimp-layer-set-mode original-layer-for-darker SUBTRACT-MODE)
(set! darker-layer
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
@ -49,8 +49,8 @@
(gimp-item-set-visible darker-layer FALSE)
;; make lighter mask
(gimp-image-add-layer new-image original-layer-for-lighter -1)
(gimp-image-add-layer new-image blured-layer-for-lighter -1)
(gimp-image-insert-layer new-image original-layer-for-lighter 0 -1)
(gimp-image-insert-layer new-image blured-layer-for-lighter 0 -1)
(gimp-layer-set-mode blured-layer-for-lighter SUBTRACT-MODE)
(set! lighter-layer
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))

2
plug-ins/script-fu/scripts/waves-anim.scm
View File

@ -59,7 +59,7 @@
" (replace)"))
)
(gimp-layer-set-lock-alpha waves-layer FALSE)
(gimp-image-add-layer image waves-layer -1)
(gimp-image-insert-layer image waves-layer 0 -1)
(gimp-item-set-name waves-layer layer-name)
(plug-in-waves RUN-NONINTERACTIVE

6
plug-ins/script-fu/scripts/weave.scm
View File

@ -48,7 +48,7 @@
(drawable (car (gimp-layer-new img tile-size tile-size RGB-IMAGE
"Weave tile" 100 NORMAL-MODE))))
(gimp-image-undo-disable img)
(gimp-image-add-layer img drawable 0)
(gimp-image-insert-layer img drawable 0 0)
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill drawable BACKGROUND-FILL)
@ -171,7 +171,7 @@
(drawable (car (gimp-layer-new img tile-size tile-size RGB-IMAGE
"Mask" 100 NORMAL-MODE))))
(gimp-image-undo-disable img)
(gimp-image-add-layer img drawable 0)
(gimp-image-insert-layer img drawable 0 0)
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill drawable BACKGROUND-FILL)
@ -274,7 +274,7 @@
(let* ((drawable (car (gimp-layer-new img width height RGBA-IMAGE
"Threads" 100 NORMAL-MODE)))
(dense (/ density 100.0)))
(gimp-image-add-layer img drawable -1)
(gimp-image-insert-layer img drawable 0 -1)
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill drawable BACKGROUND-FILL)
(plug-in-noisify RUN-NONINTERACTIVE img drawable FALSE dense dense dense dense)

4
plug-ins/script-fu/scripts/xach-effect.scm
View File

@ -65,7 +65,7 @@
(set! active-selection (car (gimp-selection-save image)))))
(set! hl-layer (car (gimp-layer-new image image-width image-height type _"Highlight" 100 NORMAL-MODE)))
(gimp-image-insert-layer image hl-layer -1 -1)
(gimp-image-insert-layer image hl-layer 0 -1)
(gimp-selection-none image)
(gimp-edit-clear hl-layer)
@ -91,7 +91,7 @@
_"Shadow"
ds-opacity
NORMAL-MODE)))
(gimp-image-insert-layer image shadow-layer -1 -1)
(gimp-image-insert-layer image shadow-layer 0 -1)
(gimp-selection-none image)
(gimp-edit-clear shadow-layer)
(gimp-image-select-item image CHANNEL-OP-REPLACE active-selection)