Commit 0e993d17 authored by Michael Natterer's avatar Michael Natterer 😴 Committed by Michael Natterer

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.
parent f77ff9d4
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):
......@@ -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)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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))
......
......@@ -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))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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)
......
......@@ -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)))
......
......@@ -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)))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)))
......
......@@ -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))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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)
......
......@@ -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)))
......
......@@ -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)))
......
......@@ -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)))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
......@@ -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)
......
......@@ -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