Commit b435e55d authored by Kevin Cozens's avatar Kevin Cozens

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.
parent 403630fd
......@@ -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)
......
......@@ -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
......
......@@ -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))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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)
......
......@@ -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)))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
......@@ -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)))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
......@@ -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")
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
......@@ -46,7 +46,7 @@
(gimp-image-undo-disable ripple-image)