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

applied gimp-quinet-000308-0, gimp-quinet-000310-0 and gimp-quinet-000322-0 

--Sven
This commit is contained in:
Sven Neumann 2000-03-24 14:54:59 +00:00
parent ed9b7f793a
commit 99f85a4626
95 changed files with 756 additions and 397 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
ChangeLog
View File

@ -1,3 +1,79 @@
Fri Mar 24 15:48:40 CET 2000 Sven Neumann <sven@gimp.org>
applied gimp-quinet-000310-0 by Raphael Quinet <quinet@gamers.org>
* plug-ins/script-fu/scripts/coolmetal-logo.scm: replaced the
seascape toggle with a direct selection of the gradient.
* plug-ins/script-fu/scripts/carved-logo.scm: added new parameter
to allow some padding around the text (useful for tiling backgr.)
* plug-ins/script-fu/scripts/news-text.scm, speed-text.scm: added
new parameter to specify the text color and the background color,
instead of using the active colors.
* plug-ins/script-fu/scripts/bovinated-logo.scm, comic-logo.scm,
gradient-bevel-logo.scm: added new parameter to specify the
background color, instead of using the active one.
* plug-ins/script-fu/scripts/asc2img.scm: save and restore
foreground and background colors; do not flatten the final image.
* plug-ins/script-fu/scripts/3d-outline.scm: set foreground and
background colors before using them; do not flatten the final
image.
* plug-ins/script-fu/scripts/clothify.scm: set the background
color before using it.
* plug-ins/script-fu/scripts/3d-outline.scm, 3dTruchet.scm,
addborder.scm, alien-glow-arrow.scm, alien-glow-bar.scm,
alien-glow-bullet.scm, alien-glow-button.scm, alien-glow-logo.scm,
alien-neon-logo.scm, asc2img.scm, basic1-logo.scm,
basic2-logo.scm, beveled-button.scm, beveled-pattern-arrow.scm,
beveled-pattern-bullet.scm, beveled-pattern-button.scm,
beveled-pattern-heading.scm, beveled-pattern-hrule.scm,
blended-logo.scm, bovinated-logo.scm, camo.scm, carve-it.scm,
carved-logo.scm, chalk.scm, chip-away.scm, chrome-it.scm,
chrome-logo.scm, clothify.scm, comic-logo.scm, coolmetal-logo.scm,
crystal-logo.scm, distress_selection.scm, drop-shadow.scm,
erase-rows.scm, fade-outline.scm, font-map.scm, frosty-logo.scm,
fuzzyborder.scm, gimp-headers.scm, gimp-labels.scm,
glowing-logo.scm, gradient-bevel-logo.scm, hsv-graph.scm,
i26-gunya2.scm, image-structure.scm, mkbrush.scm, neon-logo.scm,
news-text.scm, perspective-shadow.scm, pupi-button.scm,
ripply-anim.scm, slide.scm, sota-chrome-logo.scm, speed-text.scm,
sphere.scm, starburst-logo.scm, starscape-logo.scm, swirltile.scm,
t-o-p-logo.scm, test-sphere.scm, text-circle.scm,
textured-logo.scm, title-header.scm, trochoid.scm, truchet.scm,
weave.scm, xach-effect.scm: adapted the scripts to the new
interface for gimp-edit-fill.
* plug-ins/script-fu/scripts/Makefile.am
* plug-ins/script-fu/scripts/alien-neon-logo.scm: added file.
Fri Mar 24 15:31:33 CET 2000 Sven Neumann <sven@gimp.org>
* app/commands.[ch]
* app/edit_cmds.c * app/gdisplay.c
* app/global_edit.[ch]
* app/menus.c
* tools/pdbgen/pdb/edit.pdb: applied sligthly modified versions
of gimp-quinet-000308-0 and gimp-quinet-000322-0.
From the README, Raphael Quinet provided with the patches:
This patch fixes the problems with Edit/Fill by allowing
the user to choose the fill mode. The "Fill with background
color" is prefered by some users who have been using the Gimp
for a long time, but the "Fill with foreground color" is
prefered by those who are familiar with most other paint
programs.
This change breaks a lot of the Perl scripts. Marc knows about this,
so you do not need to write bugreports. Please report broken
Script-Fus however, since they are supposed to work.
Fri Mar 24 01:53:07 PST 2000 Manish Singh <yosh@gimp.org>
* configure.in: more sanity checking for the gtkxmhtml test. Also

7
app/actions/help-commands.c
View File

@ -251,12 +251,15 @@ edit_clear_cmd_callback (GtkWidget *widget,
void
edit_fill_cmd_callback (GtkWidget *widget,
gpointer client_data)
gpointer callback_data,
guint callback_action)
{
GimpFillType fill_type;
GDisplay *gdisp;
return_if_no_display (gdisp);
edit_fill (gdisp->gimage, gimage_active_drawable (gdisp->gimage));
fill_type = (GimpFillType) callback_action;
edit_fill (gdisp->gimage, gimage_active_drawable (gdisp->gimage), fill_type);
gdisplays_flush ();
}

4
app/actions/help-commands.h
View File

@ -40,7 +40,9 @@ void edit_named_cut_cmd_callback (GtkWidget *, gpointer);
void edit_named_copy_cmd_callback (GtkWidget *, gpointer);
void edit_named_paste_cmd_callback (GtkWidget *, gpointer);
void edit_clear_cmd_callback (GtkWidget *, gpointer);
void edit_fill_cmd_callback (GtkWidget *, gpointer);
void edit_fill_cmd_callback (GtkWidget *widget,
gpointer callback_data,
guint callback_action);
void edit_stroke_cmd_callback (GtkWidget *, gpointer);
void select_invert_cmd_callback (GtkWidget *, gpointer);

7
app/commands.c
View File

@ -251,12 +251,15 @@ edit_clear_cmd_callback (GtkWidget *widget,
void
edit_fill_cmd_callback (GtkWidget *widget,
gpointer client_data)
gpointer callback_data,
guint callback_action)
{
GimpFillType fill_type;
GDisplay *gdisp;
return_if_no_display (gdisp);
edit_fill (gdisp->gimage, gimage_active_drawable (gdisp->gimage));
fill_type = (GimpFillType) callback_action;
edit_fill (gdisp->gimage, gimage_active_drawable (gdisp->gimage), fill_type);
gdisplays_flush ();
}

4
app/commands.h
View File

@ -40,7 +40,9 @@ void edit_named_cut_cmd_callback (GtkWidget *, gpointer);
void edit_named_copy_cmd_callback (GtkWidget *, gpointer);
void edit_named_paste_cmd_callback (GtkWidget *, gpointer);
void edit_clear_cmd_callback (GtkWidget *, gpointer);
void edit_fill_cmd_callback (GtkWidget *, gpointer);
void edit_fill_cmd_callback (GtkWidget *widget,
gpointer callback_data,
guint callback_action);
void edit_stroke_cmd_callback (GtkWidget *, gpointer);
void select_invert_cmd_callback (GtkWidget *, gpointer);

37
app/core/gimp-edit.c
View File

@ -432,7 +432,8 @@ edit_clear (GImage *gimage,
gboolean
edit_fill (GImage *gimage,
GimpDrawable *drawable)
GimpDrawable *drawable,
GimpFillType fill_type)
{
TileManager *buf_tiles;
PixelRegion bufPR;
@ -442,10 +443,42 @@ edit_fill (GImage *gimage,
if (!gimage || drawable == NULL)
return FALSE;
gimage_get_background (gimage, drawable, col);
if (drawable_has_alpha (drawable))
col [drawable_bytes (drawable) - 1] = OPAQUE_OPACITY;
switch (fill_type)
{
case FOREGROUND_FILL:
gimage_get_foreground (gimage, drawable, col);
break;
case BACKGROUND_FILL:
gimage_get_background (gimage, drawable, col);
break;
case WHITE_FILL:
col[RED_PIX] = 255;
col[GREEN_PIX] = 255;
col[BLUE_PIX] = 255;
break;
case TRANSPARENT_FILL:
col[RED_PIX] = 0;
col[GREEN_PIX] = 0;
col[BLUE_PIX] = 0;
if (drawable_has_alpha (drawable))
col [drawable_bytes (drawable) - 1] = TRANSPARENT_OPACITY;
break;
case NO_FILL:
return TRUE; /* nothing to do, but the fill succeded */
default:
g_warning ("unknown fill type");
gimage_get_background (gimage, drawable, col);
break;
}
drawable_mask_bounds (drawable, &x1, &y1, &x2, &y2);
if (!(x2 - x1) || !(y2 - y1))

3
app/core/gimp-edit.h
View File

@ -36,7 +36,8 @@ gboolean edit_paste_as_new (GImage *gimage,
gboolean edit_clear (GImage *gimage,
GimpDrawable *drawable);
gboolean edit_fill (GImage *gimage,
GimpDrawable *drawable);
GimpDrawable *drawable,
GimpFillType fill_type);
gboolean global_edit_cut (GDisplay *gdisp);
gboolean global_edit_copy (GDisplay *gdisp);

37
app/core/gimpedit.c
View File

@ -432,7 +432,8 @@ edit_clear (GImage *gimage,
gboolean
edit_fill (GImage *gimage,
GimpDrawable *drawable)
GimpDrawable *drawable,
GimpFillType fill_type)
{
TileManager *buf_tiles;
PixelRegion bufPR;
@ -442,10 +443,42 @@ edit_fill (GImage *gimage,
if (!gimage || drawable == NULL)
return FALSE;
gimage_get_background (gimage, drawable, col);
if (drawable_has_alpha (drawable))
col [drawable_bytes (drawable) - 1] = OPAQUE_OPACITY;
switch (fill_type)
{
case FOREGROUND_FILL:
gimage_get_foreground (gimage, drawable, col);
break;
case BACKGROUND_FILL:
gimage_get_background (gimage, drawable, col);
break;
case WHITE_FILL:
col[RED_PIX] = 255;
col[GREEN_PIX] = 255;
col[BLUE_PIX] = 255;
break;
case TRANSPARENT_FILL:
col[RED_PIX] = 0;
col[GREEN_PIX] = 0;
col[BLUE_PIX] = 0;
if (drawable_has_alpha (drawable))
col [drawable_bytes (drawable) - 1] = TRANSPARENT_OPACITY;
break;
case NO_FILL:
return TRUE; /* nothing to do, but the fill succeded */
default:
g_warning ("unknown fill type");
gimage_get_background (gimage, drawable, col);
break;
}
drawable_mask_bounds (drawable, &x1, &y1, &x2, &y2);
if (!(x2 - x1) || !(y2 - y1))

3
app/core/gimpedit.h
View File

@ -36,7 +36,8 @@ gboolean edit_paste_as_new (GImage *gimage,
gboolean edit_clear (GImage *gimage,
GimpDrawable *drawable);
gboolean edit_fill (GImage *gimage,
GimpDrawable *drawable);
GimpDrawable *drawable,
GimpFillType fill_type);
gboolean global_edit_cut (GDisplay *gdisp);
gboolean global_edit_copy (GDisplay *gdisp);

3
app/core/gimpprojection.c
View File

@ -1665,7 +1665,8 @@ gdisplay_set_menu_sensitivity (GDisplay *gdisp)
SET_SENSITIVE ("Edit/Buffer/Cut Named...", lp);
SET_SENSITIVE ("Edit/Buffer/Copy Named...", lp);
SET_SENSITIVE ("Edit/Clear", lp);
SET_SENSITIVE ("Edit/Fill", lp);
SET_SENSITIVE ("Edit/Fill with FG Color", lp);
SET_SENSITIVE ("Edit/Fill with BG Color", lp);
SET_SENSITIVE ("Edit/Stroke", lp);
}

3
app/display/gimpdisplay.c
View File

@ -1665,7 +1665,8 @@ gdisplay_set_menu_sensitivity (GDisplay *gdisp)
SET_SENSITIVE ("Edit/Buffer/Cut Named...", lp);
SET_SENSITIVE ("Edit/Buffer/Copy Named...", lp);
SET_SENSITIVE ("Edit/Clear", lp);
SET_SENSITIVE ("Edit/Fill", lp);
SET_SENSITIVE ("Edit/Fill with FG Color", lp);
SET_SENSITIVE ("Edit/Fill with BG Color", lp);
SET_SENSITIVE ("Edit/Stroke", lp);
}

21
app/edit_cmds.c
View File

@ -20,6 +20,7 @@
#include "procedural_db.h"
#include "apptypes.h"
#include "drawable.h"
#include "gimage_mask.h"
#include "global_edit.h"
@ -255,16 +256,21 @@ edit_fill_invoker (Argument *args)
{
gboolean success = TRUE;
GimpDrawable *drawable;
gint32 fill_type;
GimpImage *gimage;
drawable = gimp_drawable_get_ID (args[0].value.pdb_int);
if (drawable == NULL)
success = FALSE;
fill_type = args[1].value.pdb_int;
if (fill_type < FOREGROUND_FILL || fill_type > NO_FILL)
success = FALSE;
if (success)
{
gimage = drawable_gimage (GIMP_DRAWABLE (drawable));
success = edit_fill (gimage, drawable);
success = edit_fill (gimage, drawable, (GimpFillType) fill_type);
}
return procedural_db_return_args (&edit_fill_proc, success);
@ -276,6 +282,11 @@ static ProcArg edit_fill_inargs[] =
PDB_DRAWABLE,
"drawable",
"The drawable to fill to"
},
{
PDB_INT32,
"fill_type",
"The type of fill: FG_IMAGE_FILL (0), BG_IMAGE_FILL (1), WHITE_IMAGE_FILL (2), TRANS_IMAGE_FILL (3), NO_IMAGE_FILL (4)"
}
};
@ -283,12 +294,12 @@ static ProcRecord edit_fill_proc =
{
"gimp_edit_fill",
"Fill selected area of drawable.",
"This procedure fills the specified drawable with the background color. This procedure only affects regions within a selection if there is a selection active.",
"This procedure fills the specified drawable with the fill mode. If the fill mode is foreground, the current foreground color is used. If the fill mode is background, the current background color is used. Other fill modes should not be used. This procedure only affects regions within a selection if there is a selection active.",
"Spencer Kimball & Peter Mattis & Raphael Quinet",
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1995-1996",
"1995-2000",
PDB_INTERNAL,
1,
2,
edit_fill_inargs,
0,
NULL,

3
app/gdisplay.c
View File

@ -1665,7 +1665,8 @@ gdisplay_set_menu_sensitivity (GDisplay *gdisp)
SET_SENSITIVE ("Edit/Buffer/Cut Named...", lp);
SET_SENSITIVE ("Edit/Buffer/Copy Named...", lp);
SET_SENSITIVE ("Edit/Clear", lp);
SET_SENSITIVE ("Edit/Fill", lp);
SET_SENSITIVE ("Edit/Fill with FG Color", lp);
SET_SENSITIVE ("Edit/Fill with BG Color", lp);
SET_SENSITIVE ("Edit/Stroke", lp);
}

37
app/global_edit.c
View File

@ -432,7 +432,8 @@ edit_clear (GImage *gimage,
gboolean
edit_fill (GImage *gimage,
GimpDrawable *drawable)
GimpDrawable *drawable,
GimpFillType fill_type)
{
TileManager *buf_tiles;
PixelRegion bufPR;
@ -442,10 +443,42 @@ edit_fill (GImage *gimage,
if (!gimage || drawable == NULL)
return FALSE;
gimage_get_background (gimage, drawable, col);
if (drawable_has_alpha (drawable))
col [drawable_bytes (drawable) - 1] = OPAQUE_OPACITY;
switch (fill_type)
{
case FOREGROUND_FILL:
gimage_get_foreground (gimage, drawable, col);
break;
case BACKGROUND_FILL:
gimage_get_background (gimage, drawable, col);
break;
case WHITE_FILL:
col[RED_PIX] = 255;
col[GREEN_PIX] = 255;
col[BLUE_PIX] = 255;
break;
case TRANSPARENT_FILL:
col[RED_PIX] = 0;
col[GREEN_PIX] = 0;
col[BLUE_PIX] = 0;
if (drawable_has_alpha (drawable))
col [drawable_bytes (drawable) - 1] = TRANSPARENT_OPACITY;
break;
case NO_FILL:
return TRUE; /* nothing to do, but the fill succeded */
default:
g_warning ("unknown fill type");
gimage_get_background (gimage, drawable, col);
break;
}
drawable_mask_bounds (drawable, &x1, &y1, &x2, &y2);
if (!(x2 - x1) || !(y2 - y1))

3
app/global_edit.h
View File

@ -36,7 +36,8 @@ gboolean edit_paste_as_new (GImage *gimage,
gboolean edit_clear (GImage *gimage,
GimpDrawable *drawable);
gboolean edit_fill (GImage *gimage,
GimpDrawable *drawable);
GimpDrawable *drawable,
GimpFillType fill_type);
gboolean global_edit_cut (GDisplay *gdisp);
gboolean global_edit_copy (GDisplay *gdisp);

7
app/gui/commands.c
View File

@ -251,12 +251,15 @@ edit_clear_cmd_callback (GtkWidget *widget,
void
edit_fill_cmd_callback (GtkWidget *widget,
gpointer client_data)
gpointer callback_data,
guint callback_action)
{
GimpFillType fill_type;
GDisplay *gdisp;
return_if_no_display (gdisp);
edit_fill (gdisp->gimage, gimage_active_drawable (gdisp->gimage));
fill_type = (GimpFillType) callback_action;
edit_fill (gdisp->gimage, gimage_active_drawable (gdisp->gimage), fill_type);
gdisplays_flush ();
}

4
app/gui/commands.h
View File

@ -40,7 +40,9 @@ void edit_named_cut_cmd_callback (GtkWidget *, gpointer);
void edit_named_copy_cmd_callback (GtkWidget *, gpointer);
void edit_named_paste_cmd_callback (GtkWidget *, gpointer);
void edit_clear_cmd_callback (GtkWidget *, gpointer);
void edit_fill_cmd_callback (GtkWidget *, gpointer);
void edit_fill_cmd_callback (GtkWidget *widget,
gpointer callback_data,
guint callback_action);
void edit_stroke_cmd_callback (GtkWidget *, gpointer);
void select_invert_cmd_callback (GtkWidget *, gpointer);

7
app/gui/help-commands.c
View File

@ -251,12 +251,15 @@ edit_clear_cmd_callback (GtkWidget *widget,
void
edit_fill_cmd_callback (GtkWidget *widget,
gpointer client_data)
gpointer callback_data,
guint callback_action)
{
GimpFillType fill_type;
GDisplay *gdisp;
return_if_no_display (gdisp);
edit_fill (gdisp->gimage, gimage_active_drawable (gdisp->gimage));
fill_type = (GimpFillType) callback_action;
edit_fill (gdisp->gimage, gimage_active_drawable (gdisp->gimage), fill_type);
gdisplays_flush ();
}

4
app/gui/help-commands.h
View File

@ -40,7 +40,9 @@ void edit_named_cut_cmd_callback (GtkWidget *, gpointer);
void edit_named_copy_cmd_callback (GtkWidget *, gpointer);
void edit_named_paste_cmd_callback (GtkWidget *, gpointer);
void edit_clear_cmd_callback (GtkWidget *, gpointer);
void edit_fill_cmd_callback (GtkWidget *, gpointer);
void edit_fill_cmd_callback (GtkWidget *widget,
gpointer callback_data,
guint callback_action);
void edit_stroke_cmd_callback (GtkWidget *, gpointer);
void select_invert_cmd_callback (GtkWidget *, gpointer);

4
app/gui/menus.c
View File

@ -244,7 +244,9 @@ static GimpItemFactoryEntry image_entries[] =
NULL, NULL },
{ { N_("/Edit/Clear"), "<control>K", edit_clear_cmd_callback, 0 },
"edit/clear.html", NULL },
{ { N_("/Edit/Fill"), "<control>period", edit_fill_cmd_callback, 0 },
{ { N_("/Edit/Fill with FG Color"), "<control>comma", edit_fill_cmd_callback, (guint)FOREGROUND_FILL },
"edit/fill.html", NULL },
{ { N_("/Edit/Fill with BG Color"), "<control>period", edit_fill_cmd_callback, (guint)BACKGROUND_FILL },
"edit/fill.html", NULL },
{ { N_("/Edit/Stroke"), NULL, edit_stroke_cmd_callback, 0 },
"edit/stroke.html", NULL },

4
app/menus.c
View File

@ -244,7 +244,9 @@ static GimpItemFactoryEntry image_entries[] =
NULL, NULL },
{ { N_("/Edit/Clear"), "<control>K", edit_clear_cmd_callback, 0 },
"edit/clear.html", NULL },
{ { N_("/Edit/Fill"), "<control>period", edit_fill_cmd_callback, 0 },
{ { N_("/Edit/Fill with FG Color"), "<control>comma", edit_fill_cmd_callback, (guint)FOREGROUND_FILL },
"edit/fill.html", NULL },
{ { N_("/Edit/Fill with BG Color"), "<control>period", edit_fill_cmd_callback, (guint)BACKGROUND_FILL },
"edit/fill.html", NULL },
{ { N_("/Edit/Stroke"), NULL, edit_stroke_cmd_callback, 0 },
"edit/stroke.html", NULL },

4
app/menus/menus.c
View File

@ -244,7 +244,9 @@ static GimpItemFactoryEntry image_entries[] =
NULL, NULL },
{ { N_("/Edit/Clear"), "<control>K", edit_clear_cmd_callback, 0 },
"edit/clear.html", NULL },
{ { N_("/Edit/Fill"), "<control>period", edit_fill_cmd_callback, 0 },
{ { N_("/Edit/Fill with FG Color"), "<control>comma", edit_fill_cmd_callback, (guint)FOREGROUND_FILL },
"edit/fill.html", NULL },
{ { N_("/Edit/Fill with BG Color"), "<control>period", edit_fill_cmd_callback, (guint)BACKGROUND_FILL },
"edit/fill.html", NULL },
{ { N_("/Edit/Stroke"), NULL, edit_stroke_cmd_callback, 0 },
"edit/stroke.html", NULL },

4
app/widgets/gimpitemfactory.c
View File

@ -244,7 +244,9 @@ static GimpItemFactoryEntry image_entries[] =
NULL, NULL },
{ { N_("/Edit/Clear"), "<control>K", edit_clear_cmd_callback, 0 },
"edit/clear.html", NULL },
{ { N_("/Edit/Fill"), "<control>period", edit_fill_cmd_callback, 0 },
{ { N_("/Edit/Fill with FG Color"), "<control>comma", edit_fill_cmd_callback, (guint)FOREGROUND_FILL },
"edit/fill.html", NULL },
{ { N_("/Edit/Fill with BG Color"), "<control>period", edit_fill_cmd_callback, (guint)BACKGROUND_FILL },
"edit/fill.html", NULL },
{ { N_("/Edit/Stroke"), NULL, edit_stroke_cmd_callback, 0 },
"edit/stroke.html", NULL },

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

@ -34,8 +34,12 @@
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img pattern 1)
(gimp-image-add-layer img bg-layer 2)
(gimp-edit-fill bg-layer)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear pattern)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-foreground '(0 0 0))
(gimp-edit-fill text-layer FG-IMAGE-FILL)
(gimp-layer-set-preserve-trans text-layer FALSE)
(plug-in-gauss-iir 1 img text-layer outline-blur-radius TRUE TRUE)
@ -67,7 +71,7 @@
(gimp-layer-set-visible layer2 FALSE)
(gimp-layer-set-visible pattern TRUE)
(set! final (car (gimp-image-flatten img)))
;;(set! final (car (gimp-image-flatten img)))
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)

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

@ -46,7 +46,7 @@
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-edit-fill drawable1)
(gimp-edit-fill drawable1 BG-IMAGE-FILL)
(let* (
(tempSize (* size 3))
@ -58,8 +58,8 @@
(gimp-image-add-layer temp-img temp-draw 0)
(gimp-image-add-layer temp-img temp-draw2 0)
(gimp-palette-set-background backcolor)
(gimp-edit-fill temp-draw)
(gimp-edit-fill temp-draw2)
(gimp-edit-fill temp-draw BG-IMAGE-FILL)
(gimp-edit-fill temp-draw2 BG-IMAGE-FILL)
;weird aint it
(gimp-palette-set-background begincolor)
@ -77,7 +77,7 @@
(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)
;(gimp-edit-fill temp-img temp-draw2)
;(gimp-edit-fill temp-img temp-draw2 BG-IMAGE-FILL)
(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)
@ -130,7 +130,7 @@
;just to look a little better
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-edit-fill layer-one)
(gimp-edit-fill layer-one BG-IMAGE-FILL)
(gimp-selection-none img)
(create-tile tile tiledraw1 tiledraw2 size thickness backcolor begincolor endcolor supersample)

1
plug-ins/script-fu/scripts/Makefile.am
View File

@ -12,6 +12,7 @@ scriptdata_DATA = \
alien-glow-bullet.scm \
alien-glow-button.scm \
alien-glow-logo.scm \
alien-neon-logo.scm \
asc2img.scm \
basic1-logo.scm \
basic2-logo.scm \

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

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

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

@ -101,8 +101,8 @@
(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-palette-set-background glow-color)
(gimp-edit-fill glow-layer)
(gimp-palette-set-foreground glow-color)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-selection-none img)
@ -110,7 +110,7 @@
(plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)

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

@ -36,7 +36,7 @@
; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)
@ -45,9 +45,9 @@
(gimp-palette-set-background '(0 0 0))
(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-foreground glow-color)
(gimp-selection-grow img border)
(gimp-edit-fill glow-layer)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)

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

@ -43,7 +43,7 @@
; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear glow-layer)
(gimp-edit-clear bullet-layer)
@ -54,10 +54,10 @@
(gimp-palette-set-background '(0 0 0))
(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-foreground glow-color)
(gimp-selection-grow img border)
(gimp-selection-feather img border)
(gimp-edit-fill glow-layer)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-selection-none img)
(if (>= radius 16)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)

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

@ -93,7 +93,7 @@
(gimp-image-add-layer img bg-layer -1)
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-image-add-layer img glow-layer -1)
; Create text layer
@ -107,8 +107,8 @@
(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 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-palette-set-background glow-color)
(gimp-edit-fill glow-layer)
(gimp-palette-set-foreground glow-color)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE)
(gimp-palette-set-foreground text-color)

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

@ -19,13 +19,13 @@
(gimp-image-add-layer img glow-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear glow-layer)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-grow img grow)
(gimp-selection-feather img feather)
(gimp-palette-set-background glow-color)
(gimp-edit-fill glow-layer)
(gimp-palette-set-foreground glow-color)
(gimp-edit-fill glow-layer FG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-palette-set-background '(0 0 0))
(gimp-palette-set-foreground '(79 79 79))

120
plug-ins/script-fu/scripts/alien-neon-logo.scm Normal file
View File

@ -0,0 +1,120 @@
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; alien-neon-logo.scm - creates multiple outlines around the letters
; Copyright (C) 1999 Raphael Quinet <quinet@gamers.org>
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
; 1999-12-01 First version.
; 2000-02-19 Do not discard the layer mask so that it can still be edited.
; 2000-03-08 Adapted the script to my gimp-edit-fill changes.
;
(define (script-alien-neon-logo text size fontname fg-color bg-color band-size gap-size num-bands do-fade)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(fade-size (- (* (+ band-size gap-size) num-bands) 1))
(text-layer (car (gimp-text-fontname img -1 0 0 text (+ fade-size 10) TRUE size PIXELS fontname)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(bands-layer (car (gimp-layer-new img width height RGBA_IMAGE "Bands" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
)
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img bands-layer 1)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bands-layer BG-IMAGE-FILL)
; The text layer is never shown: it is only used to create a selection
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-foreground '(255 255 255))
(gimp-edit-fill bands-layer FG-IMAGE-FILL)
; Create multiple outlines by growing and inverting the selection
; The bands are black and white because they will be used as a mask.
(while (> num-bands 0)
(gimp-selection-grow img band-size)
(gimp-invert bands-layer)
(gimp-selection-grow img gap-size)
(gimp-invert bands-layer)
(set! num-bands (- num-bands 1))
)
; The fading effect is obtained by masking the image with a gradient.
; The gradient is created by filling a bordered selection (white->black).
(if (= do-fade TRUE)
(let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer
BLACK-MASK)))
)
(gimp-image-add-layer-mask img bands-layer bands-layer-mask)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-border img fade-size)
(gimp-edit-fill bands-layer-mask FG-IMAGE-FILL)
(gimp-image-remove-layer-mask img bands-layer APPLY)
)
)
; Transfer the resulting grayscale bands into the layer mask.
(let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer
BLACK-MASK)))
)
(gimp-image-add-layer-mask img bands-layer bands-layer-mask)
(gimp-selection-none img)
(gimp-edit-copy bands-layer)
(gimp-floating-sel-anchor (car (gimp-edit-paste bands-layer-mask
FALSE)))
)
; Fill the layer with the foreground color. The areas that are not
; masked become visible.
(gimp-palette-set-foreground fg-color)
(gimp-edit-fill bands-layer FG-IMAGE-FILL)
;; (gimp-image-remove-layer-mask img bands-layer APPLY)
; Clean up and exit.
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-layer-set-visible text-layer 0)
(gimp-image-set-active-layer img bands-layer)
(gimp-image-undo-enable img)
(gimp-display-new img)
)
)
(script-fu-register "script-alien-neon-logo"
"<Toolbox>/Xtns/Script-Fu/Logos/Alien Neon..."
"Creates a psychedelic effect with outlines\nof the specified color around the letters"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
""
SF-STRING "Text String" "The GIMP"
SF-ADJUSTMENT "Font size (in pixels)" '(150 2 1000 1 10 0 1)
SF-FONT "Font" "-*-blippo-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Glow color" '(0 255 0)
SF-COLOR "Background color" '(0 0 0)
SF-ADJUSTMENT "Width of bands" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT "Width of gaps" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT "Number of bands" '(7 1 100 1 10 0 1)
SF-TOGGLE "Fade away?" TRUE
)
; end

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

@ -30,14 +30,12 @@
inTextColor
inTrans
inBackColor
inBufferAmount
inFlatten)
inBufferAmount)
(set! old-bg (car (gimp-palette-get-background)))
(set! theImage (car (gimp-image-new 10 10 RGB) ) )
(set! theLayer (car (gimp-layer-new theImage
10
10
@ -50,65 +48,55 @@
(gimp-layer-set-name theLayer "Background")
(gimp-image-add-layer theImage theLayer 0)
(script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize
inTextColor inBufferAmount inFlatten)
(set! theBuffer (* inFontSize (/ inBufferAmount 100) ) )
(set! theImageWidth (+ theImageWidth theBuffer theBuffer ))
(set! theImageHeight (+ theImageHeight theBuffer theBuffer ))
(gimp-image-resize theImage
theImageWidth
theImageHeight
theBuffer
theBuffer)
(gimp-layer-resize theLayer
theImageWidth
theImageHeight
theBuffer
theBuffer)
(gimp-selection-all theImage)
(if (= inTrans TRUE)
(gimp-edit-clear theLayer)
(gimp-edit-fill theLayer)
)
(gimp-selection-none theImage)
(if (= inFlatten TRUE)
(gimp-image-merge-visible-layers theImage 0)
()
)
(gimp-display-new theImage)
(gimp-image-clean-all theImage)
(gimp-displays-flush)
(cons theImage () )
(script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize
inTextColor inBufferAmount)
(set! theBuffer (* inFontSize (/ inBufferAmount 100) ) )
(set! theImageWidth (+ theImageWidth theBuffer theBuffer ))
(set! theImageHeight (+ theImageHeight theBuffer theBuffer ))
(gimp-image-resize theImage
theImageWidth
theImageHeight
theBuffer
theBuffer)
(gimp-layer-resize theLayer
theImageWidth
theImageHeight
theBuffer
theBuffer)
(gimp-selection-all theImage)
(if (= inTrans TRUE)
(gimp-edit-clear theLayer)
(gimp-edit-fill theLayer BG-IMAGE-FILL)
)
(gimp-selection-none theImage)
(gimp-palette-set-background old-bg)
(gimp-display-new theImage)
(gimp-image-clean-all theImage)
(gimp-displays-flush)
(cons theImage () )
)
(define (script-fu-asc-2-img-layer inImage
inLayer
inFile
inFile
inFont
inFontSize
inTextColor
inFlatten)
inTextColor)
(set! old-fg (car (gimp-palette-get-foreground)))
(set! theImage inImage)
(set! theLayer inLayer)
(set! theFile (fopen inFile))
(set! otherLayers (cadr (gimp-image-get-layers theImage)))
(set! nLayers (car (gimp-image-get-layers theImage)))
(set! n nLayers)
(if (= inFlatten TRUE)
(while (> n 0) (set! n (- n 1)) (gimp-layer-set-visible (aref otherLayers n) FALSE) )
()
)
(gimp-palette-set-foreground inTextColor)
(gimp-selection-none theImage)
(set! theData ())
@ -128,61 +116,54 @@
(if (= allspaces TRUE)
(set! theIndent (+ theIndent 8))
())
)
)
( (equal? theChar " ")
(if (= allspaces TRUE)
(set! theIndent (+ theIndent 1))
())
)
)
(TRUE (set! allspaces FALSE))
)
(set! theLine (string-append theLine theChar))
)
(if (= allspaces TRUE)
(set! theLine "")
()
)
(if (and (equal? () theChar)
(equal? "" theLine)
)
()
(begin (set! theData (cons theLine theData))
(set! theIndentList
(cons theIndent theIndentList))
)
(set! theLine (string-append theLine theChar))
)
(if (= allspaces TRUE)
(set! theLine "")
()
)
(if (and (equal? () theChar)
(equal? "" theLine)
)
()
(begin (set! theData (cons theLine theData))
(set! theIndentList
(cons theIndent theIndentList))
)
)
)
(set! theText (car (gimp-text-fontname theImage
-1
0
0
"X"
0
TRUE
inFontSize
PIXELS
inFont)))
(set! theCharWidth (car (gimp-drawable-width theText) ))
(gimp-edit-cut theText)
(set! theImageHeight 0)
(set! theImageWidth 0)
(cjg-add-text (reverse theData)
(reverse theIndentList)
inFont
inFontSize)
(if (= inFlatten TRUE)
(gimp-image-merge-visible-layers theImage 0)
()
)
(set! n nLayers)
(if (= inFlatten TRUE)
(while (> n 0) (set! n (- n 1)) (gimp-layer-set-visible (aref otherLayers n) TRUE) )
()
)
(gimp-displays-flush)
)
-1
0
0
"X"
0
TRUE
inFontSize
PIXELS
inFont)))
(set! theCharWidth (car (gimp-drawable-width theText) ))
(gimp-edit-cut theText)
(set! theImageHeight 0)
(set! theImageWidth 0)
(cjg-add-text (reverse theData)
(reverse theIndentList)
inFont
inFontSize)
(set! n nLayers)
(gimp-palette-set-foreground old-fg)
(gimp-displays-flush)
)
(define (cjg-add-text inData inIndentList inFont inFontSize)
(if (equal? () inData)
@ -192,15 +173,16 @@
()
(begin
(set! theText (car (gimp-text-fontname theImage
-1
0
0
(string-append " " theLine)
0
TRUE
inFontSize
PIXELS
inFont)))
-1
0
0
(string-append
" " theLine)
0
TRUE
inFontSize
PIXELS
inFont)))
(set! theLineHeight (car (gimp-drawable-height theText) ) )
(gimp-layer-set-offsets theText
(* theCharWidth theIndent)
@ -213,21 +195,21 @@
(if (= (car (gimp-layer-is-floating-sel theText)) TRUE)
(gimp-floating-sel-anchor theText)
()
)
)
(gimp-layer-set-name theText theLine)
)
)
(set! theImageHeight
(+ theImageHeight inFontSize))
(cjg-add-text (cdr inData) (cdr inIndentList) inFont inFontSize)))
)
)
; Register the function with the GIMP:
(script-fu-register
"script-fu-asc-2-img"
"<Toolbox>/Xtns/Script-Fu/Utils/ASCII to Image..."
"foo"
"Create a new image containing text from a simple text file"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"8th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
@ -239,7 +221,6 @@
SF-TOGGLE "Transparent BG?" FALSE
SF-COLOR "Background Color" '(255 255 255)
SF-ADJUSTMENT "Buffer amount (% height of text)" '(35 0 100 1 10 0 0)
SF-TOGGLE "Flatten Image?" TRUE
)
(script-fu-register
@ -256,5 +237,4 @@
SF-FONT "Font" "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT "Font Size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR "Text Color" '(0 0 0)
SF-TOGGLE "Flatten Image?" TRUE
)

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

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

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

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

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

@ -94,7 +94,7 @@
(gimp-image-add-layer img bumpmap -1)
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-rect-select img 0 0 bevel-width img-height REPLACE FALSE 0)
(blend-bumpmap img bumpmap 0 0 (- bevel-width 1) 0)

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

@ -83,29 +83,29 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background)
(gimp-edit-fill background BG-IMAGE-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- size 2) (- size 2) REPLACE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- size 4) (- size 4) REPLACE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-free-select img 6 big-arrow REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-free-select img 6 med-arrow REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-selection-none img)
@ -116,11 +116,11 @@
; Darken arrow
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(192 192 192))
(gimp-free-select img 6 small-arrow REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-selection-none img)

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

@ -32,21 +32,21 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background)
(gimp-edit-fill background BG-IMAGE-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-ellipse-select img 1 1 (- diameter 2) (- diameter 2) REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-ellipse-select img 2 2 (- diameter 4) (- diameter 4) REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-selection-none img)

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

@ -71,21 +71,21 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background)
(gimp-edit-fill background BG-IMAGE-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- width 2) (- height 2) REPLACE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- width 4) (- height 4) REPLACE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-selection-none img)
@ -97,7 +97,7 @@
(gimp-palette-set-background text-color)
(gimp-layer-set-preserve-trans textl TRUE)
(gimp-edit-fill textl)
(gimp-edit-fill textl BG-IMAGE-FILL)
(gimp-layer-set-offsets textl
xpadding

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

@ -49,23 +49,23 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background)
(gimp-edit-fill background BG-IMAGE-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-selection-layer-alpha textl)
(gimp-selection-shrink img 1)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-selection-layer-alpha textl)
(gimp-selection-shrink img 2)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-selection-none img)

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

@ -32,21 +32,21 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background)
(gimp-edit-fill background BG-IMAGE-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
; Create bumpmap layer
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- width 2) (- height 2) REPLACE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- width 4) (- height 4) REPLACE FALSE 0)
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-selection-none img)

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

@ -34,23 +34,23 @@
(gimp-selection-none img)
(gimp-edit-clear text-shadow-layer)
(gimp-edit-clear drop-shadow-layer)
(gimp-palette-set-background text-color)
(gimp-palette-set-foreground text-color)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill text-layer)
(gimp-edit-fill text-layer FG-IMAGE-FILL)
(gimp-palette-set-background bg-color)
(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-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-image-add-layer-mask img text-shadow-layer tsl-layer-mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill tsl-layer-mask)
(gimp-edit-fill tsl-layer-mask BG-IMAGE-FILL)
(gimp-selection-feather img f-size)
(gimp-palette-set-background '(63 63 63))
(gimp-edit-fill drop-shadow-layer)
(gimp-edit-fill drop-shadow-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill text-shadow-layer)
(gimp-edit-fill text-shadow-layer BG-IMAGE-FILL)
(gimp-palette-set-foreground '(255 255 255))
(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)
@ -64,7 +64,7 @@
(gimp-selection-layer-alpha blend-layer)
(gimp-image-add-layer-mask img drop-shadow-layer dsl-layer-mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill dsl-layer-mask)
(gimp-edit-fill dsl-layer-mask BG-IMAGE-FILL)
(gimp-image-remove-layer-mask img drop-shadow-layer APPLY)
(gimp-selection-none img)
(gimp-layer-set-name text-layer text)

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

@ -19,7 +19,7 @@
; by Brian McFee <keebler@wco.com>
; Creates Cow-spotted logs.. what else?
(define (script-fu-bovinated-logo text size font)
(define (script-fu-bovinated-logo text size font bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
@ -35,19 +35,20 @@
(gimp-image-add-layer img blur-layer 1)
(gimp-selection-all img)
(gimp-edit-fill bg-layer)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer TRUE)
(gimp-palette-set-background '(255 255 255))
(gimp-selection-all img)
(gimp-edit-fill blur-layer)
(gimp-edit-fill blur-layer BG-IMAGE-FILL)
(gimp-edit-clear blur-layer)
(gimp-palette-set-background '(191 191 191))
(gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer FALSE)
(gimp-selection-layer-alpha text-layer)
(gimp-edit-fill blur-layer)
(gimp-edit-fill blur-layer BG-IMAGE-FILL)
(plug-in-gauss-rle 1 img blur-layer 5.0 1 1)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer TRUE)
@ -77,4 +78,5 @@
""
SF-STRING "Text String" "Fear the Cow"
SF-ADJUSTMENT "Font Size (pixels)" '(80 2 1000 1 10 0 1)
SF-FONT "Font" "-*-roostheavy-*-r-*-*-24-*-*-*-p-*-*-*")
SF-FONT "Font" "-*-roostheavy-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Background Color" '(255 255 255))

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

@ -50,7 +50,7 @@
(gimp-by-color-select thickLayer '(0 0 0) 127 REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear thickLayer)
(gimp-selection-invert theImage)
(gimp-edit-fill thickLayer)
(gimp-edit-fill thickLayer BG-IMAGE-FILL)
(gimp-selection-none theImage)
(if (= inSmooth TRUE)
(script-fu-tile-blur theImage thickLayer theBlur TRUE TRUE FALSE)
@ -62,7 +62,7 @@
(gimp-by-color-select thinLayer '(0 0 0) 127 REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear thinLayer)
(gimp-selection-invert theImage)
(gimp-edit-fill thinLayer)
(gimp-edit-fill thinLayer BG-IMAGE-FILL)
(gimp-selection-none theImage)
(if (= inSmooth TRUE)
(script-fu-tile-blur theImage thinLayer (/ theBlur 2) TRUE TRUE FALSE)

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

@ -112,9 +112,9 @@
(gimp-palette-set-background '(180 180 180))
(gimp-selection-load mask-fat)
(gimp-selection-invert img)
(gimp-edit-fill mask-emboss)
(gimp-edit-fill mask-emboss BG-IMAGE-FILL)
(gimp-selection-load mask)
(gimp-edit-fill mask-emboss)
(gimp-edit-fill mask-emboss BG-IMAGE-FILL)
(gimp-selection-none img)
(set! mask-highlight (car (gimp-channel-copy mask-emboss)))
@ -146,7 +146,7 @@
(gimp-image-add-layer-mask img cast-shadow-layer csl-mask)
(gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill csl-mask)
(gimp-edit-fill csl-mask BG-IMAGE-FILL)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img inset-layer 1)
@ -155,7 +155,7 @@
(gimp-image-add-layer-mask img inset-layer il-mask)
(gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill il-mask)
(gimp-edit-fill il-mask BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-selection-none bg-image)
(gimp-levels inset-layer 0 0 255 inset-gamma 0 255)

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

@ -23,13 +23,13 @@
(cond ((< mean 127) (+ 1.0 (* 0.5 (/ (- 127 mean) 127.0))))
((>= mean 127) (- 1.0 (* 0.5 (/ (- mean 127) 127.0)))))))
(define (script-fu-carved-logo text size font bg-img carve-raised)
(define (script-fu-carved-logo text size font bg-img carve-raised padding)
(let* ((img (car (gimp-file-load 1 bg-img bg-img)))
(offx (carve-scale size 0.33))
(offy (carve-scale size 0.25))
(feather (carve-scale size 0.3))
(brush-size (carve-scale size 0.3))
(b-size (carve-scale size 1.5))
(b-size (+ (carve-scale size 0.5) padding))
(layer1 (car (gimp-image-active-drawable img)))
(mask-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(width (car (gimp-drawable-width mask-layer)))
@ -54,9 +54,9 @@
(gimp-layer-set-preserve-trans mask-layer TRUE)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill mask-layer)
(gimp-edit-fill mask-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill mask)
(gimp-edit-fill mask BG-IMAGE-FILL)
(plug-in-tile 1 img layer1 width height FALSE)
@ -85,9 +85,9 @@
(gimp-palette-set-background '(180 180 180))
(gimp-selection-load mask-fat)
(gimp-selection-invert img)
(gimp-edit-fill mask-emboss)
(gimp-edit-fill mask-emboss BG-IMAGE-FILL)
(gimp-selection-load mask)
(gimp-edit-fill mask-emboss)
(gimp-edit-fill mask-emboss BG-IMAGE-FILL)
(gimp-selection-none img)
(set! mask-highlight (car (gimp-channel-copy mask-emboss)))
@ -119,7 +119,7 @@
(gimp-image-add-layer-mask img cast-shadow-layer csl-mask)
(gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill csl-mask)
(gimp-edit-fill csl-mask BG-IMAGE-FILL)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img inset-layer 1)
@ -128,7 +128,7 @@
(gimp-image-add-layer-mask img inset-layer il-mask)
(gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill il-mask)
(gimp-edit-fill il-mask BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-levels inset-layer 0 0 255 inset-gamma 0 255)
@ -162,4 +162,5 @@
SF-FONT "Font" "-*-Engraver-*-r-*-*-24-*-*-*-p-*-*-*"
; SF-STRING "Background Img" (string-append "" gimp-data-dir "/scripts/texture3.jpg")
SF-FILENAME "Background Img" (string-append "" gimp-data-dir "/scripts/texture3.jpg")
SF-TOGGLE "Carve Raised Text" FALSE)
SF-TOGGLE "Carve Raised Text" FALSE
SF-ADJUSTMENT "Padding Around Text" '(10 0 1000 1 10 0 1))

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

@ -36,7 +36,7 @@
(gimp-image-add-layer img bg-layer 1)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear text-layer)
; is there any other way to do this?

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

@ -58,13 +58,13 @@
(if (= bg-fill TRUE)
(gimp-bucket-fill bg-layer 2 NORMAL 100 255 FALSE 1 1)
(gimp-edit-fill bg-layer))
(gimp-edit-fill bg-layer BG-IMAGE-FILL))
(gimp-selection-all img)
(gimp-edit-clear bump-layer)
(gimp-selection-none img)
(gimp-selection-layer-alpha text-layer)
(gimp-edit-fill bump-layer)
(gimp-edit-fill bump-layer BG-IMAGE-FILL)
(gimp-bucket-fill text-layer 2 NORMAL 100 255 FALSE 1 1)
(gimp-selection-none img)
@ -89,7 +89,7 @@
(gimp-selection-none img)
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE)
(gimp-image-add-layer img shadow-layer 1)

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

@ -106,8 +106,8 @@
(gimp-palette-set-background '(255 255 255))
(gimp-selection-none img)
(gimp-edit-fill layer2)
(gimp-edit-fill layer3)
(gimp-edit-fill layer2 BG-IMAGE-FILL)
(gimp-edit-fill layer3 BG-IMAGE-FILL)
(gimp-edit-clear shadow)
(gimp-layer-set-visible bg-layer FALSE)
@ -117,9 +117,9 @@
(gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather)
(gimp-edit-fill layer2)
(gimp-edit-fill layer2 BG-IMAGE-FILL)
(gimp-selection-translate img (* 2 offx2) (* 2 offy2))
(gimp-edit-fill layer3)
(gimp-edit-fill layer3 BG-IMAGE-FILL)
(gimp-selection-none img)
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert layer2)
@ -137,7 +137,7 @@
(gimp-image-add-layer-mask img layer1 layer-mask)
(gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill layer-mask)
(gimp-edit-fill layer-mask BG-IMAGE-FILL)
(set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0)
@ -148,7 +148,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img (* feather 1.5))
(gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1))
(gimp-edit-fill shadow)
(gimp-edit-fill shadow BG-IMAGE-FILL)
(gimp-selection-all img)
(gimp-patterns-set-pattern "Marble #1")

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

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

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

@ -10,11 +10,12 @@
(height (car (gimp-drawable-height tdrawable)))
(img (car (gimp-image-new width height RGB)))
; (layer-two (car (gimp-layer-new img width height RGB "Y Dots" 100 MULTIPLY)))
(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)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-edit-fill layer-one)
; (gimp-edit-fill img layer-two)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill layer-one BG-IMAGE-FILL)
(gimp-image-add-layer img layer-one 0)
(plug-in-noisify 1 img layer-one FALSE 0.7 0.7 0.7 0.7)
@ -33,6 +34,7 @@
(plug-in-bump-map 1 img tdrawable bump-layer azimuth elevation depth 0 0 0 0 FALSE FALSE 0)
(gimp-image-delete img)
(gimp-palette-set-background old-bg)
(gimp-displays-flush)
))

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

@ -19,7 +19,7 @@
; by Brian McFee
; Creates snazzy-looking text, inspired by watching a Maxx marathon :)
(define (script-fu-comic-logo text size font gradient ol-width)
(define (script-fu-comic-logo text size font gradient ol-width ol-color bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
@ -40,13 +40,14 @@
(gimp-layer-set-name black-layer "Black")
(gimp-selection-all img)
(gimp-edit-fill bg-layer)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans white-layer TRUE)
(gimp-palette-set-background '(255 255 255))
(gimp-palette-set-background ol-color)
(gimp-selection-all img)
(gimp-edit-fill white-layer)
(gimp-edit-fill white-layer BG-IMAGE-FILL)
(gimp-layer-set-preserve-trans white-layer FALSE)
(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)
@ -56,7 +57,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-layer-set-preserve-trans black-layer TRUE)
(gimp-selection-all img)
(gimp-edit-fill black-layer)
(gimp-edit-fill black-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans black-layer FALSE)
(plug-in-gauss-rle 1 img black-layer ol-width 1 1)
@ -91,4 +92,6 @@
SF-ADJUSTMENT "Font Size (pixels)" '(85 2 1000 1 10 0 1)
SF-FONT "Font" "-*-tribeca-*-i-*-*-24-*-*-*-p-*-*-*"
SF-GRADIENT "Gradient" "Incandescent"
SF-VALUE "Outline width" "5")
SF-VALUE "Outline width" "5"
SF-COLOR "Outline color" '(255 255 255)
SF-COLOR "Background color" '(255 255 255))

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

@ -4,7 +4,7 @@
; an interesting dropshadow
; This script was inspired by Rob Malda's 'coolmetal.gif' graphic
(define (script-fu-cool-metal-logo text size font bg-color seascape)
(define (script-fu-cool-metal-logo text size font bg-color gradient)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(feather (/ size 5))
(smear 7.5)
@ -34,14 +34,12 @@
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear reflect-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(if (= seascape 1)
(gimp-gradients-set-active "Horizon_2")
(gimp-gradients-set-active "Horizon_1"))
(gimp-gradients-set-active gradient)
(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)
(plug-in-gauss-iir 1 img text-layer smear TRUE TRUE)
@ -58,7 +56,7 @@
(gimp-selection-layer-alpha text-layer)
(gimp-selection-invert img)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill channel)
(gimp-edit-fill channel BG-IMAGE-FILL)
(gimp-selection-none img)
(plug-in-bump-map 1 img text-layer channel 135 45 depth 0 0 0 0 FALSE FALSE 0)
@ -110,4 +108,4 @@
SF-ADJUSTMENT "Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT "Font" "-*-Crillee-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Background Color" '(255 255 255)
SF-TOGGLE "Seascape" FALSE)
SF-GRADIENT "Gradient" "Horizon_1")

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

@ -103,17 +103,17 @@
(gimp-image-add-layer img layer2 0)
(gimp-palette-set-background '(255 255 255))
(gimp-selection-none img)
(gimp-edit-fill layer2)
(gimp-edit-fill layer3)
(gimp-edit-fill layer2 BG-IMAGE-FILL)
(gimp-edit-fill layer3 BG-IMAGE-FILL)
(gimp-layer-set-visible text-layer FALSE)
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather)
(gimp-edit-fill layer2)
(gimp-edit-fill layer2 BG-IMAGE-FILL)
(gimp-selection-translate img (* 2 offx2) (* 2 offy2))
(gimp-edit-fill layer3)
(gimp-edit-fill layer3 BG-IMAGE-FILL)
(gimp-selection-none img)
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert layer2)
@ -131,7 +131,7 @@
(gimp-image-add-layer-mask img layer1 layer-mask)
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill layer-mask)
(gimp-edit-fill layer-mask BG-IMAGE-FILL)
(set! disp-map (car (gimp-selection-save img)))
(gimp-brushes-set-brush (crystal-brush brush-size))
@ -158,7 +158,7 @@
(gimp-image-add-layer-mask img layer2 layer-mask2)
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill layer-mask2)
(gimp-edit-fill layer-mask2 BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-levels layer2 0 0 200 1.5 50 255)
@ -167,7 +167,7 @@
(plug-in-gauss-rle 1 img text-layer blur TRUE TRUE)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill text-layer)
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-layer-set-mode text-layer OVERLAY)
(gimp-layer-translate text-layer offx1 offy1)

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

@ -49,7 +49,7 @@
(gimp-image-add-layer theImage theLayer 0)
(if (= TRUE (car (gimp-selection-is-empty theImage)))
()
(gimp-edit-fill theLayer)
(gimp-edit-fill theLayer BG-IMAGE-FILL)
)
(gimp-selection-invert theImage)
(if (= TRUE (car (gimp-selection-is-empty theImage)))

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

@ -49,7 +49,7 @@
(gimp-image-add-layer theImage theLayer 0)
(if (= TRUE (car (gimp-selection-is-empty theImage)))
()
(gimp-edit-fill theLayer)
(gimp-edit-fill theLayer BG-IMAGE-FILL)
)
(gimp-selection-invert theImage)
(if (= TRUE (car (gimp-selection-is-empty theImage)))

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

@ -128,7 +128,7 @@
(gimp-drawable-fill shadow-layer TRANS-IMAGE-FILL)
(gimp-palette-set-background shadow-color)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none image)
(gimp-layer-set-preserve-trans shadow-layer FALSE)
(if (>= shadow-blur 1.0) (plug-in-gauss-rle 1

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

@ -8,7 +8,7 @@
(if (eq? orientation 'rows)
(gimp-rect-select img 0 i width 1 REPLACE FALSE 0)
(gimp-rect-select img i 0 1 height REPLACE FALSE 0))
(gimp-edit-fill drawable)
(gimp-edit-fill drawable BG-IMAGE-FILL)
(loop (+ i 2) max))))))
(loop (if (eq? which 'even)
0

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

@ -127,7 +127,7 @@
)
)
(gimp-palette-set-background (list (/ l-gray 100) (/ l-gray 100) (/ l-gray 100)))
(gimp-edit-fill l-mask)
(gimp-edit-fill l-mask BG-IMAGE-FILL)
(set! l-idx (+ l-idx 1))
(set! l-gray (+ l-gray l-step))
(gimp-selection-shrink inImage 1)
@ -144,7 +144,7 @@
(begin
(gimp-selection-load l-orig-selection)
(gimp-palette-set-background (list (/ l-to-gray 100) (/ l-to-gray 100) (/ l-to-gray 100)))
(gimp-edit-fill l-mask)
(gimp-edit-fill l-mask BG-IMAGE-FILL)
(gimp-selection-grow inImage inBorderSize)
(gimp-selection-invert inImage)
(if (= inClearUnselected TRUE)
@ -156,7 +156,7 @@
(gimp-palette-set-background (list 255 255 255))
)
)
(gimp-edit-fill l-mask)
(gimp-edit-fill l-mask BG-IMAGE-FILL)
(gimp-image-remove-channel inImage l-orig-selection)
)
)

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

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

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

@ -34,7 +34,7 @@
(set! selection (car (gimp-selection-save img)))
(gimp-selection-feather img border)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill sparkle-layer)
(gimp-edit-fill sparkle-layer BG-IMAGE-FILL)
(plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
(plug-in-c-astretch 1 img sparkle-layer)
(gimp-selection-none img)
@ -46,19 +46,19 @@
(gimp-brushes-set-brush "Circle Fuzzy (11)")
(gimp-edit-stroke matte-layer)
(gimp-selection-feather img border)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill text-layer)
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-image-add-layer-mask img text-layer text-layer-mask)
(gimp-selection-load selection)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill text-layer-mask)
(gimp-edit-fill text-layer-mask BG-IMAGE-FILL)
(gimp-selection-feather img border)
(gimp-selection-translate img (/ border 2) (/ border 2))
(gimp-edit-fill text-layer)
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-image-remove-layer-mask img text-layer 0)
(gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)")

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

@ -84,7 +84,7 @@
(gimp-selection-invert theImage)
(gimp-edit-clear theLayer)
(gimp-palette-set-background inColor)
(gimp-edit-fill theLayer)
(gimp-edit-fill theLayer BG-IMAGE-FILL)
(gimp-selection-none inImage)
(chris-color-edge theImage theLayer inColor 1)
@ -140,7 +140,7 @@
(gimp-selection-shrink inImage inSize)
(gimp-selection-invert inImage)
(gimp-palette-set-background inColor)
(gimp-edit-fill theLayer)
(gimp-edit-fill theLayer BG-IMAGE-FILL)
(gimp-selection-none inImage)
)

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

@ -52,10 +52,10 @@
(gimp-image-add-layer img bg-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background text-color)
(gimp-edit-fill text-layer)
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(let* ((highlight-layer (car (gimp-layer-copy text-layer TRUE)))
(side-layer (car (gimp-layer-copy text-layer TRUE)))
@ -71,15 +71,15 @@
(gimp-layer-set-preserve-trans shadow-layer TRUE)
(gimp-palette-set-background high-color)
(gimp-edit-fill highlight-layer)
(gimp-edit-fill highlight-layer BG-IMAGE-FILL)
(gimp-layer-translate highlight-layer -1 -1)
(gimp-palette-set-background side-color)
(gimp-edit-fill side-layer)
(gimp-edit-fill side-layer BG-IMAGE-FILL)
(gimp-layer-translate side-layer 1 1)
(gimp-palette-set-background shadow-color)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-layer-translate shadow-layer 5 5)
(gimp-layer-set-preserve-trans shadow-layer FALSE)

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

@ -56,13 +56,13 @@
(gimp-layer-set-preserve-trans shadow-layer TRUE)
(gimp-palette-set-background text-color)
(gimp-edit-fill text-layer)
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-palette-set-background shadow-color)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-layer-translate shadow-layer 1 1)
(set! text-layer (car (gimp-image-flatten img)))

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

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

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

@ -19,7 +19,7 @@
; by Brian McFee <keebler@wco.com>
; Create cool glossy bevelly text
(define (script-fu-gradient-bevel-logo text size font bevel-height bevel-width)
(define (script-fu-gradient-bevel-logo text size font bevel-height bevel-width bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
@ -37,18 +37,19 @@
(gimp-image-add-layer img blur-layer 1)
(gimp-selection-all img)
(gimp-edit-fill bg-layer)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer TRUE)
(gimp-palette-set-background '(255 255 255))
(gimp-selection-all img)
(gimp-edit-fill blur-layer)
(gimp-edit-fill blur-layer BG-IMAGE-FILL)
(gimp-edit-clear blur-layer)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer FALSE)
(gimp-selection-layer-alpha text-layer)
(gimp-edit-fill blur-layer)
(gimp-edit-fill blur-layer BG-IMAGE-FILL)
(plug-in-gauss-rle 1 img blur-layer bevel-width 1 1)
(gimp-selection-none img)
(gimp-palette-set-background '(127 127 127))
@ -81,4 +82,5 @@
SF-ADJUSTMENT "Font Size (pixels)" '(90 2 1000 1 10 0 1)
SF-FONT "Font" "-*-futura_poster-*-r-*-*-24-*-*-*-p-*-*-*"
SF-VALUE "Bevel Height (sharpness)" "40"
SF-VALUE "Bevel Width" "2.5")
SF-VALUE "Bevel Width" "2.5"
SF-COLOR "Background Color" '(255 255 255))

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

@ -259,7 +259,7 @@
(gimp-image-add-layer gimg bglayer -1)
(gimp-selection-all gimg)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bglayer)
(gimp-edit-fill bglayer BG-IMAGE-FILL)
(gimp-image-add-layer gimg hsv-layer -1)
(gimp-edit-clear hsv-layer)
(gimp-image-add-layer gimg rgb-layer -1)

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

@ -44,16 +44,16 @@
;; get the text shape
(gimp-selection-layer-alpha text-layer)
;; fill it with the specified color
(gimp-palette-set-background text-color)
(gimp-edit-fill dist-text-layer)
(gimp-palette-set-foreground text-color)
(gimp-edit-fill dist-text-layer FG-IMAGE-FILL)
;; get the border shape
(gimp-selection-border img frame-size)
(gimp-palette-set-background frame-color)
(gimp-edit-fill dist-frame-layer)
(gimp-edit-fill dist-frame-layer BG-IMAGE-FILL)
(gimp-selection-none img)
;; now make the distortion data
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill distortion-layer)
(gimp-edit-fill distortion-layer BG-IMAGE-FILL)
(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-c-astretch 1 distortion-img distortion-layer)
@ -62,7 +62,7 @@
(plug-in-displace 1 img dist-text-layer radius radius 1 1
distortion-layer distortion-layer 0)
;; make the distortion data once again fro the frame
(gimp-edit-fill distortion-layer)
(gimp-edit-fill distortion-layer BG-IMAGE-FILL)
(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-c-astretch 1 distortion-img distortion-layer)
@ -73,7 +73,7 @@
;; Finally, clear the bottom layer (text-layer)
(gimp-selection-all img)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill text-layer)
(gimp-edit-fill text-layer BG-IMAGE-FILL)
;; post processing
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)

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

@ -102,7 +102,7 @@
"New Background" 100 NORMAL)))
(gimp-image-add-layer img new-bg num-of-layers)
(gimp-palette-set-background background-color)
(gimp-edit-fill new-bg)))
(gimp-edit-fill new-bg BG-IMAGE-FILL)))
(gimp-image-set-active-layer img (aref layers 0))
(if (= TRUE with-layer-name?)
(let ((text-layer #f))

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

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

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

@ -86,18 +86,18 @@
(gimp-selection-none img)
(gimp-edit-clear glow-layer)
(gimp-edit-fill tube-layer)
(gimp-edit-fill tube-layer BG-IMAGE-FILL)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-selection-load selection)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill tube-layer)
(gimp-edit-fill tube-layer BG-IMAGE-FILL)
(gimp-selection-shrink img shrink)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill selection)
(gimp-edit-fill tube-layer)
(gimp-edit-fill selection BG-IMAGE-FILL)
(gimp-edit-fill tube-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(if (not (= feather1 0)) (plug-in-gauss-rle 1 img tube-layer feather1 TRUE TRUE))
@ -131,7 +131,7 @@
(gimp-selection-feather img feather)
(gimp-palette-set-background glow-color)
(gimp-edit-fill glow-layer)
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(if (not (= shadow 0))
(begin
@ -140,7 +140,7 @@
(gimp-selection-feather img shadow-feather)
(gimp-selection-translate img shadow-offx shadow-offy)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer)))
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)))
(gimp-selection-none img)
(gimp-layer-set-name tube-layer "Neon Tubes")

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

@ -19,7 +19,7 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-newsprint-text string font font-size cell-size density)
(define (script-fu-newsprint-text string font font-size cell-size density text-color bg-color)
(let* ((text-ext (gimp-text-get-extents-fontname string font-size PIXELS font))
(wid (+ (car text-ext) 20))
(hi (+ (nth 1 text-ext) 20))
@ -28,15 +28,18 @@
(text-layer (car (gimp-layer-new img wid hi RGBA_IMAGE "Text layer" 100 NORMAL)))
(text-mask 0)
(grey (/ (* density 255) 100))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img text-layer -1)
(gimp-palette-set-background bg-color)
(gimp-edit-clear bg-layer)
(gimp-edit-clear text-layer)
(gimp-palette-set-foreground text-color)
(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)))
@ -44,13 +47,14 @@
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background (list grey grey grey))
(gimp-edit-fill text-mask)
(gimp-edit-fill text-mask BG-IMAGE-FILL)
(plug-in-newsprint 1 img text-mask cell-size 0 0 45.0 3 45.0 0 45.0 0 45.0 0 3)
(gimp-image-remove-layer-mask img text-layer APPLY)
; (gimp-selection-clear img)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-image-undo-enable img)
@ -67,4 +71,6 @@
SF-FONT "Font" "-*-Helvetica-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT "Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-VALUE "Cell size (in pixels)" "7"
SF-ADJUSTMENT "Density (%)" '(60 0 100 1 10 0 0))
SF-ADJUSTMENT "Density (%)" '(60 0 100 1 10 0 0)
SF-COLOR "Text Color" '(0 0 0)
SF-COLOR "Background Color" '(255 255 255))

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

@ -107,7 +107,7 @@
(gimp-layer-set-offsets shadow-layer select-offset-x select-offset-y)
(gimp-drawable-fill shadow-layer TRANS-IMAGE-FILL)
(gimp-palette-set-background shadow-color)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none image)
(if (= allow-resize TRUE)

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

@ -119,12 +119,12 @@
(gimp-image-add-layer img bumpmap -1)
(gimp-selection-none img)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(round-select img (/ bevel 2) (/ bevel 2)
(- width bevel) (- height bevel) ratio)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bumpmap)
(gimp-edit-fill bumpmap BG-IMAGE-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img bumpmap bevel 1 1)

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

@ -28,7 +28,7 @@
(gimp-image-undo-disable ripple-image)
(gimp-palette-set-background '(127 127 127) )
(gimp-image-add-layer ripple-image ripple-layer 0)
(gimp-edit-fill ripple-layer)
(gimp-edit-fill ripple-layer BG-IMAGE-FILL)
(plug-in-noisify 1 ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0)
; tile noise
(set! rippletiled-ret (plug-in-tile 1 ripple-image ripple-layer (* width 3) (* height 3) TRUE))

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

@ -195,7 +195,7 @@
(set! hole (+ hole 1)))
(gimp-palette-set-foreground '(0 0 0))
(gimp-edit-fill film-mask)
(gimp-edit-fill film-mask BG-IMAGE-FILL)
(gimp-selection-none image)
(plug-in-gauss-rle 1 image film-mask hole-radius TRUE TRUE)
(gimp-threshold film-mask 127 255)

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

@ -96,23 +96,23 @@
(gimp-image-add-layer img layer2 0)
(gimp-palette-set-background '(255 255 255))
(gimp-selection-none img)
(gimp-edit-fill layer2)
(gimp-edit-fill layer3)
(gimp-edit-fill layer2 BG-IMAGE-FILL)
(gimp-edit-fill layer3 BG-IMAGE-FILL)
(gimp-edit-clear shadow)
(gimp-layer-set-visible text-layer 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 b-size (- width (* b-size 2)) (- height (* b-size 2)) SUB 0 0)
(gimp-edit-fill text-layer)
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather)
(gimp-edit-fill layer2)
(gimp-edit-fill layer2 BG-IMAGE-FILL)
(gimp-selection-translate img (* 2 offx2) (* 2 offy2))
(gimp-edit-fill layer3)
(gimp-edit-fill layer3 BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-layer-set-visible layer2 TRUE)
(gimp-layer-set-visible layer3 TRUE)
@ -134,7 +134,7 @@
(gimp-image-add-layer-mask img layer1 layer-mask)
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill layer-mask)
(gimp-edit-fill layer-mask BG-IMAGE-FILL)
(set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0)
@ -145,7 +145,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img (* feather 1.5))
(gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1))
(gimp-edit-fill shadow)
(gimp-edit-fill shadow BG-IMAGE-FILL)
(gimp-selection-all img)
(gimp-patterns-set-pattern "Marble #1")

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

@ -19,7 +19,7 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-speed-text string font font-size density)
(define (script-fu-speed-text string font font-size density text-color bg-color)
(let* ((text-ext (gimp-text-get-extents-fontname string font-size PIXELS font))
(wid (+ (car text-ext) 20))
(hi (+ (nth 1 text-ext) 20))
@ -37,6 +37,7 @@
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img text-layer -1)
(gimp-palette-set-background bg-color)
(gimp-edit-clear bg-layer)
(gimp-edit-clear text-layer)
@ -53,17 +54,17 @@
; grow the layer
(gimp-layer-set-edit-mask text-layer FALSE)
(gimp-selection-grow img 10)
(gimp-palette-set-background old-fg)
(gimp-edit-fill text-layer)
(gimp-palette-set-foreground text-color)
(gimp-edit-fill text-layer FG-IMAGE-FILL)
; feather the mask
(gimp-layer-set-edit-mask text-layer TRUE)
(gimp-selection-load saved-sel)
(gimp-selection-feather img 10)
(gimp-palette-set-background (list grey grey grey))
(gimp-edit-fill text-mask)
(gimp-edit-fill text-mask)
(gimp-edit-fill text-mask)
(gimp-edit-fill text-mask BG-IMAGE-FILL)
(gimp-edit-fill text-mask BG-IMAGE-FILL)
(gimp-edit-fill text-mask BG-IMAGE-FILL)
(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)
@ -86,4 +87,6 @@
SF-STRING "Text String" "Speed!"
SF-FONT "Font" "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT "Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-ADJUSTMENT "Density (%)" '(80 0 100 1 10 0 0))
SF-ADJUSTMENT "Density (%)" '(80 0 100 1 10 0 0)
SF-COLOR "Text Color" '(0 0 0)
SF-COLOR "Background Color" '(255 255 255))

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

@ -26,7 +26,7 @@
(gimp-image-add-layer img drawable 0)
(gimp-palette-set-foreground sphere-color)
(gimp-palette-set-background bg-color)
(gimp-edit-fill drawable)
(gimp-edit-fill drawable BG-IMAGE-FILL)
(gimp-palette-set-background '(20 20 20))
(if (and
(or (and (>= light 45) (<= light 75)) (and (<= light 135) (>= light 105)))

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

@ -30,7 +30,7 @@
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear shadow-layer)
(gimp-edit-clear burst-layer)
@ -42,7 +42,7 @@
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill layer-mask)
(gimp-edit-fill layer-mask BG-IMAGE-FILL)
(gimp-selection-none img)
(plug-in-nova 1 img burst-layer (car burst-coords) (cdr burst-coords)
burst-color burstradius 100 0)
@ -52,7 +52,7 @@
(gimp-selection-feather img feather)
(gimp-selection-translate img -1 -1)
(while (< count off)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-translate img 1 1)
(set! count (+ count 1)))
(gimp-selection-none img)

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

@ -66,7 +66,7 @@
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear shadow-layer)
(gimp-edit-clear glow-layer)
@ -75,13 +75,13 @@
(gimp-selection-feather img feather)
(gimp-palette-set-background glow-color)
(gimp-selection-feather img feather)
(gimp-edit-fill glow-layer)
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-feather img shadow-feather)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx offy)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-palette-set-background '(31 31 31))

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

@ -16,7 +16,7 @@
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-palette-set-background bg-color)
(gimp-edit-fill layer-one)
(gimp-edit-fill layer-one BG-IMAGE-FILL)
(gimp-image-add-layer img layer-one 0)
(plug-in-noisify 1 img layer-one FALSE noise-level noise-level noise-level 1.0)

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

@ -28,8 +28,7 @@
(gimp-edit-clear shadow-layer)
(gimp-edit-clear sparkle-layer)
(gimp-palette-set-background base-color)
(gimp-edit-fill sparkle-layer)
(gimp-palette-set-background base-color)
(gimp-edit-fill sparkle-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(set! selection (car (gimp-selection-save img)))
(gimp-selection-grow img edge-size)
@ -61,10 +60,10 @@
(gimp-palette-set-background '(255 255 255))
(gimp-brushes-set-brush "Circle Fuzzy (11)")
(gimp-selection-feather img border)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-palette-set-background base-color)
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)")
(gimp-palette-set-foreground '(255 255 255))

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

@ -116,7 +116,7 @@
(gimp-image-add-layer img drawable 0)
(gimp-palette-set-foreground sphere-color)
(gimp-palette-set-background bg-color)
(gimp-edit-fill drawable)
(gimp-edit-fill drawable BG-IMAGE-FILL)
(gimp-palette-set-background '(20 20 20))
(if (and
(or (and (>= light 45) (<= light 75)) (and (<= light 135) (>= light 105)))

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

@ -58,7 +58,7 @@
(index 0))
(gimp-image-undo-disable img)
(gimp-image-add-layer img BG-layer 0)
(gimp-edit-fill BG-layer)
(gimp-edit-fill BG-layer BG-IMAGE-FILL)
;; change units
(set! start-angle-rad (* (/ (modulo start-angle 360) 360) 2 *pi*))
(set! fill-angle-rad (* (/ fill-angle 360) 2 *pi*))

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

@ -43,16 +43,16 @@
(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-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-image-add-layer-mask img text-shadow-layer tsl-layer-mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill tsl-layer-mask)
(gimp-edit-fill tsl-layer-mask BG-IMAGE-FILL)
(gimp-selection-feather img f-size)
(gimp-palette-set-background '(63 63 63))
(gimp-edit-fill drop-shadow-layer)
(gimp-edit-fill drop-shadow-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill text-shadow-layer)
(gimp-edit-fill text-shadow-layer BG-IMAGE-FILL)
(gimp-palette-set-foreground '(255 255 255))
(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)
@ -67,7 +67,7 @@
(gimp-selection-layer-alpha blend-layer)
(gimp-image-add-layer-mask img drop-shadow-layer dsl-layer-mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill dsl-layer-mask)
(gimp-edit-fill dsl-layer-mask BG-IMAGE-FILL)
(gimp-image-remove-layer-mask img drop-shadow-layer APPLY)
(gimp-selection-none img)
(gimp-layer-set-name text-layer text)

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

@ -105,17 +105,17 @@ verted to use the *-fontname form.
; Create bumpmap layer
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bumpmap-layer)
(gimp-edit-fill bumpmap-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bumpmap-layer)
(gimp-edit-fill bumpmap-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img bumpmap-layer 4.0 TRUE TRUE)
; Fore layer, bumpmap
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill fore-layer)
(gimp-edit-fill fore-layer BG-IMAGE-FILL)
(plug-in-bump-map 1 img fore-layer bumpmap-layer 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
; Text layer
@ -131,11 +131,11 @@ verted to use the *-fontname form.
; Semicircle at the left
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-ellipse-select img 0 0 text-height text-height REPLACE TRUE FALSE 0)
(gimp-palette-set-background (car (gimp-color-picker text-layer text-layers-offset 0 TRUE FALSE)))
(gimp-edit-fill bg-layer)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
; Fade-out gradient at the right

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

@ -354,7 +354,7 @@
(gimp-brushes-set-brush (car brush-details))
(gimp-image-undo-disable img)
(gimp-image-add-layer img BG-layer 0)
(gimp-edit-fill BG-layer)
(gimp-edit-fill BG-layer BG-IMAGE-FILL)
(if (<= 0 erase-before-draw) ; HDDN FTR (2SLW)
(begin
(set! the-layer (car (gimp-layer-new img drawable-size drawable-size
@ -363,7 +363,7 @@
(gimp-image-add-layer img the-layer 0)
(if (= NORMAL old-paint-mode)
(gimp-edit-clear the-layer)
(gimp-edit-fill the-layer)))
(gimp-edit-fill the-layer BG-IMAGE-FILL)))
(begin
(set! layer-paint-mode (- 1 erase-before-draw))
(gimp-image-set-active-layer img BG-layer)))

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

@ -46,7 +46,7 @@
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-edit-fill drawable1)
(gimp-edit-fill drawable1 BG-IMAGE-FILL)
(let* (
(tempSize (* size 3))
@ -56,7 +56,7 @@
(gimp-image-undo-disable temp-img)
(gimp-image-add-layer temp-img temp-draw 0)
(gimp-palette-set-background backcolor)
(gimp-edit-fill temp-draw)
(gimp-edit-fill temp-draw BG-IMAGE-FILL)
(center-ellipse temp-img size size outer-radius outer-radius REPLACE TRUE FALSE 0)
@ -65,7 +65,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) inner-radius inner-radius SUB TRUE FALSE 0)
(gimp-palette-set-background forecolor)
(gimp-edit-fill temp-draw)
(gimp-edit-fill temp-draw BG-IMAGE-FILL)
(gimp-selection-none temp-img)
@ -117,7 +117,7 @@
;just to look a little better
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-edit-fill layer-one)
(gimp-edit-fill layer-one BG-IMAGE-FILL)
(gimp-selection-none img)
(create-tiles tile tiledraw1 tiledraw2 size thickness backcolor forecolor)

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

@ -41,7 +41,7 @@
(gimp-image-add-layer img drawable 0)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill drawable)
(gimp-edit-fill drawable BG-IMAGE-FILL)
; Create main horizontal ribbon
@ -165,14 +165,14 @@
(gimp-image-add-layer img drawable 0)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill drawable)
(gimp-edit-fill drawable BG-IMAGE-FILL)
(gimp-rect-select img r1-x1 r1-y1 r1-width r1-height REPLACE FALSE 0)
(gimp-rect-select img r2-x1 r2-y1 r2-width r2-height ADD FALSE 0)
(gimp-rect-select img r3-x1 r3-y1 r3-width r3-height ADD FALSE 0)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill drawable)
(gimp-edit-fill drawable BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-image-undo-enable img)
@ -243,7 +243,7 @@
(dense (/ density 100.0)))
(gimp-image-add-layer img drawable -1)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill drawable)
(gimp-edit-fill drawable BG-IMAGE-FILL)
(plug-in-noisify 1 img drawable FALSE dense dense dense dense)
(plug-in-c-astretch 1 img drawable)
(cond ((eq? orientation 'horizontal)

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

@ -67,9 +67,9 @@
(gimp-selection-load active-selection)
(gimp-palette-set-background hl-color)
(gimp-edit-fill hl-layer)
(gimp-edit-fill hl-layer BG-IMAGE-FILL)
(gimp-selection-translate image hl-offset-x hl-offset-y)
(gimp-edit-fill hl-layer)
(gimp-edit-fill hl-layer BG-IMAGE-FILL)
(gimp-selection-none image)
(gimp-selection-load active-selection)
@ -77,7 +77,7 @@
(gimp-image-add-layer-mask image hl-layer mask)
(gimp-palette-set-background hl-opacity)
(gimp-edit-fill mask)
(gimp-edit-fill mask BG-IMAGE-FILL)
(set! shadow-layer (car (gimp-layer-new image
image-width
@ -92,7 +92,7 @@
(gimp-selection-load active-selection)
(gimp-selection-translate image ds-offset-x ds-offset-y)
(gimp-palette-set-background ds-color)
(gimp-edit-fill shadow-layer)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none image)
(plug-in-gauss-rle 1 image shadow-layer ds-blur TRUE TRUE)
(gimp-selection-load active-selection)

5
po-script-fu/ChangeLog
View File

@ -1,3 +1,8 @@
Fri Mar 24 15:25:55 CET 2000 Sven Neumann <sven@gimp.org>
* update.sh: call script-fu-xgettext. Should probably read the
scripts from a central file instead of duplicating the list here...
2000-03-21 Shirasaki Yasuhiro <yasuhiro@gnome.gr.jp>
* Makefile.in.in: added missing plug-ins/gap/sel-to-anim-img.scm

4
po-script-fu/update.sh
View File

@ -3,6 +3,10 @@
xgettext --default-domain=gimp-script-fu --directory=.. \
--add-comments --keyword=_ --keyword=N_ \
--files-from=./POTFILES.in \
&& ./script-fu-xgettext \
../plug-ins/script-fu/scripts/*.scm \
../plug-ins/gap/sel-to-anim-img.scm \
>> gimp-script-fu.po \
&& test ! -f gimp-script-fu.po \
|| ( rm -f ./gimp-script-fu.pot \
&& mv gimp-script-fu.po ./gimp-script-fu.pot )

19
tools/pdbgen/pdb/edit.pdb
View File

@ -130,14 +130,23 @@ sub edit_fill {
$blurb = 'Fill selected area of drawable.';
$help = <<'HELP';
This procedure fills the specified drawable with the background color. This
procedure only affects regions within a selection if there is a selection
active.
This procedure fills the specified drawable with the fill mode. If the fill
mode is foreground, the current foreground color is used. If the fill mode is
background, the current background color is used. Other fill modes should not
be used. This procedure only affects regions within a selection if there is a
selection active.
HELP
&std_pdb_misc;
&inargs('fill to');
&invoke('edit_fill (gimage, drawable)');
$author .= ' & Raphael Quinet';
$date = '1995-2000';
@inargs = (
{ name => 'drawable', type => 'drawable',
desc => "The drawable to fill to" },
{ name => 'fill_type', type => 'enum GimpFillType',
desc => 'The type of fill: %%desc%%' }
);
&invoke('edit_fill (gimage, drawable, (GimpFillType) fill_type)');
}
sub edit_stroke {