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

applied patch from Kevin Cozens <kcozens@interlog.com> which removes the 

2004-02-03  Michael Natterer  <mitch@gimp.org>

	* plug-ins/script-fu/scripts/*.scm: applied patch from Kevin
	Cozens <kcozens@interlog.com> which removes the use of deprecated
	constants in all scripts. Fixes bug #133270.
This commit is contained in:
Michael Natterer 2004-02-03 11:46:27 +00:00 committed by Michael Natterer
parent f77ff9d400
commit 0e993d1702
49 changed files with 133 additions and 127 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2004-02-03 Michael Natterer <mitch@gimp.org>
* plug-ins/script-fu/scripts/*.scm: applied patch from Kevin
Cozens <kcozens@interlog.com> which removes the use of deprecated
constants in all scripts. Fixes bug #133270.
2004-02-03 Michael Natterer <mitch@gimp.org>
* plug-ins/script-fu/script-fu-scripts.c (script_fu_free_script):

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

@ -92,14 +92,14 @@
(gimp-palette-set-foreground endcolor)
(center-ellipse temp-img size size outer-radius outer-radius
REPLACE TRUE FALSE 0)
CHANNEL-OP-REPLACE TRUE FALSE 0)
(center-ellipse temp-img size size inner-radius inner-radius
SUB TRUE FALSE 0)
CHANNEL-OP-SUBTRACT TRUE FALSE 0)
(center-ellipse temp-img (* size 2) (* size 2) outer-radius outer-radius
ADD TRUE FALSE 0)
CHANNEL-OP-ADD TRUE FALSE 0)
(center-ellipse temp-img (* size 2) (* size 2) inner-radius inner-radius
SUB TRUE FALSE 0)
CHANNEL-OP-SUBTRACT TRUE FALSE 0)
(gimp-edit-blend temp-draw FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
@ -107,14 +107,14 @@
size size (* size 2) (/ size 2))
(center-ellipse temp-img size (* size 2) outer-radius outer-radius
REPLACE TRUE FALSE 0)
CHANNEL-OP-REPLACE TRUE FALSE 0)
(center-ellipse temp-img size (* size 2) inner-radius inner-radius
SUB TRUE FALSE 0)
CHANNEL-OP-SUBTRACT TRUE FALSE 0)
(center-ellipse temp-img (* size 2) size outer-radius outer-radius
ADD TRUE FALSE 0)
CHANNEL-OP-ADD TRUE FALSE 0)
(center-ellipse temp-img (* size 2) size inner-radius inner-radius
SUB TRUE FALSE 0)
CHANNEL-OP-SUBTRACT TRUE FALSE 0)
;(gimp-edit-fill temp-img temp-draw2 BACKGROUND-FILL)

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

@ -116,7 +116,7 @@
(gimp-free-select img
10
(gen_top_array xsize ysize owidth oheight width height)
REPLACE
CHANNEL-OP-REPLACE
0
0
0.0)
@ -125,7 +125,7 @@
(gimp-free-select img
10
(gen_left_array xsize ysize owidth oheight width height)
REPLACE
CHANNEL-OP-REPLACE
0
0
0.0)
@ -134,7 +134,7 @@
(gimp-free-select img
10
(gen_right_array xsize ysize owidth oheight width height)
REPLACE
CHANNEL-OP-REPLACE
0
0
0.0)
@ -144,7 +144,7 @@
(gimp-free-select img
10
(gen_bottom_array xsize ysize owidth oheight width height)
REPLACE
CHANNEL-OP-REPLACE
0
0
0.0)

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

@ -103,7 +103,7 @@
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)
(gimp-free-select img 6 big-arrow REPLACE TRUE FALSE 0)
(gimp-free-select img 6 big-arrow CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-palette-set-foreground '(103 103 103))
(gimp-palette-set-background '(0 0 0))

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

@ -50,7 +50,7 @@
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)
(gimp-rect-select img (/ height 2) (/ height 2) length height REPLACE FALSE 0)
(gimp-rect-select img (/ height 2) (/ height 2) length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground '(79 79 79))
(gimp-palette-set-background '(0 0 0))

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

@ -64,9 +64,9 @@
(gimp-edit-clear bullet-layer)
(center-ellipse img radius radius half-radius half-radius
REPLACE TRUE FALSE 0)
CHANNEL-OP-REPLACE TRUE FALSE 0)
; (gimp-rect-select img (/ height 2) (/ height 2) length height REPLACE FALSE 0)
; (gimp-rect-select img (/ height 2) (/ height 2) length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground '(90 90 90))
(gimp-palette-set-background '(0 0 0))

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

@ -41,7 +41,7 @@
y1
x2
y2)
(gimp-edit-blend drawable FG-BG-RGB-MODE DARKEN-ONLY
(gimp-edit-blend drawable FG-BG-RGB-MODE DARKEN-ONLY-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
x1 y1 x2 y2))
@ -98,7 +98,7 @@
(gimp-image-add-layer img button-layer -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 REPLACE FALSE 0)
(gimp-rect-select img 0 0 img-width img-height CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground '(100 100 100))
(gimp-palette-set-background '(0 0 0))
@ -114,7 +114,7 @@
(/ glow-radius 4)
(- img-width (/ glow-radius 2))
(- img-height (/ glow-radius 2))
REPLACE FALSE 0 )
CHANNEL-OP-REPLACE FALSE 0 )
(gimp-palette-set-foreground glow-color)
(gimp-edit-fill glow-layer FOREGROUND-FILL)

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

@ -44,7 +44,7 @@
y1
x2
y2)
(gimp-edit-blend drawable FG-BG-RGB-MODE DARKEN-ONLY
(gimp-edit-blend drawable FG-BG-RGB-MODE DARKEN-ONLY-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
x1 y1 x2 y2))
@ -91,16 +91,16 @@
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-rect-select img 0 0 bevel-width img-height REPLACE FALSE 0)
(gimp-rect-select img 0 0 bevel-width img-height CHANNEL-OP-REPLACE FALSE 0)
(blend-bumpmap img bumpmap 0 0 (- bevel-width 1) 0)
(gimp-rect-select img 0 0 img-width bevel-width REPLACE FALSE 0)
(gimp-rect-select img 0 0 img-width bevel-width CHANNEL-OP-REPLACE FALSE 0)
(blend-bumpmap img bumpmap 0 0 0 (- bevel-width 1))
(gimp-rect-select img (- img-width bevel-width) 0 bevel-width img-height REPLACE FALSE 0)
(gimp-rect-select img (- img-width bevel-width) 0 bevel-width img-height CHANNEL-OP-REPLACE FALSE 0)
(blend-bumpmap img bumpmap (- img-width 1) 0 (- img-width bevel-width) 0)
(gimp-rect-select img 0 (- img-height bevel-width) img-width bevel-width REPLACE FALSE 0)
(gimp-rect-select img 0 (- img-height bevel-width) img-width bevel-width CHANNEL-OP-REPLACE FALSE 0)
(blend-bumpmap img bumpmap 0 (- img-height 1) 0 (- img-height bevel-width))
(gimp-selection-none img)

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

@ -92,19 +92,19 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- size 2) (- size 2) REPLACE FALSE 0)
(gimp-rect-select img 1 1 (- size 2) (- size 2) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- size 4) (- size 4) REPLACE FALSE 0)
(gimp-rect-select img 2 2 (- size 4) (- size 4) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-free-select img 6 big-arrow REPLACE TRUE FALSE 0)
(gimp-free-select img 6 big-arrow CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-free-select img 6 med-arrow REPLACE TRUE FALSE 0)
(gimp-free-select img 6 med-arrow CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-selection-none img)
@ -119,7 +119,7 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(192 192 192))
(gimp-free-select img 6 small-arrow REPLACE TRUE FALSE 0)
(gimp-free-select img 6 small-arrow CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-selection-none img)

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

@ -41,11 +41,11 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-ellipse-select img 1 1 (- diameter 2) (- diameter 2) REPLACE TRUE FALSE 0)
(gimp-ellipse-select img 1 1 (- diameter 2) (- diameter 2) CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-ellipse-select img 2 2 (- diameter 4) (- diameter 4) REPLACE TRUE FALSE 0)
(gimp-ellipse-select img 2 2 (- diameter 4) (- diameter 4) CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-selection-none img)
@ -57,7 +57,7 @@
; Background
(gimp-palette-set-background '(0 0 0))
(gimp-ellipse-select img 0 0 diameter diameter REPLACE TRUE FALSE 0)
(gimp-ellipse-select img 0 0 diameter diameter CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear background)
(gimp-selection-none img)

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

@ -77,11 +77,11 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- width 2) (- height 2) REPLACE FALSE 0)
(gimp-rect-select img 1 1 (- width 2) (- height 2) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- width 4) (- height 4) REPLACE FALSE 0)
(gimp-rect-select img 2 2 (- width 4) (- height 4) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-selection-none img)

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

@ -41,11 +41,11 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- width 2) (- height 2) REPLACE FALSE 0)
(gimp-rect-select img 1 1 (- width 2) (- height 2) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- width 4) (- height 4) REPLACE FALSE 0)
(gimp-rect-select img 2 2 (- width 4) (- height 4) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-selection-none img)

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

@ -55,7 +55,7 @@
(gimp-edit-clear blend-layer)
(gimp-palette-set-background bg-color)
(gimp-drawable-fill shadow-layer BACKGROUND-FILL)
(gimp-rect-select img b-size-2 b-size-2 (- width b-size) (- height b-size) REPLACE TRUE b-size-2)
(gimp-rect-select img b-size-2 b-size-2 (- width b-size) (- height b-size) CHANNEL-OP-REPLACE TRUE b-size-2)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha logo-layer)

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

@ -74,9 +74,9 @@
(set! bl-y-off (cadr (gimp-drawable-offsets bl-layer)))
;--- select a rectangular area to blend
(gimp-rect-select img bl-x-off bl-y-off bl-width bl-height REPLACE 0 0)
(gimp-rect-select img bl-x-off bl-y-off bl-width bl-height CHANNEL-OP-REPLACE 0 0)
;--- select at least 1 pixel!
(gimp-rect-select img bl-x-off bl-y-off (+ bl-width 1) bl-height ADD 0 0)
(gimp-rect-select img bl-x-off bl-y-off (+ bl-width 1) bl-height CHANNEL-OP-ADD 0 0)
(if (= fadeout FALSE)
(begin
@ -85,7 +85,7 @@
(set! nofadeout-bl-width (max nofadeout-bl-width 1))
(gimp-rect-select img nofadeout-bl-x-off bl-y-off
nofadeout-bl-width bl-height
REPLACE 0 0)))
CHANNEL-OP-REPLACE 0 0)))
;--- alpha blending text to trans (fadeout)
(gimp-palette-set-foreground '(255 255 255))

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

@ -47,7 +47,7 @@
(set! theBlur (- 16 inGrain))
(gimp-palette-set-background inColor2)
(gimp-by-color-select thickLayer '(0 0 0) 127 REPLACE TRUE FALSE 0 FALSE)
(gimp-by-color-select thickLayer '(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear thickLayer)
(gimp-selection-invert theImage)
(gimp-edit-fill thickLayer BACKGROUND-FILL)
@ -59,7 +59,7 @@
(gimp-palette-set-background inColor3)
(gimp-by-color-select thinLayer '(0 0 0) 127 REPLACE TRUE FALSE 0 FALSE)
(gimp-by-color-select thinLayer '(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear thinLayer)
(gimp-selection-invert theImage)
(gimp-edit-fill thinLayer BACKGROUND-FILL)

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

@ -132,7 +132,7 @@
(gimp-edit-copy mask-highlight)
(set! highlight-layer (car (gimp-edit-paste shadow-layer FALSE)))
(gimp-floating-sel-to-layer highlight-layer)
(gimp-layer-set-mode highlight-layer SCREEN)
(gimp-layer-set-mode highlight-layer SCREEN-MODE)
(gimp-edit-copy mask)
(set! cast-shadow-layer (car (gimp-edit-paste highlight-layer FALSE)))

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

@ -107,7 +107,7 @@
(gimp-edit-copy mask-highlight)
(set! highlight-layer (car (gimp-edit-paste shadow-layer FALSE)))
(gimp-floating-sel-to-layer highlight-layer)
(gimp-layer-set-mode highlight-layer SCREEN)
(gimp-layer-set-mode highlight-layer SCREEN-MODE)
(gimp-edit-copy mask)
(set! cast-shadow-layer (car (gimp-edit-paste highlight-layer FALSE)))

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

@ -47,7 +47,7 @@
; work-around for sobel edge detect screw-up (why does this happen?)
; the top line of the image has some garbage instead of the bgcolor
(gimp-rect-select img 0 0 width 1 ADD FALSE 0)
(gimp-rect-select img 0 0 width 1 CHANNEL-OP-ADD FALSE 0)
(gimp-edit-clear logo-layer)
(gimp-selection-none img)

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

@ -81,7 +81,7 @@
(mask (car (gimp-channel-new img width height "Chrome Stencil" 50 '(0 0 0))))
(bg-layer (car (gimp-layer-new img width height GRAY-IMAGE "Background" 100 NORMAL-MODE)))
(layer1 (car (gimp-layer-new img banding-width banding-height banding-type "Layer1" 100 NORMAL-MODE)))
(layer2 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 2" 100 DIFFERENCE)))
(layer2 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 2" 100 DIFFERENCE-MODE)))
(layer3 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 3" 100 NORMAL-MODE)))
(shadow (car (gimp-layer-new img width height GRAYA-IMAGE "Drop Shadow" 100 NORMAL-MODE)))
(mask-fs 0)

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

@ -11,8 +11,8 @@
(feather (* offsets 0.5))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(layer1 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 1" 100 DIFFERENCE)))
(layer2 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 2" 100 DIFFERENCE)))
(layer1 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 1" 100 DIFFERENCE-MODE)))
(layer2 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 2" 100 DIFFERENCE-MODE)))
(layer3 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 3" 100 NORMAL-MODE)))
(shadow (car (gimp-layer-new img width height RGBA-IMAGE "Drop Shadow" 100 NORMAL-MODE)))
(background (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))

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

@ -35,7 +35,7 @@
(set! theStain (car (gimp-layer-new theImage theSize theSize
RGBA-IMAGE "Stain" 100
(if (= inDark TRUE)
DARKEN-ONLY NORMAL-MODE))))
DARKEN-ONLY-MODE NORMAL-MODE))))
(gimp-image-add-layer theImage theStain 0)
(gimp-selection-all theImage)
@ -45,7 +45,7 @@
(gimp-ellipse-select theImage
(/ (- theSize blobSize) 2)
(/ (- theSize blobSize) 2)
blobSize blobSize REPLACE TRUE 0 FALSE))
blobSize blobSize CHANNEL-OP-REPLACE TRUE 0 FALSE))
(script-fu-distress-selection theImage theStain
(* (+ (rand 15) 1) (+ (rand 15) 1))

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

@ -52,7 +52,7 @@
FALSE 0 0 TRUE
0 0 0 (+ height 5))
(gimp-rect-select img 0 (- (/ height 2) feather) img-width (* 2 feather) REPLACE 0 0)
(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)
(gimp-selection-none img)
(plug-in-ripple 1 img logo-layer period amplitude 1 0 1 TRUE FALSE)
@ -83,7 +83,7 @@
(gimp-floating-sel-anchor fs)
(plug-in-gauss-rle 1 img shadow-layer smear TRUE TRUE)
(gimp-rect-select img 5 5 width height REPLACE FALSE 0)
(gimp-rect-select img 5 5 width height CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-copy logo-layer)
(set! fs (car (gimp-edit-paste reflect-layer FALSE)))
(gimp-floating-sel-anchor fs)

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

@ -88,7 +88,7 @@
(tile-type (car (gimp-drawable-type tile-layer)))
(bg-layer (car (gimp-layer-new img tile-width tile-height tile-type "BG-Layer" 100 NORMAL-MODE)))
(layer1 (car (gimp-layer-new img banding-width banding-height banding-type "Layer1" 100 NORMAL-MODE)))
(layer2 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 2" 100 DIFFERENCE)))
(layer2 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 2" 100 DIFFERENCE-MODE)))
(layer3 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 3" 100 NORMAL-MODE)))
(layer-mask 0)
(layer-mask2 0)
@ -162,13 +162,13 @@
(gimp-selection-none img)
(gimp-levels layer2 0 0 200 1.5 50 255)
(gimp-layer-set-mode layer1 OVERLAY)
(gimp-layer-set-mode layer1 OVERLAY-MODE)
(plug-in-gauss-rle 1 img text-layer blur TRUE TRUE)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill text-layer BACKGROUND-FILL)
(gimp-layer-set-mode text-layer OVERLAY)
(gimp-layer-set-mode text-layer OVERLAY-MODE)
(gimp-layer-translate text-layer offx1 offy1)
(gimp-image-remove-channel img disp-map)

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

@ -6,8 +6,8 @@
(if (< i max)
(begin
(if (= orientation 0)
(gimp-rect-select img 0 i width 1 REPLACE FALSE 0)
(gimp-rect-select img i 0 1 height REPLACE FALSE 0))
(gimp-rect-select img 0 i width 1 CHANNEL-OP-REPLACE FALSE 0)
(gimp-rect-select img i 0 1 height CHANNEL-OP-REPLACE FALSE 0))
(if (= type 0)
(gimp-edit-clear drawable)
(gimp-edit-fill drawable BACKGROUND-FILL))

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

@ -61,7 +61,7 @@
(gimp-layer-remove-mask logo-layer 0)
(gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)")
(gimp-brushes-set-paint-mode BEHIND)
(gimp-brushes-set-paint-mode BEHIND-MODE)
(gimp-palette-set-foreground '(186 241 255))
(gimp-edit-stroke logo-layer)
(gimp-selection-none img)

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

@ -96,7 +96,7 @@
(if (= rm-bg TRUE)
(begin
(gimp-by-color-select text-layer '(255 255 255)
1 REPLACE TRUE FALSE 0 FALSE)
1 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear text-layer)
(gimp-selection-clear img)))

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

@ -71,7 +71,7 @@
(if (= rm-bg TRUE)
(begin
(gimp-by-color-select text-layer bg-color
color-thresh REPLACE TRUE FALSE 0 FALSE)
color-thresh CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear text-layer)
(gimp-selection-clear img)))

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

@ -115,13 +115,13 @@
(gimp-selection-none img)
(plug-in-bump-map noninteractive img grow-me logo-layer 110.0 45.0 3 0 0 0 0 TRUE FALSE 0)
(gimp-layer-set-mode logo-layer SCREEN)
(gimp-layer-set-mode logo-layer SCREEN-MODE)
(if (= use-pattern-overlay TRUE)
(begin
(gimp-selection-layer-alpha grow-me)
(gimp-patterns-set-pattern pattern-overlay)
(gimp-edit-bucket-fill grow-me PATTERN-BUCKET-FILL OVERLAY 100 0 FALSE 0 0)
(gimp-edit-bucket-fill grow-me PATTERN-BUCKET-FILL OVERLAY-MODE 100 0 FALSE 0 0)
(gimp-patterns-set-pattern old-patterns)
(gimp-selection-none img)))

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

@ -49,7 +49,7 @@
(gimp-edit-fill glow-layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-layer-set-mode logo-layer OVERLAY)
(gimp-layer-set-mode logo-layer OVERLAY-MODE)
(gimp-drawable-set-name glow-layer "Glow Layer")
(gimp-palette-set-background old-bg)

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

@ -150,7 +150,7 @@
(define (fill-color-band img drawable x scale x-base y-base color)
(gimp-palette-set-foreground color)
(gimp-rect-select img (+ x-base (* scale x)) 0 scale y-base REPLACE FALSE 0)
(gimp-rect-select img (+ x-base (* scale x)) 0 scale y-base CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-bucket-fill drawable FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img))
@ -313,7 +313,7 @@
1 1 12 PIXELS
"-*-helvetica-*-r-*-*-12-*-*-*-p-*-*-*")))
(offset-y (- y-base (car (gimp-drawable-height clayer)))))
(gimp-layer-set-mode text-layer DIFFERENCE)
(gimp-layer-set-mode text-layer DIFFERENCE-MODE)
(gimp-layer-translate clayer 0 offset-y)
(gimp-layer-translate text-layer border-size (+ offset-y 15)))
(gimp-image-set-active-layer gimg bglayer)

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

@ -78,7 +78,7 @@
(gimp-layer-remove-mask layer
(if (= TRUE apply-layer-mask?)
MASK-APPLY
DISCARD)))
MASK-DISCARD)))
(if (= TRUE with-pad?)
(begin
(gimp-selection-layer-alpha layer)

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

@ -50,7 +50,7 @@
(gimp-by-color-select layer-one '(190 190 190) 55 REPLACE FALSE FALSE 0 FALSE)
(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-c-astretch 1 img layer-two)

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

@ -45,7 +45,7 @@
(+ beg-x (* off (cos dir0)))
(+ beg-y (* off (sin dir0))))
(set-marginal-point beg-x beg-y direction)
(gimp-free-select img 6 *points* ADD
(gimp-free-select img 6 *points* CHANNEL-OP-ADD
TRUE ; antialias
FALSE ; feather
0 ; feather radius

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

@ -58,7 +58,7 @@
(gimp-palette-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-rect-select img 0 0 width height REPLACE FALSE 0)
(gimp-rect-select img 0 0 width height CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill drawable BACKGROUND-FILL)
(file-gbr-save 1 img drawable filename "" spacing desc)
@ -134,9 +134,9 @@
(gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0))
(cond ((< 0 feathering)
(gimp-rect-select img (/ feathering 2) (/ feathering 2) width height REPLACE TRUE feathering))
(gimp-rect-select img (/ feathering 2) (/ feathering 2) width height CHANNEL-OP-REPLACE TRUE feathering))
((>= 0 feathering)
(gimp-rect-select img 0 0 width height REPLACE FALSE 0))
(gimp-rect-select img 0 0 width height CHANNEL-OP-REPLACE FALSE 0))
)
(gimp-edit-fill drawable BACKGROUND-FILL)
(file-gbr-save 1 img drawable filename "" spacing desc)
@ -207,7 +207,7 @@
(gimp-palette-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-ellipse-select img 0 0 width height REPLACE TRUE FALSE 0)
(gimp-ellipse-select img 0 0 width height CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill drawable BACKGROUND-FILL)
(file-gbr-save 1 img drawable filename "" spacing desc)
@ -285,9 +285,9 @@
(gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0))
(cond ((> feathering 0) ; keep from taking out gimp with stupid entry.
(gimp-ellipse-select img (/ feathering 2) (/ feathering 2) width height REPLACE TRUE TRUE feathering))
(gimp-ellipse-select img (/ feathering 2) (/ feathering 2) width height CHANNEL-OP-REPLACE TRUE TRUE feathering))
((<= feathering 0)
(gimp-ellipse-select img 0 0 width height REPLACE TRUE FALSE 0))
(gimp-ellipse-select img 0 0 width height CHANNEL-OP-REPLACE TRUE FALSE 0))
)
(gimp-edit-fill drawable BACKGROUND-FILL)
(file-gbr-save 1 img drawable filename "" spacing desc)

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

@ -54,7 +54,7 @@
(set! theWidth (car (gimp-image-width theImage)))
(set! theHeight (car (gimp-image-height theImage)))
(if (= inMottle TRUE)
(begin (set! mLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Mottle" 100 DARKEN-ONLY)))
(begin (set! mLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Mottle" 100 DARKEN-ONLY-MODE)))
(gimp-image-add-layer theImage mLayer 0)
(gimp-selection-all theImage)

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

@ -44,11 +44,11 @@
height
ratio)
(let* ((diameter (* ratio height)))
(gimp-ellipse-select img x y diameter height ADD FALSE 0 0)
(gimp-ellipse-select img x y diameter height CHANNEL-OP-ADD FALSE 0 0)
(gimp-ellipse-select img (+ x (- width diameter)) y
diameter height ADD FALSE 0 0)
diameter height CHANNEL-OP-ADD FALSE 0 0)
(gimp-rect-select img (+ x (/ diameter 2)) y
(- width diameter) height ADD FALSE 0)))
(- width diameter) height CHANNEL-OP-ADD FALSE 0)))
(define (script-fu-round-button text
size

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

@ -66,16 +66,16 @@
; round the edges
(gimp-selection-none image)
(gimp-rect-select image 0 0 radius radius ADD 0 0)
(gimp-ellipse-select image 0 0 diam diam SUB TRUE 0 0)
(gimp-rect-select image (- width radius) 0 radius radius ADD 0 0)
(gimp-ellipse-select image (- width diam) 0 diam diam SUB TRUE 0 0)
(gimp-rect-select image 0 (- height radius) radius radius ADD 0 0)
(gimp-ellipse-select image 0 (- height diam) diam diam SUB TRUE 0 0)
(gimp-rect-select image 0 0 radius radius CHANNEL-OP-ADD 0 0)
(gimp-ellipse-select image 0 0 diam diam CHANNEL-OP-SUBTRACT TRUE 0 0)
(gimp-rect-select image (- width radius) 0 radius radius CHANNEL-OP-ADD 0 0)
(gimp-ellipse-select image (- width diam) 0 diam diam CHANNEL-OP-SUBTRACT TRUE 0 0)
(gimp-rect-select image 0 (- height radius) radius radius CHANNEL-OP-ADD 0 0)
(gimp-ellipse-select image 0 (- height diam) diam diam CHANNEL-OP-SUBTRACT TRUE 0 0)
(gimp-rect-select image (- width radius) (- height radius)
radius radius ADD 0 0)
radius radius CHANNEL-OP-ADD 0 0)
(gimp-ellipse-select image (- width diam) (- height diam)
diam diam SUB TRUE 0 0)
diam diam CHANNEL-OP-SUBTRACT TRUE 0 0)
(gimp-edit-clear pic-layer)
(gimp-selection-none image)

16
plug-ins/script-fu/scripts/selection-round.scm
View File

@ -59,35 +59,35 @@
select-y1
(+ cut-radius 1)
(+ cut-radius 1)
SUB
CHANNEL-OP-SUBTRACT
FALSE 0)
(gimp-rect-select image
select-x1
(- select-y2 cut-radius)
(+ cut-radius 1)
(+ cut-radius 1)
SUB
CHANNEL-OP-SUBTRACT
FALSE 0)
(gimp-rect-select image
(- select-x2 cut-radius)
select-y1
(+ cut-radius 1)
(+ cut-radius 1)
SUB
CHANNEL-OP-SUBTRACT
FALSE 0)
(gimp-rect-select image
(- select-x2 cut-radius)
(- select-y2 cut-radius)
(+ cut-radius 1)
(+ cut-radius 1)
SUB
CHANNEL-OP-SUBTRACT
FALSE 0)
(gimp-ellipse-select image
select-x1
select-y1
ellipse-radius
ellipse-radius
ADD
CHANNEL-OP-ADD
TRUE
FALSE 0)
(gimp-ellipse-select image
@ -95,7 +95,7 @@
(- select-y2 ellipse-radius)
ellipse-radius
ellipse-radius
ADD
CHANNEL-OP-ADD
TRUE
FALSE 0)
(gimp-ellipse-select image
@ -103,7 +103,7 @@
select-y1
ellipse-radius
ellipse-radius
ADD
CHANNEL-OP-ADD
TRUE
FALSE 0)
(gimp-ellipse-select image
@ -111,7 +111,7 @@
(- select-y2 ellipse-radius)
ellipse-radius
ellipse-radius
ADD
CHANNEL-OP-ADD
TRUE
FALSE 0)

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

@ -181,7 +181,7 @@
top-y
hole-width
hole-height
ADD
CHANNEL-OP-ADD
FALSE
0)
(gimp-rect-select image
@ -189,7 +189,7 @@
bottom-y
hole-width
hole-height
ADD
CHANNEL-OP-ADD
FALSE
0)
(set! hole (+ hole 1)))

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

@ -80,7 +80,7 @@
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(layer1 (car (gimp-layer-new img banding-width banding-height banding-type "Layer1" 100 NORMAL-MODE)))
(layer2 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 2" 100 DIFFERENCE)))
(layer2 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 2" 100 DIFFERENCE-MODE)))
(layer3 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 3" 100 NORMAL-MODE)))
(shadow (car (gimp-layer-new img width height GRAYA-IMAGE "Drop Shadow" 100 NORMAL-MODE)))
(layer-mask 0)
@ -102,8 +102,8 @@
(gimp-drawable-set-visible text-layer FALSE)
(gimp-drawable-set-visible shadow FALSE)
(gimp-rect-select img (/ b-size 2) (/ b-size 2) (- width b-size) (- height b-size) REPLACE 0 0)
(gimp-rect-select img b-size b-size (- width (* b-size 2)) (- height (* b-size 2)) SUB 0 0)
(gimp-rect-select img (/ b-size 2) (/ b-size 2) (- width b-size) (- height b-size) CHANNEL-OP-REPLACE 0 0)
(gimp-rect-select img b-size b-size (- width (* b-size 2)) (- height (* b-size 2)) CHANNEL-OP-SUBTRACT 0 0)
(gimp-edit-fill text-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha text-layer)

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

@ -47,11 +47,11 @@
(set! shadow-w (- shadow-w))))
(gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h
REPLACE TRUE TRUE 7.5)
(gimp-edit-bucket-fill drawable BG-BUCKET-FILL MULTIPLY 100 0 FALSE 0 0)))
CHANNEL-OP-REPLACE TRUE TRUE 7.5)
(gimp-edit-bucket-fill drawable BG-BUCKET-FILL MULTIPLY-MODE 100 0 FALSE 0 0)))
(gimp-ellipse-select img (- cx radius) (- cy radius)
(* 2 radius) (* 2 radius) REPLACE TRUE FALSE 0)
(* 2 radius) (* 2 radius) CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-blend drawable FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-RADIAL 100 offset REPEAT-NONE FALSE

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

@ -51,23 +51,23 @@
; Whirl upper left
(gimp-rect-select img 0 0 hsize hsize REPLACE 0 0)
(gimp-rect-select img 0 0 hsize hsize CHANNEL-OP-REPLACE 0 0)
(whirl-it img drawable angle times)
(gimp-invert drawable)
; Whirl upper right
(gimp-rect-select img hsize 0 hsize hsize REPLACE 0 0)
(gimp-rect-select img hsize 0 hsize hsize CHANNEL-OP-REPLACE 0 0)
(whirl-it img drawable (- angle) times)
; Whirl lower left
(gimp-rect-select img 0 hsize hsize hsize REPLACE 0 0)
(gimp-rect-select img 0 hsize hsize hsize CHANNEL-OP-REPLACE 0 0)
(whirl-it img drawable (- angle) times)
; Whirl lower right
(gimp-rect-select img hsize hsize hsize hsize REPLACE 0 0)
(gimp-rect-select img hsize hsize hsize hsize CHANNEL-OP-REPLACE 0 0)
(whirl-it img drawable angle times)
(gimp-invert drawable)

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

@ -170,13 +170,13 @@
(set! shadow-w (- shadow-w))))
(gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h
REPLACE TRUE TRUE 7.5)
CHANNEL-OP-REPLACE TRUE TRUE 7.5)
(gimp-patterns-set-pattern pattern)
(gimp-edit-bucket-fill drawable PATTERN-BUCKET-FILL MULTIPLY-MODE
100 0 FALSE 0 0)))
(gimp-ellipse-select img (- cx radius) (- cy radius)
(* 2 radius) (* 2 radius) REPLACE TRUE FALSE 0)
(* 2 radius) (* 2 radius) CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-blend drawable FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-RADIAL 100 offset REPEAT-NONE FALSE
@ -186,7 +186,7 @@
(gimp-selection-none img)
(gimp-gradients-set-gradient gradient)
(gimp-ellipse-select img 10 10 50 50 REPLACE TRUE FALSE 0)
(gimp-ellipse-select img 10 10 50 50 CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-blend drawable CUSTOM-MODE NORMAL-MODE
GRADIENT-LINEAR 100 offset REPEAT-NONE gradient-reverse

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

@ -52,7 +52,7 @@
(gimp-palette-set-background bg-color)
(gimp-drawable-fill shadow-layer BACKGROUND-FILL)
(gimp-rect-select img b-size-2 b-size-2 (- width b-size) (- height b-size)
REPLACE TRUE b-size-2)
CHANNEL-OP-REPLACE TRUE b-size-2)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha logo-layer)

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

@ -26,7 +26,7 @@
(gimp-image-undo-group-start theImage)
(gimp-layer-resize theLayer (* 3 theWidth) (* 3 theHeight) 0 0)
(gimp-rect-select theImage 0 0 theWidth theHeight REPLACE 0 0)
(gimp-rect-select theImage 0 0 theWidth theHeight CHANNEL-OP-REPLACE 0 0)
(gimp-edit-cut theLayer)
(gimp-selection-none theImage)

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

@ -132,7 +132,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-ellipse-select img 0 0 text-height text-height REPLACE TRUE FALSE 0)
(gimp-ellipse-select img 0 0 text-height text-height CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-palette-set-background (car (gimp-image-pick-color img text-layer
text-layers-offset 0
TRUE FALSE 0)))
@ -141,7 +141,7 @@
; Fade-out gradient at the right
(gimp-rect-select img (- img-width fade-width) 0 fade-width text-height
REPLACE FALSE 0)
CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground (car (gimp-palette-get-background)))
(gimp-palette-set-background '(0 0 0))

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

@ -59,11 +59,11 @@
(gimp-edit-fill temp-draw BACKGROUND-FILL)
(center-ellipse temp-img size size outer-radius outer-radius REPLACE TRUE FALSE 0)
(center-ellipse temp-img size size inner-radius inner-radius SUB TRUE FALSE 0)
(center-ellipse temp-img size size outer-radius outer-radius CHANNEL-OP-REPLACE TRUE FALSE 0)
(center-ellipse temp-img size size inner-radius inner-radius CHANNEL-OP-SUBTRACT TRUE FALSE 0)
(center-ellipse temp-img (* size 2) (* size 2) outer-radius outer-radius ADD TRUE FALSE 0)
(center-ellipse temp-img (* size 2) (* size 2) inner-radius inner-radius SUB TRUE FALSE 0)
(center-ellipse temp-img (* size 2) (* size 2) outer-radius outer-radius CHANNEL-OP-ADD TRUE FALSE 0)
(center-ellipse temp-img (* size 2) (* size 2) inner-radius inner-radius CHANNEL-OP-SUBTRACT TRUE FALSE 0)
(gimp-palette-set-background forecolor)
(gimp-edit-fill temp-draw BACKGROUND-FILL)

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

@ -40,7 +40,7 @@
(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-layer-set-mode original-layer-for-darker SUBTRACT)
(gimp-layer-set-mode original-layer-for-darker SUBTRACT-MODE)
(set! darker-layer
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
(gimp-drawable-set-name darker-layer "darker mask")
@ -49,17 +49,17 @@
;; 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-layer-set-mode blured-layer-for-lighter SUBTRACT)
(gimp-layer-set-mode blured-layer-for-lighter SUBTRACT-MODE)
(set! lighter-layer
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
(gimp-drawable-set-name lighter-layer "lighter mask")
;; combine them
(gimp-drawable-set-visible original-layer TRUE)
(gimp-layer-set-mode darker-layer SUBTRACT)
(gimp-layer-set-mode darker-layer SUBTRACT-MODE)
(gimp-layer-set-opacity darker-layer mask-opacity)
(gimp-drawable-set-visible darker-layer TRUE)
(gimp-layer-set-mode lighter-layer ADDITION)
(gimp-layer-set-mode lighter-layer ADDITION-MODE)
(gimp-layer-set-opacity lighter-layer mask-opacity)
(gimp-drawable-set-visible lighter-layer TRUE)

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

@ -30,7 +30,7 @@
height
dest-x
dest-y)
(gimp-rect-select img x1 y1 width height REPLACE FALSE 0)
(gimp-rect-select img x1 y1 width height CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-copy drawable)
(let ((floating-sel (car (gimp-edit-paste drawable FALSE))))
(gimp-layer-set-offsets floating-sel dest-x dest-y)
@ -64,7 +64,7 @@
ribbon-spacing
(+ (* 2 ribbon-spacing) ribbon-width)
ribbon-width
REPLACE
CHANNEL-OP-REPLACE
FALSE
0)
@ -80,7 +80,7 @@
0
ribbon-width
(+ (* 2 ribbon-spacing) ribbon-width)
REPLACE
CHANNEL-OP-REPLACE
FALSE
0)
@ -177,9 +177,9 @@
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill drawable BACKGROUND-FILL)
(gimp-rect-select img r1-x1 r1-y1 r1-width r1-height REPLACE FALSE 0)
(gimp-rect-select img r2-x1 r2-y1 r2-width r2-height ADD FALSE 0)
(gimp-rect-select img r3-x1 r3-y1 r3-width r3-height ADD FALSE 0)
(gimp-rect-select img r1-x1 r1-y1 r1-width r1-height CHANNEL-OP-REPLACE FALSE 0)
(gimp-rect-select img r2-x1 r2-y1 r2-width r2-height CHANNEL-OP-ADD FALSE 0)
(gimp-rect-select img r3-x1 r3-y1 r3-width r3-height CHANNEL-OP-ADD FALSE 0)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill drawable BACKGROUND-FILL)