callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed the image argument from functions that no longer need it.

Browse Source 
* plug-ins/script-fu/scripts/*: removed the image
        argument from functions that no longer need it.
This commit is contained in:
Marc Lehmann
1998-11-14 20:46:25 +00:00
parent 3fa6583ed7
commit b8b5d7834d
96 changed files with 1173 additions and 1177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
Sat Nov 14 20:15:46 CET 1998 Marc Lehmann <pcg@goof.com>
* plug-ins/script-fu/scripts/*: removed the image
argument from functions that no longer need it.
Sat Nov 14 20:02:31 GMT 1998 Austin Donnelly <austin@greenend.org.uk> Sat Nov 14 20:02:31 GMT 1998 Austin Donnelly <austin@greenend.org.uk>
* app/rect_select.c: deal with zero-size selections correctly (ie, * app/rect_select.c: deal with zero-size selections correctly (ie,

14
plug-ins/script-fu/scripts/3d-outline.scm
View File

@ -34,8 +34,8 @@
(gimp-image-resize img width height 0 0) (gimp-image-resize img width height 0 0)
(gimp-image-add-layer img pattern 1) (gimp-image-add-layer img pattern 1)
(gimp-image-add-layer img bg-layer 2) (gimp-image-add-layer img bg-layer 2)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img pattern) (gimp-edit-clear pattern)
(gimp-layer-set-preserve-trans text-layer FALSE) (gimp-layer-set-preserve-trans text-layer FALSE)
(plug-in-gauss-iir 1 img text-layer outline-blur-radius TRUE TRUE) (plug-in-gauss-iir 1 img text-layer outline-blur-radius TRUE TRUE)
@ -48,22 +48,22 @@
(gimp-selection-all img) (gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern) (gimp-patterns-set-pattern text-pattern)
(gimp-bucket-fill img pattern PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill pattern PATTERN-BUCKET-FILL NORMAL 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) (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 ALPHA-MASK)))
(gimp-image-add-layer-mask img pattern pattern-mask) (gimp-image-add-layer-mask img pattern pattern-mask)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-copy img layer3) (gimp-edit-copy layer3)
(set! floating_sel (car (gimp-edit-paste img pattern-mask 0))) (set! floating_sel (car (gimp-edit-paste pattern-mask 0)))
(gimp-floating-sel-anchor floating_sel) (gimp-floating-sel-anchor floating_sel)
(gimp-image-remove-layer-mask img pattern APPLY) (gimp-image-remove-layer-mask img pattern APPLY)
(gimp-invert img layer3) (gimp-invert layer3)
(plug-in-gauss-iir 1 img layer3 shadow-blur-radius TRUE TRUE) (plug-in-gauss-iir 1 img layer3 shadow-blur-radius TRUE TRUE)
(gimp-channel-ops-offset img layer3 0 1 s-offset-x s-offset-y) (gimp-channel-ops-offset layer3 0 1 s-offset-x s-offset-y)
(gimp-layer-set-visible layer2 FALSE) (gimp-layer-set-visible layer2 FALSE)
(gimp-layer-set-visible pattern TRUE) (gimp-layer-set-visible pattern TRUE)

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

@ -29,8 +29,8 @@
(gimp-ellipse-select img (- cx rx) (- cy ry) (+ rx rx ) (+ ry ry ) op aa feather frad)) (gimp-ellipse-select img (- cx rx) (- cy ry) (+ rx rx ) (+ ry ry ) op aa feather frad))
(define (use-tile img drawable height width img2 drawable2 xoffset yoffset) (define (use-tile img drawable height width img2 drawable2 xoffset yoffset)
(gimp-edit-copy img2 drawable2) (gimp-edit-copy drawable2)
(let ((floating-sel (car (gimp-edit-paste img drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste drawable FALSE))))
(gimp-layer-set-offsets floating-sel xoffset yoffset) (gimp-layer-set-offsets floating-sel xoffset yoffset)
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
@ -46,7 +46,7 @@
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background backcolor) (gimp-palette-set-background backcolor)
(gimp-edit-fill img drawable1) (gimp-edit-fill drawable1)
(let* ( (let* (
(tempSize (* size 3)) (tempSize (* size 3))
@ -58,8 +58,8 @@
(gimp-image-add-layer temp-img temp-draw 0) (gimp-image-add-layer temp-img temp-draw 0)
(gimp-image-add-layer temp-img temp-draw2 0) (gimp-image-add-layer temp-img temp-draw2 0)
(gimp-palette-set-background backcolor) (gimp-palette-set-background backcolor)
(gimp-edit-fill temp-img temp-draw) (gimp-edit-fill temp-draw)
(gimp-edit-fill temp-img temp-draw2) (gimp-edit-fill temp-draw2)
;weird aint it ;weird aint it
(gimp-palette-set-background begincolor) (gimp-palette-set-background begincolor)
@ -70,7 +70,7 @@
(center-ellipse temp-img (* size 2) (* size 2) outer-radius outer-radius ADD 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) inner-radius inner-radius SUB TRUE FALSE 0)
(gimp-blend temp-img temp-draw FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 FALSE supersample 3 .2 size size (* size 2) (/ size 2) ) (gimp-blend temp-draw FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 FALSE supersample 3 .2 size size (* size 2) (/ size 2) )
(center-ellipse temp-img size (* size 2) outer-radius outer-radius REPLACE TRUE FALSE 0) (center-ellipse temp-img size (* size 2) outer-radius outer-radius REPLACE TRUE FALSE 0)
(center-ellipse temp-img size (* size 2) inner-radius inner-radius SUB TRUE FALSE 0) (center-ellipse temp-img size (* size 2) inner-radius inner-radius SUB TRUE FALSE 0)
@ -78,7 +78,7 @@
(center-ellipse temp-img (* size 2) size outer-radius outer-radius ADD TRUE FALSE 0) (center-ellipse temp-img (* size 2) size outer-radius outer-radius ADD TRUE FALSE 0)
(center-ellipse temp-img (* size 2) size inner-radius inner-radius SUB TRUE FALSE 0) (center-ellipse temp-img (* size 2) size inner-radius inner-radius SUB TRUE FALSE 0)
;(gimp-edit-fill temp-img temp-draw2) ;(gimp-edit-fill temp-img temp-draw2)
(gimp-blend temp-img temp-draw2 FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 FALSE supersample 3 .2 size size (* size 2) (* size 2) ) (gimp-blend temp-draw2 FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 FALSE supersample 3 .2 size size (* size 2) (* size 2) )
(gimp-selection-none temp-img) (gimp-selection-none temp-img)
@ -87,12 +87,12 @@
(gimp-selection-all temp-img) (gimp-selection-all temp-img)
(gimp-edit-copy temp-img temp-draw) (gimp-edit-copy temp-draw)
(let ((floating-sel (car (gimp-edit-paste img drawable2 FALSE)))) (let ((floating-sel (car (gimp-edit-paste drawable2 FALSE))))
(gimp-floating-sel-anchor floating-sel)) (gimp-floating-sel-anchor floating-sel))
(gimp-edit-copy temp-img temp-draw2) (gimp-edit-copy temp-draw2)
(let ((floating-sel (car (gimp-edit-paste img drawable1 FALSE)))) (let ((floating-sel (car (gimp-edit-paste drawable1 FALSE))))
(gimp-floating-sel-anchor floating-sel)) (gimp-floating-sel-anchor floating-sel))
;(let ((drawble (car (gimp-flip img drawable1 0))))) ;(let ((drawble (car (gimp-flip img drawable1 0)))))
@ -129,7 +129,7 @@
;just to look a little better ;just to look a little better
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background backcolor) (gimp-palette-set-background backcolor)
(gimp-edit-fill img layer-one) (gimp-edit-fill layer-one)
(gimp-selection-none img) (gimp-selection-none img)
(create-tile tile tiledraw1 tiledraw2 size thickness backcolor begincolor endcolor supersample) (create-tile tile tiledraw1 tiledraw2 size thickness backcolor begincolor endcolor supersample)

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

@ -106,7 +106,7 @@
(set! bevelling-whole-image TRUE) ; ...so we can restore things properly, and crop. (set! bevelling-whole-image TRUE) ; ...so we can restore things properly, and crop.
(gimp-image-resize image (+ width 2) (+ height 2) 1 1) (gimp-image-resize image (+ width 2) (+ height 2) 1 1)
(if (not (eq? 0 (car (gimp-drawable-has-alpha pic-layer)))) ; Wish I knew Scheme (if (not (eq? 0 (car (gimp-drawable-has-alpha pic-layer)))) ; Wish I knew Scheme
(gimp-selection-layer-alpha image pic-layer) (gimp-selection-layer-alpha pic-layer)
(begin (begin
(gimp-selection-all image) (gimp-selection-all image)
) )
@ -131,13 +131,13 @@
(set! greyness (/ (* index 255) thickness)) (set! greyness (/ (* index 255) thickness))
(gimp-palette-set-background (list greyness greyness greyness)) (gimp-palette-set-background (list greyness greyness greyness))
;(gimp-selection-feather image 1) ;Stop the slopey jaggies? ;(gimp-selection-feather image 1) ;Stop the slopey jaggies?
(gimp-bucket-fill image bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-shrink image 1) (gimp-selection-shrink image 1)
(set! index (+ index 1)) (set! index (+ index 1))
) )
; Now the white interior ; Now the white interior
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-bucket-fill image bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
;------------------------------------------------------------ ;------------------------------------------------------------
; ;
@ -177,7 +177,7 @@
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)
(if (= bevelling-whole-image TRUE) (if (= bevelling-whole-image TRUE)
(gimp-selection-none image) ; No selection to start with (gimp-selection-none image) ; No selection to start with
(gimp-selection-load image select) (gimp-selection-load select)
) )
; If they started with a selection, they can Select->Invert then ; If they started with a selection, they can Select->Invert then
; Edit->Clear for a cutout. ; Edit->Clear for a cutout.

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

@ -122,7 +122,7 @@
0 0
0 0
0.0) 0.0)
(gimp-edit-fill img layer) (gimp-edit-fill layer)
(gimp-palette-set-background (adjcolour colour (/ dvalue 2))) (gimp-palette-set-background (adjcolour colour (/ dvalue 2)))
(gimp-free-select img (gimp-free-select img
10 10
@ -131,7 +131,7 @@
0 0
0 0
0.0) 0.0)
(gimp-edit-fill img layer) (gimp-edit-fill layer)
(gimp-palette-set-background (adjcolour colour (- 0 (/ dvalue 2)))) (gimp-palette-set-background (adjcolour colour (- 0 (/ dvalue 2))))
(gimp-free-select img (gimp-free-select img
10 10
@ -141,7 +141,7 @@
0 0
0.0) 0.0)
(gimp-edit-fill img layer) (gimp-edit-fill layer)
(gimp-palette-set-background (adjcolour colour (- 0 dvalue))) (gimp-palette-set-background (adjcolour colour (- 0 dvalue)))
(gimp-free-select img (gimp-free-select img
10 10
@ -151,7 +151,7 @@
0 0
0.0) 0.0)
(gimp-edit-fill img layer) (gimp-edit-fill layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-image-add-layer img layer 0) (gimp-image-add-layer img layer 0)
(gimp-image-enable-undo img) (gimp-image-enable-undo img)

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

@ -90,19 +90,19 @@
(gimp-image-add-layer img glow-layer -1) (gimp-image-add-layer img glow-layer -1)
(gimp-image-add-layer img ruler-layer -1) (gimp-image-add-layer img ruler-layer -1)
(gimp-edit-clear img glow-layer) (gimp-edit-clear glow-layer)
(gimp-edit-clear img ruler-layer) (gimp-edit-clear ruler-layer)
(gimp-free-select img 6 big-arrow REPLACE TRUE FALSE 0) (gimp-free-select img 6 big-arrow REPLACE TRUE FALSE 0)
(gimp-palette-set-foreground '(103 103 103)) (gimp-palette-set-foreground '(103 103 103))
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-blend img ruler-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 size size) (gimp-blend ruler-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 size size)
(gimp-selection-grow img grow-amount) (gimp-selection-grow img grow-amount)
(gimp-palette-set-background glow-color) (gimp-palette-set-background glow-color)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-none img) (gimp-selection-none img)
@ -110,7 +110,7 @@
(plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE) (plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg) (gimp-palette-set-foreground old-fg)

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

@ -36,18 +36,18 @@
; (gimp-layer-set-preserve-trans ruler-layer TRUE) ; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img glow-layer) (gimp-edit-clear glow-layer)
(gimp-edit-clear img ruler-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 REPLACE FALSE 0)
(gimp-palette-set-foreground '(79 79 79)) (gimp-palette-set-foreground '(79 79 79))
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-blend img ruler-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 height height) (gimp-blend ruler-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 height height)
(gimp-palette-set-background glow-color) (gimp-palette-set-background glow-color)
(gimp-selection-grow img border) (gimp-selection-grow img border)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE) (plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)

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

@ -43,21 +43,21 @@
; (gimp-layer-set-preserve-trans ruler-layer TRUE) ; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img glow-layer) (gimp-edit-clear glow-layer)
(gimp-edit-clear img bullet-layer) (gimp-edit-clear bullet-layer)
(center-ellipse img radius radius half-radius half-radius REPLACE TRUE FALSE 0) (center-ellipse img radius radius half-radius half-radius 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 REPLACE FALSE 0)
(gimp-palette-set-foreground '(90 90 90)) (gimp-palette-set-foreground '(90 90 90))
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-blend img bullet-layer FG-BG-RGB NORMAL RADIAL 100 0 REPEAT-NONE FALSE 0 0 blend-start blend-start (+ half-radius radius)(+ half-radius radius )) (gimp-blend bullet-layer FG-BG-RGB NORMAL RADIAL 100 0 REPEAT-NONE FALSE 0 0 blend-start blend-start (+ half-radius radius)(+ half-radius radius ))
(gimp-palette-set-background glow-color) (gimp-palette-set-background glow-color)
(gimp-selection-grow img border) (gimp-selection-grow img border)
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(if (>= radius 16) (if (>= radius 16)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE) (plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)

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

@ -36,8 +36,7 @@
(cadr (cddr extents))) (cadr (cddr extents)))
(define (blend-bumpmap img drawable x1 y1 x2 y2) (define (blend-bumpmap img drawable x1 y1 x2 y2)
(gimp-blend img (gimp-blend drawable
drawable
FG-BG-RGB FG-BG-RGB
DARKEN-ONLY DARKEN-ONLY
LINEAR LINEAR
@ -109,7 +108,7 @@
(gimp-image-add-layer img bg-layer -1) (gimp-image-add-layer img bg-layer -1)
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-image-add-layer img glow-layer -1) (gimp-image-add-layer img glow-layer -1)
; Create text layer ; Create text layer
@ -120,11 +119,11 @@
(gimp-rect-select img 0 0 img-width img-height REPLACE FALSE 0) (gimp-rect-select img 0 0 img-width img-height REPLACE FALSE 0)
(gimp-palette-set-foreground '(100 100 100)) (gimp-palette-set-foreground '(100 100 100))
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-blend img button-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 img-height img-width) (gimp-blend button-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 img-height img-width)
(gimp-edit-clear img glow-layer) (gimp-edit-clear glow-layer)
(gimp-rect-select img (/ glow-radius 4) (/ glow-radius 4) (- img-width (/ glow-radius 2)) (- img-height (/ glow-radius 2)) REPLACE FALSE 0 ) (gimp-rect-select img (/ glow-radius 4) (/ glow-radius 4) (- img-width (/ glow-radius 2)) (- img-height (/ glow-radius 2)) REPLACE FALSE 0 )
(gimp-palette-set-background glow-color) (gimp-palette-set-background glow-color)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE) (plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE)
(gimp-palette-set-foreground text-color) (gimp-palette-set-foreground text-color)

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

@ -19,17 +19,17 @@
(gimp-image-add-layer img glow-layer 1) (gimp-image-add-layer img glow-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img glow-layer) (gimp-edit-clear glow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-selection-grow img grow) (gimp-selection-grow img grow)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-palette-set-background glow-color) (gimp-palette-set-background glow-color)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-palette-set-foreground '(79 79 79)) (gimp-palette-set-foreground '(79 79 79))
(gimp-blend img text-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1) (gimp-blend text-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg) (gimp-palette-set-foreground old-fg)

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

@ -69,8 +69,8 @@
theBuffer) theBuffer)
(gimp-selection-all theImage) (gimp-selection-all theImage)
(if (= inTrans TRUE) (if (= inTrans TRUE)
(gimp-edit-clear theImage theLayer) (gimp-edit-clear theLayer)
(gimp-edit-fill theImage theLayer) (gimp-edit-fill theLayer)
) )
(gimp-selection-none theImage) (gimp-selection-none theImage)
@ -164,7 +164,7 @@
PIXELS PIXELS
inFont))) inFont)))
(set! theCharWidth (car (gimp-drawable-width theText) )) (set! theCharWidth (car (gimp-drawable-width theText) ))
(gimp-edit-cut theImage theText) (gimp-edit-cut theText)
(set! theImageHeight 0) (set! theImageHeight 0)
(set! theImageWidth 0) (set! theImageWidth 0)

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

@ -16,17 +16,17 @@
(gimp-image-add-layer img bg-layer 2) (gimp-image-add-layer img bg-layer 2)
(gimp-palette-set-background text-color) (gimp-palette-set-background text-color)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img 7.5) (gimp-selection-feather img 7.5)
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-blend img text-layer FG-BG-RGB MULTIPLY RADIAL 100 20 REPEAT-NONE FALSE 0 0 0 0 width height) (gimp-blend text-layer FG-BG-RGB MULTIPLY RADIAL 100 20 REPEAT-NONE FALSE 0 0 0 0 width height)
(gimp-layer-translate shadow-layer 3 3) (gimp-layer-translate shadow-layer 3 3)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)

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

@ -27,20 +27,20 @@
(gimp-image-add-layer img highlight-layer 1) (gimp-image-add-layer img highlight-layer 1)
(gimp-palette-set-background text-color) (gimp-palette-set-background text-color)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-edit-clear img shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-palette-set-background (color-highlight text-color)) (gimp-palette-set-background (color-highlight text-color))
(gimp-layer-set-preserve-trans highlight-layer TRUE) (gimp-layer-set-preserve-trans highlight-layer TRUE)
(gimp-edit-fill img highlight-layer) (gimp-edit-fill highlight-layer)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-drawable-fill bg-layer BG-IMAGE-FILL) (gimp-drawable-fill bg-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img 7.5) (gimp-selection-feather img 7.5)
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-blend img text-layer FG-BG-RGB MULTIPLY RADIAL 100 20 REPEAT-NONE FALSE 0 0 0 0 width height) (gimp-blend text-layer FG-BG-RGB MULTIPLY RADIAL 100 20 REPEAT-NONE FALSE 0 0 0 0 width height)
(gimp-layer-translate shadow-layer 3 3) (gimp-layer-translate shadow-layer 3 3)
(gimp-layer-translate highlight-layer -2 -2) (gimp-layer-translate highlight-layer -2 -2)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)

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

@ -33,8 +33,7 @@
(cadr (cddr extents))) (cadr (cddr extents)))
(define (blend-bumpmap img drawable x1 y1 x2 y2) (define (blend-bumpmap img drawable x1 y1 x2 y2)
(gimp-blend img (gimp-blend drawable
drawable
FG-BG-RGB FG-BG-RGB
DARKEN-ONLY DARKEN-ONLY
LINEAR LINEAR
@ -104,7 +103,7 @@
(gimp-image-add-layer img bumpmap -1) (gimp-image-add-layer img bumpmap -1)
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-rect-select img 0 0 bevel-width img-height REPLACE FALSE 0) (gimp-rect-select img 0 0 bevel-width img-height REPLACE FALSE 0)
(blend-bumpmap img bumpmap 0 0 (- bevel-width 1) 0) (blend-bumpmap img bumpmap 0 0 (- bevel-width 1) 0)
@ -125,8 +124,7 @@
(gimp-image-add-layer img gradient -1) (gimp-image-add-layer img gradient -1)
(gimp-palette-set-foreground ul-color) (gimp-palette-set-foreground ul-color)
(gimp-palette-set-background lr-color) (gimp-palette-set-background lr-color)
(gimp-blend img (gimp-blend gradient
gradient
FG-BG-RGB FG-BG-RGB
NORMAL NORMAL
LINEAR LINEAR

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

@ -83,29 +83,29 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img background) (gimp-edit-fill background)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-bucket-fill img background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer ; Create bumpmap layer
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(127 127 127)) (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) REPLACE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(255 255 255)) (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) REPLACE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(127 127 127)) (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 REPLACE TRUE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(0 0 0)) (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 REPLACE TRUE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-selection-none img) (gimp-selection-none img)
@ -116,11 +116,11 @@
; Darken arrow ; Darken arrow
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(192 192 192)) (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 REPLACE TRUE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-selection-none img) (gimp-selection-none img)

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

@ -32,21 +32,21 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img background) (gimp-edit-fill background)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-bucket-fill img background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer ; Create bumpmap layer
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(127 127 127)) (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) REPLACE TRUE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(255 255 255)) (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) REPLACE TRUE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-selection-none img) (gimp-selection-none img)
@ -59,7 +59,7 @@
(gimp-palette-set-background '(0 0 0)) (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 REPLACE TRUE FALSE 0)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-clear img background) (gimp-edit-clear background)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-image-set-active-layer img background) (gimp-image-set-active-layer img background)

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

@ -66,21 +66,21 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img background) (gimp-edit-fill background)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-bucket-fill img background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer ; Create bumpmap layer
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(127 127 127)) (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) REPLACE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(255 255 255)) (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) REPLACE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-selection-none img) (gimp-selection-none img)
@ -92,7 +92,7 @@
(gimp-palette-set-background text-color) (gimp-palette-set-background text-color)
(gimp-layer-set-preserve-trans textl TRUE) (gimp-layer-set-preserve-trans textl TRUE)
(gimp-edit-fill img textl) (gimp-edit-fill textl)
(gimp-layer-set-offsets textl (gimp-layer-set-offsets textl
xpadding xpadding

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

@ -43,23 +43,23 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img background) (gimp-edit-fill background)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-bucket-fill img background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer ; Create bumpmap layer
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(127 127 127)) (gimp-palette-set-background '(127 127 127))
(gimp-selection-layer-alpha img textl) (gimp-selection-layer-alpha textl)
(gimp-selection-shrink img 1) (gimp-selection-shrink img 1)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-layer-alpha img textl) (gimp-selection-layer-alpha textl)
(gimp-selection-shrink img 2) (gimp-selection-shrink img 2)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-selection-none img) (gimp-selection-none img)
@ -70,9 +70,9 @@
; Clean up ; Clean up
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-layer-alpha img textl) (gimp-selection-layer-alpha textl)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-clear img background) (gimp-edit-clear background)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-image-set-active-layer img background) (gimp-image-set-active-layer img background)

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

@ -32,21 +32,21 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img background) (gimp-edit-fill background)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-bucket-fill img background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer ; Create bumpmap layer
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(127 127 127)) (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) REPLACE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-palette-set-background '(255 255 255)) (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) REPLACE FALSE 0)
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-selection-none img) (gimp-selection-none img)

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

@ -32,39 +32,39 @@
(gimp-image-add-layer img drop-shadow-layer 1) (gimp-image-add-layer img drop-shadow-layer 1)
(gimp-image-add-layer img text-shadow-layer 0) (gimp-image-add-layer img text-shadow-layer 0)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-clear img text-shadow-layer) (gimp-edit-clear text-shadow-layer)
(gimp-edit-clear img drop-shadow-layer) (gimp-edit-clear drop-shadow-layer)
(gimp-palette-set-background text-color) (gimp-palette-set-background text-color)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-drawable-fill shadow-layer BG-IMAGE-FILL) (gimp-drawable-fill shadow-layer BG-IMAGE-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) REPLACE TRUE b-size-2)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-image-add-layer-mask img text-shadow-layer tsl-layer-mask) (gimp-image-add-layer-mask img text-shadow-layer tsl-layer-mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img tsl-layer-mask) (gimp-edit-fill tsl-layer-mask)
(gimp-selection-feather img f-size) (gimp-selection-feather img f-size)
(gimp-palette-set-background '(63 63 63)) (gimp-palette-set-background '(63 63 63))
(gimp-edit-fill img drop-shadow-layer) (gimp-edit-fill drop-shadow-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img text-shadow-layer) (gimp-edit-fill text-shadow-layer)
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-blend img text-shadow-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1) (gimp-blend text-shadow-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground blend-fg) (gimp-palette-set-foreground blend-fg)
(gimp-palette-set-background blend-bg) (gimp-palette-set-background blend-bg)
(gimp-blend img blend-layer blend-mode NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 width 0) (gimp-blend blend-layer blend-mode NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 width 0)
(gimp-layer-translate text-layer (- b-size-2) (- b-size-2)) (gimp-layer-translate text-layer (- b-size-2) (- b-size-2))
(gimp-layer-translate blend-layer (- b-size) (- b-size)) (gimp-layer-translate blend-layer (- b-size) (- b-size))
(gimp-layer-translate text-shadow-layer (- ts-size) (- ts-size)) (gimp-layer-translate text-shadow-layer (- ts-size) (- ts-size))
(gimp-layer-translate drop-shadow-layer ds-size ds-size) (gimp-layer-translate drop-shadow-layer ds-size ds-size)
(gimp-selection-layer-alpha img blend-layer) (gimp-selection-layer-alpha blend-layer)
(gimp-image-add-layer-mask img drop-shadow-layer dsl-layer-mask) (gimp-image-add-layer-mask img drop-shadow-layer dsl-layer-mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img dsl-layer-mask) (gimp-edit-fill dsl-layer-mask)
(gimp-image-remove-layer-mask img drop-shadow-layer APPLY) (gimp-image-remove-layer-mask img drop-shadow-layer APPLY)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)

14
plug-ins/script-fu/scripts/bovinated-logo.scm
View File

@ -35,31 +35,31 @@
(gimp-image-add-layer img blur-layer 1) (gimp-image-add-layer img blur-layer 1)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer TRUE) (gimp-layer-set-preserve-trans blur-layer TRUE)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill img blur-layer) (gimp-edit-fill blur-layer)
(gimp-edit-clear img blur-layer) (gimp-edit-clear blur-layer)
(gimp-palette-set-background '(191 191 191)) (gimp-palette-set-background '(191 191 191))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer FALSE) (gimp-layer-set-preserve-trans blur-layer FALSE)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-edit-fill img blur-layer) (gimp-edit-fill blur-layer)
(plug-in-gauss-rle 1 img blur-layer 5.0 1 1) (plug-in-gauss-rle 1 img blur-layer 5.0 1 1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-selection-all img) (gimp-selection-all img)
(plug-in-solid-noise 1 img text-layer 0 0 23 1 16.0 4.0) (plug-in-solid-noise 1 img text-layer 0 0 23 1 16.0 4.0)
(gimp-brightness-contrast img text-layer 0 127) (gimp-brightness-contrast text-layer 0 127)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer FALSE) (gimp-layer-set-preserve-trans text-layer FALSE)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)
(plug-in-bump-map 1 img text-layer blur-layer 135 50 10 0 0 0 30 TRUE FALSE 0) (plug-in-bump-map 1 img text-layer blur-layer 135 50 10 0 0 0 30 TRUE FALSE 0)
(gimp-layer-set-offsets blur-layer 5 5) (gimp-layer-set-offsets blur-layer 5 5)
(gimp-invert img blur-layer) (gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0) (gimp-layer-set-opacity blur-layer 50.0)
(gimp-image-set-active-layer img text-layer) (gimp-image-set-active-layer img text-layer)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)

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

@ -41,16 +41,16 @@
(plug-in-solid-noise TRUE theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain) (plug-in-solid-noise TRUE theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain)
(plug-in-solid-noise TRUE theImage thinLayer 1 0 (rand 65536) 1 inGrain inGrain) (plug-in-solid-noise TRUE theImage thinLayer 1 0 (rand 65536) 1 inGrain inGrain)
(gimp-threshold theImage thickLayer 127 255) (gimp-threshold thickLayer 127 255)
(gimp-threshold theImage thinLayer 145 255) (gimp-threshold thinLayer 145 255)
(set! theBlur (- 16 inGrain)) (set! theBlur (- 16 inGrain))
(gimp-palette-set-background inColor2) (gimp-palette-set-background inColor2)
(gimp-by-color-select theImage thickLayer '(0 0 0) 127 REPLACE TRUE FALSE 0 FALSE) (gimp-by-color-select thickLayer '(0 0 0) 127 REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear theImage thickLayer) (gimp-edit-clear thickLayer)
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(gimp-edit-fill theImage thickLayer) (gimp-edit-fill thickLayer)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(if (= inSmooth TRUE) (if (= inSmooth TRUE)
(script-fu-tile-blur theImage thickLayer theBlur TRUE TRUE FALSE) (script-fu-tile-blur theImage thickLayer theBlur TRUE TRUE FALSE)
@ -59,10 +59,10 @@
(gimp-palette-set-background inColor3) (gimp-palette-set-background inColor3)
(gimp-by-color-select theImage thinLayer '(0 0 0) 127 REPLACE TRUE FALSE 0 FALSE) (gimp-by-color-select thinLayer '(0 0 0) 127 REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear theImage thinLayer) (gimp-edit-clear thinLayer)
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(gimp-edit-fill theImage thinLayer) (gimp-edit-fill thinLayer)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(if (= inSmooth TRUE) (if (= inSmooth TRUE)
(script-fu-tile-blur theImage thinLayer (/ theBlur 2) TRUE TRUE FALSE) (script-fu-tile-blur theImage thinLayer (/ theBlur 2) TRUE TRUE FALSE)

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

@ -23,7 +23,7 @@
(* (sqrt val) scale)) (* (sqrt val) scale))
(define (calculate-inset-gamma img layer) (define (calculate-inset-gamma img layer)
(let* ((stats (gimp-histogram img layer 0 0 255)) (let* ((stats (gimp-histogram layer 0 0 255))
(mean (car stats))) (mean (car stats)))
(cond ((< mean 127) (+ 1.0 (* 0.5 (/ (- 127 mean) 127.0)))) (cond ((< mean 127) (+ 1.0 (* 0.5 (/ (- 127 mean) 127.0))))
((>= mean 127) (- 1.0 (* 0.5 (/ (- mean 127) 127.0))))))) ((>= mean 127) (- 1.0 (* 0.5 (/ (- mean 127) 127.0)))))))
@ -31,11 +31,11 @@
(define (copy-layer-carve-it dest-image dest-drawable source-image source-drawable) (define (copy-layer-carve-it dest-image dest-drawable source-image source-drawable)
(gimp-selection-all dest-image) (gimp-selection-all dest-image)
(gimp-edit-clear dest-image dest-drawable) (gimp-edit-clear dest-drawable)
(gimp-selection-none dest-image) (gimp-selection-none dest-image)
(gimp-selection-all source-image) (gimp-selection-all source-image)
(gimp-edit-copy source-image source-drawable) (gimp-edit-copy source-drawable)
(let ((floating-sel (car (gimp-edit-paste dest-image dest-drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE))))
(gimp-floating-sel-anchor floating-sel))) (gimp-floating-sel-anchor floating-sel)))
@ -79,29 +79,29 @@
(old-brush (car (gimp-brushes-get-brush)))) (old-brush (car (gimp-brushes-get-brush))))
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-clear img inset-layer) (gimp-edit-clear inset-layer)
(gimp-edit-clear img layer1) (gimp-edit-clear layer1)
(gimp-selection-none img) (gimp-selection-none img)
(copy-layer-carve-it img layer1 bg-image bg-layer) (copy-layer-carve-it img layer1 bg-image bg-layer)
(gimp-edit-clear img inset-layer) (gimp-edit-clear inset-layer)
(gimp-edit-copy mask-img mask-drawable) (gimp-edit-copy mask-drawable)
(gimp-image-add-channel img mask 0) (gimp-image-add-channel img mask 0)
(gimp-image-add-layer img layer1 0) (gimp-image-add-layer img layer1 0)
(plug-in-tile 1 img layer1 width height FALSE) (plug-in-tile 1 img layer1 width height FALSE)
(set! mask-fs (car (gimp-edit-paste img mask FALSE))) (set! mask-fs (car (gimp-edit-paste mask FALSE)))
(gimp-floating-sel-anchor mask-fs) (gimp-floating-sel-anchor mask-fs)
(if (= carve-white FALSE) (if (= carve-white FALSE)
(gimp-invert img mask)) (gimp-invert mask))
(set! mask-fat (car (gimp-channel-copy mask))) (set! mask-fat (car (gimp-channel-copy mask)))
(gimp-image-add-channel img mask-fat 0) (gimp-image-add-channel img mask-fat 0)
(gimp-selection-load img mask-fat) (gimp-selection-load mask-fat)
(gimp-brushes-set-brush (carve-brush brush-size)) (gimp-brushes-set-brush (carve-brush brush-size))
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-edit-stroke img mask-fat) (gimp-edit-stroke mask-fat)
(gimp-selection-none img) (gimp-selection-none img)
(set! mask-emboss (car (gimp-channel-copy mask-fat))) (set! mask-emboss (car (gimp-channel-copy mask-fat)))
@ -110,32 +110,32 @@
(plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE) (plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE)
(gimp-palette-set-background '(180 180 180)) (gimp-palette-set-background '(180 180 180))
(gimp-selection-load img mask-fat) (gimp-selection-load mask-fat)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-fill img mask-emboss) (gimp-edit-fill mask-emboss)
(gimp-selection-load img mask) (gimp-selection-load mask)
(gimp-edit-fill img mask-emboss) (gimp-edit-fill mask-emboss)
(gimp-selection-none img) (gimp-selection-none img)
(set! mask-highlight (car (gimp-channel-copy mask-emboss))) (set! mask-highlight (car (gimp-channel-copy mask-emboss)))
(gimp-image-add-channel img mask-highlight 0) (gimp-image-add-channel img mask-highlight 0)
(gimp-levels img mask-highlight 0 180 255 1.0 0 255) (gimp-levels mask-highlight 0 180 255 1.0 0 255)
(set! mask-shadow mask-emboss) (set! mask-shadow mask-emboss)
(gimp-levels img mask-shadow 0 0 180 1.0 0 255) (gimp-levels mask-shadow 0 0 180 1.0 0 255)
(gimp-edit-copy img mask-shadow) (gimp-edit-copy mask-shadow)
(set! shadow-layer (car (gimp-edit-paste img layer1 FALSE))) (set! shadow-layer (car (gimp-edit-paste layer1 FALSE)))
(gimp-floating-sel-to-layer shadow-layer) (gimp-floating-sel-to-layer shadow-layer)
(gimp-layer-set-mode shadow-layer MULTIPLY) (gimp-layer-set-mode shadow-layer MULTIPLY)
(gimp-edit-copy img mask-highlight) (gimp-edit-copy mask-highlight)
(set! highlight-layer (car (gimp-edit-paste img shadow-layer FALSE))) (set! highlight-layer (car (gimp-edit-paste shadow-layer FALSE)))
(gimp-floating-sel-to-layer highlight-layer) (gimp-floating-sel-to-layer highlight-layer)
(gimp-layer-set-mode highlight-layer SCREEN) (gimp-layer-set-mode highlight-layer SCREEN)
(gimp-edit-copy img mask) (gimp-edit-copy mask)
(set! cast-shadow-layer (car (gimp-edit-paste img highlight-layer FALSE))) (set! cast-shadow-layer (car (gimp-edit-paste highlight-layer FALSE)))
(gimp-floating-sel-to-layer cast-shadow-layer) (gimp-floating-sel-to-layer cast-shadow-layer)
(gimp-layer-set-mode cast-shadow-layer MULTIPLY) (gimp-layer-set-mode cast-shadow-layer MULTIPLY)
(gimp-layer-set-opacity cast-shadow-layer 75) (gimp-layer-set-opacity cast-shadow-layer 75)
@ -144,21 +144,21 @@
(set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer BLACK-MASK))) (set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer BLACK-MASK)))
(gimp-image-add-layer-mask img cast-shadow-layer csl-mask) (gimp-image-add-layer-mask img cast-shadow-layer csl-mask)
(gimp-selection-load img mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img csl-mask) (gimp-edit-fill csl-mask)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE))) (set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img inset-layer 1) (gimp-image-add-layer img inset-layer 1)
(set! il-mask (car (gimp-layer-create-mask inset-layer BLACK-MASK))) (set! il-mask (car (gimp-layer-create-mask inset-layer BLACK-MASK)))
(gimp-image-add-layer-mask img inset-layer il-mask) (gimp-image-add-layer-mask img inset-layer il-mask)
(gimp-selection-load img mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img il-mask) (gimp-edit-fill il-mask)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-selection-none bg-image) (gimp-selection-none bg-image)
(gimp-levels img inset-layer 0 0 255 inset-gamma 0 255) (gimp-levels inset-layer 0 0 255 inset-gamma 0 255)
(gimp-image-remove-channel img mask) (gimp-image-remove-channel img mask)
(gimp-image-remove-channel img mask-fat) (gimp-image-remove-channel img mask-fat)
(gimp-image-remove-channel img mask-highlight) (gimp-image-remove-channel img mask-highlight)

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

@ -18,7 +18,7 @@
(* (sqrt val) scale)) (* (sqrt val) scale))
(define (calculate-inset-gamma img layer) (define (calculate-inset-gamma img layer)
(let* ((stats (gimp-histogram img layer 0 0 255)) (let* ((stats (gimp-histogram layer 0 0 255))
(mean (car stats))) (mean (car stats)))
(cond ((< mean 127) (+ 1.0 (* 0.5 (/ (- 127 mean) 127.0)))) (cond ((< mean 127) (+ 1.0 (* 0.5 (/ (- 127 mean) 127.0))))
((>= mean 127) (- 1.0 (* 0.5 (/ (- mean 127) 127.0))))))) ((>= mean 127) (- 1.0 (* 0.5 (/ (- mean 127) 127.0)))))))
@ -54,27 +54,27 @@
(gimp-layer-set-preserve-trans mask-layer TRUE) (gimp-layer-set-preserve-trans mask-layer TRUE)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img mask-layer) (gimp-edit-fill mask-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img mask) (gimp-edit-fill mask)
(plug-in-tile 1 img layer1 width height FALSE) (plug-in-tile 1 img layer1 width height FALSE)
(gimp-image-add-channel img mask 0) (gimp-image-add-channel img mask 0)
(gimp-edit-copy img mask-layer) (gimp-edit-copy mask-layer)
(set! mask-fs (car (gimp-edit-paste img mask FALSE))) (set! mask-fs (car (gimp-edit-paste mask FALSE)))
(gimp-floating-sel-anchor mask-fs) (gimp-floating-sel-anchor mask-fs)
(if (= carve-raised TRUE) (if (= carve-raised TRUE)
(gimp-invert img mask)) (gimp-invert mask))
(gimp-image-remove-layer img mask-layer) (gimp-image-remove-layer img mask-layer)
(set! mask-fat (car (gimp-channel-copy mask))) (set! mask-fat (car (gimp-channel-copy mask)))
(gimp-image-add-channel img mask-fat 0) (gimp-image-add-channel img mask-fat 0)
(gimp-selection-load img mask-fat) (gimp-selection-load mask-fat)
(gimp-brushes-set-brush (carve-brush brush-size)) (gimp-brushes-set-brush (carve-brush brush-size))
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-edit-stroke img mask-fat) (gimp-edit-stroke mask-fat)
(gimp-selection-none img) (gimp-selection-none img)
(set! mask-emboss (car (gimp-channel-copy mask-fat))) (set! mask-emboss (car (gimp-channel-copy mask-fat)))
@ -83,32 +83,32 @@
(plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE) (plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE)
(gimp-palette-set-background '(180 180 180)) (gimp-palette-set-background '(180 180 180))
(gimp-selection-load img mask-fat) (gimp-selection-load mask-fat)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-fill img mask-emboss) (gimp-edit-fill mask-emboss)
(gimp-selection-load img mask) (gimp-selection-load mask)
(gimp-edit-fill img mask-emboss) (gimp-edit-fill mask-emboss)
(gimp-selection-none img) (gimp-selection-none img)
(set! mask-highlight (car (gimp-channel-copy mask-emboss))) (set! mask-highlight (car (gimp-channel-copy mask-emboss)))
(gimp-image-add-channel img mask-highlight 0) (gimp-image-add-channel img mask-highlight 0)
(gimp-levels img mask-highlight 0 180 255 1.0 0 255) (gimp-levels mask-highlight 0 180 255 1.0 0 255)
(set! mask-shadow mask-emboss) (set! mask-shadow mask-emboss)
(gimp-levels img mask-shadow 0 0 180 1.0 0 255) (gimp-levels mask-shadow 0 0 180 1.0 0 255)
(gimp-edit-copy img mask-shadow) (gimp-edit-copy mask-shadow)
(set! shadow-layer (car (gimp-edit-paste img layer1 FALSE))) (set! shadow-layer (car (gimp-edit-paste layer1 FALSE)))
(gimp-floating-sel-to-layer shadow-layer) (gimp-floating-sel-to-layer shadow-layer)
(gimp-layer-set-mode shadow-layer MULTIPLY) (gimp-layer-set-mode shadow-layer MULTIPLY)
(gimp-edit-copy img mask-highlight) (gimp-edit-copy mask-highlight)
(set! highlight-layer (car (gimp-edit-paste img shadow-layer FALSE))) (set! highlight-layer (car (gimp-edit-paste shadow-layer FALSE)))
(gimp-floating-sel-to-layer highlight-layer) (gimp-floating-sel-to-layer highlight-layer)
(gimp-layer-set-mode highlight-layer SCREEN) (gimp-layer-set-mode highlight-layer SCREEN)
(gimp-edit-copy img mask) (gimp-edit-copy mask)
(set! cast-shadow-layer (car (gimp-edit-paste img highlight-layer FALSE))) (set! cast-shadow-layer (car (gimp-edit-paste highlight-layer FALSE)))
(gimp-floating-sel-to-layer cast-shadow-layer) (gimp-floating-sel-to-layer cast-shadow-layer)
(gimp-layer-set-mode cast-shadow-layer MULTIPLY) (gimp-layer-set-mode cast-shadow-layer MULTIPLY)
(gimp-layer-set-opacity cast-shadow-layer 75) (gimp-layer-set-opacity cast-shadow-layer 75)
@ -117,21 +117,21 @@
(set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer BLACK-MASK))) (set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer BLACK-MASK)))
(gimp-image-add-layer-mask img cast-shadow-layer csl-mask) (gimp-image-add-layer-mask img cast-shadow-layer csl-mask)
(gimp-selection-load img mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img csl-mask) (gimp-edit-fill csl-mask)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE))) (set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img inset-layer 1) (gimp-image-add-layer img inset-layer 1)
(set! il-mask (car (gimp-layer-create-mask inset-layer BLACK-MASK))) (set! il-mask (car (gimp-layer-create-mask inset-layer BLACK-MASK)))
(gimp-image-add-layer-mask img inset-layer il-mask) (gimp-image-add-layer-mask img inset-layer il-mask)
(gimp-selection-load img mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img il-mask) (gimp-edit-fill il-mask)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-levels img inset-layer 0 0 255 inset-gamma 0 255) (gimp-levels inset-layer 0 0 255 inset-gamma 0 255)
(gimp-image-remove-channel img mask) (gimp-image-remove-channel img mask)
(gimp-image-remove-channel img mask-fat) (gimp-image-remove-channel img mask-fat)

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

@ -36,8 +36,8 @@
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img text-layer) (gimp-edit-clear text-layer)
; is there any other way to do this? ; is there any other way to do this?
; the sobel edge detect won't work with the methods in other scripts ; the sobel edge detect won't work with the methods in other scripts
@ -51,12 +51,12 @@
(plug-in-ripple 1 img text-layer 27 2 0 0 0 TRUE TRUE) (plug-in-ripple 1 img text-layer 27 2 0 0 0 TRUE TRUE)
(plug-in-ripple 1 img text-layer 27 2 1 0 0 TRUE TRUE) (plug-in-ripple 1 img text-layer 27 2 1 0 0 TRUE TRUE)
(plug-in-sobel 1 img text-layer TRUE TRUE TRUE) (plug-in-sobel 1 img text-layer TRUE TRUE TRUE)
(gimp-levels img text-layer 0 0 120 3.5 0 255) (gimp-levels text-layer 0 0 120 3.5 0 255)
; work-around for sobel edge detect screw-up (why does this happen?) ; 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 ; 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 ADD FALSE 0)
(gimp-edit-clear img text-layer) (gimp-edit-clear text-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)

20
plug-ins/script-fu/scripts/chip-away.scm
View File

@ -57,22 +57,22 @@
(gimp-selection-all img) (gimp-selection-all img)
(if (= bg-fill TRUE) (if (= bg-fill TRUE)
(gimp-bucket-fill img bg-layer 2 NORMAL 100 255 FALSE 1 1) (gimp-bucket-fill bg-layer 2 NORMAL 100 255 FALSE 1 1)
(gimp-edit-fill img bg-layer)) (gimp-edit-fill bg-layer))
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-clear img bump-layer) (gimp-edit-clear bump-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-edit-fill img bump-layer) (gimp-edit-fill bump-layer)
(gimp-bucket-fill img text-layer 2 NORMAL 100 255 FALSE 1 1) (gimp-bucket-fill text-layer 2 NORMAL 100 255 FALSE 1 1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-image-add-layer img bump-layer 1) (gimp-image-add-layer img bump-layer 1)
(gimp-layer-set-preserve-trans bump-layer FALSE) (gimp-layer-set-preserve-trans bump-layer FALSE)
(plug-in-spread 1 img bump-layer spread-amount spread-amount) (plug-in-spread 1 img bump-layer spread-amount spread-amount)
(gimp-selection-layer-alpha img bump-layer) (gimp-selection-layer-alpha bump-layer)
(plug-in-gauss-rle 1 img bump-layer blur-amount TRUE TRUE) (plug-in-gauss-rle 1 img bump-layer blur-amount TRUE TRUE)
(gimp-selection-none img) (gimp-selection-none img)
@ -85,11 +85,11 @@
(begin (begin
(let* ((shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow layer" 100 NORMAL)))) (let* ((shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow layer" 100 NORMAL))))
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-clear img shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE) (plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE)
(gimp-image-add-layer img shadow-layer 1) (gimp-image-add-layer img shadow-layer 1)

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

@ -54,11 +54,11 @@
(define (copy-layer-chrome-it dest-image dest-drawable source-image source-drawable) (define (copy-layer-chrome-it dest-image dest-drawable source-image source-drawable)
(gimp-selection-all dest-image) (gimp-selection-all dest-image)
(gimp-edit-clear dest-image dest-drawable) (gimp-edit-clear dest-drawable)
(gimp-selection-none dest-image) (gimp-selection-none dest-image)
(gimp-selection-all source-image) (gimp-selection-all source-image)
(gimp-edit-copy source-image source-drawable) (gimp-edit-copy source-drawable)
(let ((floating-sel (car (gimp-edit-paste dest-image dest-drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE))))
(gimp-floating-sel-anchor floating-sel))) (gimp-floating-sel-anchor floating-sel)))
(define (script-fu-sota-chrome-it mask-img mask-drawable chrome-saturation (define (script-fu-sota-chrome-it mask-img mask-drawable chrome-saturation
@ -98,31 +98,31 @@
(gimp-image-add-layer img layer3 0) (gimp-image-add-layer img layer3 0)
(gimp-image-add-layer img layer2 0) (gimp-image-add-layer img layer2 0)
(gimp-edit-copy mask-img mask-drawable) (gimp-edit-copy mask-drawable)
(set! mask-fs (car (gimp-edit-paste img mask FALSE))) (set! mask-fs (car (gimp-edit-paste mask FALSE)))
(gimp-floating-sel-anchor mask-fs) (gimp-floating-sel-anchor mask-fs)
(if (= carve-white FALSE) (if (= carve-white FALSE)
(gimp-invert img mask)) (gimp-invert mask))
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-fill img layer2) (gimp-edit-fill layer2)
(gimp-edit-fill img layer3) (gimp-edit-fill layer3)
(gimp-edit-clear img shadow) (gimp-edit-clear shadow)
(gimp-layer-set-visible bg-layer FALSE) (gimp-layer-set-visible bg-layer FALSE)
(gimp-layer-set-visible shadow FALSE) (gimp-layer-set-visible shadow FALSE)
(gimp-selection-load img mask) (gimp-selection-load mask)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill img layer2) (gimp-edit-fill layer2)
(gimp-selection-translate img (* 2 offx2) (* 2 offy2)) (gimp-selection-translate img (* 2 offx2) (* 2 offy2))
(gimp-edit-fill img layer3) (gimp-edit-fill layer3)
(gimp-selection-none img) (gimp-selection-none img)
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert img layer2) (gimp-invert layer2)
(copy-layer-chrome-it img layer1 banding-img banding-layer) (copy-layer-chrome-it img layer1 banding-img banding-layer)
(gimp-image-delete banding-img) (gimp-image-delete banding-img)
@ -131,40 +131,40 @@
(plug-in-gauss-iir 1 img layer1 10 TRUE TRUE) (plug-in-gauss-iir 1 img layer1 10 TRUE TRUE)
(gimp-layer-set-opacity layer1 50) (gimp-layer-set-opacity layer1 50)
(set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-curves-spline img layer1 0 18 (spline-chrome-it)) (gimp-curves-spline layer1 0 18 (spline-chrome-it))
(set! layer-mask (car (gimp-layer-create-mask layer1 BLACK-MASK))) (set! layer-mask (car (gimp-layer-create-mask layer1 BLACK-MASK)))
(gimp-image-add-layer-mask img layer1 layer-mask) (gimp-image-add-layer-mask img layer1 layer-mask)
(gimp-selection-load img mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img layer-mask) (gimp-edit-fill layer-mask)
(set! layer2 (car (gimp-layer-copy layer1 TRUE))) (set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0) (gimp-image-add-layer img layer2 0)
(gimp-brushes-set-brush (brush brush-size)) (gimp-brushes-set-brush (brush brush-size))
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-edit-stroke img layer-mask) (gimp-edit-stroke layer-mask)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img (* feather 1.5)) (gimp-selection-feather img (* feather 1.5))
(gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1)) (gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1))
(gimp-edit-fill img shadow) (gimp-edit-fill shadow)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-patterns-set-pattern "Marble #1") (gimp-patterns-set-pattern "Marble #1")
(gimp-bucket-fill img bg-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill bg-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-convert-rgb img) (gimp-convert-rgb img)
(gimp-color-balance img layer1 0 TRUE (shadows (rval hc)) (shadows (gval hc)) (shadows (bval hc))) (gimp-color-balance layer1 0 TRUE (shadows (rval hc)) (shadows (gval hc)) (shadows (bval hc)))
(gimp-color-balance img layer1 1 TRUE (midtones (rval hc)) (midtones (gval hc)) (midtones (bval hc))) (gimp-color-balance layer1 1 TRUE (midtones (rval hc)) (midtones (gval hc)) (midtones (bval hc)))
(gimp-color-balance img layer1 2 TRUE (highlights (rval hc)) (highlights (gval hc)) (highlights (bval hc))) (gimp-color-balance layer1 2 TRUE (highlights (rval hc)) (highlights (gval hc)) (highlights (bval hc)))
(gimp-color-balance img layer2 0 TRUE (shadows (rval cc)) (shadows (gval cc)) (shadows (bval cc))) (gimp-color-balance layer2 0 TRUE (shadows (rval cc)) (shadows (gval cc)) (shadows (bval cc)))
(gimp-color-balance img layer2 1 TRUE (midtones (rval cc)) (midtones (gval cc)) (midtones (bval cc))) (gimp-color-balance layer2 1 TRUE (midtones (rval cc)) (midtones (gval cc)) (midtones (bval cc)))
(gimp-color-balance img layer2 2 TRUE (highlights (rval cc)) (highlights (gval cc)) (highlights (bval cc))) (gimp-color-balance layer2 2 TRUE (highlights (rval cc)) (highlights (gval cc)) (highlights (bval cc)))
(gimp-hue-saturation img layer2 0 0 chrome-lightness chrome-saturation) (gimp-hue-saturation layer2 0 0 chrome-lightness chrome-saturation)
(gimp-layer-set-visible shadow TRUE) (gimp-layer-set-visible shadow TRUE)
(gimp-layer-set-visible bg-layer TRUE) (gimp-layer-set-visible bg-layer TRUE)

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

@ -28,35 +28,35 @@
(gimp-image-add-layer img layer1 1) (gimp-image-add-layer img layer1 1)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-fill img layer1) (gimp-edit-fill layer1)
(gimp-edit-fill img layer2) (gimp-edit-fill layer2)
(gimp-edit-fill img layer3) (gimp-edit-fill layer3)
(gimp-edit-clear img shadow) (gimp-edit-clear shadow)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-layer-set-visible text-layer FALSE) (gimp-layer-set-visible text-layer FALSE)
(gimp-layer-set-visible shadow FALSE) (gimp-layer-set-visible shadow FALSE)
(gimp-layer-set-visible background FALSE) (gimp-layer-set-visible background FALSE)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img layer1) (gimp-edit-fill layer1)
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill img layer2) (gimp-edit-fill layer2)
(gimp-selection-translate img (* 2 offx2) (* 2 offy2)) (gimp-selection-translate img (* 2 offx2) (* 2 offy2))
(gimp-edit-fill img layer3) (gimp-edit-fill layer3)
(gimp-selection-none img) (gimp-selection-none img)
(set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert img layer1) (gimp-invert layer1)
(gimp-image-add-layer-mask img layer1 layer-mask) (gimp-image-add-layer-mask img layer1 layer-mask)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill img layer-mask) (gimp-edit-fill layer-mask)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-edit-fill img shadow) (gimp-edit-fill shadow)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img background) (gimp-edit-fill background)
(gimp-image-remove-layer img text-layer) (gimp-image-remove-layer img text-layer)
(gimp-layer-set-visible shadow TRUE) (gimp-layer-set-visible shadow TRUE)
(gimp-layer-set-visible background TRUE) (gimp-layer-set-visible background TRUE)

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

@ -49,7 +49,7 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
@ -75,11 +75,11 @@
(gimp-layer-set-offsets effect-layer select-offset-x select-offset-y) (gimp-layer-set-offsets effect-layer select-offset-x select-offset-y)
(gimp-image-add-layer image effect-layer -1) (gimp-image-add-layer image effect-layer -1)
(gimp-selection-none image) (gimp-selection-none image)
(gimp-edit-clear image effect-layer) (gimp-edit-clear effect-layer)
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-edit-copy image drawable) (gimp-edit-copy drawable)
(let ((floating-sel (car (gimp-edit-paste image effect-layer FALSE)))) (let ((floating-sel (car (gimp-edit-paste effect-layer FALSE))))
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
(gimp-image-set-active-layer image effect-layer ))) (gimp-image-set-active-layer image effect-layer )))
@ -91,18 +91,17 @@
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-foreground '(14 14 14)))) (gimp-palette-set-foreground '(14 14 14))))
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(plug-in-maze 1 image active-layer 5 5 TRUE 0 seed 57 1) (plug-in-maze 1 image active-layer 5 5 TRUE 0 seed 57 1)
(plug-in-oilify 1 image active-layer mask-size 0) (plug-in-oilify 1 image active-layer mask-size 0)
(plug-in-edge 1 image active-layer 2 1) (plug-in-edge 1 image active-layer 2 1)
(gimp-desaturate image active-layer) (gimp-desaturate active-layer)
(if (and (if (and
(= remove-bg TRUE) (= remove-bg TRUE)
(= seperate-layer TRUE) (= seperate-layer TRUE)
(begin (begin
(gimp-by-color-select (gimp-by-color-select
image
active-layer active-layer
'(0 0 0) '(0 0 0)
15 15
@ -111,7 +110,7 @@
FALSE FALSE
10 10
FALSE) FALSE)
(gimp-edit-clear image active-layer)))) (gimp-edit-clear active-layer))))
(gimp-gradients-set-active old-gradient) (gimp-gradients-set-active old-gradient)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)

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

@ -13,7 +13,7 @@
(layer-one (car (gimp-layer-new img width height RGB "X Dots" 100 NORMAL)))) (layer-one (car (gimp-layer-new img width height RGB "X Dots" 100 NORMAL))))
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
(gimp-edit-fill img layer-one) (gimp-edit-fill layer-one)
; (gimp-edit-fill img layer-two) ; (gimp-edit-fill img layer-two)
(gimp-image-add-layer img layer-one 0) (gimp-image-add-layer img layer-one 0)

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

@ -36,7 +36,7 @@
(gimp-image-add-layer theImage theStain 0) (gimp-image-add-layer theImage theStain 0)
(gimp-selection-all theImage) (gimp-selection-all theImage)
(gimp-edit-clear theImage theStain) (gimp-edit-clear theStain)
(let ((blobSize (/ (rand (- theSize 40)) (+ (rand 3) 1) ) ) ) (let ((blobSize (/ (rand (- theSize 40)) (+ (rand 3) 1) ) ) )
(gimp-ellipse-select theImage (gimp-ellipse-select theImage
(/ (- theSize blobSize) 2) (/ (- theSize blobSize) 2)
@ -45,7 +45,7 @@
) )
(script-fu-distress-selection theImage theStain (* (+ (rand 15) 1) (+ (rand 15) 1)) (/ theSize 25) 4 2 TRUE TRUE ) (script-fu-distress-selection theImage theStain (* (+ (rand 15) 1) (+ (rand 15) 1)) (/ theSize 25) 4 2 TRUE TRUE )
(gimp-gradients-set-active "Coffee") (gimp-gradients-set-active "Coffee")
(gimp-blend theImage theStain CUSTOM NORMAL SHAPEBURST-DIMPLED 100 0 REPEAT-NONE FALSE 0 0 0 0 0 0) (gimp-blend theStain CUSTOM NORMAL SHAPEBURST-DIMPLED 100 0 REPEAT-NONE FALSE 0 0 0 0 0 0)
(gimp-layer-set-offsets theStain (- (rand theWidth) (/ theSize 2)) (- (rand theHeight) (/ theSize 2)) theSize) (gimp-layer-set-offsets theStain (- (rand theWidth) (/ theSize 2)) (- (rand theHeight) (/ theSize 2)) theSize)
) )
(gimp-selection-none theImage) (gimp-selection-none theImage)

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

@ -39,13 +39,13 @@
(gimp-layer-set-name black-layer "Black") (gimp-layer-set-name black-layer "Black")
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans white-layer TRUE) (gimp-layer-set-preserve-trans white-layer TRUE)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill img white-layer) (gimp-edit-fill white-layer)
(gimp-layer-set-preserve-trans white-layer FALSE) (gimp-layer-set-preserve-trans white-layer FALSE)
(plug-in-spread 1 img white-layer (* 3 ol-width) (* 3 ol-width)) (plug-in-spread 1 img white-layer (* 3 ol-width) (* 3 ol-width))
(plug-in-gauss-rle 1 img white-layer (* 2 ol-width) 1 1) (plug-in-gauss-rle 1 img white-layer (* 2 ol-width) 1 1)
@ -55,7 +55,7 @@
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-layer-set-preserve-trans black-layer TRUE) (gimp-layer-set-preserve-trans black-layer TRUE)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill img black-layer) (gimp-edit-fill black-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans black-layer FALSE) (gimp-layer-set-preserve-trans black-layer FALSE)
(plug-in-gauss-rle 1 img black-layer ol-width 1 1) (plug-in-gauss-rle 1 img black-layer ol-width 1 1)
@ -64,11 +64,11 @@
(gimp-gradients-set-active gradient) (gimp-gradients-set-active gradient)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-blend img text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 (* 2 border) 0 (- height border)) (gimp-blend text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 (* 2 border) 0 (- height border))
(plug-in-noisify 1 img text-layer 0 0.20 0.20 0.20 0.20) (plug-in-noisify 1 img text-layer 0 0.20 0.20 0.20 0.20)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer FALSE) (gimp-layer-set-preserve-trans text-layer FALSE)
(gimp-brightness-contrast img text-layer 0 30) (gimp-brightness-contrast text-layer 0 30)
(plug-in-threshold-alpha 1 img text-layer 60) (plug-in-threshold-alpha 1 img text-layer 60)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)
(gimp-image-set-active-layer img text-layer) (gimp-image-set-active-layer img text-layer)

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

@ -34,15 +34,15 @@
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img reflect-layer) (gimp-edit-clear reflect-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(if (= seascape 1) (if (= seascape 1)
(gimp-gradients-set-active "Horizon_2") (gimp-gradients-set-active "Horizon_2")
(gimp-gradients-set-active "Horizon_1")) (gimp-gradients-set-active "Horizon_1"))
(gimp-blend img text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5)) (gimp-blend text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 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) REPLACE 0 0)
(plug-in-gauss-iir 1 img text-layer smear TRUE TRUE) (plug-in-gauss-iir 1 img text-layer smear TRUE TRUE)
(gimp-selection-none img) (gimp-selection-none img)
@ -50,23 +50,23 @@
(gimp-layer-translate text-layer 5 5) (gimp-layer-translate text-layer 5 5)
(gimp-layer-resize text-layer img-width img-height 5 5) (gimp-layer-resize text-layer img-width img-height 5 5)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(set! channel (car (gimp-selection-save img))) (set! channel (car (gimp-selection-save img)))
(gimp-selection-shrink img shrink) (gimp-selection-shrink img shrink)
(gimp-selection-invert img) (gimp-selection-invert img)
(plug-in-gauss-rle 1 img channel feather TRUE TRUE) (plug-in-gauss-rle 1 img channel feather TRUE TRUE)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img channel) (gimp-edit-fill channel)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-bump-map 1 img text-layer channel 135 45 depth 0 0 0 0 FALSE FALSE 0) (plug-in-bump-map 1 img text-layer channel 135 45 depth 0 0 0 0 FALSE FALSE 0)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(set! fs (car (gimp-selection-float img shadow-layer 0 0))) (set! fs (car (gimp-selection-float shadow-layer 0 0)))
(gimp-edit-clear img shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-perspective img fs FALSE (gimp-perspective fs FALSE
(+ 5 (* 0.15 height)) (- height (* 0.15 height)) (+ 5 (* 0.15 height)) (- height (* 0.15 height))
(+ 5 width (* 0.15 height)) (- height (* 0.15 height)) (+ 5 width (* 0.15 height)) (- height (* 0.15 height))
5 height 5 height
@ -75,18 +75,18 @@
(plug-in-gauss-rle 1 img shadow-layer smear TRUE TRUE) (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 REPLACE FALSE 0)
(gimp-edit-copy img text-layer) (gimp-edit-copy text-layer)
(set! fs (car (gimp-edit-paste img reflect-layer FALSE))) (set! fs (car (gimp-edit-paste reflect-layer FALSE)))
(gimp-floating-sel-anchor fs) (gimp-floating-sel-anchor fs)
(gimp-scale img reflect-layer FALSE 0 0 width (* 0.85 height)) (gimp-scale reflect-layer FALSE 0 0 width (* 0.85 height))
(gimp-flip img reflect-layer 1) (gimp-flip reflect-layer 1)
(gimp-layer-set-offsets reflect-layer 5 (+ 3 height)) (gimp-layer-set-offsets reflect-layer 5 (+ 3 height))
(set! layer-mask (car (gimp-layer-create-mask reflect-layer WHITE-MASK))) (set! layer-mask (car (gimp-layer-create-mask reflect-layer WHITE-MASK)))
(gimp-image-add-layer-mask img reflect-layer layer-mask) (gimp-image-add-layer-mask img reflect-layer layer-mask)
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-blend img layer-mask FG-BG-RGB NORMAL LINEAR 100 0 REPEAT-NONE (gimp-blend layer-mask FG-BG-RGB NORMAL LINEAR 100 0 REPEAT-NONE
FALSE 0 0 0 (- (/ height 2)) 0 height) FALSE 0 0 0 (- (/ height 2)) 0 height)
(gimp-image-remove-channel img channel) (gimp-image-remove-channel img channel)

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

@ -55,7 +55,7 @@
(if (> num-visi-layers 0) (if (> num-visi-layers 0)
(begin (begin
(gimp-edit-copy image merged-layer) (gimp-edit-copy merged-layer)
(gimp-image-remove-layer image merged-layer))) (gimp-image-remove-layer image merged-layer)))
; restore the layers visibilty ; restore the layers visibilty

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

@ -52,11 +52,11 @@
(define (copy-layer-crystal dest-image dest-drawable source-image source-drawable) (define (copy-layer-crystal dest-image dest-drawable source-image source-drawable)
(gimp-selection-all dest-image) (gimp-selection-all dest-image)
(gimp-edit-clear dest-image dest-drawable) (gimp-edit-clear dest-drawable)
(gimp-selection-none dest-image) (gimp-selection-none dest-image)
(gimp-selection-all source-image) (gimp-selection-all source-image)
(gimp-edit-copy source-image source-drawable) (gimp-edit-copy source-drawable)
(let ((floating-sel (car (gimp-edit-paste dest-image dest-drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE))))
(gimp-floating-sel-anchor floating-sel))) (gimp-floating-sel-anchor floating-sel)))
(define (script-fu-crystal-logo chrome-factor text size font bg-img env-map) (define (script-fu-crystal-logo chrome-factor text size font bg-img env-map)
@ -103,20 +103,20 @@
(gimp-image-add-layer img layer2 0) (gimp-image-add-layer img layer2 0)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-fill img layer2) (gimp-edit-fill layer2)
(gimp-edit-fill img layer3) (gimp-edit-fill layer3)
(gimp-layer-set-visible text-layer FALSE) (gimp-layer-set-visible text-layer FALSE)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill img layer2) (gimp-edit-fill layer2)
(gimp-selection-translate img (* 2 offx2) (* 2 offy2)) (gimp-selection-translate img (* 2 offx2) (* 2 offy2))
(gimp-edit-fill img layer3) (gimp-edit-fill layer3)
(gimp-selection-none img) (gimp-selection-none img)
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert img layer2) (gimp-invert layer2)
(copy-layer-crystal img layer1 banding-img banding-layer) (copy-layer-crystal img layer1 banding-img banding-layer)
(gimp-image-delete banding-img) (gimp-image-delete banding-img)
@ -125,22 +125,22 @@
(plug-in-gauss-iir 1 img layer1 10 TRUE TRUE) (plug-in-gauss-iir 1 img layer1 10 TRUE TRUE)
(gimp-layer-set-opacity layer1 50) (gimp-layer-set-opacity layer1 50)
(set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-curves-spline img layer1 0 18 (spline1)) (gimp-curves-spline layer1 0 18 (spline1))
(set! layer-mask (car (gimp-layer-create-mask layer1 BLACK-MASK))) (set! layer-mask (car (gimp-layer-create-mask layer1 BLACK-MASK)))
(gimp-image-add-layer-mask img layer1 layer-mask) (gimp-image-add-layer-mask img layer1 layer-mask)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img layer-mask) (gimp-edit-fill layer-mask)
(set! disp-map (car (gimp-selection-save img))) (set! disp-map (car (gimp-selection-save img)))
(gimp-brushes-set-brush (crystal-brush brush-size)) (gimp-brushes-set-brush (crystal-brush brush-size))
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(gimp-edit-stroke img disp-map) (gimp-edit-stroke disp-map)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-gauss-rle 1 img disp-map blur TRUE TRUE) (plug-in-gauss-rle 1 img disp-map blur TRUE TRUE)
(gimp-levels img disp-map 0 0 255 1.0 96 255) (gimp-levels disp-map 0 0 255 1.0 96 255)
(if (= (car (gimp-drawable-color bg-layer)) 1) (if (= (car (gimp-drawable-color bg-layer)) 1)
(gimp-convert-rgb img)) (gimp-convert-rgb img))
@ -156,18 +156,18 @@
(plug-in-displace 1 img layer2 displace displace TRUE TRUE disp-map disp-map 0) (plug-in-displace 1 img layer2 displace displace TRUE TRUE disp-map disp-map 0)
(set! layer-mask2 (car (gimp-layer-create-mask layer2 BLACK-MASK))) (set! layer-mask2 (car (gimp-layer-create-mask layer2 BLACK-MASK)))
(gimp-image-add-layer-mask img layer2 layer-mask2) (gimp-image-add-layer-mask img layer2 layer-mask2)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img layer-mask2) (gimp-edit-fill layer-mask2)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-levels img layer2 0 0 200 1.5 50 255) (gimp-levels layer2 0 0 200 1.5 50 255)
(gimp-layer-set-mode layer1 OVERLAY) (gimp-layer-set-mode layer1 OVERLAY)
(plug-in-gauss-rle 1 img text-layer blur TRUE TRUE) (plug-in-gauss-rle 1 img text-layer blur TRUE TRUE)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-layer-set-mode text-layer OVERLAY) (gimp-layer-set-mode text-layer OVERLAY)
(gimp-layer-translate text-layer offx1 offy1) (gimp-layer-translate text-layer offx1 offy1)

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

@ -49,12 +49,12 @@
(gimp-image-add-layer theImage theLayer 0) (gimp-image-add-layer theImage theLayer 0)
(if (= TRUE (car (gimp-selection-is-empty theImage))) (if (= TRUE (car (gimp-selection-is-empty theImage)))
() ()
(gimp-edit-fill theImage theLayer) (gimp-edit-fill theLayer)
) )
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(if (= TRUE (car (gimp-selection-is-empty theImage))) (if (= TRUE (car (gimp-selection-is-empty theImage)))
() ()
(gimp-edit-clear theImage theLayer) (gimp-edit-clear theLayer)
) )
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(gimp-selection-none inImage) (gimp-selection-none inImage)
@ -76,7 +76,7 @@
(gimp-layer-scale theLayer theWidth theHeight TRUE) (gimp-layer-scale theLayer theWidth theHeight TRUE)
(plug-in-threshold-alpha TRUE theImage theLayer inThreshold) (plug-in-threshold-alpha TRUE theImage theLayer inThreshold)
(plug-in-gauss-iir TRUE theImage theLayer 1 TRUE TRUE) (plug-in-gauss-iir TRUE theImage theLayer 1 TRUE TRUE)
(gimp-selection-layer-alpha theImage theLayer) (gimp-selection-layer-alpha theLayer)
(gimp-image-remove-layer theImage theLayer) (gimp-image-remove-layer theImage theLayer)
; (gimp-layer-delete theLayer) ; (gimp-layer-delete theLayer)
(gimp-image-enable-undo theImage) (gimp-image-enable-undo theImage)

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

@ -49,12 +49,12 @@
(gimp-image-add-layer theImage theLayer 0) (gimp-image-add-layer theImage theLayer 0)
(if (= TRUE (car (gimp-selection-is-empty theImage))) (if (= TRUE (car (gimp-selection-is-empty theImage)))
() ()
(gimp-edit-fill theImage theLayer) (gimp-edit-fill theLayer)
) )
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(if (= TRUE (car (gimp-selection-is-empty theImage))) (if (= TRUE (car (gimp-selection-is-empty theImage)))
() ()
(gimp-edit-clear theImage theLayer) (gimp-edit-clear theLayer)
) )
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(gimp-selection-none inImage) (gimp-selection-none inImage)
@ -76,7 +76,7 @@
(gimp-layer-scale theLayer theWidth theHeight TRUE) (gimp-layer-scale theLayer theWidth theHeight TRUE)
(plug-in-threshold-alpha TRUE theImage theLayer inThreshold) (plug-in-threshold-alpha TRUE theImage theLayer inThreshold)
(plug-in-gauss-iir TRUE theImage theLayer 1 TRUE TRUE) (plug-in-gauss-iir TRUE theImage theLayer 1 TRUE TRUE)
(gimp-selection-layer-alpha theImage theLayer) (gimp-selection-layer-alpha theLayer)
(gimp-image-remove-layer theImage theLayer) (gimp-image-remove-layer theImage theLayer)
; (gimp-layer-delete theLayer) ; (gimp-layer-delete theLayer)
(gimp-image-enable-undo theImage) (gimp-image-enable-undo theImage)

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

@ -58,7 +58,7 @@
(gimp-layer-add-alpha drawable) (gimp-layer-add-alpha drawable)
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
(set! from-selection TRUE) (set! from-selection TRUE)
@ -126,7 +126,7 @@
(gimp-drawable-fill shadow-layer TRANS-IMAGE-FILL) (gimp-drawable-fill shadow-layer TRANS-IMAGE-FILL)
(gimp-palette-set-background shadow-color) (gimp-palette-set-background shadow-color)
(gimp-edit-fill image shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none image) (gimp-selection-none image)
(gimp-layer-set-preserve-trans shadow-layer FALSE) (gimp-layer-set-preserve-trans shadow-layer FALSE)
(if (> shadow-blur 0) (plug-in-gauss-rle 1 (if (> shadow-blur 0) (plug-in-gauss-rle 1
@ -140,8 +140,8 @@
(if (= from-selection TRUE) (if (= from-selection TRUE)
(begin (begin
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-edit-clear image shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-image-remove-channel image active-selection))) (gimp-image-remove-channel image active-selection)))
(if (and (if (and

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

@ -8,7 +8,7 @@
(if (eq? orientation 'rows) (if (eq? orientation 'rows)
(gimp-rect-select img 0 i width 1 REPLACE FALSE 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 i 0 1 height REPLACE FALSE 0))
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(loop (+ i 2) max)))))) (loop (+ i 2) max))))))
(loop (if (eq? which 'even) (loop (if (eq? which 'even)
0 0

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

@ -75,7 +75,7 @@
(if (= (car (gimp-selection-is-empty inImage)) TRUE) (if (= (car (gimp-selection-is-empty inImage)) TRUE)
(begin (begin
(set! l-has-selection FALSE) (set! l-has-selection FALSE)
(gimp-selection-layer-alpha inImage inLayer) (gimp-selection-layer-alpha inLayer)
) )
) )
@ -100,7 +100,7 @@
) )
) )
(gimp-palette-set-background (list (/ l-gray 100) (/ l-gray 100) (/ l-gray 100))) (gimp-palette-set-background (list (/ l-gray 100) (/ l-gray 100) (/ l-gray 100)))
(gimp-edit-fill inImage l-mask) (gimp-edit-fill l-mask)
(set! l-idx (+ l-idx 1)) (set! l-idx (+ l-idx 1))
(set! l-gray (+ l-gray l-step)) (set! l-gray (+ l-gray l-step))
(gimp-selection-shrink inImage 1) (gimp-selection-shrink inImage 1)

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

@ -47,7 +47,7 @@
"Font List" 100 NORMAL)))) "Font List" 100 NORMAL))))
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(while font-list (while font-list
(set! font (car font-list)) (set! font (car font-list))

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

@ -27,44 +27,44 @@
(gimp-image-add-layer img shadow-layer 4) (gimp-image-add-layer img shadow-layer 4)
(gimp-image-add-layer img bg-layer 5) (gimp-image-add-layer img bg-layer 5)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-clear img sparkle-layer) (gimp-edit-clear sparkle-layer)
(gimp-edit-clear img matte-layer) (gimp-edit-clear matte-layer)
(gimp-edit-clear img shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(set! selection (car (gimp-selection-save img))) (set! selection (car (gimp-selection-save img)))
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img sparkle-layer) (gimp-edit-fill sparkle-layer)
(plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0) (plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
(plug-in-c-astretch 1 img sparkle-layer) (plug-in-c-astretch 1 img sparkle-layer)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-sparkle 1 img sparkle-layer 0.03 0.45 (/ (min width height) 2) 6 15) (plug-in-sparkle 1 img sparkle-layer 0.03 0.45 (/ (min width height) 2) 6 15)
(gimp-levels img sparkle-layer 1 0 255 0.2 0 255) (gimp-levels sparkle-layer 1 0 255 0.2 0 255)
(gimp-levels img sparkle-layer 2 0 255 0.7 0 255) (gimp-levels sparkle-layer 2 0 255 0.7 0 255)
(gimp-selection-layer-alpha img sparkle-layer) (gimp-selection-layer-alpha sparkle-layer)
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(gimp-brushes-set-brush "Circle Fuzzy (11)") (gimp-brushes-set-brush "Circle Fuzzy (11)")
(gimp-edit-stroke img matte-layer) (gimp-edit-stroke matte-layer)
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-image-add-layer-mask img text-layer text-layer-mask) (gimp-image-add-layer-mask img text-layer text-layer-mask)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img text-layer-mask) (gimp-edit-fill text-layer-mask)
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-selection-translate img (/ border 2) (/ border 2)) (gimp-selection-translate img (/ border 2) (/ border 2))
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-image-remove-layer-mask img text-layer 0) (gimp-image-remove-layer-mask img text-layer 0)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)") (gimp-brushes-set-brush "Circle Fuzzy (07)")
(gimp-brushes-set-paint-mode BEHIND) (gimp-brushes-set-paint-mode BEHIND)
(gimp-palette-set-foreground '(186 241 255)) (gimp-palette-set-foreground '(186 241 255))
(gimp-edit-stroke img text-layer) (gimp-edit-stroke text-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-image-remove-channel img selection) (gimp-image-remove-channel img selection)
(gimp-palette-set-foreground old-fg) (gimp-palette-set-foreground old-fg)

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

@ -60,7 +60,7 @@
(gimp-image-add-layer theImage theLayer 0) (gimp-image-add-layer theImage theLayer 0)
(gimp-edit-clear theImage theLayer) (gimp-edit-clear theLayer)
(chris-color-edge theImage theLayer inColor inSize) (chris-color-edge theImage theLayer inColor inSize)
(gimp-layer-scale theLayer (gimp-layer-scale theLayer
@ -78,13 +78,13 @@
(chris-color-edge theImage theLayer inColor 1) (chris-color-edge theImage theLayer inColor 1)
(gimp-layer-scale theLayer theWidth theHeight TRUE) (gimp-layer-scale theLayer theWidth theHeight TRUE)
(gimp-selection-layer-alpha theImage theLayer) (gimp-selection-layer-alpha theLayer)
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(gimp-edit-clear theImage theLayer) (gimp-edit-clear theLayer)
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(gimp-edit-clear theImage theLayer) (gimp-edit-clear theLayer)
(gimp-palette-set-background inColor) (gimp-palette-set-background inColor)
(gimp-edit-fill theImage theLayer) (gimp-edit-fill theLayer)
(gimp-selection-none inImage) (gimp-selection-none inImage)
(chris-color-edge theImage theLayer inColor 1) (chris-color-edge theImage theLayer inColor 1)
@ -103,9 +103,9 @@
0 0
) )
(gimp-layer-scale theLayer (- theWidth inSize) (- theHeight inSize) TRUE) (gimp-layer-scale theLayer (- theWidth inSize) (- theHeight inSize) TRUE)
(gimp-desaturate theImage theLayer) (gimp-desaturate theLayer)
(gimp-brightness-contrast theImage theLayer 127 127) (gimp-brightness-contrast theLayer 127 127)
(gimp-invert theImage theLayer) (gimp-invert theLayer)
(gimp-layer-resize theLayer (gimp-layer-resize theLayer
theWidth theWidth
theHeight theHeight
@ -140,7 +140,7 @@
(gimp-selection-shrink inImage inSize) (gimp-selection-shrink inImage inSize)
(gimp-selection-invert inImage) (gimp-selection-invert inImage)
(gimp-palette-set-background inColor) (gimp-palette-set-background inColor)
(gimp-edit-fill theImage theLayer) (gimp-edit-fill theLayer)
(gimp-selection-none inImage) (gimp-selection-none inImage)
) )

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

@ -46,10 +46,10 @@
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background text-color) (gimp-palette-set-background text-color)
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(let* ((highlight-layer (car (gimp-layer-copy text-layer TRUE))) (let* ((highlight-layer (car (gimp-layer-copy text-layer TRUE)))
(side-layer (car (gimp-layer-copy text-layer TRUE))) (side-layer (car (gimp-layer-copy text-layer TRUE)))
@ -65,15 +65,15 @@
(gimp-layer-set-preserve-trans shadow-layer TRUE) (gimp-layer-set-preserve-trans shadow-layer TRUE)
(gimp-palette-set-background high-color) (gimp-palette-set-background high-color)
(gimp-edit-fill img highlight-layer) (gimp-edit-fill highlight-layer)
(gimp-layer-translate highlight-layer -1 -1) (gimp-layer-translate highlight-layer -1 -1)
(gimp-palette-set-background side-color) (gimp-palette-set-background side-color)
(gimp-edit-fill img side-layer) (gimp-edit-fill side-layer)
(gimp-layer-translate side-layer 1 1) (gimp-layer-translate side-layer 1 1)
(gimp-palette-set-background shadow-color) (gimp-palette-set-background shadow-color)
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-layer-translate shadow-layer 5 5) (gimp-layer-translate shadow-layer 5 5)
(gimp-layer-set-preserve-trans shadow-layer FALSE) (gimp-layer-set-preserve-trans shadow-layer FALSE)
@ -89,9 +89,9 @@
(if (= rm-bg TRUE) (if (= rm-bg TRUE)
(begin (begin
(gimp-by-color-select img text-layer '(255 255 255) (gimp-by-color-select text-layer '(255 255 255)
1 REPLACE TRUE FALSE 0 FALSE) 1 REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear img text-layer) (gimp-edit-clear text-layer)
(gimp-selection-clear img))) (gimp-selection-clear img)))
(if (= crop TRUE) (if (= crop TRUE)

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

@ -50,13 +50,13 @@
(gimp-layer-set-preserve-trans shadow-layer TRUE) (gimp-layer-set-preserve-trans shadow-layer TRUE)
(gimp-palette-set-background text-color) (gimp-palette-set-background text-color)
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-palette-set-background shadow-color) (gimp-palette-set-background shadow-color)
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-layer-translate shadow-layer 1 1) (gimp-layer-translate shadow-layer 1 1)
(set! text-layer (car (gimp-image-flatten img))) (set! text-layer (car (gimp-image-flatten img)))
@ -64,9 +64,9 @@
(if (= rm-bg TRUE) (if (= rm-bg TRUE)
(begin (begin
(gimp-by-color-select img text-layer bg-color (gimp-by-color-select text-layer bg-color
color-thresh REPLACE TRUE FALSE 0 FALSE) color-thresh REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear img text-layer) (gimp-edit-clear text-layer)
(gimp-selection-clear img))) (gimp-selection-clear img)))
(if (= index TRUE) (if (= index TRUE)

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

@ -44,11 +44,11 @@
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-bucket-fill img bg-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill bg-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
; if we are going to use transparent gradients for text, we will (maybe) need to uncomment this ; if we are going to use transparent gradients for text, we will (maybe) need to uncomment this
; this clears black letters first so you don't end up with black where the transparent should be ; this clears black letters first so you don't end up with black where the transparent should be
@ -57,17 +57,17 @@
(if (= use-pattern-text TRUE) (if (= use-pattern-text TRUE)
(begin (begin
(gimp-patterns-set-pattern pattern-text) (gimp-patterns-set-pattern pattern-text)
(gimp-bucket-fill img text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-patterns-set-pattern old-patterns))) (gimp-patterns-set-pattern old-patterns)))
(if (= use-pattern-text FALSE) (if (= use-pattern-text FALSE)
(begin (begin
(gimp-gradients-set-active blend-gradient-text) (gimp-gradients-set-active blend-gradient-text)
(gimp-blend img text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5)))) (gimp-blend text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5))))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-selection-layer-alpha img grow-me) (gimp-selection-layer-alpha grow-me)
(gimp-selection-grow img grow-size) (gimp-selection-grow img grow-size)
; if we are going to use transparent gradients for outline, we will (maybe) need to uncomment this ; if we are going to use transparent gradients for outline, we will (maybe) need to uncomment this
@ -78,13 +78,13 @@
(if (= use-pattern-outline TRUE) (if (= use-pattern-outline TRUE)
(begin (begin
(gimp-patterns-set-pattern pattern-outline) (gimp-patterns-set-pattern pattern-outline)
(gimp-bucket-fill img grow-me PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill grow-me PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-patterns-set-pattern old-patterns))) (gimp-patterns-set-pattern old-patterns)))
(if (= use-pattern-outline FALSE) (if (= use-pattern-outline FALSE)
(begin (begin
(gimp-gradients-set-active blend-gradient-outline) (gimp-gradients-set-active blend-gradient-outline)
(gimp-blend img grow-me CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5)))) (gimp-blend grow-me CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5))))
(gimp-selection-none img) (gimp-selection-none img)
@ -93,15 +93,15 @@
(if (= use-pattern-overlay TRUE) (if (= use-pattern-overlay TRUE)
(begin (begin
(gimp-selection-layer-alpha img grow-me) (gimp-selection-layer-alpha grow-me)
(gimp-patterns-set-pattern pattern-overlay) (gimp-patterns-set-pattern pattern-overlay)
(gimp-bucket-fill img grow-me PATTERN-BUCKET-FILL OVERLAY 100 0 FALSE 0 0) (gimp-bucket-fill grow-me PATTERN-BUCKET-FILL OVERLAY 100 0 FALSE 0 0)
(gimp-patterns-set-pattern old-patterns) (gimp-patterns-set-pattern old-patterns)
(gimp-selection-none img))) (gimp-selection-none img)))
(if (= shadow-toggle TRUE) (if (= shadow-toggle TRUE)
(begin (begin
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(set! dont-drop-me (car (script-fu-drop-shadow img text-layer s-offset-x s-offset-y 15 '(0 0 0) 80 TRUE))) (set! dont-drop-me (car (script-fu-drop-shadow img text-layer s-offset-x s-offset-y 15 '(0 0 0) 80 TRUE)))
(set! width (car (gimp-image-width img))) (set! width (car (gimp-image-width img)))
(set! height (car (gimp-image-height img))) (set! height (car (gimp-image-height img)))

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

@ -22,29 +22,29 @@
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-selection-feather img feather1) (gimp-selection-feather img feather1)
(gimp-palette-set-background '(221 0 0)) (gimp-palette-set-background '(221 0 0))
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-selection-feather img feather2) (gimp-selection-feather img feather2)
(gimp-palette-set-background '(232 217 18)) (gimp-palette-set-background '(232 217 18))
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-selection-feather img feather3) (gimp-selection-feather img feather3)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)

14
plug-ins/script-fu/scripts/gradient-bevel-logo.scm
View File

@ -37,31 +37,31 @@
(gimp-image-add-layer img blur-layer 1) (gimp-image-add-layer img blur-layer 1)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer TRUE) (gimp-layer-set-preserve-trans blur-layer TRUE)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill img blur-layer) (gimp-edit-fill blur-layer)
(gimp-edit-clear img blur-layer) (gimp-edit-clear blur-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer FALSE) (gimp-layer-set-preserve-trans blur-layer FALSE)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-edit-fill img blur-layer) (gimp-edit-fill blur-layer)
(plug-in-gauss-rle 1 img blur-layer bevel-width 1 1) (plug-in-gauss-rle 1 img blur-layer bevel-width 1 1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background '(127 127 127)) (gimp-palette-set-background '(127 127 127))
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-blend img text-layer FG-BG-RGB NORMAL RADIAL 95 0 REPEAT-NONE FALSE 0 0 indentX indentY indentX (- height indentY)) (gimp-blend text-layer FG-BG-RGB NORMAL RADIAL 95 0 REPEAT-NONE FALSE 0 0 indentX indentY indentX (- height indentY))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer FALSE) (gimp-layer-set-preserve-trans text-layer FALSE)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)
(plug-in-bump-map 1 img text-layer blur-layer 115 bevel-height 5 0 0 0 15 TRUE FALSE 0) (plug-in-bump-map 1 img text-layer blur-layer 115 bevel-height 5 0 0 0 15 TRUE FALSE 0)
(gimp-layer-set-offsets blur-layer 5 5) (gimp-layer-set-offsets blur-layer 5 5)
(gimp-invert img blur-layer) (gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0) (gimp-layer-set-opacity blur-layer 50.0)
(gimp-image-set-active-layer img text-layer) (gimp-image-set-active-layer img text-layer)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)

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

@ -44,7 +44,7 @@
; Render gradient ; Render gradient
(gimp-blend img drawable CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 (- width 1) 0) (gimp-blend drawable CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 (- width 1) 0)
; Terminate ; Terminate

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

@ -47,7 +47,7 @@
(set! total-step-y (apply + y-divides)) (set! total-step-y (apply + y-divides))
;(gimp-undo-push-group-start img) ;(gimp-undo-push-group-start img)
(set! grid-layer (car (gimp-layer-copy drw TRUE))) (set! grid-layer (car (gimp-layer-copy drw TRUE)))
(gimp-edit-clear img grid-layer) (gimp-edit-clear grid-layer)
(gimp-layer-set-name grid-layer "grid layer") (gimp-layer-set-name grid-layer "grid layer")
(while (not (null? (cdr x-divides))) (while (not (null? (cdr x-divides)))
(set! stepped-x (+ stepped-x (car x-divides))) (set! stepped-x (+ stepped-x (car x-divides)))
@ -56,7 +56,7 @@
(update-segment! segment (update-segment! segment
(+ drw-offset-x temp) drw-offset-y (+ drw-offset-x temp) drw-offset-y
(+ drw-offset-x temp) (+ drw-offset-y drw-height)) (+ drw-offset-x temp) (+ drw-offset-y drw-height))
(gimp-pencil img grid-layer 4 segment)) (gimp-pencil grid-layer 4 segment))
(while (not (null? (cdr y-divides))) (while (not (null? (cdr y-divides)))
(set! stepped-y (+ stepped-y (car y-divides))) (set! stepped-y (+ stepped-y (car y-divides)))
(set! temp (* drw-height (/ stepped-y total-step-y))) (set! temp (* drw-height (/ stepped-y total-step-y)))
@ -64,7 +64,7 @@
(update-segment! segment (update-segment! segment
drw-offset-x (+ drw-offset-y temp) drw-offset-x (+ drw-offset-y temp)
(+ drw-offset-x drw-width) (+ drw-offset-y temp)) (+ drw-offset-x drw-width) (+ drw-offset-y temp))
(gimp-pencil img grid-layer 4 segment)) (gimp-pencil grid-layer 4 segment))
(gimp-image-add-layer img grid-layer 0) (gimp-image-add-layer img grid-layer 0)
;(gimp-undo-push-group-end img) ;(gimp-undo-push-group-end img)
(set! script-fu-grid-system-x-divides (wrap-list x-divides-orig)) (set! script-fu-grid-system-x-divides (wrap-list x-divides-orig))

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

@ -31,7 +31,7 @@
fvec) fvec)
(define (plot-dot img drawable x y) (define (plot-dot img drawable x y)
(gimp-pencil img drawable 1 (set-point! *pos* 0 x y))) (gimp-pencil drawable 1 (set-point! *pos* 0 x y)))
(define (rgb-to-hsv rgb hsv) (define (rgb-to-hsv rgb hsv)
(let* ((red (floor (nth 0 rgb))) (let* ((red (floor (nth 0 rgb)))
@ -121,7 +121,7 @@
(define (draw-segment img drawable segment limit rgb) (define (draw-segment img drawable segment limit rgb)
(gimp-palette-set-foreground rgb) (gimp-palette-set-foreground rgb)
(gimp-airbrush img drawable 100 (* 2 limit) (segment-strokes segment))) (gimp-airbrush drawable 100 (* 2 limit) (segment-strokes segment)))
(define red-color '(255 10 10)) (define red-color '(255 10 10))
(define green-color '(10 255 10)) (define green-color '(10 255 10))
@ -145,7 +145,7 @@
(define (fill-color-band img drawable x scale x-base y-base color) (define (fill-color-band img drawable x scale x-base y-base color)
(gimp-palette-set-foreground 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 REPLACE FALSE 0)
(gimp-bucket-fill img drawable FG-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill drawable FG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img)) (gimp-selection-none img))
(define (plot-hsv img drawable x scale x-base y-base hsv) (define (plot-hsv img drawable x scale x-base y-base hsv)
@ -253,14 +253,14 @@
(gimp-image-add-layer gimg bglayer -1) (gimp-image-add-layer gimg bglayer -1)
(gimp-selection-all gimg) (gimp-selection-all gimg)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill gimg bglayer) (gimp-edit-fill bglayer)
(gimp-image-add-layer gimg hsv-layer -1) (gimp-image-add-layer gimg hsv-layer -1)
(gimp-edit-clear gimg hsv-layer) (gimp-edit-clear hsv-layer)
(gimp-image-add-layer gimg rgb-layer -1) (gimp-image-add-layer gimg rgb-layer -1)
(gimp-layer-set-visible rgb-layer FALSE) (gimp-layer-set-visible rgb-layer FALSE)
(gimp-edit-clear gimg rgb-layer) (gimp-edit-clear rgb-layer)
(gimp-image-add-layer gimg clayer -1) (gimp-image-add-layer gimg clayer -1)
(gimp-edit-clear gimg clayer) (gimp-edit-clear clayer)
(gimp-layer-translate clayer border-size 0) (gimp-layer-translate clayer border-size 0)
(gimp-selection-none gimg) (gimp-selection-none gimg)
(set! red-segment (make-segment 64 x-base y-base)) (set! red-segment (make-segment 64 x-base y-base))
@ -274,7 +274,7 @@
(gimp-brushes-set-opacity 70) (gimp-brushes-set-opacity 70)
(gimp-display-new gimg) (gimp-display-new gimg)
(while (< index limit) (while (< index limit)
(set! rgb (car (gimp-color-picker img drawable (set! rgb (car (gimp-color-picker drawable
(+ beg-x (* x-len (/ index limit))) (+ beg-x (* x-len (/ index limit)))
(+ beg-y (* y-len (/ index limit))) (+ beg-y (* y-len (/ index limit)))
TRUE FALSE))) TRUE FALSE)))

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

@ -33,21 +33,21 @@
(gimp-image-add-layer img dist-frame-layer -1) (gimp-image-add-layer img dist-frame-layer -1)
(gimp-image-add-layer distortion-img distortion-layer -1) (gimp-image-add-layer distortion-img distortion-layer -1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-clear img dist-text-layer) (gimp-edit-clear dist-text-layer)
(gimp-edit-clear img dist-frame-layer) (gimp-edit-clear dist-frame-layer)
;; get the text shape ;; get the text shape
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
;; fill it with the specified color ;; fill it with the specified color
(gimp-palette-set-background text-color) (gimp-palette-set-background text-color)
(gimp-edit-fill img dist-text-layer) (gimp-edit-fill dist-text-layer)
;; get the border shape ;; get the border shape
(gimp-selection-border img frame-size) (gimp-selection-border img frame-size)
(gimp-palette-set-background frame-color) (gimp-palette-set-background frame-color)
(gimp-edit-fill img dist-frame-layer) (gimp-edit-fill dist-frame-layer)
(gimp-selection-none img) (gimp-selection-none img)
;; now make the distortion data ;; now make the distortion data
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill distortion-img distortion-layer) (gimp-edit-fill distortion-layer)
(plug-in-noisify 1 distortion-img distortion-layer FALSE prob prob prob 0.0) (plug-in-noisify 1 distortion-img distortion-layer FALSE prob prob prob 0.0)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1) (plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
(plug-in-c-astretch 1 distortion-img distortion-layer) (plug-in-c-astretch 1 distortion-img distortion-layer)
@ -56,7 +56,7 @@
(plug-in-displace 1 img dist-text-layer radius radius 1 1 (plug-in-displace 1 img dist-text-layer radius radius 1 1
distortion-layer distortion-layer 0) distortion-layer distortion-layer 0)
;; make the distortion data once again fro the frame ;; make the distortion data once again fro the frame
(gimp-edit-fill distortion-img distortion-layer) (gimp-edit-fill distortion-layer)
(plug-in-noisify 1 distortion-img distortion-layer FALSE prob prob prob 0.0) (plug-in-noisify 1 distortion-img distortion-layer FALSE prob prob prob 0.0)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1) (plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
(plug-in-c-astretch 1 distortion-img distortion-layer) (plug-in-c-astretch 1 distortion-img distortion-layer)
@ -67,7 +67,7 @@
;; Finally, clear the bottom layer (text-layer) ;; Finally, clear the bottom layer (text-layer)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
;; post processing ;; post processing
(gimp-palette-set-foreground old-fg) (gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)

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

@ -75,17 +75,17 @@
DISCARD))) DISCARD)))
(if (= TRUE with-pad?) (if (= TRUE with-pad?)
(begin (begin
(gimp-selection-layer-alpha img layer) (gimp-selection-layer-alpha layer)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-layer-set-preserve-trans layer FALSE) (gimp-layer-set-preserve-trans layer FALSE)
(gimp-palette-set-foreground padding-color) (gimp-palette-set-foreground padding-color)
(gimp-bucket-fill img layer FG-BUCKET-FILL NORMAL (gimp-bucket-fill layer FG-BUCKET-FILL NORMAL
padding-opacity 0 0 0 0) padding-opacity 0 0 0 0)
(gimp-selection-none img))) (gimp-selection-none img)))
(gimp-layer-translate layer (gimp-layer-translate layer
(+ border shear-length) (+ border (* space index))) (+ border shear-length) (+ border (* space index)))
(gimp-shear img layer TRUE 0 (* (/ (car (gimp-drawable-height layer)) (gimp-shear layer TRUE 0 (* (/ (car (gimp-drawable-height layer))
old-height) old-height)
(* -2 shear-length))) (* -2 shear-length)))
(set! index (+ index 1))) (set! index (+ index 1)))
@ -96,7 +96,7 @@
"New Background" 100 NORMAL))) "New Background" 100 NORMAL)))
(gimp-image-add-layer img new-bg num-of-layers) (gimp-image-add-layer img new-bg num-of-layers)
(gimp-palette-set-background background-color) (gimp-palette-set-background background-color)
(gimp-edit-fill img new-bg))) (gimp-edit-fill new-bg)))
(gimp-image-set-active-layer img (aref layers 0)) (gimp-image-set-active-layer img (aref layers 0))
(if (= TRUE with-layer-name?) (if (= TRUE with-layer-name?)
(let ((text-layer #f)) (let ((text-layer #f))

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

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

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

@ -44,7 +44,7 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
@ -70,9 +70,9 @@
(gimp-layer-set-offsets lava-layer select-offset-x select-offset-y) (gimp-layer-set-offsets lava-layer select-offset-x select-offset-y)
(gimp-image-add-layer image lava-layer -1) (gimp-image-add-layer image lava-layer -1)
(gimp-selection-none image) (gimp-selection-none image)
(gimp-edit-clear image lava-layer) (gimp-edit-clear lava-layer)
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-image-set-active-layer image lava-layer))) (gimp-image-set-active-layer image lava-layer)))
(set! active-layer (car (gimp-image-get-active-layer image))) (set! active-layer (car (gimp-image-get-active-layer image)))

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

@ -66,8 +66,8 @@
(+ (nth 1 drw-offsets) (/ drw-height 2)) (+ (nth 1 drw-offsets) (/ drw-height 2))
(* index dir-deg/line)) (* index dir-deg/line))
(set! index (+ index 1))) (set! index (+ index 1)))
(gimp-bucket-fill img drw FG-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill drw FG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-load img old-selection) (gimp-selection-load old-selection)
;; (gimp-image-set-active-layer img drw) ;; (gimp-image-set-active-layer img drw)
;; delete extra channel by Sven Neumann <neumanns@uni-duesseldorf.de> ;; delete extra channel by Sven Neumann <neumanns@uni-duesseldorf.de>
(gimp-image-remove-channel img old-selection) (gimp-image-remove-channel img old-selection)

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

@ -57,7 +57,7 @@
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-rect-select img 0 0 width height REPLACE FALSE 0) (gimp-rect-select img 0 0 width height REPLACE FALSE 0)
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(file-gbr-save 1 img drawable filename "" spacing desc) (file-gbr-save 1 img drawable filename "" spacing desc)
(gimp-brushes-refresh) (gimp-brushes-refresh)
@ -135,7 +135,7 @@
((>= 0 feathering) ((>= 0 feathering)
(gimp-rect-select img 0 0 width height REPLACE FALSE 0)) (gimp-rect-select img 0 0 width height REPLACE FALSE 0))
) )
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(file-gbr-save 1 img drawable filename "" 25 desc) (file-gbr-save 1 img drawable filename "" 25 desc)
(gimp-brushes-refresh) (gimp-brushes-refresh)
@ -206,7 +206,7 @@
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-ellipse-select img 0 0 width height REPLACE TRUE FALSE 0) (gimp-ellipse-select img 0 0 width height REPLACE TRUE FALSE 0)
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(file-gbr-save 1 img drawable filename "" spacing desc) (file-gbr-save 1 img drawable filename "" spacing desc)
(gimp-brushes-refresh) (gimp-brushes-refresh)
@ -286,7 +286,7 @@
((<= feathering 0) ((<= feathering 0)
(gimp-ellipse-select img 0 0 width height REPLACE TRUE FALSE 0)) (gimp-ellipse-select img 0 0 width height REPLACE TRUE FALSE 0))
) )
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(file-gbr-save 1 img drawable filename "" spacing desc) (file-gbr-save 1 img drawable filename "" spacing desc)
(gimp-brushes-refresh) (gimp-brushes-refresh)

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

@ -77,70 +77,70 @@
(if (not (= shadow 0)) (if (not (= shadow 0))
(begin (begin
(gimp-image-add-layer img shadow-layer 1) (gimp-image-add-layer img shadow-layer 1)
(gimp-edit-clear img shadow-layer))) (gimp-edit-clear shadow-layer)))
(gimp-image-add-layer img glow-layer 1) (gimp-image-add-layer img glow-layer 1)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-layer-alpha img tube-layer) (gimp-selection-layer-alpha tube-layer)
(set! selection (car (gimp-selection-save img))) (set! selection (car (gimp-selection-save img)))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-clear img glow-layer) (gimp-edit-clear glow-layer)
(gimp-edit-fill img tube-layer) (gimp-edit-fill tube-layer)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img tube-layer) (gimp-edit-fill tube-layer)
(gimp-selection-shrink img shrink) (gimp-selection-shrink img shrink)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img selection) (gimp-edit-fill selection)
(gimp-edit-fill img tube-layer) (gimp-edit-fill tube-layer)
(gimp-selection-none img) (gimp-selection-none img)
(if (not (= feather1 0)) (plug-in-gauss-rle 1 img tube-layer feather1 TRUE TRUE)) (if (not (= feather1 0)) (plug-in-gauss-rle 1 img tube-layer feather1 TRUE TRUE))
(gimp-selection-load img selection) (gimp-selection-load selection)
(if (not (= feather2 0)) (plug-in-gauss-rle 1 img tube-layer feather2 TRUE TRUE)) (if (not (= feather2 0)) (plug-in-gauss-rle 1 img tube-layer feather2 TRUE TRUE))
(gimp-brightness-contrast img tube-layer -10 15) (gimp-brightness-contrast tube-layer -10 15)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-hue-saturation img tube-layer 0 tube-hue -15 70) (gimp-hue-saturation tube-layer 0 tube-hue -15 70)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-feather img inc-shrink) (gimp-selection-feather img inc-shrink)
(gimp-selection-shrink img inc-shrink) (gimp-selection-shrink img inc-shrink)
(gimp-curves-spline img tube-layer 0 6 (neon-spline1)) (gimp-curves-spline tube-layer 0 6 (neon-spline1))
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-feather img inc-shrink) (gimp-selection-feather img inc-shrink)
(gimp-selection-shrink img (* inc-shrink 2)) (gimp-selection-shrink img (* inc-shrink 2))
(gimp-curves-spline img tube-layer 0 6 (neon-spline2)) (gimp-curves-spline tube-layer 0 6 (neon-spline2))
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-feather img inc-shrink) (gimp-selection-feather img inc-shrink)
(gimp-selection-shrink img (* inc-shrink 3)) (gimp-selection-shrink img (* inc-shrink 3))
(gimp-curves-spline img tube-layer 0 6 (neon-spline3)) (gimp-curves-spline tube-layer 0 6 (neon-spline3))
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-grow img grow) (gimp-selection-grow img grow)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-clear img tube-layer) (gimp-edit-clear tube-layer)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-palette-set-background glow-color) (gimp-palette-set-background glow-color)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(if (not (= shadow 0)) (if (not (= shadow 0))
(begin (begin
(gimp-selection-layer-alpha img tube-layer) (gimp-selection-layer-alpha tube-layer)
(gimp-selection-shrink img shadow-shrink) (gimp-selection-shrink img shadow-shrink)
(gimp-selection-feather img shadow-feather) (gimp-selection-feather img shadow-feather)
(gimp-selection-translate img shadow-offx shadow-offy) (gimp-selection-translate img shadow-offx shadow-offy)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img shadow-layer))) (gimp-edit-fill shadow-layer)))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-name tube-layer "Neon Tubes") (gimp-layer-set-name tube-layer "Neon Tubes")

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

@ -34,17 +34,17 @@
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img text-layer -1) (gimp-image-add-layer img text-layer -1)
(gimp-edit-clear img bg-layer) (gimp-edit-clear bg-layer)
(gimp-edit-clear img text-layer) (gimp-edit-clear text-layer)
(gimp-floating-sel-anchor (car (gimp-text-fontname img text-layer 10 10 string 0 TRUE font-size PIXELS font))) (gimp-floating-sel-anchor (car (gimp-text-fontname img text-layer 10 10 string 0 TRUE font-size PIXELS font)))
(set! text-mask (car (gimp-layer-create-mask text-layer ALPHA-MASK))) (set! text-mask (car (gimp-layer-create-mask text-layer ALPHA-MASK)))
(gimp-image-add-layer-mask img text-layer text-mask) (gimp-image-add-layer-mask img text-layer text-mask)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background (list grey grey grey)) (gimp-palette-set-background (list grey grey grey))
(gimp-edit-fill img text-mask) (gimp-edit-fill text-mask)
(plug-in-newsprint 1 img text-mask cell-size 0 0 45.0 3 45.0 0 45.0 0 45.0 0 3) (plug-in-newsprint 1 img text-mask cell-size 0 0 45.0 3 45.0 0 45.0 0 45.0 0 3)

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

@ -41,9 +41,9 @@
(set! theLayer (car(gimp-image-flatten theImage))) (set! theLayer (car(gimp-image-flatten theImage)))
(if (= inSepia TRUE) (if (= inSepia TRUE)
(begin (gimp-desaturate theImage theLayer) (begin (gimp-desaturate theLayer)
(gimp-brightness-contrast theImage theLayer -20 -40) (gimp-brightness-contrast theLayer -20 -40)
(gimp-color-balance theImage theLayer 0 TRUE 30 0 -30) (gimp-color-balance theLayer 0 TRUE 30 0 -30)
) )
() ()
) )
@ -54,7 +54,7 @@
(gimp-image-add-layer theImage mLayer 0) (gimp-image-add-layer theImage mLayer 0)
(gimp-selection-all theImage) (gimp-selection-all theImage)
(gimp-edit-clear theImage mLayer) (gimp-edit-clear mLayer)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(plug-in-noisify TRUE theImage mLayer TRUE 0 0 0 0.5) (plug-in-noisify TRUE theImage mLayer TRUE 0 0 0 0.5)
(plug-in-gauss-rle TRUE theImage mLayer 5 TRUE TRUE) (plug-in-gauss-rle TRUE theImage mLayer 5 TRUE TRUE)

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

@ -41,9 +41,9 @@
(set! theLayer (car(gimp-image-flatten theImage))) (set! theLayer (car(gimp-image-flatten theImage)))
(if (= inSepia TRUE) (if (= inSepia TRUE)
(begin (gimp-desaturate theImage theLayer) (begin (gimp-desaturate theLayer)
(gimp-brightness-contrast theImage theLayer -20 -40) (gimp-brightness-contrast theLayer -20 -40)
(gimp-color-balance theImage theLayer 0 TRUE 30 0 -30) (gimp-color-balance theLayer 0 TRUE 30 0 -30)
) )
() ()
) )
@ -54,7 +54,7 @@
(gimp-image-add-layer theImage mLayer 0) (gimp-image-add-layer theImage mLayer 0)
(gimp-selection-all theImage) (gimp-selection-all theImage)
(gimp-edit-clear theImage mLayer) (gimp-edit-clear mLayer)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(plug-in-noisify TRUE theImage mLayer TRUE 0 0 0 0.5) (plug-in-noisify TRUE theImage mLayer TRUE 0 0 0 0.5)
(plug-in-gauss-rle TRUE theImage mLayer 5 TRUE TRUE) (plug-in-gauss-rle TRUE theImage mLayer 5 TRUE TRUE)

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

@ -61,7 +61,7 @@
(gimp-layer-add-alpha drawable) (gimp-layer-add-alpha drawable)
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
(set! from-selection TRUE) (set! from-selection TRUE)
@ -106,7 +106,7 @@
(gimp-layer-set-offsets shadow-layer select-offset-x select-offset-y) (gimp-layer-set-offsets shadow-layer select-offset-x select-offset-y)
(gimp-drawable-fill shadow-layer TRANS-IMAGE-FILL) (gimp-drawable-fill shadow-layer TRANS-IMAGE-FILL)
(gimp-palette-set-background shadow-color) (gimp-palette-set-background shadow-color)
(gimp-edit-fill image shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none image) (gimp-selection-none image)
(if (= allow-resize TRUE) (if (= allow-resize TRUE)
@ -138,8 +138,7 @@
(gimp-image-add-layer image shadow-layer -1) (gimp-image-add-layer image shadow-layer -1)
(gimp-perspective image (gimp-perspective shadow-layer
shadow-layer
interpolate interpolate
x0 y0 x0 y0
x1 y1 x1 y1
@ -163,8 +162,8 @@
(if (= from-selection TRUE) (if (= from-selection TRUE)
(begin (begin
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-edit-clear image shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-image-remove-channel image active-selection))) (gimp-image-remove-channel image active-selection)))
(if (and (if (and

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

@ -43,7 +43,7 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
@ -70,11 +70,11 @@
(gimp-layer-set-offsets effect-layer select-offset-x select-offset-y) (gimp-layer-set-offsets effect-layer select-offset-x select-offset-y)
(gimp-image-add-layer image effect-layer -1) (gimp-image-add-layer image effect-layer -1)
(gimp-selection-none image) (gimp-selection-none image)
(gimp-edit-clear image effect-layer) (gimp-edit-clear effect-layer)
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-edit-copy image drawable) (gimp-edit-copy drawable)
(let ((floating-sel (car (gimp-edit-paste image effect-layer FALSE)))) (let ((floating-sel (car (gimp-edit-paste effect-layer FALSE))))
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
(gimp-image-set-active-layer image effect-layer ))) (gimp-image-set-active-layer image effect-layer )))
@ -87,7 +87,7 @@
(plug-in-edge 1 image active-layer edge-amount 1) (plug-in-edge 1 image active-layer edge-amount 1)
; clean up the selection copy ; clean up the selection copy
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-gradients-set-active old-gradient) (gimp-gradients-set-active old-gradient)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)

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

@ -136,12 +136,12 @@
(gimp-image-add-layer img bumpmap -1) (gimp-image-add-layer img bumpmap -1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(round-select img (/ bevel 2) (/ bevel 2) (round-select img (/ bevel 2) (/ bevel 2)
(- width bevel) (- height bevel) ratio) (- width bevel) (- height bevel) ratio)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img bumpmap) (gimp-edit-fill bumpmap)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-gauss-rle 1 img bumpmap bevel 1 1) (plug-in-gauss-rle 1 img bumpmap bevel 1 1)
@ -149,13 +149,12 @@
; Create gradient layer ; Create gradient layer
(gimp-image-add-layer img gradient -1) (gimp-image-add-layer img gradient -1)
(gimp-edit-clear img gradient) (gimp-edit-clear gradient)
(round-select img 0 0 width height ratio) (round-select img 0 0 width height ratio)
(gimp-palette-set-foreground ul-color) (gimp-palette-set-foreground ul-color)
(gimp-palette-set-background lr-color) (gimp-palette-set-background lr-color)
(gimp-blend img (gimp-blend gradient
gradient
FG-BG-RGB FG-BG-RGB
NORMAL NORMAL
LINEAR LINEAR
@ -192,7 +191,7 @@
(gimp-selection-none img) (gimp-selection-none img)
(round-select img 1 1 (- width 1) (- height 1) ratio) (round-select img 1 1 (- width 1) (- height 1) ratio)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-clear img gradient) (gimp-edit-clear gradient)
; Done ; Done

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

@ -42,7 +42,7 @@
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(let ((theMask (car(gimp-layer-create-mask thinLayer 0)))) (let ((theMask (car(gimp-layer-create-mask thinLayer 0))))
(gimp-image-add-layer-mask theImage thinLayer theMask) (gimp-image-add-layer-mask theImage thinLayer theMask)
(gimp-blend theImage theMask FG-BG-RGB NORMAL LINEAR 100 (gimp-blend theMask FG-BG-RGB NORMAL LINEAR 100
0 REPEAT-TRIANGULAR FALSE 0 0 0 0 0 (/ theHeight 2) ) 0 REPEAT-TRIANGULAR FALSE 0 0 0 0 0 (/ theHeight 2) )
) )
(set! theLayer (car(gimp-image-flatten theImage))) (set! theLayer (car(gimp-image-flatten theImage)))

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

@ -8,12 +8,12 @@
(define (copy-layer-ripple dest-image dest-drawable source-image source-drawable) (define (copy-layer-ripple dest-image dest-drawable source-image source-drawable)
(gimp-selection-all dest-image) (gimp-selection-all dest-image)
(gimp-edit-clear dest-image dest-drawable) (gimp-edit-clear dest-drawable)
(gimp-selection-none dest-image) (gimp-selection-none dest-image)
(gimp-selection-all source-image) (gimp-selection-all source-image)
(gimp-edit-copy source-image source-drawable) (gimp-edit-copy source-drawable)
(gimp-selection-none source-image) (gimp-selection-none source-image)
(let ((floating-sel (car (gimp-edit-paste dest-image dest-drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE))))
(gimp-floating-sel-anchor floating-sel))) (gimp-floating-sel-anchor floating-sel)))
(define (script-fu-ripply-anim img drawable displacement num-frames) (define (script-fu-ripply-anim img drawable displacement num-frames)
@ -27,7 +27,7 @@
(gimp-image-disable-undo ripple-image) (gimp-image-disable-undo ripple-image)
(gimp-palette-set-background '(127 127 127) ) (gimp-palette-set-background '(127 127 127) )
(gimp-image-add-layer ripple-image ripple-layer 0) (gimp-image-add-layer ripple-image ripple-layer 0)
(gimp-edit-fill ripple-image ripple-layer) (gimp-edit-fill ripple-layer)
(plug-in-noisify 1 ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0) (plug-in-noisify 1 ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0)
; tile noise ; tile noise
(set! rippletiled-ret (plug-in-tile 1 ripple-image ripple-layer (* width 3) (* height 3) TRUE)) (set! rippletiled-ret (plug-in-tile 1 ripple-image ripple-layer (* width 3) (* height 3) TRUE))
@ -40,9 +40,9 @@
; process tiled noise into usable displacement map ; process tiled noise into usable displacement map
(plug-in-gauss-iir 1 rippletiled-image rippletiled-layer 35 TRUE TRUE) (plug-in-gauss-iir 1 rippletiled-image rippletiled-layer 35 TRUE TRUE)
(gimp-equalize rippletiled-image rippletiled-layer TRUE) (gimp-equalize rippletiled-layer TRUE)
(plug-in-gauss-rle 1 rippletiled-image rippletiled-layer 5 TRUE TRUE) (plug-in-gauss-rle 1 rippletiled-image rippletiled-layer 5 TRUE TRUE)
(gimp-equalize rippletiled-image rippletiled-layer TRUE) (gimp-equalize rippletiled-layer TRUE)
; displacement map is now in rippletiled-layer of rippletiled-image ; displacement map is now in rippletiled-layer of rippletiled-image

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

@ -76,7 +76,7 @@
radius radius ADD 0 0) radius radius ADD 0 0)
(gimp-ellipse-select image (- width diam) (- height diam) (gimp-ellipse-select image (- width diam) (- height diam)
diam diam SUB TRUE 0 0) diam diam SUB TRUE 0 0)
(gimp-edit-clear image pic-layer) (gimp-edit-clear pic-layer)
(gimp-selection-none image) (gimp-selection-none image)
; optionally add a shadow ; optionally add a shadow

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

@ -46,14 +46,14 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
(set! from-selection TRUE) (set! from-selection TRUE)
(set! active-selection (car (gimp-selection-save image))))) (set! active-selection (car (gimp-selection-save image)))))
(gimp-edit-copy image drawable) (gimp-edit-copy drawable)
(set! brush-image (car (gimp-image-new selection-width selection-height 1))) (set! brush-image (car (gimp-image-new selection-width selection-height 1)))
(set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height GRAY_IMAGE "Sloth" 100 NORMAL))) (set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height GRAY_IMAGE "Sloth" 100 NORMAL)))
@ -63,7 +63,7 @@
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-drawable-fill brush-draw BG-IMAGE-FILL) (gimp-drawable-fill brush-draw BG-IMAGE-FILL)
(let ((floating-sel (car (gimp-edit-paste brush-image brush-draw FALSE)))) (let ((floating-sel (car (gimp-edit-paste brush-draw FALSE))))
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
@ -74,7 +74,7 @@
(number->string image) (number->string image)
".gbr")) ".gbr"))
(gimp-invert brush-image brush-draw) (gimp-invert brush-draw)
(file-gbr-save 1 brush-image brush-draw filename2 "" spacing desc) (file-gbr-save 1 brush-image brush-draw filename2 "" spacing desc)
(gimp-brushes-refresh) ; My own modification! You'll need my diff. (gimp-brushes-refresh) ; My own modification! You'll need my diff.
(gimp-brushes-set-brush desc) (gimp-brushes-set-brush desc)

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

@ -39,21 +39,21 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
(set! from-selection TRUE) (set! from-selection TRUE)
(set! active-selection (car (gimp-selection-save image))))) (set! active-selection (car (gimp-selection-save image)))))
(gimp-edit-copy image drawable) (gimp-edit-copy drawable)
(set! brush-image (car (gimp-image-new selection-width selection-height image-type))) (set! brush-image (car (gimp-image-new selection-width selection-height image-type)))
(set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height draw-type "Sloth" 100 NORMAL))) (set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height draw-type "Sloth" 100 NORMAL)))
(gimp-image-add-layer brush-image brush-draw 0) (gimp-image-add-layer brush-image brush-draw 0)
(gimp-drawable-fill brush-draw BG-IMAGE-FILL) (gimp-drawable-fill brush-draw BG-IMAGE-FILL)
(let ((floating-sel (car (gimp-edit-paste brush-image brush-draw FALSE)))) (let ((floating-sel (car (gimp-edit-paste brush-draw FALSE))))
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )

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

@ -46,14 +46,14 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
(set! from-selection TRUE) (set! from-selection TRUE)
(set! active-selection (car (gimp-selection-save image))))) (set! active-selection (car (gimp-selection-save image)))))
(gimp-edit-copy image drawable) (gimp-edit-copy drawable)
(set! brush-image (car (gimp-image-new selection-width selection-height 1))) (set! brush-image (car (gimp-image-new selection-width selection-height 1)))
(set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height GRAY_IMAGE "Sloth" 100 NORMAL))) (set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height GRAY_IMAGE "Sloth" 100 NORMAL)))
@ -63,7 +63,7 @@
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-drawable-fill brush-draw BG-IMAGE-FILL) (gimp-drawable-fill brush-draw BG-IMAGE-FILL)
(let ((floating-sel (car (gimp-edit-paste brush-image brush-draw FALSE)))) (let ((floating-sel (car (gimp-edit-paste brush-draw FALSE))))
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
@ -74,7 +74,7 @@
(number->string image) (number->string image)
".gbr")) ".gbr"))
(gimp-invert brush-image brush-draw) (gimp-invert brush-draw)
(file-gbr-save 1 brush-image brush-draw filename2 "" spacing desc) (file-gbr-save 1 brush-image brush-draw filename2 "" spacing desc)
(gimp-brushes-refresh) ; My own modification! You'll need my diff. (gimp-brushes-refresh) ; My own modification! You'll need my diff.
(gimp-brushes-set-brush desc) (gimp-brushes-set-brush desc)

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

@ -39,21 +39,21 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
(set! from-selection TRUE) (set! from-selection TRUE)
(set! active-selection (car (gimp-selection-save image))))) (set! active-selection (car (gimp-selection-save image)))))
(gimp-edit-copy image drawable) (gimp-edit-copy drawable)
(set! brush-image (car (gimp-image-new selection-width selection-height image-type))) (set! brush-image (car (gimp-image-new selection-width selection-height image-type)))
(set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height draw-type "Sloth" 100 NORMAL))) (set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height draw-type "Sloth" 100 NORMAL)))
(gimp-image-add-layer brush-image brush-draw 0) (gimp-image-add-layer brush-image brush-draw 0)
(gimp-drawable-fill brush-draw BG-IMAGE-FILL) (gimp-drawable-fill brush-draw BG-IMAGE-FILL)
(let ((floating-sel (car (gimp-edit-paste brush-image brush-draw FALSE)))) (let ((floating-sel (car (gimp-edit-paste brush-draw FALSE))))
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )

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

@ -193,10 +193,10 @@
(set! hole (+ hole 1))) (set! hole (+ hole 1)))
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(gimp-edit-fill image film-mask) (gimp-edit-fill film-mask)
(gimp-selection-none image) (gimp-selection-none image)
(plug-in-gauss-rle 1 image film-mask hole-radius TRUE TRUE) (plug-in-gauss-rle 1 image film-mask hole-radius TRUE TRUE)
(gimp-threshold image film-mask 127 255) (gimp-threshold film-mask 127 255)
(gimp-image-add-layer image film-layer -1) (gimp-image-add-layer image film-layer -1)
(gimp-image-add-layer-mask image film-layer film-mask)) (gimp-image-add-layer-mask image film-layer film-mask))

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

@ -54,11 +54,11 @@
(define (copy-layer-sota dest-image dest-drawable source-image source-drawable) (define (copy-layer-sota dest-image dest-drawable source-image source-drawable)
(gimp-selection-all dest-image) (gimp-selection-all dest-image)
(gimp-edit-clear dest-image dest-drawable) (gimp-edit-clear dest-drawable)
(gimp-selection-none dest-image) (gimp-selection-none dest-image)
(gimp-selection-all source-image) (gimp-selection-all source-image)
(gimp-edit-copy source-image source-drawable) (gimp-edit-copy source-drawable)
(let ((floating-sel (car (gimp-edit-paste dest-image dest-drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE))))
(gimp-floating-sel-anchor floating-sel))) (gimp-floating-sel-anchor floating-sel)))
(define (script-fu-sota-chrome-logo chrome-saturation chrome-lightness chrome-factor (define (script-fu-sota-chrome-logo chrome-saturation chrome-lightness chrome-factor
@ -96,28 +96,28 @@
(gimp-image-add-layer img layer2 0) (gimp-image-add-layer img layer2 0)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-fill img layer2) (gimp-edit-fill layer2)
(gimp-edit-fill img layer3) (gimp-edit-fill layer3)
(gimp-edit-clear img shadow) (gimp-edit-clear shadow)
(gimp-layer-set-visible text-layer FALSE) (gimp-layer-set-visible text-layer FALSE)
(gimp-layer-set-visible shadow FALSE) (gimp-layer-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 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 b-size (- width (* b-size 2)) (- height (* b-size 2)) SUB 0 0)
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill img layer2) (gimp-edit-fill layer2)
(gimp-selection-translate img (* 2 offx2) (* 2 offy2)) (gimp-selection-translate img (* 2 offx2) (* 2 offy2))
(gimp-edit-fill img layer3) (gimp-edit-fill layer3)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-visible layer2 TRUE) (gimp-layer-set-visible layer2 TRUE)
(gimp-layer-set-visible layer3 TRUE) (gimp-layer-set-visible layer3 TRUE)
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert img layer2) (gimp-invert layer2)
(copy-layer-sota img layer1 banding-img banding-layer) (copy-layer-sota img layer1 banding-img banding-layer)
(gimp-image-delete banding-img) (gimp-image-delete banding-img)
@ -128,40 +128,40 @@
(gimp-layer-set-visible layer1 TRUE) (gimp-layer-set-visible layer1 TRUE)
(gimp-layer-set-visible layer2 TRUE) (gimp-layer-set-visible layer2 TRUE)
(set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-curves-spline img layer1 0 18 (spline1)) (gimp-curves-spline layer1 0 18 (spline1))
(set! layer-mask (car (gimp-layer-create-mask layer1 BLACK-MASK))) (set! layer-mask (car (gimp-layer-create-mask layer1 BLACK-MASK)))
(gimp-image-add-layer-mask img layer1 layer-mask) (gimp-image-add-layer-mask img layer1 layer-mask)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img layer-mask) (gimp-edit-fill layer-mask)
(set! layer2 (car (gimp-layer-copy layer1 TRUE))) (set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0) (gimp-image-add-layer img layer2 0)
(gimp-brushes-set-brush (brush brush-size)) (gimp-brushes-set-brush (brush brush-size))
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-edit-stroke img layer-mask) (gimp-edit-stroke layer-mask)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img (* feather 1.5)) (gimp-selection-feather img (* feather 1.5))
(gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1)) (gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1))
(gimp-edit-fill img shadow) (gimp-edit-fill shadow)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-patterns-set-pattern "Marble #1") (gimp-patterns-set-pattern "Marble #1")
(gimp-bucket-fill img text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-convert-rgb img) (gimp-convert-rgb img)
(gimp-color-balance img layer1 0 TRUE (shadows (rval hc)) (shadows (gval hc)) (shadows (bval hc))) (gimp-color-balance layer1 0 TRUE (shadows (rval hc)) (shadows (gval hc)) (shadows (bval hc)))
(gimp-color-balance img layer1 1 TRUE (midtones (rval hc)) (midtones (gval hc)) (midtones (bval hc))) (gimp-color-balance layer1 1 TRUE (midtones (rval hc)) (midtones (gval hc)) (midtones (bval hc)))
(gimp-color-balance img layer1 2 TRUE (highlights (rval hc)) (highlights (gval hc)) (highlights (bval hc))) (gimp-color-balance layer1 2 TRUE (highlights (rval hc)) (highlights (gval hc)) (highlights (bval hc)))
(gimp-color-balance img layer2 0 TRUE (shadows (rval cc)) (shadows (gval cc)) (shadows (bval cc))) (gimp-color-balance layer2 0 TRUE (shadows (rval cc)) (shadows (gval cc)) (shadows (bval cc)))
(gimp-color-balance img layer2 1 TRUE (midtones (rval cc)) (midtones (gval cc)) (midtones (bval cc))) (gimp-color-balance layer2 1 TRUE (midtones (rval cc)) (midtones (gval cc)) (midtones (bval cc)))
(gimp-color-balance img layer2 2 TRUE (highlights (rval cc)) (highlights (gval cc)) (highlights (bval cc))) (gimp-color-balance layer2 2 TRUE (highlights (rval cc)) (highlights (gval cc)) (highlights (bval cc)))
(gimp-hue-saturation img layer2 0 0 chrome-lightness chrome-saturation) (gimp-hue-saturation layer2 0 0 chrome-lightness chrome-saturation)
(gimp-layer-set-visible shadow TRUE) (gimp-layer-set-visible shadow TRUE)
(gimp-layer-set-visible text-layer TRUE) (gimp-layer-set-visible text-layer TRUE)

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

@ -37,13 +37,13 @@
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img text-layer -1) (gimp-image-add-layer img text-layer -1)
(gimp-edit-clear img bg-layer) (gimp-edit-clear bg-layer)
(gimp-edit-clear img text-layer) (gimp-edit-clear text-layer)
(gimp-floating-sel-anchor (car (gimp-text-fontname img text-layer 10 10 string 0 TRUE font-size PIXELS font))) (gimp-floating-sel-anchor (car (gimp-text-fontname img text-layer 10 10 string 0 TRUE font-size PIXELS font)))
; save the selection for later ; save the selection for later
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(set! saved-sel (car (gimp-selection-save img))) (set! saved-sel (car (gimp-selection-save img)))
; add layer mask ; add layer mask
@ -54,16 +54,16 @@
(gimp-layer-set-edit-mask text-layer FALSE) (gimp-layer-set-edit-mask text-layer FALSE)
(gimp-selection-grow img 10) (gimp-selection-grow img 10)
(gimp-palette-set-background old-fg) (gimp-palette-set-background old-fg)
(gimp-edit-fill img text-layer) (gimp-edit-fill text-layer)
; feather the mask ; feather the mask
(gimp-layer-set-edit-mask text-layer TRUE) (gimp-layer-set-edit-mask text-layer TRUE)
(gimp-selection-load img saved-sel) (gimp-selection-load saved-sel)
(gimp-selection-feather img 10) (gimp-selection-feather img 10)
(gimp-palette-set-background (list grey grey grey)) (gimp-palette-set-background (list grey grey grey))
(gimp-edit-fill img text-mask) (gimp-edit-fill text-mask)
(gimp-edit-fill img text-mask) (gimp-edit-fill text-mask)
(gimp-edit-fill img text-mask) (gimp-edit-fill text-mask)
(gimp-selection-clear img) (gimp-selection-clear img)
(plug-in-newsprint 1 img text-mask cell-size 0 0 0.0 1 45.0 0 45.0 0 45.0 0 5) (plug-in-newsprint 1 img text-mask cell-size 0 0 0.0 1 45.0 0 45.0 0 45.0 0 5)

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

@ -26,7 +26,7 @@
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
(gimp-palette-set-foreground sphere-color) (gimp-palette-set-foreground sphere-color)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(gimp-palette-set-background '(20 20 20)) (gimp-palette-set-background '(20 20 20))
(if (and (if (and
(or (and (>= light 45) (<= light 75)) (and (<= light 135) (>= light 105))) (or (and (>= light 45) (<= light 75)) (and (<= light 135) (>= light 105)))
@ -39,9 +39,9 @@
(prog1 (set! shadow-x (+ cx shadow-w)) (prog1 (set! shadow-x (+ cx shadow-w))
(set! shadow-w (- shadow-w)))) (set! shadow-w (- shadow-w))))
(gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h REPLACE TRUE TRUE 7.5) (gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h REPLACE TRUE TRUE 7.5)
(gimp-bucket-fill img drawable BG-BUCKET-FILL MULTIPLY 100 0 FALSE 0 0))) (gimp-bucket-fill drawable BG-BUCKET-FILL MULTIPLY 100 0 FALSE 0 0)))
(gimp-ellipse-select img (- cx radius) (- cy radius) (* 2 radius) (* 2 radius) REPLACE TRUE FALSE 0) (gimp-ellipse-select img (- cx radius) (- cy radius) (* 2 radius) (* 2 radius) REPLACE TRUE FALSE 0)
(gimp-blend img drawable FG-BG-RGB NORMAL RADIAL 100 offset REPEAT-NONE (gimp-blend drawable FG-BG-RGB NORMAL RADIAL 100 offset REPEAT-NONE
FALSE 0 0 light-x light-y light-end-x light-end-y) FALSE 0 0 light-x light-y light-end-x light-end-y)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)

16
plug-ins/script-fu/scripts/starburst-logo.scm
View File

@ -30,29 +30,29 @@
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-edit-clear img burst-layer) (gimp-edit-clear burst-layer)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-patterns-set-pattern "Crack") (gimp-patterns-set-pattern "Crack")
(gimp-bucket-fill img text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img layer-mask) (gimp-edit-fill layer-mask)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-nova 1 img burst-layer (car burst-coords) (cdr burst-coords) (plug-in-nova 1 img burst-layer (car burst-coords) (cdr burst-coords)
burst-color burstradius 100) burst-color burstradius 100)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-selection-translate img -1 -1) (gimp-selection-translate img -1 -1)
(while (< count off) (while (< count off)
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-translate img 1 1) (gimp-selection-translate img 1 1)
(set! count (+ count 1))) (set! count (+ count 1)))
(gimp-selection-none img) (gimp-selection-none img)

18
plug-ins/script-fu/scripts/starscape-logo.scm
View File

@ -66,33 +66,33 @@
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-edit-clear img shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-edit-clear img glow-layer) (gimp-edit-clear glow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-selection-grow img grow) (gimp-selection-grow img grow)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-palette-set-background glow-color) (gimp-palette-set-background glow-color)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill img glow-layer) (gimp-edit-fill glow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-selection-feather img shadow-feather) (gimp-selection-feather img shadow-feather)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx offy) (gimp-selection-translate img offx offy)
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background '(31 31 31)) (gimp-palette-set-background '(31 31 31))
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-blend img text-layer FG-BG-RGB NORMAL BILINEAR 100 0 REPEAT-NONE FALSE 0 0 cx cy bx by) (gimp-blend text-layer FG-BG-RGB NORMAL BILINEAR 100 0 REPEAT-NONE FALSE 0 0 cx cy bx by)
(plug-in-nova 1 img glow-layer novax novay glow-color novaradius 100) (plug-in-nova 1 img glow-layer novax novay glow-color novaradius 100)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-patterns-set-pattern "Stone") (gimp-patterns-set-pattern "Stone")
(gimp-bucket-fill img bump-channel PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill bump-channel PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(plug-in-bump-map 1 img text-layer bump-channel 135.0 45.0 4 0 0 0 0 FALSE FALSE 0) (plug-in-bump-map 1 img text-layer bump-channel 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
(gimp-image-remove-channel img bump-channel) (gimp-image-remove-channel img bump-channel)
(gimp-selection-none img) (gimp-selection-none img)

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

@ -16,7 +16,7 @@
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-palette-get-background))))
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img layer-one) (gimp-edit-fill layer-one)
(gimp-image-add-layer img layer-one 0) (gimp-image-add-layer img layer-one 0)
(plug-in-noisify 1 img layer-one FALSE noise-level noise-level noise-level 1.0) (plug-in-noisify 1 img layer-one FALSE noise-level noise-level noise-level 1.0)
@ -24,7 +24,7 @@
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0) (plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0) (plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(gimp-channel-ops-offset img layer-one TRUE 0 cx cy) (gimp-channel-ops-offset layer-one TRUE 0 cx cy)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0) (plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0) (plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)

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

@ -51,7 +51,7 @@
(gimp-rect-select img 0 0 hsize hsize REPLACE 0 0) (gimp-rect-select img 0 0 hsize hsize REPLACE 0 0)
(whirl-it img drawable angle times) (whirl-it img drawable angle times)
(gimp-invert img drawable) (gimp-invert drawable)
; Whirl upper right ; Whirl upper right
@ -67,7 +67,7 @@
(gimp-rect-select img hsize hsize hsize hsize REPLACE 0 0) (gimp-rect-select img hsize hsize hsize hsize REPLACE 0 0)
(whirl-it img drawable angle times) (whirl-it img drawable angle times)
(gimp-invert img drawable) (gimp-invert drawable)
; Terminate ; Terminate

32
plug-ins/script-fu/scripts/t-o-p-logo.scm
View File

@ -25,12 +25,12 @@
(gimp-image-add-layer img shadow-layer 3) (gimp-image-add-layer img shadow-layer 3)
(gimp-image-add-layer img bg-layer 4) (gimp-image-add-layer img bg-layer 4)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-clear img shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-edit-clear img sparkle-layer) (gimp-edit-clear sparkle-layer)
(gimp-palette-set-background base-color) (gimp-palette-set-background base-color)
(gimp-edit-fill img sparkle-layer) (gimp-edit-fill sparkle-layer)
(gimp-palette-set-background base-color) (gimp-palette-set-background base-color)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(set! selection (car (gimp-selection-save img))) (set! selection (car (gimp-selection-save img)))
(gimp-selection-grow img edge-size) (gimp-selection-grow img edge-size)
'(plug-in-noisify 1 img sparkle-layer FALSE '(plug-in-noisify 1 img sparkle-layer FALSE
@ -39,33 +39,33 @@
(plug-in-noisify 1 img sparkle-layer FALSE hit-rate hit-rate hit-rate 0.0) (plug-in-noisify 1 img sparkle-layer FALSE hit-rate hit-rate hit-rate 0.0)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-sparkle 1 img sparkle-layer 0.03 0.45 width 6 15) (plug-in-sparkle 1 img sparkle-layer 0.03 0.45 width 6 15)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-shrink img edge-size) (gimp-selection-shrink img edge-size)
(gimp-levels img sparkle-layer 0 0 255 1.2 0 255) (gimp-levels sparkle-layer 0 0 255 1.2 0 255)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-border img edge-size) (gimp-selection-border img edge-size)
(gimp-levels img sparkle-layer 0 0 255 0.5 0 255) (gimp-levels sparkle-layer 0 0 255 0.5 0 255)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-grow img (/ edge-size 2.0)) (gimp-selection-grow img (/ edge-size 2.0))
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-clear img sparkle-layer) (gimp-edit-clear sparkle-layer)
(if (= edge-only TRUE) (if (= edge-only TRUE)
(begin (begin
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-shrink img (/ edge-size 2.0)) (gimp-selection-shrink img (/ edge-size 2.0))
(gimp-edit-clear img sparkle-layer) (gimp-edit-clear sparkle-layer)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-selection-grow img (/ edge-size 2.0)) (gimp-selection-grow img (/ edge-size 2.0))
(gimp-selection-invert img))) (gimp-selection-invert img)))
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-brushes-set-brush "Circle Fuzzy (11)") (gimp-brushes-set-brush "Circle Fuzzy (11)")
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background base-color) (gimp-palette-set-background base-color)
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-selection-load img selection) (gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)") (gimp-brushes-set-brush "Circle Fuzzy (07)")
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-selection-none img) (gimp-selection-none img)

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

@ -114,7 +114,7 @@
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
(gimp-palette-set-foreground sphere-color) (gimp-palette-set-foreground sphere-color)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(gimp-palette-set-background '(20 20 20)) (gimp-palette-set-background '(20 20 20))
(if (and (if (and
(or (and (>= light 45) (<= light 75)) (and (<= light 135) (>= light 105))) (or (and (>= light 45) (<= light 75)) (and (<= light 135) (>= light 105)))
@ -128,15 +128,15 @@
(set! shadow-w (- shadow-w)))) (set! shadow-w (- shadow-w))))
(gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h REPLACE TRUE TRUE 7.5) (gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h REPLACE TRUE TRUE 7.5)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-bucket-fill img drawable PATTERN-BUCKET-FILL MULTIPLY 100 0 FALSE 0 0))) (gimp-bucket-fill drawable PATTERN-BUCKET-FILL MULTIPLY 100 0 FALSE 0 0)))
(gimp-ellipse-select img (- cx radius) (- cy radius) (* 2 radius) (* 2 radius) REPLACE TRUE FALSE 0) (gimp-ellipse-select img (- cx radius) (- cy radius) (* 2 radius) (* 2 radius) REPLACE TRUE FALSE 0)
(gimp-blend img drawable FG-BG-RGB NORMAL RADIAL 100 offset REPEAT-NONE (gimp-blend drawable FG-BG-RGB NORMAL RADIAL 100 offset REPEAT-NONE
FALSE 0 0 light-x light-y light-end-x light-end-y) FALSE 0 0 light-x light-y light-end-x light-end-y)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-gradients-set-active gradient) (gimp-gradients-set-active gradient)
(gimp-ellipse-select img 10 10 50 50 REPLACE TRUE FALSE 0) (gimp-ellipse-select img 10 10 50 50 REPLACE TRUE FALSE 0)
(gimp-blend img drawable CUSTOM NORMAL LINEAR 100 offset REPEAT-NONE (gimp-blend drawable CUSTOM NORMAL LINEAR 100 offset REPEAT-NONE
FALSE 0 0 10 10 30 60) FALSE 0 0 10 10 30 60)
(gimp-selection-none img) (gimp-selection-none img)

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

@ -86,7 +86,7 @@
(index 0)) (index 0))
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
(gimp-image-add-layer img BG-layer 0) (gimp-image-add-layer img BG-layer 0)
(gimp-edit-fill img BG-layer) (gimp-edit-fill BG-layer)
;; change units ;; change units
(set! start-angle-rad (* (/ (modulo start-angle 360) 360) 2 *pi*)) (set! start-angle-rad (* (/ (modulo start-angle 360) 360) 2 *pi*))
(set! fill-angle-rad (* (/ fill-angle 360) 2 *pi*)) (set! fill-angle-rad (* (/ fill-angle 360) 2 *pi*))
@ -171,7 +171,7 @@
angle angle
(+ angle *pi*)))) (+ angle *pi*))))
(- (/ height 2)))) (- (/ height 2))))
(gimp-rotate img new-layer 1 (gimp-rotate new-layer 1
((if (< 0 fill-angle-rad) + -) angle rad-90)))))) ((if (< 0 fill-angle-rad) + -) angle rad-90))))))
(set! index (+ index 1))) (set! index (+ index 1)))
(gimp-layer-set-visible BG-layer 0) (gimp-layer-set-visible BG-layer 0)

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

@ -34,39 +34,39 @@
(gimp-selection-all img) (gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern) (gimp-patterns-set-pattern text-pattern)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-bucket-fill img text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0) (gimp-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-clear img text-shadow-layer) (gimp-edit-clear text-shadow-layer)
(gimp-edit-clear img drop-shadow-layer) (gimp-edit-clear drop-shadow-layer)
(gimp-palette-set-background bg-color) (gimp-palette-set-background bg-color)
(gimp-drawable-fill shadow-layer BG-IMAGE-FILL) (gimp-drawable-fill shadow-layer BG-IMAGE-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) REPLACE TRUE b-size-2)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-image-add-layer-mask img text-shadow-layer tsl-layer-mask) (gimp-image-add-layer-mask img text-shadow-layer tsl-layer-mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img tsl-layer-mask) (gimp-edit-fill tsl-layer-mask)
(gimp-selection-feather img f-size) (gimp-selection-feather img f-size)
(gimp-palette-set-background '(63 63 63)) (gimp-palette-set-background '(63 63 63))
(gimp-edit-fill img drop-shadow-layer) (gimp-edit-fill drop-shadow-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img text-shadow-layer) (gimp-edit-fill text-shadow-layer)
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(gimp-blend img text-shadow-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1) (gimp-blend text-shadow-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground blend-fg) (gimp-palette-set-foreground blend-fg)
(gimp-palette-set-background blend-bg) (gimp-palette-set-background blend-bg)
(gimp-blend img blend-layer FG-BG-RGB NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 width 0) (gimp-blend blend-layer FG-BG-RGB NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 width 0)
(plug-in-mosaic 1 img blend-layer 12 1 1 0.7 135 0.2 TRUE FALSE tile-type 1 0) (plug-in-mosaic 1 img blend-layer 12 1 1 0.7 135 0.2 TRUE FALSE tile-type 1 0)
(gimp-layer-translate text-layer (- b-size-2) (- b-size-2)) (gimp-layer-translate text-layer (- b-size-2) (- b-size-2))
(gimp-layer-translate blend-layer (- b-size) (- b-size)) (gimp-layer-translate blend-layer (- b-size) (- b-size))
(gimp-layer-translate text-shadow-layer (- ts-size) (- ts-size)) (gimp-layer-translate text-shadow-layer (- ts-size) (- ts-size))
(gimp-layer-translate drop-shadow-layer ds-size ds-size) (gimp-layer-translate drop-shadow-layer ds-size ds-size)
(gimp-selection-layer-alpha img blend-layer) (gimp-selection-layer-alpha blend-layer)
(gimp-image-add-layer-mask img drop-shadow-layer dsl-layer-mask) (gimp-image-add-layer-mask img drop-shadow-layer dsl-layer-mask)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img dsl-layer-mask) (gimp-edit-fill dsl-layer-mask)
(gimp-image-remove-layer-mask img drop-shadow-layer APPLY) (gimp-image-remove-layer-mask img drop-shadow-layer APPLY)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-name text-layer text) (gimp-layer-set-name text-layer text)

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

@ -30,7 +30,7 @@
(gimp-layer-resize theLayer (* 3 theWidth) (* 3 theHeight) 0 0) (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 REPLACE 0 0)
(gimp-edit-cut theImage theLayer) (gimp-edit-cut theLayer)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(gimp-layer-set-offsets theLayer theWidth theHeight) (gimp-layer-set-offsets theLayer theWidth theHeight)
@ -52,7 +52,7 @@
) )
(define (cjg-pasteat xoff yoff) (define (cjg-pasteat xoff yoff)
(let ((theFloat (car(gimp-edit-paste theImage theLayer 0)))) (let ((theFloat (car(gimp-edit-paste theLayer 0))))
(gimp-layer-set-offsets theFloat (* xoff theWidth) (* yoff theHeight) ) (gimp-layer-set-offsets theFloat (* xoff theWidth) (* yoff theHeight) )
(gimp-floating-sel-anchor theFloat) (gimp-floating-sel-anchor theFloat)
) )

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

@ -97,24 +97,24 @@
; Create bumpmap layer ; Create bumpmap layer
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img bumpmap-layer) (gimp-edit-fill bumpmap-layer)
(gimp-selection-layer-alpha img text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img bumpmap-layer) (gimp-edit-fill bumpmap-layer)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-gauss-rle 1 img bumpmap-layer 4.0 TRUE TRUE) (plug-in-gauss-rle 1 img bumpmap-layer 4.0 TRUE TRUE)
; Fore layer, bumpmap ; Fore layer, bumpmap
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img fore-layer) (gimp-edit-fill fore-layer)
(plug-in-bump-map 1 img fore-layer bumpmap-layer 135.0 45.0 4 0 0 0 0 FALSE FALSE 0) (plug-in-bump-map 1 img fore-layer bumpmap-layer 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
; Text layer ; Text layer
(gimp-layer-set-visible text-layer TRUE) (gimp-layer-set-visible text-layer TRUE)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-blend img text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0.2 3 (gimp-blend text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0.2 3
padding padding
padding padding
(- text-width padding 1) (- text-width padding 1)
@ -123,19 +123,18 @@
; Semicircle at the left ; Semicircle at the left
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
(gimp-ellipse-select img 0 0 text-height text-height REPLACE TRUE FALSE 0) (gimp-ellipse-select img 0 0 text-height text-height REPLACE TRUE FALSE 0)
(gimp-palette-set-background (car (gimp-color-picker img -1 text-layers-offset 0 TRUE FALSE))) (gimp-palette-set-background (car (gimp-color-picker -1 text-layers-offset 0 TRUE FALSE)))
(gimp-edit-fill img bg-layer) (gimp-edit-fill bg-layer)
; Fade-out gradient at the right ; Fade-out gradient at the right
(gimp-rect-select img (- img-width fade-width) 0 fade-width text-height REPLACE FALSE 0) (gimp-rect-select img (- img-width fade-width) 0 fade-width text-height REPLACE FALSE 0)
(gimp-palette-set-foreground (car (gimp-palette-get-background))) (gimp-palette-set-foreground (car (gimp-palette-get-background)))
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-blend img (gimp-blend bg-layer
bg-layer
FG-BG-RGB FG-BG-RGB
NORMAL NORMAL
LINEAR LINEAR

14
plug-ins/script-fu/scripts/trochoid.scm
View File

@ -229,14 +229,14 @@
(begin (begin
(gimp-brushes-set-paint-mode NORMAL) (gimp-brushes-set-paint-mode NORMAL)
(gimp-palette-set-foreground background-color) (gimp-palette-set-foreground background-color)
(gimp-airbrush img drawable-to-erase 100 (gimp-airbrush drawable-to-erase 100
(* 2 limit) (segment-strokes segment)) (* 2 limit) (segment-strokes segment))
(gimp-brushes-set-paint-mode paint-mode)) (gimp-brushes-set-paint-mode paint-mode))
(gimp-eraser img drawable-to-erase (* 2 limit) (gimp-eraser drawable-to-erase (* 2 limit)
(segment-strokes segment))) (segment-strokes segment)))
(if (< keep-opacity 100) (gimp-brushes-set-opacity keep-opacity)))) (if (< keep-opacity 100) (gimp-brushes-set-opacity keep-opacity))))
(gimp-palette-set-foreground rgb) (gimp-palette-set-foreground rgb)
(gimp-airbrush img drawable 100 (* 2 limit) (segment-strokes segment))) (gimp-airbrush drawable 100 (* 2 limit) (segment-strokes segment)))
(define (set-brush-color! index max-index hue-rate rgb hsv) (define (set-brush-color! index max-index hue-rate rgb hsv)
(if (= 0 hue-rate) (if (= 0 hue-rate)
@ -292,7 +292,7 @@
(gimp-layer-set-name drawable (gimp-layer-set-name drawable
(string-append "cricle " (string-append "cricle "
(number->string loop-num))) (number->string loop-num)))
(gimp-edit-clear img drawable))) (gimp-edit-clear drawable)))
(while (< iindex steps-for-a-loop) ; draw a circle (while (< iindex steps-for-a-loop) ; draw a circle
(set! rad-of-wheel (* rad-of-step index)) (set! rad-of-wheel (* rad-of-step index))
(if (update-segment! center-x center-y (if (update-segment! center-x center-y
@ -353,7 +353,7 @@
(old-rgb (car (gimp-palette-get-foreground)))) (old-rgb (car (gimp-palette-get-foreground))))
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
(gimp-image-add-layer img BG-layer 0) (gimp-image-add-layer img BG-layer 0)
(gimp-edit-fill img BG-layer) (gimp-edit-fill BG-layer)
(if (<= 0 erase-before-draw) ; HDDN FTR (2SLW) (if (<= 0 erase-before-draw) ; HDDN FTR (2SLW)
(begin (begin
(set! the-layer (car (gimp-layer-new img drawable-size drawable-size (set! the-layer (car (gimp-layer-new img drawable-size drawable-size
@ -361,8 +361,8 @@
100 NORMAL))) 100 NORMAL)))
(gimp-image-add-layer img the-layer 0) (gimp-image-add-layer img the-layer 0)
(if (= NORMAL old-paint-mode) (if (= NORMAL old-paint-mode)
(gimp-edit-clear img the-layer) (gimp-edit-clear the-layer)
(gimp-edit-fill img the-layer))) (gimp-edit-fill the-layer)))
(begin (begin
(set! layer-paint-mode (- 1 erase-before-draw)) (set! layer-paint-mode (- 1 erase-before-draw))
(gimp-image-set-active-layer img BG-layer))) (gimp-image-set-active-layer img BG-layer)))

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

@ -30,8 +30,8 @@
(gimp-ellipse-select img (- cx rx) (- cy ry) (+ rx rx ) (+ ry ry ) op aa feather frad)) (gimp-ellipse-select img (- cx rx) (- cy ry) (+ rx rx ) (+ ry ry ) op aa feather frad))
(define (use-tiles img drawable height width img2 drawable2 xoffset yoffset) (define (use-tiles img drawable height width img2 drawable2 xoffset yoffset)
(gimp-edit-copy img2 drawable2) (gimp-edit-copy drawable2)
(let ((floating-sel (car (gimp-edit-paste img drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste drawable FALSE))))
(gimp-layer-set-offsets floating-sel xoffset yoffset) (gimp-layer-set-offsets floating-sel xoffset yoffset)
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
@ -47,7 +47,7 @@
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background backcolor) (gimp-palette-set-background backcolor)
(gimp-edit-fill img drawable1) (gimp-edit-fill drawable1)
(let* ( (let* (
(tempSize (* size 3)) (tempSize (* size 3))
@ -57,7 +57,7 @@
(gimp-image-disable-undo temp-img) (gimp-image-disable-undo temp-img)
(gimp-image-add-layer temp-img temp-draw 0) (gimp-image-add-layer temp-img temp-draw 0)
(gimp-palette-set-background backcolor) (gimp-palette-set-background backcolor)
(gimp-edit-fill temp-img temp-draw) (gimp-edit-fill temp-draw)
(center-ellipse temp-img size size outer-radius outer-radius REPLACE TRUE FALSE 0) (center-ellipse temp-img size size outer-radius outer-radius REPLACE TRUE FALSE 0)
@ -66,7 +66,7 @@
(center-ellipse temp-img (* size 2) (* size 2) outer-radius outer-radius ADD 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) inner-radius inner-radius SUB TRUE FALSE 0)
(gimp-palette-set-background forecolor) (gimp-palette-set-background forecolor)
(gimp-edit-fill temp-img temp-draw) (gimp-edit-fill temp-draw)
(gimp-selection-none temp-img) (gimp-selection-none temp-img)
@ -75,15 +75,15 @@
(gimp-selection-all temp-img) (gimp-selection-all temp-img)
(gimp-edit-copy temp-img temp-draw) (gimp-edit-copy temp-draw)
(let ((floating-sel (car (gimp-edit-paste img drawable2 FALSE)))) (let ((floating-sel (car (gimp-edit-paste drawable2 FALSE))))
(gimp-floating-sel-anchor floating-sel)) (gimp-floating-sel-anchor floating-sel))
(let ((floating-sel (car (gimp-edit-paste img drawable1 FALSE)))) (let ((floating-sel (car (gimp-edit-paste drawable1 FALSE))))
(gimp-floating-sel-anchor floating-sel)) (gimp-floating-sel-anchor floating-sel))
(let ((drawble (car (gimp-flip img drawable1 0))))) (let ((drawble (car (gimp-flip drawable1 0)))))
;(gimp-display-new temp-img) ;(gimp-display-new temp-img)
@ -117,7 +117,7 @@
;just to look a little better ;just to look a little better
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background backcolor) (gimp-palette-set-background backcolor)
(gimp-edit-fill img layer-one) (gimp-edit-fill layer-one)
(gimp-selection-none img) (gimp-selection-none img)
(create-tiles tile tiledraw1 tiledraw2 size thickness backcolor forecolor) (create-tiles tile tiledraw1 tiledraw2 size thickness backcolor forecolor)

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

@ -22,10 +22,10 @@
(darker-layer #f) (darker-layer #f)
(lighter-layer #f)) (lighter-layer #f))
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-copy img drw) (gimp-edit-copy drw)
(gimp-image-disable-undo new-image) (gimp-image-disable-undo new-image)
(gimp-floating-sel-anchor (gimp-floating-sel-anchor
(car (gimp-edit-paste new-image original-layer FALSE))) (car (gimp-edit-paste original-layer FALSE)))
(gimp-image-add-layer new-image original-layer 0) (gimp-image-add-layer new-image original-layer 0)
(set! original-layer-for-darker (car (gimp-layer-copy original-layer TRUE))) (set! original-layer-for-darker (car (gimp-layer-copy original-layer TRUE)))
(set! original-layer-for-lighter (car (gimp-layer-copy original-layer TRUE))) (set! original-layer-for-lighter (car (gimp-layer-copy original-layer TRUE)))

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

@ -24,8 +24,8 @@
(define (copy-rectangle img drawable x1 y1 width height dest-x dest-y) (define (copy-rectangle img drawable x1 y1 width height dest-x dest-y)
(gimp-rect-select img x1 y1 width height REPLACE FALSE 0) (gimp-rect-select img x1 y1 width height REPLACE FALSE 0)
(gimp-edit-copy img drawable) (gimp-edit-copy drawable)
(let ((floating-sel (car (gimp-edit-paste img drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste drawable FALSE))))
(gimp-layer-set-offsets floating-sel dest-x dest-y) (gimp-layer-set-offsets floating-sel dest-x dest-y)
(gimp-floating-sel-anchor floating-sel)) (gimp-floating-sel-anchor floating-sel))
(gimp-selection-none img)) (gimp-selection-none img))
@ -41,7 +41,7 @@
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
; Create main horizontal ribbon ; Create main horizontal ribbon
@ -56,8 +56,7 @@
REPLACE REPLACE
FALSE FALSE
0) 0)
(gimp-blend img (gimp-blend drawable
drawable
FG-BG-RGB FG-BG-RGB
NORMAL NORMAL
BILINEAR BILINEAR
@ -82,8 +81,7 @@
REPLACE REPLACE
FALSE FALSE
0) 0)
(gimp-blend img (gimp-blend drawable
drawable
FG-BG-RGB FG-BG-RGB
NORMAL NORMAL
BILINEAR BILINEAR
@ -167,14 +165,14 @@
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(gimp-rect-select img r1-x1 r1-y1 r1-width r1-height REPLACE FALSE 0) (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 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 r3-x1 r3-y1 r3-width r3-height ADD FALSE 0)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-image-enable-undo img) (gimp-image-enable-undo img)
@ -245,7 +243,7 @@
(dense (/ density 100.0))) (dense (/ density 100.0)))
(gimp-image-add-layer img drawable -1) (gimp-image-add-layer img drawable -1)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(gimp-edit-fill img drawable) (gimp-edit-fill drawable)
(plug-in-noisify 1 img drawable FALSE dense dense dense dense) (plug-in-noisify 1 img drawable FALSE dense dense dense dense)
(plug-in-c-astretch 1 img drawable) (plug-in-c-astretch 1 img drawable)
(cond ((eq? orientation 'horizontal) (cond ((eq? orientation 'horizontal)
@ -284,17 +282,17 @@
(gimp-image-add-layer-mask w-img h-layer h-mask) (gimp-image-add-layer-mask w-img h-layer h-mask)
(gimp-selection-all hm-img) (gimp-selection-all hm-img)
(gimp-edit-copy hm-img hm-layer) (gimp-edit-copy hm-layer)
(gimp-image-delete hm-img) (gimp-image-delete hm-img)
(gimp-floating-sel-anchor (car (gimp-edit-paste w-img h-mask FALSE))) (gimp-floating-sel-anchor (car (gimp-edit-paste h-mask FALSE)))
(gimp-layer-set-opacity h-layer thread-intensity) (gimp-layer-set-opacity h-layer thread-intensity)
(gimp-layer-set-mode h-layer MULTIPLY) (gimp-layer-set-mode h-layer MULTIPLY)
(gimp-image-add-layer-mask w-img v-layer v-mask) (gimp-image-add-layer-mask w-img v-layer v-mask)
(gimp-selection-all vm-img) (gimp-selection-all vm-img)
(gimp-edit-copy vm-img vm-layer) (gimp-edit-copy vm-layer)
(gimp-image-delete vm-img) (gimp-image-delete vm-img)
(gimp-floating-sel-anchor (car (gimp-edit-paste w-img v-mask FALSE))) (gimp-floating-sel-anchor (car (gimp-edit-paste v-mask FALSE)))
(gimp-layer-set-opacity v-layer thread-intensity) (gimp-layer-set-opacity v-layer thread-intensity)
(gimp-layer-set-mode v-layer MULTIPLY) (gimp-layer-set-mode v-layer MULTIPLY)
@ -336,9 +334,9 @@
(w-layer (cadr weaving))) (w-layer (cadr weaving)))
(gimp-selection-all w-img) (gimp-selection-all w-img)
(gimp-edit-copy w-img w-layer) (gimp-edit-copy w-layer)
(gimp-image-delete w-img) (gimp-image-delete w-img)
(let ((floating-sel (car (gimp-edit-paste d-img drawable FALSE)))) (let ((floating-sel (car (gimp-edit-paste drawable FALSE))))
(gimp-layer-set-offsets floating-sel (gimp-layer-set-offsets floating-sel
(car d-offsets) (car d-offsets)
(cadr d-offsets)) (cadr d-offsets))

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

@ -57,7 +57,7 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha image drawable) (gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
@ -69,21 +69,21 @@
(gimp-selection-none image) (gimp-selection-none image)
(gimp-edit-clear image hl-layer) (gimp-edit-clear hl-layer)
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-palette-set-background hl-color) (gimp-palette-set-background hl-color)
(gimp-edit-fill image hl-layer) (gimp-edit-fill hl-layer)
(gimp-selection-translate image hl-offset-x hl-offset-y) (gimp-selection-translate image hl-offset-x hl-offset-y)
(gimp-edit-fill image hl-layer) (gimp-edit-fill hl-layer)
(gimp-selection-none image) (gimp-selection-none image)
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(set! mask (car (gimp-layer-create-mask hl-layer WHITE-MASK))) (set! mask (car (gimp-layer-create-mask hl-layer WHITE-MASK)))
(gimp-image-add-layer-mask image hl-layer mask) (gimp-image-add-layer-mask image hl-layer mask)
(gimp-palette-set-background hl-opacity) (gimp-palette-set-background hl-opacity)
(gimp-edit-fill image mask) (gimp-edit-fill mask)
(set! shadow-layer (car (gimp-layer-new image (set! shadow-layer (car (gimp-layer-new image
image-width image-width
@ -94,15 +94,15 @@
NORMAL))) NORMAL)))
(gimp-image-add-layer image shadow-layer -1) (gimp-image-add-layer image shadow-layer -1)
(gimp-selection-none image) (gimp-selection-none image)
(gimp-edit-clear image shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-selection-translate image ds-offset-x ds-offset-y) (gimp-selection-translate image ds-offset-x ds-offset-y)
(gimp-palette-set-background ds-color) (gimp-palette-set-background ds-color)
(gimp-edit-fill image shadow-layer) (gimp-edit-fill shadow-layer)
(gimp-selection-none image) (gimp-selection-none image)
(plug-in-gauss-rle 1 image shadow-layer ds-blur TRUE TRUE) (plug-in-gauss-rle 1 image shadow-layer ds-blur TRUE TRUE)
(gimp-selection-load image active-selection) (gimp-selection-load active-selection)
(gimp-edit-clear image shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-image-lower-layer image shadow-layer) (gimp-image-lower-layer image shadow-layer)