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

81
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,
@ -29,7 +34,7 @@ Fri Nov 13 16:48:10 CET 1998 Marc Lehmann <pcg@goof.com>
app/pencil.c app/paintbrush.c, app/perspective_tool.c, app/pencil.c app/paintbrush.c, app/perspective_tool.c,
app/posterize.c, rotate_tool.c app/scale_tool.c, app/shear_tool.c, app/posterize.c, rotate_tool.c app/scale_tool.c, app/shear_tool.c,
app/text_tool.c, app/threshold.c: app/text_tool.c, app/threshold.c:
API-mega-break-it-all patch part one: removed the unnecessary API-mega-break-it-all patch part one: removed the unnecessary
PDB_IMAGE argument from many functions. PDB_IMAGE argument from many functions.
@ -39,7 +44,7 @@ Fri Nov 13 16:48:10 CET 1998 Marc Lehmann <pcg@goof.com>
* app/parasite_cmds.c, libgimp/parasite.[ch], * app/parasite_cmds.c, libgimp/parasite.[ch],
* libgimp/gimp.c, libgimp/gimpprotocol.c * libgimp/gimp.c, libgimp/gimpprotocol.c
* tiff.c, gif.c, script-fu.c: removed all references to * tiff.c, gif.c, script-fu.c: removed all references to
parasite_error() and parasite_is_error(). Enable the parasite_error() and parasite_is_error(). Enable the
passing of null parasites in the pdb. Return a copy of the passing of null parasites in the pdb. Return a copy of the
parasite instead of the orginal in all pdb functions. parasite instead of the orginal in all pdb functions.
@ -60,7 +65,7 @@ Wed Nov 11 02:27:46 CET 1998 Marc Lehmann <pcg@goof.com>
Tue Nov 10 23:44:07 MET 1998 Sven Neumann <sven@gimp.org> Tue Nov 10 23:44:07 MET 1998 Sven Neumann <sven@gimp.org>
* libgimp/gimpmatrix.[ch] * libgimp/gimpmatrix.[ch]
* app/transform_core.c: minimal speedup * app/transform_core.c: minimal speedup
* app/scale_tool.c: Use transform_core_do() for scaling too. * app/scale_tool.c: Use transform_core_do() for scaling too.
This gives a consistent behaviour regarding the corrective transform This gives a consistent behaviour regarding the corrective transform
@ -72,8 +77,8 @@ Mon Nov 9 16:20:33 MET 1998 Sven Neumann <sven@gimp.org>
position position
* plug-ins/script-fu/script-fu-scripts.c * plug-ins/script-fu/script-fu-scripts.c
* plug-ins/script-fu/scripts/test-sphere.scm: small cosmetic fixes * plug-ins/script-fu/scripts/test-sphere.scm: small cosmetic fixes
Sun Nov 8 17:51:52 PST 1998 Manish Singh <yosh@gimp.org> Sun Nov 8 17:51:52 PST 1998 Manish Singh <yosh@gimp.org>
* Makefile.am * Makefile.am
@ -92,20 +97,20 @@ Sun Nov 8 17:51:52 PST 1998 Manish Singh <yosh@gimp.org>
1998-11-08 Raja R Harinath <harinath@cs.umn.edu> 1998-11-08 Raja R Harinath <harinath@cs.umn.edu>
* configure.in (sendmail_path): Prefer /usr/sbin/sendmail to * configure.in (sendmail_path): Prefer /usr/sbin/sendmail to
/usr/lib/sendmail. /usr/lib/sendmail.
1998-11-07 Jay Cox <jaycox@earthlink.net> 1998-11-07 Jay Cox <jaycox@earthlink.net>
* libgimp/{gimp.h, gimpchannel.c, gimpdrawable.c, gimplayer.c}: * libgimp/{gimp.h, gimpchannel.c, gimpdrawable.c, gimplayer.c}:
export the tattoo functions to the plug-ins export the tattoo functions to the plug-ins
* libgimp/gserialize.c, libgimp/gserialize.h: new files for * libgimp/gserialize.c, libgimp/gserialize.h: new files for
serializing structures serializing structures
* main.c: test the gserialize functions * main.c: test the gserialize functions
* gimpsignal.h: declare gimp_sigtype_* as extern * gimpsignal.h: declare gimp_sigtype_* as extern
Thu Nov 5 16:42:21 PST 1998 Manish Singh <yosh@gimp.org> Thu Nov 5 16:42:21 PST 1998 Manish Singh <yosh@gimp.org>
* Makefile.am: added MAINTAINERS to EXTRA_DIST * Makefile.am: added MAINTAINERS to EXTRA_DIST
@ -142,12 +147,12 @@ Thu Nov 5 16:42:21 PST 1998 Manish Singh <yosh@gimp.org>
Thu Nov 5 21:55:46 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk> Thu Nov 5 21:55:46 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk>
* app/gradient.c * app/gradient.c
* app/gradient_select.c * app/gradient_select.c
Changes due to gtk+ updates. Clist have been changed recently Changes due to gtk+ updates. Clist have been changed recently
in gtk which required changes to source code. These changes in gtk which required changes to source code. These changes
have only been tested with the gtk version that introduced these have only been tested with the gtk version that introduced these
changes. (so lets get all those updates going...) changes. (so lets get all those updates going...)
Wed Nov 4 11:24:55 EST 1998 Adrian Likins <adrian@gimp.org> Wed Nov 4 11:24:55 EST 1998 Adrian Likins <adrian@gimp.org>
@ -157,7 +162,7 @@ Wed Nov 4 11:24:55 EST 1998 Adrian Likins <adrian@gimp.org>
Wed Nov 4 22:23:18 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk> Wed Nov 4 22:23:18 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk>
* app/gradient.c * app/gradient.c
* app/Makefile.am * app/Makefile.am
New files New files
@ -200,7 +205,7 @@ Sun Nov 1 21:20:04 1998 Austin Donnelly <austin@greenend.org.uk>
Sat Oct 31 21:47:14 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk> Sat Oct 31 21:47:14 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk>
* app/gradient.c * app/gradient.c
Fixed for problems with renaming + fix for interactions between editor Fixed for problems with renaming + fix for interactions between editor
and gradient selection popups. and gradient selection popups.
@ -226,14 +231,14 @@ Sat Oct 31 14:57:40 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk>
* libgimp/gimpgradientmenu.c * libgimp/gimpgradientmenu.c
New gradient selector widget (smaller than the editor). This can now New gradient selector widget (smaller than the editor). This can now
be controlled via the PDB. be controlled via the PDB.
New widget which gives easy way to do gradient selections. This New widget which gives easy way to do gradient selections. This
new widget is used by script-fu (see the test->sphere script). new widget is used by script-fu (see the test->sphere script).
gradient.c needs to be split up (source is almost already split gradient.c needs to be split up (source is almost already split
I will complete this RSN). I will complete this RSN).
Sat Oct 31 01:37:23 CET 1998 Marc Lehmann <pcg@goof.com> Sat Oct 31 01:37:23 CET 1998 Marc Lehmann <pcg@goof.com>
* configure.in: make perl use the GLIB_CFLAGS/LIBS vars properly. * configure.in: make perl use the GLIB_CFLAGS/LIBS vars properly.
@ -241,7 +246,7 @@ Sat Oct 31 01:37:23 CET 1998 Marc Lehmann <pcg@goof.com>
Tue Oct 6 11:07:56 CEST 1998 Marc Lehmann <pcg@goof.com> Tue Oct 6 11:07:56 CEST 1998 Marc Lehmann <pcg@goof.com>
* app/drawable_cmds.c: corrected documentation for gimp_drawable_fill. * app/drawable_cmds.c: corrected documentation for gimp_drawable_fill.
Fri Oct 30 01:53:56 1998 Jay Cox (jaycox@earthlink.net) Fri Oct 30 01:53:56 1998 Jay Cox (jaycox@earthlink.net)
* app/parasitelist.c * app/parasitelist.c
@ -313,17 +318,17 @@ Fri Oct 23 00:58:37 CEST 1998 Marc Lehmann <pcg@goof.com>
Thu Oct 22 20:28:18 CEST 1998 Marc Lehmann <pcg@goof.com> Thu Oct 22 20:28:18 CEST 1998 Marc Lehmann <pcg@goof.com>
New directory tree plug-ins/perl/* New directory tree plug-ins/perl/*
The gimp-perl extension: many, many new files and directories (see The gimp-perl extension: many, many new files and directories (see
plug-ins/perl/MANIFEST for a list). plug-ins/perl/MANIFEST for a list).
It uses a private ChangeLog in plug-ins/perl/Changes. It uses a private ChangeLog in plug-ins/perl/Changes.
* configure.in, plug-ins/Makefile.am, INSTALL: changed to accomodate * configure.in, plug-ins/Makefile.am, INSTALL: changed to accomodate
the new extension. the new extension.
* config.h.in: added HAVE_VSNPRINTF, removed duplicate HAVE_VPRINTF. * config.h.in: added HAVE_VSNPRINTF, removed duplicate HAVE_VPRINTF.
Thu Oct 22 04:35:43 PDT 1998 Manish Singh <yosh@gimp.org> Thu Oct 22 04:35:43 PDT 1998 Manish Singh <yosh@gimp.org>
* plug-ins/checkerboard/checkerboard.c: fixed a buglet that * plug-ins/checkerboard/checkerboard.c: fixed a buglet that
@ -352,7 +357,7 @@ Thu Oct 22 02:30:38 PDT 1998 Manish Singh <yosh@gimp.org>
Wed Oct 21 23:37:01 BST 1998 Andy Thomas <alt@picnic.demon.co.uk> Wed Oct 21 23:37:01 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
Fixed a problem in gradient.c where if a gradient was selected Fixed a problem in gradient.c where if a gradient was selected
via the PDB and the editor has not been displayed on the screen via the PDB and the editor has not been displayed on the screen
gimp would crash. gimp would crash.
@ -368,12 +373,12 @@ Wed Oct 21 22:38:07 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
* plug-ins/script-fu/scripts/glossy.scm * plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/test-sphere.scm * plug-ins/script-fu/scripts/test-sphere.scm
* plug-ins/script-fu/scripts/textured-logo.scm * plug-ins/script-fu/scripts/textured-logo.scm
These scripts use new script-fu type These scripts use new script-fu type
* plug-ins/gfig/gfig.c * plug-ins/gfig/gfig.c
Redid yosh fix since I broke backwards compat. in Redid yosh fix since I broke backwards compat. in
gimp_interactive_selection_brush(). gimp_interactive_selection_brush().
Wed Oct 21 20:15:14 CEST 1998 Marc Lehmann <pcg@goof.com> Wed Oct 21 20:15:14 CEST 1998 Marc Lehmann <pcg@goof.com>
@ -389,7 +394,7 @@ Tue Oct 20 18:34:38 PDT 1998 Manish Singh <yosh@gimp.org>
Mr. Tootums knows! Mr. Tootums knows!
Tue Oct 20 23:20:40 BST 1998 Andy Thomas <alt@picnic.demon.co.uk> Tue Oct 20 23:20:40 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
* app/brush_select.h * app/brush_select.h
* app/brush_select.c * app/brush_select.c
* app/internal_procs.c * app/internal_procs.c
@ -406,8 +411,8 @@ Tue Oct 20 23:20:40 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
New file libgimp/gimpbrushmneu.c. New file libgimp/gimpbrushmneu.c.
Brush dialog can now be fully controlled via the PDB. New widget (not Brush dialog can now be fully controlled via the PDB. New widget (not
true widget) type added to libgimpui (gimp_brush_select_widget()). true widget) type added to libgimpui (gimp_brush_select_widget()).
Plugins should easily be able to control & select brushes. Script-fu Plugins should easily be able to control & select brushes. Script-fu
updated to use new widget. See the test script for example. updated to use new widget. See the test script for example.
@ -446,9 +451,9 @@ Wed Oct 14 17:46:15 EDT 1998 Adrian Likins <adrian@gimp.org>
* app/*, po/de.po, de/POTFILES.in, libgimp/gimpintl.h: * app/*, po/de.po, de/POTFILES.in, libgimp/gimpintl.h:
Lots of ii8n stuff here and some additions to the de.po. Lots of ii8n stuff here and some additions to the de.po.
Applied gimp-egger-981005-1 ,gimp-egger-981006-1, Applied gimp-egger-981005-1 ,gimp-egger-981006-1,
gimp-egger-981007-1, gimp-egger-981008-1, gimp-egger-981007-1, gimp-egger-981008-1,
gimp-egger-981009-1.patch, gimp-egger-981010-1.patch. gimp-egger-981009-1.patch, gimp-egger-981010-1.patch.
Patches provided by Daniel Egger <Daniel.Egger@t-online.de> Patches provided by Daniel Egger <Daniel.Egger@t-online.de>
* plug-in/guillotine/guillotine.c: added the coordinates * plug-in/guillotine/guillotine.c: added the coordinates
of the split images from the original image to the title. of the split images from the original image to the title.
@ -457,7 +462,7 @@ Wed Oct 14 17:46:15 EDT 1998 Adrian Likins <adrian@gimp.org>
* plug-in/script-fu/scripts/neon-logo.scm, * plug-in/script-fu/scripts/neon-logo.scm,
perspective-shadow.scm, predator.scm,rendermap.scm, perspective-shadow.scm, predator.scm,rendermap.scm,
ripply-anim.scm, select_to_image.scm,swirltile.scm, ripply-anim.scm, select_to_image.scm,swirltile.scm,
xach-effect.scm: updated scripts to use new script-fu stuff xach-effect.scm: updated scripts to use new script-fu stuff
Wed Oct 14 22:58:04 BST 1998 Austin Donnelly <austin@greenend.org.uk> Wed Oct 14 22:58:04 BST 1998 Austin Donnelly <austin@greenend.org.uk>
@ -533,7 +538,7 @@ Tue Oct 13 00:27:21 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
Mon Oct 12 10:25:05 EEST 1998 Tuomas Kuosmanen <tigert@gimp.org> Mon Oct 12 10:25:05 EEST 1998 Tuomas Kuosmanen <tigert@gimp.org>
* plug-ins/MapObject/mapobject_main.c: changed the * plug-ins/MapObject/mapobject_main.c: changed the
location in the menus - appears now under Filters->Map location in the menus - appears now under Filters->Map
instead of Filters->Distort instead of Filters->Distort
@ -636,7 +641,7 @@ Mon Oct 6 21:51:00 CST 1998 Seth Burgess <sjburges@gimp.org>
type to sensible ones, gave second paramter a .type type to sensible ones, gave second paramter a .type
Mon Oct 5 01:08:11 CST 1998 Seth Burgess <sjburges@gimp.org> Mon Oct 5 01:08:11 CST 1998 Seth Burgess <sjburges@gimp.org>
* app/layer_cmds.c: Changed "is_floating_sel" from PDB_CHANNEL * app/layer_cmds.c: Changed "is_floating_sel" from PDB_CHANNEL
to PDB_INT32 to PDB_INT32
@ -646,14 +651,14 @@ Mon Oct 5 01:08:11 CST 1998 Seth Burgess <sjburges@gimp.org>
* plug-ins/script-fu/scripts/gradient-bevel-logo.scm * plug-ins/script-fu/scripts/gradient-bevel-logo.scm
* plug-ins/script-fu/scripts/pupi-button.scm: * plug-ins/script-fu/scripts/pupi-button.scm:
removed extra paramters from some function calls that removed extra paramters from some function calls that
didn't break script-fu but were wrong anyway. didn't break script-fu but were wrong anyway.
Many thanks to Marc Lehman for reporting these. More to come. Many thanks to Marc Lehman for reporting these. More to come.
Mon Oct 5 23:56:09 EEST 1998 Lauri Alanko <nether@gimp.org> Mon Oct 5 23:56:09 EEST 1998 Lauri Alanko <nether@gimp.org>
* po/fr.po: fixed a compile-halting typo * po/fr.po: fixed a compile-halting typo
Mon Oct 5 16:18:08 EDT 1998 Matthew Wilson <msw@gimp.org> Mon Oct 5 16:18:08 EDT 1998 Matthew Wilson <msw@gimp.org>
* app/channels_dialog.c: fixed assignment in g_return_if_fail * app/channels_dialog.c: fixed assignment in g_return_if_fail

16
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)
@ -72,7 +72,7 @@
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg) (gimp-palette-set-foreground old-fg)
(gimp-image-enable-undo img) (gimp-image-enable-undo img)
(gimp-display-new img))) (gimp-display-new img)))
(script-fu-register "script-fu-3d-outline-logo" (script-fu-register "script-fu-3d-outline-logo"
"<Toolbox>/Xtns/Script-Fu/Logos/3D Outline" "<Toolbox>/Xtns/Script-Fu/Logos/3D Outline"

32
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,11 +46,11 @@
(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))
(temp-img (car (gimp-image-new tempSize tempSize RGB))) (temp-img (car (gimp-image-new tempSize tempSize RGB)))
(temp-draw (car (gimp-layer-new temp-img tempSize tempSize RGB_IMAGE "Jabar" 100 NORMAL))) (temp-draw (car (gimp-layer-new temp-img tempSize tempSize RGB_IMAGE "Jabar" 100 NORMAL)))
(temp-draw2 (car (gimp-layer-new temp-img tempSize tempSize RGB_IMAGE "Jabar" 100 NORMAL)))) (temp-draw2 (car (gimp-layer-new temp-img tempSize tempSize RGB_IMAGE "Jabar" 100 NORMAL))))
@ -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)))))
@ -106,7 +106,7 @@
(define (script-fu-3dtruchet size thickness backcolor begincolor endcolor supersample xtiles ytiles) (define (script-fu-3dtruchet size thickness backcolor begincolor endcolor supersample xtiles ytiles)
(let* ( (let* (
(width (* size xtiles)) (width (* size xtiles))
(height (* size ytiles)) (height (* size ytiles))
(img (car (gimp-image-new width height RGB))) (img (car (gimp-image-new width height RGB)))
@ -115,7 +115,7 @@
(tiledraw1 (car (gimp-layer-new tile size size RGB "Johnson" 100 NORMAL))) (tiledraw1 (car (gimp-layer-new tile size size RGB "Johnson" 100 NORMAL)))
(tiledraw2 (car (gimp-layer-new tile size size RGB "Cooper" 100 NORMAL))) (tiledraw2 (car (gimp-layer-new tile size size RGB "Cooper" 100 NORMAL)))
(Xindex 0) (Xindex 0)
(Yindex 0) (Yindex 0)
) )
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
@ -128,8 +128,8 @@
;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)

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

@ -64,8 +64,8 @@
; ;
(define (script-fu-add-bevel img (define (script-fu-add-bevel img
drawable drawable
thickness thickness
work-on-copy work-on-copy
keep-bump-layer) keep-bump-layer)
@ -80,11 +80,11 @@
(width (car (gimp-drawable-width pic-layer))) (width (car (gimp-drawable-width pic-layer)))
(height (car (gimp-drawable-height pic-layer))) (height (car (gimp-drawable-height pic-layer)))
(old-bg (car (gimp-palette-get-background))) (old-bg (car (gimp-palette-get-background)))
(bump-layer (car (gimp-layer-new image (bump-layer (car (gimp-layer-new image
width width
height height
GRAY GRAY
"Bumpmap" "Bumpmap"
100 100
NORMAL))) NORMAL)))
) )
@ -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.
@ -213,4 +213,4 @@
SF-ADJUSTMENT "Thickness" "5" SF-ADJUSTMENT "Thickness" "5"
SF-TOGGLE "Work on copy" TRUE SF-TOGGLE "Work on copy" TRUE
SF-TOGGLE "Keep bump layer" FALSE SF-TOGGLE "Keep bump layer" FALSE
) )

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

@ -109,8 +109,8 @@
;Add this for debugging (verbose 4) ;Add this for debugging (verbose 4)
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
(gimp-drawable-fill layer TRANS-IMAGE-FILL) (gimp-drawable-fill layer TRANS-IMAGE-FILL)
(gimp-image-resize img (gimp-image-resize img
width width
height height
xsize xsize
ysize) ysize)
@ -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)

12
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)

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

@ -24,10 +24,10 @@
; Define the function: ; Define the function:
(define (script-fu-asc-2-img inFile (define (script-fu-asc-2-img inFile
inFont inFont
inFontSize inFontSize
inTextColor inTextColor
inTrans inTrans
inBackColor inBackColor
inBufferAmount inBufferAmount
@ -38,43 +38,43 @@
(set! theLayer (car (gimp-layer-new theImage (set! theLayer (car (gimp-layer-new theImage
10 10
10 10
RGBA_IMAGE RGBA_IMAGE
"layer 1" "layer 1"
100 100
NORMAL) ) ) NORMAL) ) )
(gimp-palette-set-background inBackColor) (gimp-palette-set-background inBackColor)
(gimp-layer-set-name theLayer "Background") (gimp-layer-set-name theLayer "Background")
(gimp-image-add-layer theImage theLayer 0) (gimp-image-add-layer theImage theLayer 0)
(script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize (script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize
inTextColor inBufferAmount inFlatten) inTextColor inBufferAmount inFlatten)
(set! theBuffer (* inFontSize (/ inBufferAmount 100) ) ) (set! theBuffer (* inFontSize (/ inBufferAmount 100) ) )
(set! theImageWidth (+ theImageWidth theBuffer theBuffer )) (set! theImageWidth (+ theImageWidth theBuffer theBuffer ))
(set! theImageHeight (+ theImageHeight theBuffer theBuffer )) (set! theImageHeight (+ theImageHeight theBuffer theBuffer ))
(gimp-image-resize theImage (gimp-image-resize theImage
theImageWidth theImageWidth
theImageHeight theImageHeight
theBuffer theBuffer
theBuffer) theBuffer)
(gimp-layer-resize theLayer (gimp-layer-resize theLayer
theImageWidth theImageWidth
theImageHeight theImageHeight
theBuffer theBuffer
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)
(if (= inFlatten TRUE) (if (= inFlatten TRUE)
(gimp-image-merge-visible-layers theImage 0) (gimp-image-merge-visible-layers theImage 0)
() ()
) )
@ -90,10 +90,10 @@
(define (script-fu-asc-2-img-layer inImage (define (script-fu-asc-2-img-layer inImage
inLayer inLayer
inFile inFile
inFont inFont
inFontSize inFontSize
inTextColor inTextColor
inFlatten) inFlatten)
(set! theImage inImage) (set! theImage inImage)
@ -123,15 +123,15 @@
(not (equal? () theChar)) (not (equal? () theChar))
) )
) )
(cond ( (equal? theChar "\t") (cond ( (equal? theChar "\t")
(set! theChar " ") (set! theChar " ")
(if (= allspaces TRUE) (if (= allspaces TRUE)
(set! theIndent (+ theIndent 8)) (set! theIndent (+ theIndent 8))
()) ())
) )
( (equal? theChar " ") ( (equal? theChar " ")
(if (= allspaces TRUE) (if (= allspaces TRUE)
(set! theIndent (+ theIndent 1)) (set! theIndent (+ theIndent 1))
()) ())
) )
(TRUE (set! allspaces FALSE)) (TRUE (set! allspaces FALSE))
@ -147,30 +147,30 @@
) )
() ()
(begin (set! theData (cons theLine theData)) (begin (set! theData (cons theLine theData))
(set! theIndentList (set! theIndentList
(cons theIndent theIndentList)) (cons theIndent theIndentList))
) )
) )
) )
(set! theText (car (gimp-text-fontname theImage (set! theText (car (gimp-text-fontname theImage
-1 -1
0 0
0 0
"X" "X"
0 0
TRUE TRUE
inFontSize inFontSize
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)
(cjg-add-text (reverse theData) (cjg-add-text (reverse theData)
(reverse theIndentList) (reverse theIndentList)
inFont inFont
inFontSize) inFontSize)
(if (= inFlatten TRUE) (if (= inFlatten TRUE)
(gimp-image-merge-visible-layers theImage 0) (gimp-image-merge-visible-layers theImage 0)
@ -184,29 +184,29 @@
(gimp-displays-flush) (gimp-displays-flush)
) )
(define (cjg-add-text inData inIndentList inFont inFontSize) (define (cjg-add-text inData inIndentList inFont inFontSize)
(if (equal? () inData) (if (equal? () inData)
() ()
(let ((theLine (car inData)) (theIndent (car inIndentList))) (let ((theLine (car inData)) (theIndent (car inIndentList)))
(if (equal? "" theLine) (if (equal? "" theLine)
() ()
(begin (begin
(set! theText (car (gimp-text-fontname theImage (set! theText (car (gimp-text-fontname theImage
-1 -1
0
0
(string-append " " theLine)
0 0
TRUE 0
(string-append " " theLine)
0
TRUE
inFontSize inFontSize
PIXELS PIXELS
inFont))) inFont)))
(set! theLineHeight (car (gimp-drawable-height theText) ) ) (set! theLineHeight (car (gimp-drawable-height theText) ) )
(gimp-layer-set-offsets theText (gimp-layer-set-offsets theText
(* theCharWidth theIndent) (* theCharWidth theIndent)
(+ theImageHeight (+ theImageHeight
(- inFontSize theLineHeight))) (- inFontSize theLineHeight)))
(set! theImageWidth (max (set! theImageWidth (max
(+ (car (gimp-drawable-width theText) ) (+ (car (gimp-drawable-width theText) )
(* theCharWidth theIndent)) (* theCharWidth theIndent))
theImageWidth )) theImageWidth ))
@ -217,8 +217,8 @@
(gimp-layer-set-name theText theLine) (gimp-layer-set-name theText theLine)
) )
) )
(set! theImageHeight (set! theImageHeight
(+ theImageHeight inFontSize)) (+ theImageHeight inFontSize))
(cjg-add-text (cdr inData) (cdr inIndentList) inFont inFontSize))) (cjg-add-text (cdr inData) (cdr inIndentList) inFont inFontSize)))
) )

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)

54
plug-ins/script-fu/scripts/blend-anim.scm
View File

@ -63,7 +63,7 @@
(if (= looped TRUE) (if (= looped TRUE)
; add a copy of the lowest blend layer on top ; add a copy of the lowest blend layer on top
(let* ((copy (car (gimp-layer-copy (let* ((copy (car (gimp-layer-copy
(aref layer-array (- num-layers 2)) TRUE)))) (aref layer-array (- num-layers 2)) TRUE))))
(gimp-image-add-layer image copy 0) (gimp-image-add-layer image copy 0)
(set! layers (gimp-image-get-layers image)) (set! layers (gimp-image-get-layers image))
@ -75,7 +75,7 @@
; make all layers invisible and check for sizes ; make all layers invisible and check for sizes
(let* ((min-offset-x width) (let* ((min-offset-x width)
(min-offset-y height) (min-offset-y height)
(layer-count slots)) (layer-count slots))
(gimp-layer-set-visible bg-layer FALSE) (gimp-layer-set-visible bg-layer FALSE)
(while (> layer-count -1) (while (> layer-count -1)
(let* ((layer (aref layer-array layer-count)) (let* ((layer (aref layer-array layer-count))
@ -90,11 +90,11 @@
(set! max-width (max max-width layer-width)) (set! max-width (max max-width layer-width))
(set! max-height (max max-height layer-height)) (set! max-height (max max-height layer-height))
(set! min-offset-x (min min-offset-x layer-offset-x)) (set! min-offset-x (min min-offset-x layer-offset-x))
(set! min-offset-y (min min-offset-y layer-offset-y)) (set! min-offset-y (min min-offset-y layer-offset-y))
(set! layer-count (- layer-count 1)))) (set! layer-count (- layer-count 1))))
(set! offset-x (- (car (gimp-drawable-offsets bg-layer)) (set! offset-x (- (car (gimp-drawable-offsets bg-layer))
min-offset-x)) min-offset-x))
(set! offset-y (- (cadr (gimp-drawable-offsets bg-layer)) (set! offset-y (- (cadr (gimp-drawable-offsets bg-layer))
min-offset-y))) min-offset-y)))
; create intermediate frames by merging copies of adjascent layers ; create intermediate frames by merging copies of adjascent layers
@ -128,33 +128,33 @@
(+ layer-height (* blur 2)) (+ layer-height (* blur 2))
blur blur
blur) blur)
(plug-in-gauss-rle 1 (plug-in-gauss-rle 1
image image
upper-copy upper-copy
blur blur
TRUE TRUE) TRUE TRUE)
(set! blur (- max-blur blur)) (set! blur (- max-blur blur))
(gimp-layer-set-preserve-trans lower-copy FALSE) (gimp-layer-set-preserve-trans lower-copy FALSE)
(set! layer-width (car (gimp-drawable-width (set! layer-width (car (gimp-drawable-width
lower-copy))) lower-copy)))
(set! layer-height (car (gimp-drawable-height (set! layer-height (car (gimp-drawable-height
lower-copy))) lower-copy)))
(gimp-layer-resize lower-copy (gimp-layer-resize lower-copy
(+ layer-width (* blur 2)) (+ layer-width (* blur 2))
(+ layer-height (* blur 2)) (+ layer-height (* blur 2))
blur blur
blur) blur)
(plug-in-gauss-rle 1 (plug-in-gauss-rle 1
image image
lower-copy lower-copy
blur blur
TRUE TRUE))) TRUE TRUE)))
(gimp-layer-resize bg-copy (gimp-layer-resize bg-copy
max-width max-width
max-height max-height
offset-x offset-x
offset-y) offset-y)
(let* ((merged-layer (car (gimp-image-merge-visible-layers (let* ((merged-layer (car (gimp-image-merge-visible-layers
image CLIP-TO-IMAGE)))) image CLIP-TO-IMAGE))))
(gimp-layer-set-visible merged-layer FALSE)) (gimp-layer-set-visible merged-layer FALSE))
(set! frame-count (- frame-count 1)))) (set! frame-count (- frame-count 1))))
@ -164,22 +164,22 @@
; with copies of the background layer ; with copies of the background layer
(let* ((layer-count 0)) (let* ((layer-count 0))
(while (< layer-count slots) (while (< layer-count slots)
(let* ((orig-layer (aref layer-array layer-count)) (let* ((orig-layer (aref layer-array layer-count))
(bg-copy (car (gimp-layer-copy bg-layer TRUE)))) (bg-copy (car (gimp-layer-copy bg-layer TRUE))))
(gimp-image-add-layer image (gimp-image-add-layer image
bg-copy bg-copy
(* layer-count (+ frames 1))) (* layer-count (+ frames 1)))
(multi-raise-layer image (multi-raise-layer image
orig-layer orig-layer
(+ (* (- slots layer-count) frames) 1)) (+ (* (- slots layer-count) frames) 1))
(gimp-layer-set-visible orig-layer TRUE) (gimp-layer-set-visible orig-layer TRUE)
(gimp-layer-set-visible bg-copy TRUE) (gimp-layer-set-visible bg-copy TRUE)
(gimp-layer-resize bg-copy (gimp-layer-resize bg-copy
max-width max-width
max-height max-height
offset-x offset-x
offset-y) offset-y)
(let* ((merged-layer (car (gimp-image-merge-visible-layers (let* ((merged-layer (car (gimp-image-merge-visible-layers
image CLIP-TO-IMAGE)))) image CLIP-TO-IMAGE))))
(gimp-layer-set-visible merged-layer FALSE)) (gimp-layer-set-visible merged-layer FALSE))
(set! layer-count (+ layer-count 1))))) (set! layer-count (+ layer-count 1)))))
@ -197,8 +197,8 @@
(layer-count (- num-result-layers 1))) (layer-count (- num-result-layers 1)))
(while (> layer-count -1) (while (> layer-count -1)
(let* ((layer (aref result-layer-array layer-count)) (let* ((layer (aref result-layer-array layer-count))
(name (string-append "Frame " (name (string-append "Frame "
(number->string (number->string
(- num-result-layers layer-count) 10)))) (- num-result-layers layer-count) 10))))
(gimp-layer-set-visible layer TRUE) (gimp-layer-set-visible layer TRUE)
(gimp-layer-set-name layer name) (gimp-layer-set-name layer name)
@ -213,7 +213,7 @@
(gimp-displays-flush)) (gimp-displays-flush))
(gimp-message "Blend Animation needs at least three source layers")))) (gimp-message "Blend Animation needs at least three source layers"))))
(script-fu-register "script-fu-blend-anim" (script-fu-register "script-fu-blend-anim"
"<Image>/Script-Fu/Animators/Blend" "<Image>/Script-Fu/Animators/Blend"
"Blend two or more layers over a background, so that an "Blend two or more layers over a background, so that an
animation can be saved" animation can be saved"

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)

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

@ -41,36 +41,36 @@
(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)
() ()
) )
(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)
() ()
) )
(if (= inFlatten TRUE) (if (= inFlatten TRUE)
(gimp-image-flatten theImage) (gimp-image-flatten theImage)
() ()
) )

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)

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

@ -49,10 +49,10 @@
(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)))))
@ -64,22 +64,22 @@
(if (= seperate-layer TRUE) (if (= seperate-layer TRUE)
(begin (begin
(set! effect-layer (car (gimp-layer-new image (set! effect-layer (car (gimp-layer-new image
select-width select-width
select-height select-height
type type
"effect layer" "effect layer"
100 100
NORMAL))) NORMAL)))
(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)

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

@ -27,25 +27,25 @@
(set! theNumber inNumber) (set! theNumber inNumber)
(set! theSize (min theWidth theHeight) ) (set! theSize (min theWidth theHeight) )
(while (> theNumber 0) (while (> theNumber 0)
(set! theNumber (- theNumber 1)) (set! theNumber (- theNumber 1))
(set! theStain (car (gimp-layer-new theImage theSize theSize RGBA_IMAGE "Stain" 100 (set! theStain (car (gimp-layer-new theImage theSize theSize RGBA_IMAGE "Stain" 100
(if (= inDark TRUE) DARKEN-ONLY NORMAL) ))) (if (= inDark TRUE) DARKEN-ONLY NORMAL) )))
(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)
(/ (- theSize blobSize) 2) (/ (- theSize blobSize) 2)
blobSize blobSize REPLACE TRUE 0 FALSE) blobSize blobSize REPLACE TRUE 0 FALSE)
) )
(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)

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

@ -49,8 +49,8 @@
; ;
; ;
(define (script-fu-colorcycling-anim img (define (script-fu-colorcycling-anim img
drawable drawable
num-frames num-frames
startredstretch startredstretch
startgreenstretch startgreenstretch
@ -142,14 +142,14 @@
(set! alienmap-layer (car (gimp-layer-copy source-layer TRUE))) (set! alienmap-layer (car (gimp-layer-copy source-layer TRUE)))
(gimp-layer-set-preserve-trans alienmap-layer FALSE) (gimp-layer-set-preserve-trans alienmap-layer FALSE)
(gimp-image-add-layer image alienmap-layer -1) (gimp-image-add-layer image alienmap-layer -1)
(set! layer-name (string-append "Frame " (set! layer-name (string-append "Frame "
(number->string (number->string
(- (+ num-frames 2) (- (+ num-frames 2)
remaining-frames) 10))) remaining-frames) 10)))
(gimp-layer-set-name alienmap-layer layer-name) (gimp-layer-set-name alienmap-layer layer-name)
(plug-in-alienmap 1 (plug-in-alienmap 1
image image
alienmap-layer alienmap-layer
redstretch redstretch
greenstretch greenstretch
@ -184,8 +184,8 @@
) )
(gimp-layer-set-name source-layer "Frame 1") (gimp-layer-set-name source-layer "Frame 1")
(plug-in-alienmap 1 (plug-in-alienmap 1
image image
source-layer source-layer
redstretch redstretch
greenstretch greenstretch
@ -209,7 +209,7 @@
(gimp-image-enable-undo image) (gimp-image-enable-undo image)
(gimp-display-new image))) (gimp-display-new image)))
(script-fu-register "script-fu-colorcycling-anim" (script-fu-register "script-fu-colorcycling-anim"
"<Image>/Script-Fu/Animators/Color Cycling" "<Image>/Script-Fu/Animators/Color Cycling"
"Creates an animation with the help of the alienmap plug-in" "Creates an animation with the help of the alienmap plug-in"
"Daniel Cotting (cotting@mygale.org)" "Daniel Cotting (cotting@mygale.org)"

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)

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

@ -36,7 +36,7 @@
(set! visi-array (cons-array num-layers)) (set! visi-array (cons-array num-layers))
(while (<= layer-count num-layers) (while (<= layer-count num-layers)
(set! layer (aref layer-array (- num-layers layer-count))) (set! layer (aref layer-array (- num-layers layer-count)))
(aset visi-array (- num-layers layer-count) (aset visi-array (- num-layers layer-count)
(car (gimp-layer-get-visible layer))) (car (gimp-layer-get-visible layer)))
(if (= TRUE (car (gimp-layer-get-visible layer))) (if (= TRUE (car (gimp-layer-get-visible layer)))
(begin (begin
@ -50,12 +50,12 @@
; merge all visible layers ; merge all visible layers
(if (> num-visi-layers 1) (if (> num-visi-layers 1)
(set! merged-layer (car (gimp-image-merge-visible-layers image EXPAND-AS-NECESSARY))) (set! merged-layer (car (gimp-image-merge-visible-layers image EXPAND-AS-NECESSARY)))
(if (> num-visi-layers 0) (if (> num-visi-layers 0)
(set! merged-layer copy))) (set! merged-layer copy)))
(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
@ -70,7 +70,7 @@
(gimp-undo-push-group-end image) (gimp-undo-push-group-end image)
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register "script-fu-copy-visible" (script-fu-register "script-fu-copy-visible"
"<Image>/Edit/Copy Visible" "<Image>/Edit/Copy Visible"
"Copy the visible selction" "Copy the visible selction"
"Sven Neumann (neumanns@uni-duesseldorf.de), Adrian Likins <adrian@gimp.org>" "Sven Neumann (neumanns@uni-duesseldorf.de), Adrian Likins <adrian@gimp.org>"

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)

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

@ -21,53 +21,53 @@
; Define the function: ; Define the function:
(define (script-fu-distress-selection inImage (define (script-fu-distress-selection inImage
inLayer inLayer
inThreshold inThreshold
inSpread inSpread
inGranu inGranu
inSmooth inSmooth
inSmoothH inSmoothH
inSmoothV inSmoothV
) )
(set! theImage inImage) (set! theImage inImage)
(set! theWidth (car (gimp-image-width inImage))) (set! theWidth (car (gimp-image-width inImage)))
(set! theHeight (car (gimp-image-height inImage))) (set! theHeight (car (gimp-image-height inImage)))
(gimp-image-disable-undo theImage) (gimp-image-disable-undo theImage)
(set! theLayer (car (gimp-layer-new theImage (set! theLayer (car (gimp-layer-new theImage
theWidth theWidth
theHeight theHeight
RGBA_IMAGE RGBA_IMAGE
"Distress Scratch Layer" "Distress Scratch Layer"
100 100
NORMAL NORMAL
) ) ) ) ) )
(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)
(gimp-layer-scale theLayer (gimp-layer-scale theLayer
(/ theWidth inGranu) (/ theWidth inGranu)
(/ theHeight inGranu) (/ theHeight inGranu)
TRUE TRUE
) )
(plug-in-spread TRUE (plug-in-spread TRUE
theImage theImage
theLayer theLayer
inSpread inSpread
inSpread inSpread
) )
@ -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)

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

@ -21,53 +21,53 @@
; Define the function: ; Define the function:
(define (script-fu-distress-selection inImage (define (script-fu-distress-selection inImage
inLayer inLayer
inThreshold inThreshold
inSpread inSpread
inGranu inGranu
inSmooth inSmooth
inSmoothH inSmoothH
inSmoothV inSmoothV
) )
(set! theImage inImage) (set! theImage inImage)
(set! theWidth (car (gimp-image-width inImage))) (set! theWidth (car (gimp-image-width inImage)))
(set! theHeight (car (gimp-image-height inImage))) (set! theHeight (car (gimp-image-height inImage)))
(gimp-image-disable-undo theImage) (gimp-image-disable-undo theImage)
(set! theLayer (car (gimp-layer-new theImage (set! theLayer (car (gimp-layer-new theImage
theWidth theWidth
theHeight theHeight
RGBA_IMAGE RGBA_IMAGE
"Distress Scratch Layer" "Distress Scratch Layer"
100 100
NORMAL NORMAL
) ) ) ) ) )
(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)
(gimp-layer-scale theLayer (gimp-layer-scale theLayer
(/ theWidth inGranu) (/ theWidth inGranu)
(/ theHeight inGranu) (/ theHeight inGranu)
TRUE TRUE
) )
(plug-in-spread TRUE (plug-in-spread TRUE
theImage theImage
theLayer theLayer
inSpread inSpread
inSpread inSpread
) )
@ -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)

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

@ -34,10 +34,10 @@
; idea to add alpha-support to add-shadow. ; idea to add alpha-support to add-shadow.
(define (script-fu-drop-shadow image (define (script-fu-drop-shadow image
drawable drawable
shadow-transl-x shadow-transl-x
shadow-transl-y shadow-transl-y
shadow-blur shadow-blur
shadow-color shadow-color
shadow-opacity shadow-opacity
@ -58,9 +58,9 @@
(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)
(set! active-selection (car (gimp-selection-save image))))) (set! active-selection (car (gimp-selection-save image)))))
@ -84,67 +84,67 @@
(if (< (+ shadow-offset-x shadow-transl-x) 0) (if (< (+ shadow-offset-x shadow-transl-x) 0)
(begin (begin
(set! image-offset-x (- 0 (+ shadow-offset-x (set! image-offset-x (- 0 (+ shadow-offset-x
shadow-transl-x))) shadow-transl-x)))
(set! shadow-offset-x (- 0 shadow-transl-x)) (set! shadow-offset-x (- 0 shadow-transl-x))
(set! new-image-width (- new-image-width image-offset-x)))) (set! new-image-width (- new-image-width image-offset-x))))
(if (< (+ shadow-offset-y shadow-transl-y) 0) (if (< (+ shadow-offset-y shadow-transl-y) 0)
(begin (begin
(set! image-offset-y (- 0 (+ shadow-offset-y (set! image-offset-y (- 0 (+ shadow-offset-y
shadow-transl-y))) shadow-transl-y)))
(set! shadow-offset-y (- 0 shadow-transl-y)) (set! shadow-offset-y (- 0 shadow-transl-y))
(set! new-image-height (- new-image-height image-offset-y)))) (set! new-image-height (- new-image-height image-offset-y))))
(if (> (+ (+ shadow-width shadow-offset-x) shadow-transl-x) (if (> (+ (+ shadow-width shadow-offset-x) shadow-transl-x)
new-image-width) new-image-width)
(set! new-image-width (set! new-image-width
(+ (+ shadow-width shadow-offset-x) shadow-transl-x))) (+ (+ shadow-width shadow-offset-x) shadow-transl-x)))
(if (> (+ (+ shadow-height shadow-offset-y) shadow-transl-y) (if (> (+ (+ shadow-height shadow-offset-y) shadow-transl-y)
new-image-height) new-image-height)
(set! new-image-height (set! new-image-height
(+ (+ shadow-height shadow-offset-y) shadow-transl-y))) (+ (+ shadow-height shadow-offset-y) shadow-transl-y)))
(gimp-image-resize image (gimp-image-resize image
new-image-width new-image-width
new-image-height new-image-height
image-offset-x image-offset-x
image-offset-y))) image-offset-y)))
(set! shadow-layer (car (gimp-layer-new image (set! shadow-layer (car (gimp-layer-new image
shadow-width shadow-width
shadow-height shadow-height
type type
"Drop-Shadow" "Drop-Shadow"
shadow-opacity shadow-opacity
NORMAL))) NORMAL)))
(gimp-layer-set-offsets shadow-layer (gimp-layer-set-offsets shadow-layer
shadow-offset-x shadow-offset-x
shadow-offset-y)) shadow-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)
(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
image image
shadow-layer shadow-layer
shadow-blur shadow-blur
TRUE TRUE
TRUE)) TRUE))
(gimp-image-add-layer image shadow-layer -1) (gimp-image-add-layer image shadow-layer -1)
(gimp-layer-translate shadow-layer shadow-transl-x shadow-transl-y) (gimp-layer-translate shadow-layer shadow-transl-x shadow-transl-y)
(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
(= (car (gimp-layer-is-floating-sel drawable)) 0) (= (car (gimp-layer-is-floating-sel drawable)) 0)
(= from-selection FALSE)) (= from-selection FALSE))
(gimp-image-raise-layer image drawable)) (gimp-image-raise-layer image drawable))
@ -154,7 +154,7 @@
(gimp-image-enable-undo image) (gimp-image-enable-undo image)
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register "script-fu-drop-shadow" (script-fu-register "script-fu-drop-shadow"
"<Image>/Script-Fu/Shadow/Drop-Shadow" "<Image>/Script-Fu/Shadow/Drop-Shadow"
"Add a drop-shadow of the current selection or "Add a drop-shadow of the current selection or
alpha-channel" alpha-channel"
@ -169,7 +169,7 @@
SF-VALUE "Blur Radius" "15" SF-VALUE "Blur Radius" "15"
SF-COLOR "Color" '(0 0 0) SF-COLOR "Color" '(0 0 0)
SF-VALUE "Opacity" "80" SF-VALUE "Opacity" "80"
SF-TOGGLE "Allow Resizing" TRUE) SF-TOGGLE "Allow Resizing" TRUE)

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

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

@ -36,7 +36,7 @@
; Define the main function: ; Define the main function:
(define (script-fu-fade-outline inImage (define (script-fu-fade-outline inImage
inLayer inLayer
inBorderSize inBorderSize
inApplyMask inApplyMask
inClearUnselected inClearUnselected
@ -46,7 +46,7 @@
(l-step (/ 25500 (+ inBorderSize 1))) (l-step (/ 25500 (+ inBorderSize 1)))
(l-gray l-step) (l-gray l-step)
(l-old-bg-color (car (gimp-palette-get-background))) (l-old-bg-color (car (gimp-palette-get-background)))
(l-has-selection TRUE) (l-has-selection TRUE)
) )
@ -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)
@ -127,7 +127,7 @@
(gimp-undo-push-group-end inImage) (gimp-undo-push-group-end inImage)
(gimp-displays-flush) (gimp-displays-flush)
) )
)) ))
) )

4
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))
@ -70,4 +70,4 @@
SF-VALUE "Fonts" "'(\"Agate\" \"AlfredDrake\" \"Becker\" \"Blippo\" \"Bodoni\" \"Dragonwick\" \"Engraver\" \"Futura_Poster\" \"RoostHeavy\")" SF-VALUE "Fonts" "'(\"Agate\" \"AlfredDrake\" \"Becker\" \"Blippo\" \"Bodoni\" \"Dragonwick\" \"Engraver\" \"Futura_Poster\" \"RoostHeavy\")"
SF-ADJUSTMENT "Font Size (pixels)" '(32 2 1000 1 10 0 1) SF-ADJUSTMENT "Font Size (pixels)" '(32 2 1000 1 10 0 1)
SF-VALUE "Border" "10" SF-VALUE "Border" "10"
) )

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)

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

@ -23,14 +23,14 @@
; Define the function: ; Define the function:
(define (script-fu-fuzzy-border inImage (define (script-fu-fuzzy-border inImage
inLayer inLayer
inColor inColor
inSize inSize
inBlur inBlur
inGranu inGranu
inShadow inShadow
inShadWeight inShadWeight
inCopy inCopy
inFlatten inFlatten
) )
@ -40,94 +40,94 @@
(car (gimp-channel-ops-duplicate inImage)) (car (gimp-channel-ops-duplicate inImage))
inImage) inImage)
) )
(if (> (car (gimp-drawable-type inLayer)) (if (> (car (gimp-drawable-type inLayer))
1 1
) )
(gimp-convert-rgb theImage) (gimp-convert-rgb theImage)
) )
(set! theWidth (car (gimp-image-width inImage))) (set! theWidth (car (gimp-image-width inImage)))
(set! theHeight (car (gimp-image-height inImage))) (set! theHeight (car (gimp-image-height inImage)))
(set! theLayer (car (gimp-layer-new theImage (set! theLayer (car (gimp-layer-new theImage
theWidth theWidth
theHeight theHeight
RGBA_IMAGE RGBA_IMAGE
"layer 1" "layer 1"
100 100
NORMAL NORMAL
) ) ) ) ) )
(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
(/ theWidth inGranu) (/ theWidth inGranu)
(/ theHeight inGranu) (/ theHeight inGranu)
TRUE TRUE
) )
(plug-in-spread TRUE (plug-in-spread TRUE
theImage theImage
theLayer theLayer
(/ inSize inGranu) (/ inSize inGranu)
(/ inSize inGranu) (/ inSize inGranu)
) )
(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)
(if (= inBlur TRUE) (if (= inBlur TRUE)
(plug-in-gauss-rle TRUE theImage theLayer inSize TRUE TRUE) (plug-in-gauss-rle TRUE theImage theLayer inSize TRUE TRUE)
() ()
) )
(if (= inShadow FALSE) (if (= inShadow FALSE)
() ()
(begin (begin
(gimp-selection-none inImage) (gimp-selection-none inImage)
(gimp-image-add-layer theImage (gimp-image-add-layer theImage
(car (gimp-layer-copy theLayer (car (gimp-layer-copy theLayer
FALSE FALSE
)) ))
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
(/ inSize 2) (/ inSize 2)
(/ inSize 2) (/ inSize 2)
) )
(plug-in-gauss-rle TRUE (plug-in-gauss-rle TRUE
theImage theImage
theLayer theLayer
(/ inSize 2) (/ inSize 2)
TRUE TRUE
TRUE TRUE
) )
(gimp-layer-set-opacity theLayer inShadWeight) (gimp-layer-set-opacity theLayer inShadWeight)
) )
) )
(if (= inFlatten TRUE) (if (= inFlatten TRUE)
(gimp-image-flatten theImage) (gimp-image-flatten theImage)
() ()
) )
(if (= inCopy TRUE) (if (= inCopy TRUE)
(begin (gimp-image-clean-all theImage) (begin (gimp-image-clean-all theImage)
(gimp-display-new theImage) (gimp-display-new theImage)
) )
() ()
@ -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)
) )

22
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)
@ -84,14 +84,14 @@
(set! text-layer (car (gimp-image-flatten img))) (set! text-layer (car (gimp-image-flatten img)))
(gimp-layer-add-alpha text-layer) (gimp-layer-add-alpha text-layer)
(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)
@ -115,7 +115,7 @@
(script-fu-headers-gimp-org (string-append " " text) (script-fu-headers-gimp-org (string-append " " text)
font "bold" "i" "normal" font-size font "bold" "i" "normal" font-size
text-color high-color side-color shadow-color text-color high-color side-color shadow-color
crop rm-bg index num-colors)) crop rm-bg index num-colors))
(define (script-fu-small-header-gimp-org text font font-size text-color (define (script-fu-small-header-gimp-org text font font-size text-color
@ -124,7 +124,7 @@
(script-fu-headers-gimp-org text font "medium" "r" "normal" (script-fu-headers-gimp-org text font "medium" "r" "normal"
font-size text-color high-color font-size text-color high-color
side-color shadow-color side-color shadow-color
crop rm-bg index num-colors)) crop rm-bg index num-colors))
(script-fu-register "script-fu-big-header-gimp-org" (script-fu-register "script-fu-big-header-gimp-org"

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

@ -50,23 +50,23 @@
(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)))
(gimp-layer-add-alpha text-layer) (gimp-layer-add-alpha text-layer)
(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)

22
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

8
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,14 +64,14 @@
(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))
(set! script-fu-grid-system-y-divides (wrap-list y-divides-orig)) (set! script-fu-grid-system-y-divides (wrap-list y-divides-orig))
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register "script-fu-grid-system" (script-fu-register "script-fu-grid-system"
"<Image>/Script-Fu/Render/Make Grid System" "<Image>/Script-Fu/Render/Make Grid System"
"Draw grid as specified by X-DIVIDES (list of propotions relative to the drawable) and Y-DIVIDES. The color and width of grid is detemined by the current settings of brush." "Draw grid as specified by X-DIVIDES (list of propotions relative to the drawable) and Y-DIVIDES. The color and width of grid is detemined by the current settings of brush."
"Shuji Narazaki <narazaki@InetQ.or.jp>" "Shuji Narazaki <narazaki@InetQ.or.jp>"

32
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)))
@ -96,7 +96,7 @@
(aset vec (+ (* 2 base) 1) (aset vec (+ (* 2 base) 1)
(aref vec (+ (* 2 (- size (- offset base))) 1))) (aref vec (+ (* 2 (- size (- offset base))) 1)))
(set! base (+ base 1))) (set! base (+ base 1)))
(set-car! segment base))) (set-car! segment base)))
(let ((base (car segment)) (let ((base (car segment))
(size (cadr segment)) (size (cadr segment))
(vec (caddr segment))) (vec (caddr segment)))
@ -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))
@ -137,7 +137,7 @@
(define (fill-dot img drawable x y segment color) (define (fill-dot img drawable x y segment color)
(if (fill-segment! segment x y) (if (fill-segment! segment x y)
(begin (begin
(gimp-palette-set-foreground color) (gimp-palette-set-foreground color)
(draw-segment img drawable segment (segment-max-size segment) color) (draw-segment img drawable segment (segment-max-size segment) color)
#t) #t)
#f)) #f))
@ -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)
@ -208,10 +208,10 @@
(set! beg-x (clamp-value beg-x 0 (set! beg-x (clamp-value beg-x 0
(+ (nth 0 offsets) (+ (nth 0 offsets)
(gimp-drawable-width drawable)))) (gimp-drawable-width drawable))))
(set! end-x (clamp-value end-x 0 (set! end-x (clamp-value end-x 0
(+ (nth 0 offsets) (+ (nth 0 offsets)
(gimp-drawable-width drawable)))) (gimp-drawable-width drawable))))
(set! beg-y (clamp-value beg-y 0 (set! beg-y (clamp-value beg-y 0
(+ (nth 1 offsets) (+ (nth 1 offsets)
(gimp-drawable-height drawable)))) (gimp-drawable-height drawable))))
(set! end-y (clamp-value beg-y 0 (set! end-y (clamp-value beg-y 0
@ -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)))
@ -286,7 +286,7 @@
(mapcar (mapcar
(lambda (segment color) (lambda (segment color)
(if (< 1 (segment-filled-size segment)) (if (< 1 (segment-filled-size segment))
(begin (begin
(gimp-palette-set-foreground color) (gimp-palette-set-foreground color)
(draw-segment gimg hsv-layer segment (segment-filled-size segment) (draw-segment gimg hsv-layer segment (segment-filled-size segment)
color)))) color))))
@ -295,16 +295,16 @@
(mapcar (mapcar
(lambda (segment color) (lambda (segment color)
(if (< 1 (segment-filled-size segment)) (if (< 1 (segment-filled-size segment))
(begin (begin
(gimp-palette-set-foreground color) (gimp-palette-set-foreground color)
(draw-segment gimg rgb-layer segment (segment-filled-size segment) (draw-segment gimg rgb-layer segment (segment-filled-size segment)
color)))) color))))
(list red-segment green-segment blue-segment) (list red-segment green-segment blue-segment)
(list red-color green-color blue-color)) (list red-color green-color blue-color))
(gimp-palette-set-foreground '(255 255 255)) (gimp-palette-set-foreground '(255 255 255))
(let ((text-layer (car (gimp-text gimg -1 0 0 (let ((text-layer (car (gimp-text gimg -1 0 0
"Red: Hue, Green: Sat, Blue: Val" "Red: Hue, Green: Sat, Blue: Val"
1 1 12 PIXELS "*" 1 1 12 PIXELS "*"
"helvetica" "*" "*" "*" "*"))) "helvetica" "*" "*" "*" "*")))
(offset-y (- y-base (car (gimp-drawable-height clayer))))) (offset-y (- y-base (car (gimp-drawable-height clayer)))))
(gimp-layer-set-mode text-layer DIFFERENCE) (gimp-layer-set-mode text-layer DIFFERENCE)

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

@ -33,33 +33,33 @@
(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)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1) (plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
;; OK, apply it to dist-text-layer ;; OK, apply it to dist-text-layer
(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)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1) (plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
;; then, apply it to dist-frame-layer ;; then, apply it to dist-frame-layer
(plug-in-displace 1 img dist-frame-layer radius radius 1 1 (plug-in-displace 1 img dist-frame-layer radius radius 1 1
@ -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)

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

@ -41,7 +41,7 @@
(define (script-fu-show-image-structure img drawable new-image? space (define (script-fu-show-image-structure img drawable new-image? space
shear-length border apply-layer-mask? shear-length border apply-layer-mask?
with-layer-name? with-pad? padding-color with-layer-name? with-pad? padding-color
padding-opacity with-background? padding-opacity with-background?
background-color) background-color)
(if (eq? new-image? TRUE) (if (eq? new-image? TRUE)
(begin (set! img (car (gimp-channel-ops-duplicate img))) (begin (set! img (car (gimp-channel-ops-duplicate img)))
@ -61,7 +61,7 @@
(gimp-image-resize img new-width new-height 0 0) (gimp-image-resize img new-width new-height 0 0)
(set! layers (cadr layers)) (set! layers (cadr layers))
(gimp-selection-none img) (gimp-selection-none img)
(while (< index num-of-layers) (while (< index num-of-layers)
(set! layer (aref layers index)) (set! layer (aref layers index))
(if (equal? "Background" (car (gimp-layer-get-name layer))) (if (equal? "Background" (car (gimp-layer-get-name layer)))
(begin (begin
@ -69,23 +69,23 @@
(gimp-layer-set-name layer "Original Background"))) (gimp-layer-set-name layer "Original Background")))
(set! layer-names (cons (car (gimp-layer-get-name layer)) layer-names)) (set! layer-names (cons (car (gimp-layer-get-name layer)) layer-names))
(if (not (= -1 (car (gimp-layer-mask layer)))) (if (not (= -1 (car (gimp-layer-mask layer))))
(gimp-image-remove-layer-mask img layer (gimp-image-remove-layer-mask img layer
(if (= TRUE apply-layer-mask?) (if (= TRUE apply-layer-mask?)
APPLY APPLY
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))
@ -142,7 +142,7 @@
SF-VALUE "Space between layers" (number->string script-fu-show-image-structure-space) SF-VALUE "Space between layers" (number->string script-fu-show-image-structure-space)
SF-VALUE "Shear length (> 0)" (number->string script-fu-show-image-structure-shear-length) SF-VALUE "Shear length (> 0)" (number->string script-fu-show-image-structure-shear-length)
SF-VALUE "Outer Border (>= 0)" (number->string script-fu-show-image-structure-border) SF-VALUE "Outer Border (>= 0)" (number->string script-fu-show-image-structure-border)
SF-TOGGLE "Apply layer mask (or discard)" script-fu-show-image-structure-apply-layer-mask? SF-TOGGLE "Apply layer mask (or discard)" script-fu-show-image-structure-apply-layer-mask?
SF-TOGGLE "Insert layer names" script-fu-show-image-structure-with-layer-name? SF-TOGGLE "Insert layer names" script-fu-show-image-structure-with-layer-name?
SF-TOGGLE "Padding for transparent regions" script-fu-show-image-structure-with-pad? SF-TOGGLE "Padding for transparent regions" script-fu-show-image-structure-with-pad?
SF-COLOR "Pad Color" script-fu-show-image-structure-padding-color SF-COLOR "Pad Color" script-fu-show-image-structure-padding-color

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

@ -35,7 +35,7 @@
(img (car (gimp-image-new width height RGB))) (img (car (gimp-image-new width height RGB)))
(layer-one (car (gimp-layer-new img width height RGB "bottom" 100 NORMAL))) (layer-one (car (gimp-layer-new img width height RGB "bottom" 100 NORMAL)))
) )
(gimp-gradients-set-active gradient) (gimp-gradients-set-active gradient)
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
(gimp-image-add-layer img layer-one 0) (gimp-image-add-layer img layer-one 0)
@ -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)

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

@ -44,10 +44,10 @@
(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)))))
@ -59,21 +59,21 @@
(if (= seperate-layer TRUE) (if (= seperate-layer TRUE)
(begin (begin
(set! lava-layer (car (gimp-layer-new image (set! lava-layer (car (gimp-layer-new image
select-width select-width
select-height select-height
type type
"Lava Layer" "Lava Layer"
100 100
NORMAL))) NORMAL)))
(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)))

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

@ -41,14 +41,14 @@
(let ((dir1 (deg->rad (+ direction corn-deg))) (let ((dir1 (deg->rad (+ direction corn-deg)))
(dir2 (deg->rad (- direction corn-deg)))) (dir2 (deg->rad (- direction corn-deg))))
(define (aux dir index) (define (aux dir index)
(set-point! index (set-point! index
(+ beg-x (* (cos dir) radius)) (+ beg-x (* (cos dir) radius))
(+ beg-y (* (sin dir) radius)))) (+ beg-y (* (sin dir) radius))))
(aux dir1 1) (aux dir1 1)
(aux dir2 2))) (aux dir2 2)))
(let ((dir0 (deg->rad direction)) (let ((dir0 (deg->rad direction))
(of (+ offset (- (modulo (rand) variation) variation/2)))) (of (+ offset (- (modulo (rand) variation) variation/2))))
(set-point! 0 (set-point! 0
(+ beg-x (* of (cos dir0))) (+ beg-x (* of (cos dir0)))
(+ beg-y (* of (sin dir0)))) (+ beg-y (* of (sin dir0))))
(set-marginal-point beg-x beg-y direction) (set-marginal-point beg-x beg-y direction)
@ -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)

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

@ -32,17 +32,17 @@
; construct variables ; construct variables
(data-dir (car (gimp-gimprc-query "gimp_dir"))) (data-dir (car (gimp-gimprc-query "gimp_dir")))
(filename (string-append data-dir (filename (string-append data-dir
"/brushes/r" "/brushes/r"
(number->string width) (number->string width)
"x" "x"
(number->string height) (number->string height)
".gbr") ".gbr")
) )
(desc (string-append description " " (desc (string-append description " "
(number->string width) (number->string width)
"x" "x"
(number->string height) (number->string height)
) )
) )
@ -57,10 +57,10 @@
(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)
(gimp-brushes-set-brush desc) (gimp-brushes-set-brush desc)
; Terminate, restoring old bg. ; Terminate, restoring old bg.
@ -72,7 +72,7 @@
(gimp-image-delete img) (gimp-image-delete img)
) )
) )
) )
; Register with the PDB ; Register with the PDB
@ -103,19 +103,19 @@
(old-fg-color (car (gimp-palette-get-foreground))) (old-fg-color (car (gimp-palette-get-foreground)))
(old-bg-color (car (gimp-palette-get-background))) (old-bg-color (car (gimp-palette-get-background)))
(data-dir (car (gimp-gimprc-query "gimp_dir"))) (data-dir (car (gimp-gimprc-query "gimp_dir")))
(filename (string-append data-dir (filename (string-append data-dir
"/brushes/r" "/brushes/r"
(number->string width) (number->string width)
"x" "x"
(number->string height) (number->string height)
"f" "f"
(number->string feathering) (number->string feathering)
".gbr") ".gbr")
) )
(desc (string-append description " " (desc (string-append description " "
(number->string width) (number->string width)
"x" "x"
(number->string height) (number->string height)
"," ","
(number->string feathering) (number->string feathering)
@ -130,15 +130,15 @@
(gimp-palette-set-background '(0 0 0)) (gimp-palette-set-background '(0 0 0))
(gimp-drawable-fill drawable BG-IMAGE-FILL) (gimp-drawable-fill drawable BG-IMAGE-FILL)
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(cond ((< 0 feathering) (cond ((< 0 feathering)
(gimp-rect-select img (/ feathering 2) (/ feathering 2) width height REPLACE TRUE feathering)) (gimp-rect-select img (/ feathering 2) (/ feathering 2) width height REPLACE TRUE feathering))
((>= 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)
(gimp-brushes-set-brush desc) (gimp-brushes-set-brush desc)
; Terminate, restoring old bg. ; Terminate, restoring old bg.
@ -150,7 +150,7 @@
(gimp-image-delete img) (gimp-image-delete img)
) )
) )
) )
; Register with the PDB ; Register with the PDB
@ -165,7 +165,7 @@
SF-VALUE "Width" "20" SF-VALUE "Width" "20"
SF-VALUE "Height" "20" SF-VALUE "Height" "20"
SF-VALUE "Feathering" "4" SF-VALUE "Feathering" "4"
SF-VALUE "Spacing" "25" SF-VALUE "Spacing" "25"
) )
(define (script-fu-make-brush-elliptical description width height spacing) (define (script-fu-make-brush-elliptical description width height spacing)
@ -183,14 +183,14 @@
(data-dir (car (gimp-gimprc-query "gimp_dir"))) (data-dir (car (gimp-gimprc-query "gimp_dir")))
(filename (string-append data-dir (filename (string-append data-dir
"/brushes/e" "/brushes/e"
(number->string width) (number->string width)
"x" "x"
(number->string height) (number->string height)
".gbr")) ".gbr"))
(desc (string-append description " " (desc (string-append description " "
(number->string width) (number->string width)
"x" "x"
(number->string height) (number->string height)
) )
) )
@ -206,10 +206,10 @@
(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)
(gimp-brushes-set-brush desc) (gimp-brushes-set-brush desc)
; Terminate, restoring old bg. ; Terminate, restoring old bg.
@ -221,7 +221,7 @@
(gimp-image-delete img) (gimp-image-delete img)
) )
) )
) )
; Register with the PDB ; Register with the PDB
@ -255,16 +255,16 @@
; Construct variables... ; Construct variables...
(data-dir (car (gimp-gimprc-query "gimp_dir"))) (data-dir (car (gimp-gimprc-query "gimp_dir")))
(filename (string-append data-dir (filename (string-append data-dir
"/brushes/e" "/brushes/e"
(number->string width) (number->string width)
"x" "x"
(number->string height) (number->string height)
"f" "f"
(number->string feathering) (number->string feathering)
".gbr")) ".gbr"))
(desc (string-append description " " (desc (string-append description " "
(number->string width) (number->string width)
"x" "x"
(number->string height) (number->string height)
" f" " f"
(number->string feathering) (number->string feathering)
@ -283,13 +283,13 @@
(gimp-palette-set-background '(255 255 255)) (gimp-palette-set-background '(255 255 255))
(cond ((> feathering 0) ; keep from taking out gimp with stupid entry. (cond ((> feathering 0) ; keep from taking out gimp with stupid entry.
(gimp-ellipse-select img (/ feathering 2) (/ feathering 2) width height REPLACE TRUE TRUE feathering)) (gimp-ellipse-select img (/ feathering 2) (/ feathering 2) width height REPLACE TRUE TRUE feathering))
((<= 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)
(gimp-brushes-set-brush desc) (gimp-brushes-set-brush desc)
; Terminate, restoring old bg. ; Terminate, restoring old bg.
@ -301,7 +301,7 @@
(gimp-image-delete img) (gimp-image-delete img)
) )
) )
) )
; Register with the PDB ; Register with the PDB

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)

10
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)
@ -69,7 +69,7 @@
(begin (gimp-image-clean-all theImage) (begin (gimp-image-clean-all theImage)
(gimp-display-new theImage) (gimp-display-new theImage)
) )
() ()
) )
(gimp-selection-none inImage) (gimp-selection-none inImage)
(gimp-displays-flush theImage) (gimp-displays-flush theImage)

10
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)
@ -69,7 +69,7 @@
(begin (gimp-image-clean-all theImage) (begin (gimp-image-clean-all theImage)
(gimp-display-new theImage) (gimp-display-new theImage)
) )
() ()
) )
(gimp-selection-none inImage) (gimp-selection-none inImage)
(gimp-displays-flush theImage) (gimp-displays-flush theImage)

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

@ -31,7 +31,7 @@
; as a layer below the active layer ; as a layer below the active layer
; ;
(define (script-fu-perspective-shadow image (define (script-fu-perspective-shadow image
drawable drawable
alpha alpha
rel-distance rel-distance
@ -55,15 +55,15 @@
(shadow-layer 0)) (shadow-layer 0))
(if (= rel-distance 0) (set! rel-distance 999999)) (if (= rel-distance 0) (set! rel-distance 999999))
(gimp-image-disable-undo image) (gimp-image-disable-undo image)
(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)
(set! active-selection (car (gimp-selection-save image))))) (set! active-selection (car (gimp-selection-save image)))))
@ -75,8 +75,8 @@
(abs-length (* rel-length select-height)) (abs-length (* rel-length select-height))
(abs-distance (* rel-distance select-height)) (abs-distance (* rel-distance select-height))
(half-bottom-width (/ select-width 2)) (half-bottom-width (/ select-width 2))
(half-top-width (* half-bottom-width (half-top-width (* half-bottom-width
(/ (- rel-distance rel-length) rel-distance))) (/ (- rel-distance rel-length) rel-distance)))
(x0 (+ select-offset-x (+ (- half-bottom-width half-top-width) (x0 (+ select-offset-x (+ (- half-bottom-width half-top-width)
@ -96,17 +96,17 @@
(shadow-offset-y (- (min y0 y2) shadow-blur))) (shadow-offset-y (- (min y0 y2) shadow-blur)))
(set! shadow-layer (car (gimp-layer-new image (set! shadow-layer (car (gimp-layer-new image
select-width select-width
select-height select-height
type type
"Perspective Shadow" "Perspective Shadow"
shadow-opacity shadow-opacity
NORMAL))) NORMAL)))
(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)
@ -131,43 +131,42 @@
(if (> (+ shadow-height shadow-offset-y) new-image-height) (if (> (+ shadow-height shadow-offset-y) new-image-height)
(set! new-image-height (+ shadow-height shadow-offset-y))) (set! new-image-height (+ shadow-height shadow-offset-y)))
(gimp-image-resize image (gimp-image-resize image
new-image-width new-image-width
new-image-height new-image-height
image-offset-x image-offset-x
image-offset-y))) image-offset-y)))
(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
x2 y2 x2 y2
x3 y3) x3 y3)
(if (> shadow-blur 0) (if (> shadow-blur 0)
(begin (begin
(gimp-layer-set-preserve-trans shadow-layer FALSE) (gimp-layer-set-preserve-trans shadow-layer FALSE)
(gimp-layer-resize shadow-layer (gimp-layer-resize shadow-layer
shadow-width shadow-width
shadow-height shadow-height
shadow-blur shadow-blur
shadow-blur) shadow-blur)
(plug-in-gauss-rle 1 (plug-in-gauss-rle 1
image image
shadow-layer shadow-layer
shadow-blur shadow-blur
TRUE TRUE
TRUE)))) TRUE))))
(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
(= (car (gimp-layer-is-floating-sel drawable)) 0) (= (car (gimp-layer-is-floating-sel drawable)) 0)
(= from-selection FALSE)) (= from-selection FALSE))
(gimp-image-raise-layer image drawable)) (gimp-image-raise-layer image drawable))
@ -177,7 +176,7 @@
(gimp-image-enable-undo image) (gimp-image-enable-undo image)
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register "script-fu-perspective-shadow" (script-fu-register "script-fu-perspective-shadow"
"<Image>/Script-Fu/Shadow/Perspective" "<Image>/Script-Fu/Shadow/Perspective"
"Add a perspective shadow" "Add a perspective shadow"
"Sven Neumann (neumanns@uni-duesseldorf.de)" "Sven Neumann (neumanns@uni-duesseldorf.de)"
@ -193,4 +192,4 @@
SF-COLOR "Color" '(0 0 0) SF-COLOR "Color" '(0 0 0)
SF-ADJUSTMENT "Opacity" '(80 0 100 1 10 0 0) SF-ADJUSTMENT "Opacity" '(80 0 100 1 10 0 0)
SF-TOGGLE "Interpolate?" TRUE SF-TOGGLE "Interpolate?" TRUE
SF-TOGGLE "Allow Resizing?" FALSE) SF-TOGGLE "Allow Resizing?" FALSE)

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

@ -43,10 +43,10 @@
(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)))))
@ -59,22 +59,22 @@
(if (= seperate-layer TRUE) (if (= seperate-layer TRUE)
(begin (begin
(set! effect-layer (car (gimp-layer-new image (set! effect-layer (car (gimp-layer-new image
select-width select-width
select-height select-height
type type
"glow layer" "glow layer"
100 100
NORMAL))) NORMAL)))
(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)

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

@ -34,7 +34,7 @@
(define (round-select img x y width height ratio) (define (round-select img x y width height ratio)
(let* ((diameter (* ratio height))) (let* ((diameter (* ratio height)))
(gimp-ellipse-select img x y diameter height ADD FALSE 0 0) (gimp-ellipse-select img x y diameter height ADD FALSE 0 0)
(gimp-ellipse-select img (+ x (- width diameter)) y (gimp-ellipse-select img (+ x (- width diameter)) y
diameter height ADD FALSE 0 0) diameter height ADD FALSE 0 0)
(gimp-rect-select img (+ x (/ diameter 2)) y (gimp-rect-select img (+ x (/ diameter 2)) y
(- width diameter) height ADD FALSE 0))) (- width diameter) height ADD FALSE 0)))
@ -62,15 +62,15 @@
pressed) pressed)
(cond ((eqv? notpressed TRUE) (cond ((eqv? notpressed TRUE)
(do-pupibutton text size foundry family weight slant (do-pupibutton text size foundry family weight slant
set-width spacing ul-color lr-color set-width spacing ul-color lr-color
text-color xpadding ypadding bevel ratio 0))) text-color xpadding ypadding bevel ratio 0)))
(cond ((eqv? notpressed-active TRUE) (cond ((eqv? notpressed-active TRUE)
(do-pupibutton text size foundry family weight slant (do-pupibutton text size foundry family weight slant
set-width spacing ul-color-high lr-color-high set-width spacing ul-color-high lr-color-high
hlight-color xpadding ypadding bevel ratio 0))) hlight-color xpadding ypadding bevel ratio 0)))
(cond ((eqv? pressed TRUE) (cond ((eqv? pressed TRUE)
(do-pupibutton text size foundry family weight slant (do-pupibutton text size foundry family weight slant
set-width spacing ul-color-high lr-color-high set-width spacing ul-color-high lr-color-high
hlight-color xpadding ypadding bevel ratio 1)))) hlight-color xpadding ypadding bevel ratio 1))))
@ -125,9 +125,9 @@
(img (car (gimp-image-new width height RGB))) (img (car (gimp-image-new width height RGB)))
(bumpmap (car (gimp-layer-new img width height (bumpmap (car (gimp-layer-new img width height
RGBA_IMAGE "Bumpmap" 100 NORMAL))) RGBA_IMAGE "Bumpmap" 100 NORMAL)))
(gradient (car (gimp-layer-new img width height (gradient (car (gimp-layer-new img width height
RGBA_IMAGE "Button" 100 NORMAL)))) RGBA_IMAGE "Button" 100 NORMAL))))
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
@ -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
@ -172,7 +171,7 @@
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-bump-map 1 img gradient bumpmap (plug-in-bump-map 1 img gradient bumpmap
135 45 bevel 0 0 0 0 TRUE pressed 0) 135 45 bevel 0 0 0 0 TRUE pressed 0)
; Create text layer ; Create text layer
@ -181,7 +180,7 @@
(gimp-palette-set-foreground text-color) (gimp-palette-set-foreground text-color)
(let ((textl (car (gimp-text (let ((textl (car (gimp-text
img -1 0 0 text 0 TRUE size PIXELS img -1 0 0 text 0 TRUE size PIXELS
foundry family weight slant set-width spacing)))) foundry family weight slant set-width spacing))))
(gimp-layer-set-offsets textl (gimp-layer-set-offsets textl
(+ xpadding radius bevel) (+ xpadding radius bevel)
@ -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

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

@ -19,7 +19,7 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-render-map inSize inGrain inGrad inWiden) (define (script-fu-render-map inSize inGrain inGrad inWiden)
(set! theWidth inSize) (set! theWidth inSize)
@ -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)))
@ -66,7 +66,7 @@
"28th April 1998" "28th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England" "Chris Gutteridge / ECS @ University of Southampton, England"
"" ""
SF-ADJUSTMENT "Image Size" '(256 0 2048 1 10 0 0) SF-ADJUSTMENT "Image Size" '(256 0 2048 1 10 0 0)
SF-ADJUSTMENT "Granularity (0 - 15)" '(4 0 15 1 1 0 0) SF-ADJUSTMENT "Granularity (0 - 15)" '(4 0 15 1 1 0 0)
SF-GRADIENT "Gradient" "Land_and_Sea" SF-GRADIENT "Gradient" "Land_and_Sea"
SF-TOGGLE "TRUE = Detail in middle, FALSE = tile" FALSE SF-TOGGLE "TRUE = Detail in middle, FALSE = tile" FALSE

24
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
@ -63,18 +63,18 @@
(gimp-image-disable-undo dup-image) (gimp-image-disable-undo dup-image)
(gimp-crop dup-image width height xpos ypos) (gimp-crop dup-image width height xpos ypos)
(set! layer-name (string-append "Frame " (set! layer-name (string-append "Frame "
(number->string (- num-frames remaining-frames) 10))) (number->string (- num-frames remaining-frames) 10)))
(set! this-layer (car (gimp-layer-new out-imagestack (set! this-layer (car (gimp-layer-new out-imagestack
width height RGB width height RGB
layer-name 100 NORMAL))) layer-name 100 NORMAL)))
(gimp-image-add-layer out-imagestack this-layer 0) (gimp-image-add-layer out-imagestack this-layer 0)
(copy-layer-ripple out-imagestack this-layer img drawable) (copy-layer-ripple out-imagestack this-layer img drawable)
(set! dup-layer (car (gimp-image-get-active-layer dup-image))) (set! dup-layer (car (gimp-image-get-active-layer dup-image)))
(plug-in-displace 1 out-imagestack this-layer (plug-in-displace 1 out-imagestack this-layer
displacement displacement displacement displacement
TRUE TRUE dup-layer dup-layer 2) TRUE TRUE dup-layer dup-layer 2)
(gimp-image-enable-undo dup-image) (gimp-image-enable-undo dup-image)

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

@ -39,12 +39,12 @@
(define (script-fu-round-corners img (define (script-fu-round-corners img
drawable drawable
radius radius
shadow-toggle shadow-toggle
shadow-x shadow-x
shadow-y shadow-y
shadow-blur shadow-blur
background-toggle background-toggle
work-on-copy) work-on-copy)
(let* ((shadow-blur (abs shadow-blur)) (let* ((shadow-blur (abs shadow-blur))
@ -53,9 +53,9 @@
(width (car (gimp-image-width img))) (width (car (gimp-image-width img)))
(height (car (gimp-image-height img))) (height (car (gimp-image-height img)))
(type (car (gimp-drawable-type-with-alpha drawable))) (type (car (gimp-drawable-type-with-alpha drawable)))
(image (cond ((= work-on-copy TRUE) (image (cond ((= work-on-copy TRUE)
(car (gimp-channel-ops-duplicate img))) (car (gimp-channel-ops-duplicate img)))
((= work-on-copy FALSE) ((= work-on-copy FALSE)
img))) img)))
(pic-layer (car (gimp-image-active-drawable image)))) (pic-layer (car (gimp-image-active-drawable image))))
@ -72,36 +72,36 @@
(gimp-ellipse-select image (- width diam) 0 diam diam SUB TRUE 0 0) (gimp-ellipse-select image (- width diam) 0 diam diam SUB TRUE 0 0)
(gimp-rect-select image 0 (- height radius) radius radius ADD 0 0) (gimp-rect-select image 0 (- height radius) radius radius ADD 0 0)
(gimp-ellipse-select image 0 (- height diam) diam diam SUB TRUE 0 0) (gimp-ellipse-select image 0 (- height diam) diam diam SUB TRUE 0 0)
(gimp-rect-select image (- width radius) (- height radius) (gimp-rect-select image (- width radius) (- height radius)
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
(if (= shadow-toggle TRUE) (if (= shadow-toggle TRUE)
(begin (begin
(script-fu-drop-shadow image (script-fu-drop-shadow image
pic-layer pic-layer
shadow-x shadow-x
shadow-y shadow-y
shadow-blur shadow-blur
'(0 0 0) '(0 0 0)
80 80
TRUE) TRUE)
(set! width (car (gimp-image-width image))) (set! width (car (gimp-image-width image)))
(set! height (car (gimp-image-height image))))) (set! height (car (gimp-image-height image)))))
; optionally add a background ; optionally add a background
(if (= background-toggle TRUE) (if (= background-toggle TRUE)
(let* ((bg-layer (car (gimp-layer-new image (let* ((bg-layer (car (gimp-layer-new image
width width
height height
type type
"Background" "Background"
100 100
NORMAL)))) NORMAL))))
(gimp-drawable-fill bg-layer BG-IMAGE-FILL) (gimp-drawable-fill bg-layer BG-IMAGE-FILL)
(gimp-image-add-layer image bg-layer -1) (gimp-image-add-layer image bg-layer -1)
(gimp-image-raise-layer image pic-layer) (gimp-image-raise-layer image pic-layer)
@ -110,8 +110,8 @@
; clean up after the script ; clean up after the script
(gimp-image-enable-undo image) (gimp-image-enable-undo image)
(if (= work-on-copy TRUE) (if (= work-on-copy TRUE)
(gimp-display-new image)) (gimp-display-new image))
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register "script-fu-round-corners" (script-fu-register "script-fu-round-corners"
@ -129,7 +129,7 @@
SF-VALUE "Shadow y" "8" SF-VALUE "Shadow y" "8"
SF-VALUE "Blur Radius" "15" SF-VALUE "Blur Radius" "15"
SF-TOGGLE "Add background" TRUE SF-TOGGLE "Add background" TRUE
SF-TOGGLE "Work on copy" TRUE) SF-TOGGLE "Work on copy" TRUE)

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

@ -40,20 +40,20 @@
(set! select-offset-x (cadr selection-bounds)) (set! select-offset-x (cadr selection-bounds))
(set! select-offset-y (caddr selection-bounds)) (set! select-offset-y (caddr selection-bounds))
(set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x)) (set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
(set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y)) (set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y))
(gimp-image-disable-undo image) (gimp-image-disable-undo image)
(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,18 +63,18 @@
(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)
) )
(set! data-dir (car (gimp-gimprc-query "gimp_dir"))) (set! data-dir (car (gimp-gimprc-query "gimp_dir")))
(set! filename2 (string-append data-dir (set! filename2 (string-append data-dir
"/brushes/" "/brushes/"
filename filename
(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)

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

@ -33,27 +33,27 @@
(set! select-offset-x (cadr selection-bounds)) (set! select-offset-x (cadr selection-bounds))
(set! select-offset-y (caddr selection-bounds)) (set! select-offset-y (caddr selection-bounds))
(set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x)) (set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
(set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y)) (set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y))
(gimp-image-disable-undo image) (gimp-image-disable-undo image)
(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)
) )

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

@ -40,20 +40,20 @@
(set! select-offset-x (cadr selection-bounds)) (set! select-offset-x (cadr selection-bounds))
(set! select-offset-y (caddr selection-bounds)) (set! select-offset-y (caddr selection-bounds))
(set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x)) (set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
(set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y)) (set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y))
(gimp-image-disable-undo image) (gimp-image-disable-undo image)
(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,18 +63,18 @@
(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)
) )
(set! data-dir (car (gimp-gimprc-query "gimp_dir"))) (set! data-dir (car (gimp-gimprc-query "gimp_dir")))
(set! filename2 (string-append data-dir (set! filename2 (string-append data-dir
"/brushes/" "/brushes/"
filename filename
(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)

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

@ -33,27 +33,27 @@
(set! select-offset-x (cadr selection-bounds)) (set! select-offset-x (cadr selection-bounds))
(set! select-offset-y (caddr selection-bounds)) (set! select-offset-y (caddr selection-bounds))
(set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x)) (set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
(set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y)) (set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y))
(gimp-image-disable-undo image) (gimp-image-disable-undo image)
(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)
) )

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

@ -31,7 +31,7 @@
; in relation to the selections width or height (depends on which of these ; in relation to the selections width or height (depends on which of these
; is smaller) ; is smaller)
(define (script-fu-selection-round image (define (script-fu-selection-round image
drawable drawable
radius) radius)
@ -57,52 +57,36 @@
(begin (begin
(set! cut-radius (* radius (/ select-width 2))) (set! cut-radius (* radius (/ select-width 2)))
(set! ellipse-radius (* radius select-width)))) (set! ellipse-radius (* radius select-width))))
(gimp-rect-select image
select-x1
select-y1
(+ cut-radius 1)
(+ cut-radius 1)
SUB
FALSE 0)
(gimp-rect-select image
select-x1
(- select-y2 cut-radius)
(+ cut-radius 1)
(+ cut-radius 1)
SUB
FALSE 0)
(gimp-rect-select image (gimp-rect-select image
(- select-x2 cut-radius) select-x1
select-y1 select-y1
(+ cut-radius 1) (+ cut-radius 1)
(+ cut-radius 1) (+ cut-radius 1)
SUB SUB
FALSE 0) FALSE 0)
(gimp-rect-select image (gimp-rect-select image
(- select-x2 cut-radius) select-x1
(- select-y2 cut-radius)
(+ cut-radius 1)
(+ cut-radius 1)
SUB
FALSE 0)
(gimp-rect-select image
(- select-x2 cut-radius)
select-y1
(+ cut-radius 1)
(+ cut-radius 1)
SUB
FALSE 0)
(gimp-rect-select image
(- select-x2 cut-radius)
(- select-y2 cut-radius) (- select-y2 cut-radius)
(+ cut-radius 1) (+ cut-radius 1)
(+ cut-radius 1) (+ cut-radius 1)
SUB SUB
FALSE 0) FALSE 0)
(gimp-ellipse-select image (gimp-ellipse-select image
select-x1 select-x1
select-y1
ellipse-radius
ellipse-radius
ADD
TRUE
FALSE 0)
(gimp-ellipse-select image
select-x1
(- select-y2 ellipse-radius)
ellipse-radius
ellipse-radius
ADD
TRUE
FALSE 0)
(gimp-ellipse-select image
(- select-x2 ellipse-radius)
select-y1 select-y1
ellipse-radius ellipse-radius
ellipse-radius ellipse-radius
@ -110,19 +94,35 @@
TRUE TRUE
FALSE 0) FALSE 0)
(gimp-ellipse-select image (gimp-ellipse-select image
(- select-x2 ellipse-radius) select-x1
(- select-y2 ellipse-radius) (- select-y2 ellipse-radius)
ellipse-radius ellipse-radius
ellipse-radius ellipse-radius
ADD ADD
TRUE TRUE
FALSE 0) FALSE 0)
(gimp-ellipse-select image
(- select-x2 ellipse-radius)
select-y1
ellipse-radius
ellipse-radius
ADD
TRUE
FALSE 0)
(gimp-ellipse-select image
(- select-x2 ellipse-radius)
(- select-y2 ellipse-radius)
ellipse-radius
ellipse-radius
ADD
TRUE
FALSE 0)
(gimp-undo-push-group-end image) (gimp-undo-push-group-end image)
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register "script-fu-selection-round" (script-fu-register "script-fu-selection-round"
"<Image>/Script-Fu/Selection/Round" "<Image>/Script-Fu/Selection/Round"
"Rounds the active selection. The selection should be "Rounds the active selection. The selection should be
rectangular." rectangular."

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

@ -45,7 +45,7 @@
((< width (* ratio height)) width))) ((< width (* ratio height)) width)))
(define (script-fu-slide img (define (script-fu-slide img
drawable drawable
text text
number number
@ -53,15 +53,15 @@
font-color font-color
work-on-copy) work-on-copy)
(let* ((type (car (gimp-drawable-type-with-alpha drawable))) (let* ((type (car (gimp-drawable-type-with-alpha drawable)))
(image (cond ((= work-on-copy TRUE) (image (cond ((= work-on-copy TRUE)
(car (gimp-channel-ops-duplicate img))) (car (gimp-channel-ops-duplicate img)))
((= work-on-copy FALSE) ((= work-on-copy FALSE)
img))) img)))
(owidth (car (gimp-image-width image))) (owidth (car (gimp-image-width image)))
(oheight (car (gimp-image-height image))) (oheight (car (gimp-image-height image)))
(ratio (if (>= owidth oheight) (/ 3 2) (ratio (if (>= owidth oheight) (/ 3 2)
(/ 2 3))) (/ 2 3)))
(crop-width (crop owidth oheight ratio)) (crop-width (crop owidth oheight ratio))
(crop-height (/ crop-width ratio)) (crop-height (/ crop-width ratio))
(width (* (max crop-width crop-height) 1.05)) (width (* (max crop-width crop-height) 1.05))
(height (* (min crop-width crop-height) 1.5)) (height (* (min crop-width crop-height) 1.5))
@ -72,19 +72,19 @@
(hole-start (- (/ (rand 1000) 1000) 0.5)) (hole-start (- (/ (rand 1000) 1000) 0.5))
(old-bg (car (gimp-palette-get-background))) (old-bg (car (gimp-palette-get-background)))
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-palette-get-foreground)))
(film-layer (car (gimp-layer-new image (film-layer (car (gimp-layer-new image
width width
height height
type type
"Film" "Film"
100 100
NORMAL))) NORMAL)))
(bg-layer (car (gimp-layer-new image (bg-layer (car (gimp-layer-new image
width width
height height
type type
"Background" "Background"
100 100
NORMAL))) NORMAL)))
(pic-layer (car (gimp-image-active-drawable image))) (pic-layer (car (gimp-image-active-drawable image)))
(numbera (string-append number "A"))) (numbera (string-append number "A")))
@ -96,21 +96,21 @@
(gimp-layer-add-alpha pic-layer) (gimp-layer-add-alpha pic-layer)
; crop, resize and eventually rotate the image ; crop, resize and eventually rotate the image
(gimp-crop image (gimp-crop image
crop-width crop-width
crop-height crop-height
(/ (- owidth crop-width) 2) (/ (- owidth crop-width) 2)
(/ (- oheight crop-height) 2)) (/ (- oheight crop-height) 2))
(gimp-image-resize image (gimp-image-resize image
width width
height height
(/ (- width crop-width) 2) (/ (- width crop-width) 2)
(/ (- height crop-height) 2)) (/ (- height crop-height) 2))
(if (< ratio 1) (plug-in-rotate 1 (if (< ratio 1) (plug-in-rotate 1
image image
pic-layer pic-layer
1 1
FALSE)) FALSE))
; add the background layer ; add the background layer
(gimp-drawable-fill bg-layer BG-IMAGE-FILL) (gimp-drawable-fill bg-layer BG-IMAGE-FILL)
@ -140,7 +140,7 @@
(* 0.040 height) PIXELS (* 0.040 height) PIXELS
fontname ))) fontname )))
(gimp-floating-sel-anchor (car (gimp-text-fontname image (gimp-floating-sel-anchor (car (gimp-text-fontname image
film-layer film-layer
(+ hole-start (* 0.35 width)) (+ hole-start (* 0.35 width))
(* 0.01 height) (* 0.01 height)
number number
@ -149,7 +149,7 @@
(* 0.050 height) PIXELS (* 0.050 height) PIXELS
fontname ))) fontname )))
(gimp-floating-sel-anchor (car (gimp-text-fontname image (gimp-floating-sel-anchor (car (gimp-text-fontname image
film-layer film-layer
(+ hole-start (* 0.35 width)) (+ hole-start (* 0.35 width))
(* 0.95 height) (* 0.95 height)
number number
@ -158,7 +158,7 @@
(* 0.050 height) PIXELS (* 0.050 height) PIXELS
fontname ))) fontname )))
(gimp-floating-sel-anchor (car (gimp-text-fontname image (gimp-floating-sel-anchor (car (gimp-text-fontname image
film-layer film-layer
(+ hole-start (* 0.85 width)) (+ hole-start (* 0.85 width))
(* 0.95 height) (* 0.95 height)
numbera numbera
@ -171,18 +171,18 @@
(let* ((film-mask (car (gimp-layer-create-mask film-layer WHITE-MASK))) (let* ((film-mask (car (gimp-layer-create-mask film-layer WHITE-MASK)))
(hole hole-start) (hole hole-start)
(top-y (* height 0.06)) (top-y (* height 0.06))
(bottom-y(* height 0.855))) (bottom-y(* height 0.855)))
(gimp-selection-none image) (gimp-selection-none image)
(while (< hole 8) (while (< hole 8)
(gimp-rect-select image (gimp-rect-select image
(* hole-space hole) (* hole-space hole)
top-y top-y
hole-width hole-width
hole-height hole-height
ADD ADD
FALSE FALSE
0) 0)
(gimp-rect-select image (gimp-rect-select image
(* hole-space hole) (* hole-space hole)
bottom-y bottom-y
hole-width hole-width
@ -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))
@ -213,7 +213,7 @@
(if (= work-on-copy TRUE) (gimp-display-new image)) (if (= work-on-copy TRUE) (gimp-display-new image))
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register "script-fu-slide" (script-fu-register "script-fu-slide"
"<Image>/Script-Fu/Decor/Slide" "<Image>/Script-Fu/Decor/Slide"
"Gives the image the look of a slide" "Gives the image the look of a slide"
"Sven Neumann (neumanns@uni-duesseldorf.de)" "Sven Neumann (neumanns@uni-duesseldorf.de)"
@ -226,7 +226,7 @@
SF-STRING "Number" "32" SF-STRING "Number" "32"
SF-FONT "Font" "-*-utopia-*-r-*-*-24-*-*-*-p-*-*-*" SF-FONT "Font" "-*-utopia-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Font Color" '(255 180 0) SF-COLOR "Font Color" '(255 180 0)
SF-TOGGLE "Work on copy" TRUE) SF-TOGGLE "Work on copy" TRUE)

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)

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

@ -38,13 +38,13 @@
(set! theFrame (car (gimp-layer-copy theLayer FALSE))) (set! theFrame (car (gimp-layer-copy theLayer FALSE)))
(gimp-image-add-layer theImage theFrame 0) (gimp-image-add-layer theImage theFrame 0)
(gimp-layer-set-name theFrame (string-append "Anim Frame: " (number->string (- inFrames n) 10))) (gimp-layer-set-name theFrame (string-append "Anim Frame: " (number->string (- inFrames n) 10)))
(plug-in-map-object TRUE theImage theFrame 1 (plug-in-map-object TRUE theImage theFrame 1
;viewpoint ;viewpoint
0.5 0.5 2.0 0.5 0.5 2.0
;obj pos? ;obj pos?
0.5 0.5 0 0.5 0.5 0
;first axis ;first axis
1.0 0 0 1.0 0 0
;2nd axis ;2nd axis
0.0 1.0 0.0 0.0 1.0 0.0
; axis rotation ; axis rotation

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

@ -38,13 +38,13 @@
(set! theFrame (car (gimp-layer-copy theLayer FALSE))) (set! theFrame (car (gimp-layer-copy theLayer FALSE)))
(gimp-image-add-layer theImage theFrame 0) (gimp-image-add-layer theImage theFrame 0)
(gimp-layer-set-name theFrame (string-append "Anim Frame: " (number->string (- inFrames n) 10))) (gimp-layer-set-name theFrame (string-append "Anim Frame: " (number->string (- inFrames n) 10)))
(plug-in-map-object TRUE theImage theFrame 1 (plug-in-map-object TRUE theImage theFrame 1
;viewpoint ;viewpoint
0.5 0.5 2.0 0.5 0.5 2.0
;obj pos? ;obj pos?
0.5 0.5 0 0.5 0.5 0
;first axis ;first axis
1.0 0 0 1.0 0 0
;2nd axis ;2nd axis
0.0 1.0 0.0 0.0 1.0 0.0
; axis rotation ; axis rotation

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)

14
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,24 +128,24 @@
(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)
(gimp-palette-set-foreground '(0 0 0)) (gimp-palette-set-foreground '(0 0 0))
(gimp-floating-sel-anchor (car (gimp-text-fontname img drawable (gimp-floating-sel-anchor (car (gimp-text-fontname img drawable
x-position y-position x-position y-position
text text
0 TRUE 0 TRUE
size PIXELS size PIXELS
font))) font)))
(gimp-palette-set-background old-bg) (gimp-palette-set-background old-bg)

14
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*))
@ -127,7 +127,7 @@
(set! angle-list (nreverse temp-list)) (set! angle-list (nreverse temp-list))
(set! temp 0) (set! temp 0)
(set! angle-list (set! angle-list
(mapcar (lambda (angle) (mapcar (lambda (angle)
(let ((tmp temp)) (let ((tmp temp))
(set! temp (+ angle temp)) (set! temp (+ angle temp))
(+ tmp (/ angle 2)))) (+ tmp (/ angle 2))))
@ -167,19 +167,19 @@
(+ center-y (+ center-y
(* radius (sin angle)) (* radius (sin angle))
(* rotate-radius (* rotate-radius
(sin (if (< 0 fill-angle-rad) (sin (if (< 0 fill-angle-rad)
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)
(if (not script-fu-text-circle-debug?) (if (not script-fu-text-circle-debug?)
(begin (begin
(set! merged-layer (set! merged-layer
(car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-layer-set-name merged-layer (gimp-layer-set-name merged-layer
(if (< (length text) 16) (if (< (length text) 16)
(wrap-string text) (wrap-string text)
"Text Circle")))) "Text Circle"))))
@ -202,7 +202,7 @@
(set! script-fu-text-circle-font-spacing (wrap-string spacing)) (set! script-fu-text-circle-font-spacing (wrap-string spacing))
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register (script-fu-register
"script-fu-text-circle" "script-fu-text-circle"
"<Toolbox>/Xtns/Script-Fu/Logos/Text Circle" "<Toolbox>/Xtns/Script-Fu/Logos/Text Circle"
"Render the specified text along the perimeter of a circle" "Render the specified text along the perimeter of a circle"

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)

8
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)
@ -40,7 +40,7 @@
(cjg-pasteat 3 1) (cjg-pasteat 3 2) (cjg-pasteat 3 3) (cjg-pasteat 3 1) (cjg-pasteat 3 2) (cjg-pasteat 3 3)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(if (= inType FALSE) (if (= inType FALSE)
(plug-in-gauss-iir TRUE theImage theLayer inRadius inHoriz inVert) (plug-in-gauss-iir TRUE theImage theLayer inRadius inHoriz inVert)
(plug-in-gauss-rle TRUE theImage theLayer inRadius inHoriz inVert) (plug-in-gauss-rle TRUE theImage theLayer inRadius inHoriz inVert)
) )
@ -51,8 +51,8 @@
(gimp-displays-flush) (gimp-displays-flush)
) )
(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

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

@ -11,7 +11,7 @@
erase-before-draw brush-details) erase-before-draw brush-details)
(if 'not-guile (define modulo fmod)) (if 'not-guile (define modulo fmod))
(define (floor x) (- x (fmod x 1))) (define (floor x) (- x (fmod x 1)))
(define *prime-table* (define *prime-table*
'(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97)) '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97))
(define (LCM x y) ; Least Common Multiple (define (LCM x y) ; Least Common Multiple
@ -42,7 +42,7 @@
(set! prime? #f) (set! prime? #f)
(set! table (cdr table)))) (set! table (cdr table))))
(if prime? (if prime?
(set! *prime-table* (set! *prime-table*
(nreverse (cons index (nreverse *prime-table*)))))) (nreverse (cons index (nreverse *prime-table*))))))
(set! index (+ index 1))))) (set! index (+ index 1)))))
(define (aux l1 l2 result) (define (aux l1 l2 result)
@ -114,7 +114,7 @@
(let ((f 0) (let ((f 0)
(p 0) (p 0)
(q 0) (q 0)
(t 0)) (t 0))
(set! hue (/ (* 6 h) 255)) (set! hue (/ (* 6 h) 255))
(if (= hue 6.0) (if (= hue 6.0)
(set! hue 0.0)) (set! hue 0.0))
@ -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)
@ -272,7 +272,7 @@
(iindex 0) (iindex 0)
(center2wheel (+ base-radius wheel-radius)) (center2wheel (+ base-radius wheel-radius))
(wheel2pen (* (abs wheel-radius) pen-pos)) (wheel2pen (* (abs wheel-radius) pen-pos))
(segment (make-segment (segment (make-segment
(if (= 0 hue-rate) (if (= 0 hue-rate)
32 32
(max 4 (floor (/ (/ total-step (abs hue-rate)) 255.0)))) (max 4 (floor (/ (/ total-step (abs hue-rate)) 255.0))))
@ -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)))
@ -381,7 +381,7 @@
(gimp-image-enable-undo img) (gimp-image-enable-undo img)
(gimp-displays-flush))) (gimp-displays-flush)))
(script-fu-register "script-fu-trochoid" (script-fu-register "script-fu-trochoid"
"<Toolbox>/Xtns/Script-Fu/Patterns/Trochoid" "<Toolbox>/Xtns/Script-Fu/Patterns/Trochoid"
"Draw Trochoid Curve" "Draw Trochoid Curve"
"Shuji Narazaki <narazaki@InetQ.or.jp>" "Shuji Narazaki <narazaki@InetQ.or.jp>"

30
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,17 +47,17 @@
(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))
(temp-img (car (gimp-image-new tempSize tempSize RGB))) (temp-img (car (gimp-image-new tempSize tempSize RGB)))
(temp-draw (car (gimp-layer-new temp-img tempSize tempSize RGB_IMAGE "Jabar" 100 NORMAL))) (temp-draw (car (gimp-layer-new temp-img tempSize tempSize RGB_IMAGE "Jabar" 100 NORMAL)))
) )
(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,26 +75,26 @@
(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)
(gimp-image-delete temp-img) (gimp-image-delete temp-img)
) )
) )
) )
(define (script-fu-truchet size thickness backcolor forecolor xtiles ytiles) (define (script-fu-truchet size thickness backcolor forecolor xtiles ytiles)
(let* ( (let* (
(width (* size xtiles)) (width (* size xtiles))
(height (* size ytiles)) (height (* size ytiles))
(img (car (gimp-image-new width height RGB))) (img (car (gimp-image-new width height RGB)))
@ -103,7 +103,7 @@
(tiledraw1 (car (gimp-layer-new tile size size RGB "Johnson" 100 NORMAL))) (tiledraw1 (car (gimp-layer-new tile size size RGB "Johnson" 100 NORMAL)))
(tiledraw2 (car (gimp-layer-new tile size size RGB "Cooper" 100 NORMAL))) (tiledraw2 (car (gimp-layer-new tile size size RGB "Cooper" 100 NORMAL)))
(Xindex 0) (Xindex 0)
(Yindex 0) (Yindex 0)
) )
(gimp-image-disable-undo img) (gimp-image-disable-undo img)
@ -116,8 +116,8 @@
;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)

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

@ -12,7 +12,7 @@
(let* ((drawable-width (car (gimp-drawable-width drw))) (let* ((drawable-width (car (gimp-drawable-width drw)))
(drawable-height (car (gimp-drawable-height drw))) (drawable-height (car (gimp-drawable-height drw)))
(new-image (car (gimp-image-new drawable-width drawable-height RGB))) (new-image (car (gimp-image-new drawable-width drawable-height RGB)))
(original-layer (car (gimp-layer-new new-image (original-layer (car (gimp-layer-new new-image
drawable-width drawable-height drawable-width drawable-height
RGB "Original" 100 NORMAL))) RGB "Original" 100 NORMAL)))
(original-layer-for-darker #f) (original-layer-for-darker #f)
@ -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)))

38
plug-ins/script-fu/scripts/waves-anim.scm
View File

@ -29,10 +29,10 @@
; as if a stone was thrown into the image. The animation may be saved with ; as if a stone was thrown into the image. The animation may be saved with
; the gif-plug-in. ; the gif-plug-in.
(define (script-fu-waves-anim img (define (script-fu-waves-anim img
drawable drawable
amplitude amplitude
wavelength wavelength
num-frames num-frames
invert) invert)
(let* ((amplitude (max 0 amplitude)) (let* ((amplitude (max 0 amplitude))
@ -51,40 +51,40 @@
(while (> remaining-frames 1) (while (> remaining-frames 1)
(let* ((waves-layer (car (gimp-layer-copy source-layer TRUE))) (let* ((waves-layer (car (gimp-layer-copy source-layer TRUE)))
(layer-name (string-append "Frame " (layer-name (string-append "Frame "
(number->string (number->string
(- (+ num-frames 2) (- (+ num-frames 2)
remaining-frames) 10)))) remaining-frames) 10))))
(gimp-layer-set-preserve-trans waves-layer FALSE) (gimp-layer-set-preserve-trans waves-layer FALSE)
(gimp-image-add-layer image waves-layer -1) (gimp-image-add-layer image waves-layer -1)
(gimp-layer-set-name waves-layer layer-name) (gimp-layer-set-name waves-layer layer-name)
(plug-in-waves 1 (plug-in-waves 1
image image
waves-layer waves-layer
amplitude amplitude
phase phase
wavelength wavelength
0 0
FALSE) FALSE)
(set! remaining-frames (- remaining-frames 1)) (set! remaining-frames (- remaining-frames 1))
(set! phase (- phase phaseshift)))) (set! phase (- phase phaseshift))))
(gimp-layer-set-name source-layer "Frame 1") (gimp-layer-set-name source-layer "Frame 1")
(plug-in-waves 1 (plug-in-waves 1
image image
source-layer source-layer
amplitude amplitude
phase phase
wavelength wavelength
0 0
FALSE) FALSE)
(gimp-image-enable-undo image) (gimp-image-enable-undo image)
(gimp-display-new image))) (gimp-display-new image)))
(script-fu-register "script-fu-waves-anim" (script-fu-register "script-fu-waves-anim"
"<Image>/Script-Fu/Animators/Waves" "<Image>/Script-Fu/Animators/Waves"
"Animate an image like a stone's been thrown into it" "Animate an image like a stone's been thrown into it"
"Sven Neumann (neumanns@uni-duesseldorf.de)" "Sven Neumann (neumanns@uni-duesseldorf.de)"

32
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))
@ -363,7 +361,7 @@
SF-ADJUSTMENT "Ribbon width" '(30 0 256 1 10 1 1) SF-ADJUSTMENT "Ribbon width" '(30 0 256 1 10 1 1)
SF-ADJUSTMENT "Ribbon spacing" '(10 0 256 1 10 1 1) SF-ADJUSTMENT "Ribbon spacing" '(10 0 256 1 10 1 1)
SF-ADJUSTMENT "Shadow darkness" '(75 0 100 1 10 1 1) SF-ADJUSTMENT "Shadow darkness" '(75 0 100 1 10 1 1)
SF-ADJUSTMENT "Shadow depth" '(75 0 100 1 10 1 1) SF-ADJUSTMENT "Shadow depth" '(75 0 100 1 10 1 1)
SF-ADJUSTMENT "Thread length" '(200 0 256 1 10 1 1) SF-ADJUSTMENT "Thread length" '(200 0 256 1 10 1 1)
SF-ADJUSTMENT "Thread density" '(50 0 100 1 10 1 1) SF-ADJUSTMENT "Thread density" '(50 0 100 1 10 1 1)
SF-ADJUSTMENT "Thread intensity" '(100 0 512 1 10 1 1)) SF-ADJUSTMENT "Thread intensity" '(100 0 512 1 10 1 1))

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

@ -43,7 +43,7 @@
(let* ((ds-blur (max ds-blur 0)) (let* ((ds-blur (max ds-blur 0))
(ds-opacity (min ds-opacity 100)) (ds-opacity (min ds-opacity 100))
(ds-opacity (max ds-opacity 0)) (ds-opacity (max ds-opacity 0))
(new-color (list (red green blue))) (new-color (list (red green blue)))
(type (car (gimp-drawable-type-with-alpha drawable))) (type (car (gimp-drawable-type-with-alpha drawable)))
(image-width (car (gimp-image-width image))) (image-width (car (gimp-image-width image)))
(hl-opacity (list hl-opacity-comp hl-opacity-comp hl-opacity-comp)) (hl-opacity (list hl-opacity-comp hl-opacity-comp hl-opacity-comp))
@ -57,10 +57,10 @@
(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)))))
@ -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)