Commit 6f158900 authored by Sven Neumann's avatar Sven Neumann Committed by Sven Neumann

replaced lots of old school constants with their new names.

2003-10-16  Sven Neumann  <sven@gimp.org>

	* plug/ins/script-fu/scripts/*.scm: replaced lots of old school
	constants with their new names.
parent e1879305
2003-10-16 Sven Neumann <sven@gimp.org>
* plug/ins/script-fu/scripts/*.scm: replaced lots of old school
constants with their new names.
2003-10-16 Michael Natterer <mitch@gimp.org>
* libgimpbase/gimputils.[ch]: new function which takes any string
......@@ -146,12 +146,10 @@ static LISP script_fu_register_call (LISP a);
static LISP script_fu_quit_call (LISP a);
/*********
Below can be found the functions responsible for registering the gimp functions
and types against the scheme interpreter.
********/
/*
* Below can be found the functions responsible for registering the
* gimp functions and types against the scheme interpreter.
*/
static void
......
......@@ -32,8 +32,8 @@
s-offset-y)
(let* ((width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(pattern (car (gimp-layer-new img width height RGBA_IMAGE "Pattern" 100 NORMAL)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(pattern (car (gimp-layer-new img width height RGBA-IMAGE "Pattern" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-selection-none img)
......@@ -41,11 +41,11 @@
(gimp-image-add-layer img pattern 1)
(gimp-image-add-layer img bg-layer 2)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear pattern)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-foreground '(0 0 0))
(gimp-edit-fill logo-layer FG-IMAGE-FILL)
(gimp-edit-fill logo-layer FOREGROUND-FILL)
(gimp-layer-set-preserve-trans logo-layer FALSE)
(plug-in-gauss-iir 1 img logo-layer outline-blur-radius TRUE TRUE)
......@@ -58,10 +58,10 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern)
(gimp-bucket-fill pattern PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-bucket-fill pattern PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(plug-in-bump-map noninteractive img pattern layer2 110.0 45.0 4 0 0 0 0 TRUE FALSE 0)
(set! pattern-mask (car (gimp-layer-create-mask pattern ALPHA-MASK)))
(set! pattern-mask (car (gimp-layer-create-mask pattern ADD-ALPHA-MASK)))
(gimp-image-add-layer-mask img pattern pattern-mask)
(gimp-selection-all img)
......@@ -69,7 +69,7 @@
(set! floating_sel (car (gimp-edit-paste pattern-mask 0)))
(gimp-floating-sel-anchor floating_sel)
(gimp-image-remove-layer-mask img pattern APPLY)
(gimp-image-remove-layer-mask img pattern MASK-APPLY)
(gimp-invert layer3)
(plug-in-gauss-iir 1 img layer3 shadow-blur-radius TRUE TRUE)
......
......@@ -70,22 +70,22 @@
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-edit-fill drawable1 BG-IMAGE-FILL)
(gimp-edit-fill drawable1 BACKGROUND-FILL)
(let* (
(tempSize (* size 3))
(temp-img (car (gimp-image-new tempSize tempSize RGB)))
(temp-draw (car (gimp-layer-new temp-img tempSize tempSize
RGB_IMAGE "Jabar" 100 NORMAL)))
RGB-IMAGE "Jabar" 100 NORMAL-MODE)))
(temp-draw2 (car (gimp-layer-new temp-img tempSize tempSize
RGB_IMAGE "Jabar" 100 NORMAL))))
RGB-IMAGE "Jabar" 100 NORMAL-MODE))))
(gimp-image-undo-disable temp-img)
(gimp-image-add-layer temp-img temp-draw 0)
(gimp-image-add-layer temp-img temp-draw2 0)
(gimp-palette-set-background backcolor)
(gimp-edit-fill temp-draw BG-IMAGE-FILL)
(gimp-edit-fill temp-draw2 BG-IMAGE-FILL)
(gimp-edit-fill temp-draw BACKGROUND-FILL)
(gimp-edit-fill temp-draw2 BACKGROUND-FILL)
;weird aint it
(gimp-palette-set-background begincolor)
......@@ -101,7 +101,7 @@
(center-ellipse temp-img (* size 2) (* size 2) inner-radius inner-radius
SUB TRUE FALSE 0)
(gimp-blend temp-draw FG-BG-RGB NORMAL
(gimp-blend temp-draw FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
supersample 3 .2 TRUE
size size (* size 2) (/ size 2))
......@@ -116,9 +116,9 @@
(center-ellipse temp-img (* size 2) size inner-radius inner-radius
SUB TRUE FALSE 0)
;(gimp-edit-fill temp-img temp-draw2 BG-IMAGE-FILL)
;(gimp-edit-fill temp-img temp-draw2 BACKGROUND-FILL)
(gimp-blend temp-draw2 FG-BG-RGB NORMAL
(gimp-blend temp-draw2 FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
supersample 3 .2 TRUE
size size (* size 2) (* size 2))
......@@ -161,9 +161,12 @@
(height (* size ytiles))
(img (car (gimp-image-new width height RGB)))
(tile (car (gimp-image-new size size RGB)))
(layer-one (car (gimp-layer-new img width height RGB "Rambis" 100 NORMAL)))
(tiledraw1 (car (gimp-layer-new tile size size RGB "Johnson" 100 NORMAL)))
(tiledraw2 (car (gimp-layer-new tile size size RGB "Cooper" 100 NORMAL)))
(layer-one (car (gimp-layer-new img width height
RGB-IMAGE "Rambis" 100 NORMAL-MODE)))
(tiledraw1 (car (gimp-layer-new tile size size
RGB-IMAGE "Johnson" 100 NORMAL-MODE)))
(tiledraw2 (car (gimp-layer-new tile size size
RGB-IMAGE "Cooper" 100 NORMAL-MODE)))
(Xindex 0)
(Yindex 0)
(old-bg (car (gimp-palette-get-background)))
......@@ -180,7 +183,7 @@
;just to look a little better
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-edit-fill layer-one BG-IMAGE-FILL)
(gimp-edit-fill layer-one BACKGROUND-FILL)
(gimp-selection-none img)
(create-tile tile tiledraw1 tiledraw2 size thickness
......
......@@ -86,7 +86,7 @@
GRAY
"Bumpmap"
100
NORMAL)))
NORMAL-MODE)))
)
;
; If the layer we're bevelling is offset from the image's origin, we
......@@ -124,20 +124,20 @@
; Initialise our bumpmap
;
(gimp-palette-set-background '(0 0 0))
(gimp-drawable-fill bump-layer BG-IMAGE-FILL)
(gimp-drawable-fill bump-layer BACKGROUND-FILL)
(set! index 1)
(while (< index thickness)
(set! greyness (/ (* index 255) thickness))
(gimp-palette-set-background (list greyness greyness greyness))
;(gimp-selection-feather image 1) ;Stop the slopey jaggies?
(gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-shrink image 1)
(set! index (+ index 1))
)
; Now the white interior
(gimp-palette-set-background '(255 255 255))
(gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
;------------------------------------------------------------
;
......
......@@ -103,10 +103,10 @@
(old-bg (car (gimp-palette-get-background)))
(width (+ owidth (* 2 xsize)))
(height (+ oheight (* 2 ysize)))
(layer (car (gimp-layer-new img width height RGBA_IMAGE "Border-Layer" 100 NORMAL))))
(layer (car (gimp-layer-new img width height RGBA-IMAGE "Border-Layer" 100 NORMAL-MODE))))
;Add this for debugging (verbose 4)
(gimp-undo-push-group-start img)
(gimp-drawable-fill layer TRANS-IMAGE-FILL)
(gimp-drawable-fill layer TRANSPARENT-FILL)
(gimp-image-resize img
width
height
......@@ -120,7 +120,7 @@
0
0
0.0)
(gimp-edit-fill layer BG-IMAGE-FILL)
(gimp-edit-fill layer BACKGROUND-FILL)
(gimp-palette-set-background (adjcolour colour (/ dvalue 2)))
(gimp-free-select img
10
......@@ -129,7 +129,7 @@
0
0
0.0)
(gimp-edit-fill layer BG-IMAGE-FILL)
(gimp-edit-fill layer BACKGROUND-FILL)
(gimp-palette-set-background (adjcolour colour (- 0 (/ dvalue 2))))
(gimp-free-select img
10
......@@ -139,7 +139,7 @@
0
0.0)
(gimp-edit-fill layer BG-IMAGE-FILL)
(gimp-edit-fill layer BACKGROUND-FILL)
(gimp-palette-set-background (adjcolour colour (- 0 dvalue)))
(gimp-free-select img
10
......@@ -149,7 +149,7 @@
0
0.0)
(gimp-edit-fill layer BG-IMAGE-FILL)
(gimp-edit-fill layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-image-add-layer img layer 0)
(gimp-undo-push-group-end img)
......
......@@ -78,10 +78,18 @@
(grow-amount (/ size 12))
(blur-radius (/ size 3))
(offset (/ size 6))
(ruler-layer (car (gimp-layer-new img size size RGBA_IMAGE "Ruler" 100 NORMAL)))
(glow-layer (car (gimp-layer-new img size size RGBA_IMAGE "Alien Glow" 100 NORMAL)))
(bg-layer (car (gimp-layer-new img size size RGB_IMAGE "Back" 100 NORMAL)))
(big-arrow (point-list->double-array (rotate-points (make-arrow size offset) size orientation)))
(ruler-layer (car (gimp-layer-new img
size size RGBA-IMAGE
"Ruler" 100 NORMAL-MODE)))
(glow-layer (car (gimp-layer-new img
size size RGBA-IMAGE
"Alien Glow" 100 NORMAL-MODE)))
(bg-layer (car (gimp-layer-new img
size size RGB-IMAGE
"Background" 100 NORMAL-MODE)))
(big-arrow (point-list->double-array
(rotate-points (make-arrow size offset)
size orientation)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
......@@ -100,14 +108,14 @@
(gimp-palette-set-foreground '(103 103 103))
(gimp-palette-set-background '(0 0 0))
(gimp-blend ruler-layer FG-BG-RGB NORMAL
(gimp-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 size size)
(gimp-selection-grow img grow-amount)
(gimp-palette-set-foreground glow-color)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
......@@ -115,7 +123,7 @@
(plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
......
......@@ -27,9 +27,15 @@
flatten)
(let* ((img (car (gimp-image-new height length RGB)))
(border (/ height 4))
(ruler-layer (car (gimp-layer-new img (+ length height) (+ height height) RGBA_IMAGE "Ruler" 100 NORMAL)))
(glow-layer (car (gimp-layer-new img (+ length height) (+ height height) RGBA_IMAGE "ALien Glow" 100 NORMAL)))
(bg-layer (car (gimp-layer-new img (+ length height) (+ height height) RGB_IMAGE "Back" 100 NORMAL)))
(ruler-layer (car (gimp-layer-new img
(+ length height) (+ height height)
RGBA-IMAGE "Ruler" 100 NORMAL-MODE)))
(glow-layer (car (gimp-layer-new img
(+ length height) (+ height height)
RGBA-IMAGE "ALien Glow" 100 NORMAL-MODE)))
(bg-layer (car (gimp-layer-new img
(+ length height) (+ height height)
RGB-IMAGE "Backround" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
......@@ -40,7 +46,7 @@
; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)
......@@ -48,14 +54,14 @@
(gimp-palette-set-foreground '(79 79 79))
(gimp-palette-set-background '(0 0 0))
(gimp-blend ruler-layer FG-BG-RGB NORMAL
(gimp-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 height height)
(gimp-palette-set-foreground glow-color)
(gimp-selection-grow img border)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)
......
......@@ -41,9 +41,13 @@
(diameter (* radius 2))
(half-radius (/ radius 2))
(blend-start (+ half-radius (/ half-radius 2)))
(bullet-layer (car (gimp-layer-new img diameter diameter RGBA_IMAGE "Ruler" 100 NORMAL)))
(glow-layer (car (gimp-layer-new img diameter diameter RGBA_IMAGE "ALien Glow" 100 NORMAL)))
(bg-layer (car (gimp-layer-new img diameter diameter RGB_IMAGE "Back" 100 NORMAL)))
(bullet-layer (car (gimp-layer-new img
diameter diameter RGBA-IMAGE
"Ruler" 100 NORMAL-MODE)))
(glow-layer (car (gimp-layer-new img diameter diameter RGBA-IMAGE
"ALien Glow" 100 NORMAL-MODE)))
(bg-layer (car (gimp-layer-new img diameter diameter RGB-IMAGE
"Background" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
......@@ -55,7 +59,7 @@
; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear glow-layer)
(gimp-edit-clear bullet-layer)
......@@ -66,7 +70,7 @@
(gimp-palette-set-foreground '(90 90 90))
(gimp-palette-set-background '(0 0 0))
(gimp-blend bullet-layer FG-BG-RGB NORMAL
(gimp-blend bullet-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-RADIAL 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
blend-start blend-start
......@@ -75,7 +79,7 @@
(gimp-palette-set-foreground glow-color)
(gimp-selection-grow img border)
(gimp-selection-feather img border)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(if (>= radius 16)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)
......
......@@ -41,7 +41,7 @@
y1
x2
y2)
(gimp-blend drawable FG-BG-RGB DARKEN-ONLY
(gimp-blend drawable FG-BG-RGB-MODE DARKEN-ONLY
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
x1 y1 x2 y2))
......@@ -73,9 +73,15 @@
(img-width (+ img-width glow-radius))
(img-height (+ img-height glow-radius))
(img (car (gimp-image-new img-width img-height RGB)))
(bg-layer (car (gimp-layer-new img img-width img-height RGBA_IMAGE "Background" 100 NORMAL)))
(glow-layer (car (gimp-layer-new img img-width img-height RGBA_IMAGE "Glow" 100 NORMAL)))
(button-layer (car (gimp-layer-new img layer-width layer-height RGBA_IMAGE "Button" 100 NORMAL))))
(bg-layer (car (gimp-layer-new img
img-width img-height RGBA-IMAGE
"Background" 100 NORMAL-MODE)))
(glow-layer (car (gimp-layer-new img
img-width img-height RGBA-IMAGE
"Glow" 100 NORMAL-MODE)))
(button-layer (car (gimp-layer-new img
layer-width layer-height RGBA-IMAGE
"Button" 100 NORMAL-MODE))))
(gimp-image-undo-disable img)
......@@ -84,7 +90,7 @@
(gimp-image-add-layer img bg-layer -1)
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-image-add-layer img glow-layer -1)
; Create text layer
......@@ -96,7 +102,7 @@
(gimp-palette-set-foreground '(100 100 100))
(gimp-palette-set-background '(0 0 0))
(gimp-blend button-layer FG-BG-RGB NORMAL
(gimp-blend button-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 img-height img-width)
......@@ -111,7 +117,7 @@
REPLACE FALSE 0 )
(gimp-palette-set-foreground glow-color)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE)
(gimp-palette-set-foreground text-color)
......
......@@ -10,8 +10,12 @@
(feather (/ size 4))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(glow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Alien Glow" 100 NORMAL)))
(bg-layer (car (gimp-layer-new img
width height RGB-IMAGE
"Background" 100 NORMAL-MODE)))
(glow-layer (car (gimp-layer-new img
width height RGBA-IMAGE
"Alien Glow" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
......@@ -21,19 +25,19 @@
(gimp-image-add-layer img glow-layer 1)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear glow-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-grow img grow)
(gimp-selection-feather img feather)
(gimp-palette-set-foreground glow-color)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(gimp-palette-set-background '(0 0 0))
(gimp-palette-set-foreground '(79 79 79))
(gimp-blend logo-layer FG-BG-RGB NORMAL
(gimp-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 1 1)
......
......@@ -40,8 +40,8 @@
(let* ((fade-size (- (* (+ band-size gap-size) num-bands) 1))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(bands-layer (car (gimp-layer-new img width height RGBA_IMAGE "Bands" 100 NORMAL)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(bands-layer (car (gimp-layer-new img width height RGBA-IMAGE "Bands" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(script-fu-util-image-resize-from-layer img logo-layer)
......@@ -49,13 +49,13 @@
(gimp-image-add-layer img bands-layer 1)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bands-layer BG-IMAGE-FILL)
(gimp-edit-fill bands-layer BACKGROUND-FILL)
; The text layer is never shown: it is only used to create a selection
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-foreground '(255 255 255))
(gimp-edit-fill bands-layer FG-IMAGE-FILL)
(gimp-edit-fill bands-layer FOREGROUND-FILL)
; Create multiple outlines by growing and inverting the selection
; The bands are black and white because they will be used as a mask.
......@@ -70,16 +70,16 @@
; The gradient is created by filling a bordered selection (white->black).
(if (= do-fade TRUE)
(let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer
BLACK-MASK))))
ADD-BLACK-MASK))))
(gimp-image-add-layer-mask img bands-layer bands-layer-mask)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-border img fade-size)
(gimp-edit-fill bands-layer-mask FG-IMAGE-FILL)
(gimp-image-remove-layer-mask img bands-layer APPLY)))
(gimp-edit-fill bands-layer-mask FOREGROUND-FILL)
(gimp-image-remove-layer-mask img bands-layer MASK-APPLY)))
; Transfer the resulting grayscale bands into the layer mask.
(let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer
BLACK-MASK))))
ADD-BLACK-MASK))))
(gimp-image-add-layer-mask img bands-layer bands-layer-mask)
(gimp-selection-none img)
(gimp-edit-copy bands-layer)
......@@ -89,8 +89,8 @@
; Fill the layer with the foreground color. The areas that are not
; masked become visible.
(gimp-palette-set-foreground fg-color)
(gimp-edit-fill bands-layer FG-IMAGE-FILL)
;; (gimp-image-remove-layer-mask img bands-layer APPLY)
(gimp-edit-fill bands-layer FOREGROUND-FILL)
;; (gimp-image-remove-layer-mask img bands-layer MASK-APPLY)
; Clean up and exit.
(gimp-palette-set-foreground old-fg)
......
......@@ -39,10 +39,10 @@
(set! theLayer (car (gimp-layer-new theImage
10
10
RGBA_IMAGE
RGBA-IMAGE
"layer 1"
100
NORMAL) ) )
NORMAL-MODE) ) )
(gimp-palette-set-background inBackColor)
(gimp-layer-set-name theLayer "Background")
......@@ -68,7 +68,7 @@
(gimp-selection-all theImage)
(if (= inTrans TRUE)
(gimp-edit-clear theLayer)
(gimp-edit-fill theLayer BG-IMAGE-FILL)
(gimp-edit-fill theLayer BACKGROUND-FILL)
)
(gimp-selection-none theImage)
......
......@@ -7,8 +7,8 @@
text-color)
(let* ((width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGBA_IMAGE "Background" 100 NORMAL)))
(shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow" 100 MULTIPLY)))
(bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE)))
(shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 MULTIPLY-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
......@@ -18,18 +18,18 @@
(gimp-image-add-layer img bg-layer 2)
(gimp-palette-set-foreground text-color)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-edit-fill logo-layer FG-IMAGE-FILL)
(gimp-edit-fill logo-layer FOREGROUND-FILL)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear shadow-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img 7.5)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-palette-set-foreground '(255 255 255))
(gimp-blend logo-layer FG-BG-RGB MULTIPLY
(gimp-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE
GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 width height)
......
......@@ -19,9 +19,9 @@
(height (car (gimp-drawable-height logo-layer)))
(posx (- (car (gimp-drawable-offsets logo-layer))))
(posy (- (cadr (gimp-drawable-offsets logo-layer))))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(highlight-layer (car (gimp-layer-copy logo-layer TRUE)))
(shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow" 100 MULTIPLY)))
(shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 MULTIPLY-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
......@@ -32,21 +32,21 @@
(gimp-image-add-layer img highlight-layer 1)
(gimp-palette-set-foreground text-color)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-edit-fill logo-layer FG-IMAGE-FILL)
(gimp-edit-fill logo-layer FOREGROUND-FILL)
(gimp-edit-clear shadow-layer)
(gimp-palette-set-foreground (color-highlight text-color))
(gimp-layer-set-preserve-trans highlight-layer TRUE)
(gimp-edit-fill highlight-layer FG-IMAGE-FILL)
(gimp-edit-fill highlight-layer FOREGROUND-FILL)
(gimp-palette-set-background bg-color)
(gimp-drawable-fill bg-layer BG-IMAGE-FILL)
(gimp-drawable-fill bg-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img 7.5)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-palette-set-foreground '(255 255 255))
(gimp-blend logo-layer FG-BG-RGB MULTIPLY
(gimp-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE
GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 width height)
......
......@@ -44,7 +44,7 @@
y1
x2
y2)
(gimp-blend drawable FG-BG-RGB DARKEN-ONLY
(gimp-blend drawable FG-BG-RGB-MODE DARKEN-ONLY
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
x1 y1 x2 y2))
......@@ -75,8 +75,12 @@
(img (car (gimp-image-new img-width img-height RGB)))
(bumpmap (car (gimp-layer-new img img-width img-height RGBA_IMAGE "Bumpmap" 100 NORMAL)))
(gradient (car (gimp-layer-new img img-width img-height RGBA_IMAGE "Gradient" 100 NORMAL))))
(bumpmap (car (gimp-layer-new img
img-width img-height RGBA-IMAGE
"Bumpmap" 100 NORMAL-MODE)))
(gradient (car (gimp-layer-new img
img-width img-height RGBA-IMAGE
"Gradient" 100 NORMAL-MODE))))
(gimp-image-undo-disable img)
......@@ -85,7 +89,7 @@
(gimp-image-add-layer img bumpmap -1)
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-rect-select img 0 0 bevel-width img-height REPLACE FALSE 0)
(blend-bumpmap img bumpmap 0 0 (- bevel-width 1) 0)
......@@ -107,7 +111,7 @@
(gimp-palette-set-foreground ul-color)
(gimp-palette-set-background lr-color)
(gimp-blend gradient FG-BG-RGB NORMAL
(gimp-blend gradient FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 (- img-width 1) (- img-height 1))
......
......@@ -70,8 +70,8 @@
(define (script-fu-beveled-pattern-arrow size orientation pattern)
(let* ((old-bg-color (car (gimp-palette-get-background)))
(img (car (gimp-image-new size size RGB)))
(background (car (gimp-layer-new img size size RGB_IMAGE "Arrow" 100 NORMAL)))
(bumpmap (car (gimp-layer-new img size size RGB_IMAGE "Bumpmap" 100 NORMAL)))
(background (car (gimp-layer-new img size size RGB-IMAGE