procyberian/gimp
2
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp.git synced 2025-07-03 17:33:25 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity Actions

tools/pdbgen/Makefile.am tools/pdbgen/groups.pl removed the "Palette" pdb

Browse source 
2004-09-22  Michael Natterer  <mitch@gimp.org>

	* tools/pdbgen/Makefile.am
	* tools/pdbgen/groups.pl
	* tools/pdbgen/pdb/palette.pdb: removed the "Palette" pdb group...

	* tools/pdbgen/pdb/context.pdb: and added its functions to the
	"Context" namespace instead.

	* app/pdb/Makefile.am
	* app/pdb/palette_cmds.c: removed.

	* app/pdb/procedural_db.c: added them to the pdb_compat hash table.

	* libgimp/Makefile.am
	* libgimp/gimppalette_pdb.[ch]: removed.

	* libgimp/gimppalette.[ch]: new files holding compat functions
	which call gimp_context_*() functions.

	* libgimp/gimp.h
	* libgimp/gimpui.c: changed accordingly.

	* app/pdb/context_cmds.c
	* app/pdb/internal_procs.c
	* libgimp/gimp_pdb.h
	* libgimp/gimpcontext_pdb.[ch]: regenerated.

	* plug-ins/MapObject/mapobject_image.c
	* plug-ins/MapObject/mapobject_preview.c
	* plug-ins/common/apply_lens.c
	* plug-ins/common/blinds.c
	* plug-ins/common/borderaverage.c
	* plug-ins/common/checkerboard.c
	* plug-ins/common/colortoalpha.c
	* plug-ins/common/cubism.c
	* plug-ins/common/exchange.c
	* plug-ins/common/film.c
	* plug-ins/common/gif.c
	* plug-ins/common/grid.c
	* plug-ins/common/mapcolor.c
	* plug-ins/common/mblur.c
	* plug-ins/common/mng.c
	* plug-ins/common/mosaic.c
	* plug-ins/common/papertile.c
	* plug-ins/common/png.c
	* plug-ins/common/polar.c
	* plug-ins/common/semiflatten.c
	* plug-ins/common/sinus.c
	* plug-ins/common/sparkle.c
	* plug-ins/common/vpropagate.c
	* plug-ins/common/warp.c
	* plug-ins/common/whirlpinch.c
	* plug-ins/gfig/gfig-style.c
	* plug-ins/gfli/gfli.c
	* plug-ins/ifscompose/ifscompose.c
	* plug-ins/maze/handy.c
	* plug-ins/pagecurl/pagecurl.c
	* plug-ins/pygimp/gimpmodule.c
	* plug-ins/script-fu/scripts/*.scm: changed accordingly.
This commit is contained in:
Michael Natterer 2004-09-22 18:43:09 +00:00 • committed by Michael Natterer
parent a58aabedf2
commit 35b372ea08
126 changed files with 1327 additions and 1185 deletions
Download patch file Download diff file Expand all files Collapse all files

61
ChangeLog
View file

@ -1,3 +1,64 @@
2004-09-22 Michael Natterer <mitch@gimp.org>
* tools/pdbgen/Makefile.am
* tools/pdbgen/groups.pl
* tools/pdbgen/pdb/palette.pdb: removed the "Palette" pdb group...
* tools/pdbgen/pdb/context.pdb: and added its functions to the
"Context" namespace instead.
* app/pdb/Makefile.am
* app/pdb/palette_cmds.c: removed.
* app/pdb/procedural_db.c: added them to the pdb_compat hash table.
* libgimp/Makefile.am
* libgimp/gimppalette_pdb.[ch]: removed.
* libgimp/gimppalette.[ch]: new files holding compat functions
which call gimp_context_*() functions.
* libgimp/gimp.h
* libgimp/gimpui.c: changed accordingly.
* app/pdb/context_cmds.c
* app/pdb/internal_procs.c
* libgimp/gimp_pdb.h
* libgimp/gimpcontext_pdb.[ch]: regenerated.
* plug-ins/MapObject/mapobject_image.c
* plug-ins/MapObject/mapobject_preview.c
* plug-ins/common/apply_lens.c
* plug-ins/common/blinds.c
* plug-ins/common/borderaverage.c
* plug-ins/common/checkerboard.c
* plug-ins/common/colortoalpha.c
* plug-ins/common/cubism.c
* plug-ins/common/exchange.c
* plug-ins/common/film.c
* plug-ins/common/gif.c
* plug-ins/common/grid.c
* plug-ins/common/mapcolor.c
* plug-ins/common/mblur.c
* plug-ins/common/mng.c
* plug-ins/common/mosaic.c
* plug-ins/common/papertile.c
* plug-ins/common/png.c
* plug-ins/common/polar.c
* plug-ins/common/semiflatten.c
* plug-ins/common/sinus.c
* plug-ins/common/sparkle.c
* plug-ins/common/vpropagate.c
* plug-ins/common/warp.c
* plug-ins/common/whirlpinch.c
* plug-ins/gfig/gfig-style.c
* plug-ins/gfli/gfli.c
* plug-ins/ifscompose/ifscompose.c
* plug-ins/maze/handy.c
* plug-ins/pagecurl/pagecurl.c
* plug-ins/pygimp/gimpmodule.c
* plug-ins/script-fu/scripts/*.scm: changed accordingly.
2004-09-22 Sven Neumann <sven@gimp.org> 2004-09-22 Sven Neumann <sven@gimp.org>
* app/actions/view-actions.c (view_zoom_actions): mark menu label * app/actions/view-actions.c (view_zoom_actions): mark menu label

1
app/pdb/Makefile.am
View file

@ -31,7 +31,6 @@ libapppdb_a_SOURCES = \
message_cmds.c \ message_cmds.c \
misc_cmds.c \ misc_cmds.c \
paint_tools_cmds.c \ paint_tools_cmds.c \
palette_cmds.c \
palette_select_cmds.c \ palette_select_cmds.c \
palettes_cmds.c \ palettes_cmds.c \
parasite_cmds.c \ parasite_cmds.c \

232
app/pdb/context_cmds.c
View file

@ -23,6 +23,8 @@
#include <glib-object.h> #include <glib-object.h>
#include "libgimpcolor/gimpcolor.h"
#include "pdb-types.h" #include "pdb-types.h"
#include "procedural_db.h" #include "procedural_db.h"
@ -33,12 +35,24 @@
static ProcRecord context_push_proc; static ProcRecord context_push_proc;
static ProcRecord context_pop_proc; static ProcRecord context_pop_proc;
static ProcRecord context_get_foreground_proc;
static ProcRecord context_set_foreground_proc;
static ProcRecord context_get_background_proc;
static ProcRecord context_set_background_proc;
static ProcRecord context_set_default_colors_proc;
static ProcRecord context_swap_colors_proc;
void void
register_context_procs (Gimp *gimp) register_context_procs (Gimp *gimp)
{ {
procedural_db_register (gimp, &context_push_proc); procedural_db_register (gimp, &context_push_proc);
procedural_db_register (gimp, &context_pop_proc); procedural_db_register (gimp, &context_pop_proc);
procedural_db_register (gimp, &context_get_foreground_proc);
procedural_db_register (gimp, &context_set_foreground_proc);
procedural_db_register (gimp, &context_get_background_proc);
procedural_db_register (gimp, &context_set_background_proc);
procedural_db_register (gimp, &context_set_default_colors_proc);
procedural_db_register (gimp, &context_swap_colors_proc);
} }
static Argument * static Argument *
@ -104,3 +118,221 @@ static ProcRecord context_pop_proc =
NULL, NULL,
{ { context_pop_invoker } } { { context_pop_invoker } }
}; };
static Argument *
context_get_foreground_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
Argument *return_args;
GimpRGB color;
gimp_context_get_foreground (context, &color);
return_args = procedural_db_return_args (&context_get_foreground_proc, TRUE);
return_args[1].value.pdb_color = color;
return return_args;
}
static ProcArg context_get_foreground_outargs[] =
{
{
GIMP_PDB_COLOR,
"foreground",
"The foreground color"
}
};
static ProcRecord context_get_foreground_proc =
{
"gimp_context_get_foreground",
"Get the current GIMP foreground color.",
"This procedure retrieves the current GIMP foreground color. The foreground color is used in a variety of tools such as paint tools, blending, and bucket fill.",
"Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
"Michael Natterer & Sven Neumann",
"2004",
GIMP_INTERNAL,
0,
NULL,
1,
context_get_foreground_outargs,
{ { context_get_foreground_invoker } }
};
static Argument *
context_set_foreground_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
GimpRGB color;
color = args[0].value.pdb_color;
gimp_rgb_set_alpha (&color, 1.0);
gimp_context_set_foreground (context, &color);
return procedural_db_return_args (&context_set_foreground_proc, TRUE);
}
static ProcArg context_set_foreground_inargs[] =
{
{
GIMP_PDB_COLOR,
"foreground",
"The foreground color"
}
};
static ProcRecord context_set_foreground_proc =
{
"gimp_context_set_foreground",
"Set the current GIMP foreground color.",
"This procedure sets the current GIMP foreground color. After this is set, operations which use foreground such as paint tools, blending, and bucket fill will use the new value.",
"Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
"Michael Natterer & Sven Neumann",
"2004",
GIMP_INTERNAL,
1,
context_set_foreground_inargs,
0,
NULL,
{ { context_set_foreground_invoker } }
};
static Argument *
context_get_background_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
Argument *return_args;
GimpRGB color;
gimp_context_get_background (context, &color);
return_args = procedural_db_return_args (&context_get_background_proc, TRUE);
return_args[1].value.pdb_color = color;
return return_args;
}
static ProcArg context_get_background_outargs[] =
{
{
GIMP_PDB_COLOR,
"foreground",
"The foreground color"
}
};
static ProcRecord context_get_background_proc =
{
"gimp_context_get_background",
"Get the current GIMP background color.",
"This procedure retrieves the current GIMP background color. The background color is used in a variety of tools such as blending, erasing (with non-alpha images), and image filling.",
"Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
"Michael Natterer & Sven Neumann",
"2004",
GIMP_INTERNAL,
0,
NULL,
1,
context_get_background_outargs,
{ { context_get_background_invoker } }
};
static Argument *
context_set_background_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
GimpRGB color;
color = args[0].value.pdb_color;
gimp_rgb_set_alpha (&color, 1.0);
gimp_context_set_foreground (context, &color);
return procedural_db_return_args (&context_set_background_proc, TRUE);
}
static ProcArg context_set_background_inargs[] =
{
{
GIMP_PDB_COLOR,
"background",
"The background color"
}
};
static ProcRecord context_set_background_proc =
{
"gimp_context_set_background",
"Set the current GIMP background color.",
"This procedure sets the current GIMP background color. After this is set, operations which use background such as blending, filling images, clearing, and erasing (in non-alpha images) will use the new value.",
"Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
"Michael Natterer & Sven Neumann",
"2004",
GIMP_INTERNAL,
1,
context_set_background_inargs,
0,
NULL,
{ { context_set_background_invoker } }
};
static Argument *
context_set_default_colors_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
gimp_context_set_default_colors (context);
return procedural_db_return_args (&context_set_default_colors_proc, TRUE);
}
static ProcRecord context_set_default_colors_proc =
{
"gimp_context_set_default_colors",
"Set the current GIMP foreground and background colors to black and white.",
"This procedure sets the current GIMP foreground and background colors to their initial default values, black and white.",
"Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
"Michael Natterer & Sven Neumann",
"2004",
GIMP_INTERNAL,
0,
NULL,
0,
NULL,
{ { context_set_default_colors_invoker } }
};
static Argument *
context_swap_colors_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
gimp_context_swap_colors (context);
return procedural_db_return_args (&context_swap_colors_proc, TRUE);
}
static ProcRecord context_swap_colors_proc =
{
"gimp_context_swap_colors",
"Swap the current GIMP foreground and background colors.",
"This procedure swaps the current GIMP foreground and background colors, so that the new foreground color becomes the old background color and vice versa.",
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1995-1996",
GIMP_INTERNAL,
0,
NULL,
0,
NULL,
{ { context_swap_colors_invoker } }
};

82
app/pdb/gimp-pdb.c
View file

@ -102,44 +102,50 @@ procedural_db_init_procs (Gimp *gimp,
} }
compat_procs[] = compat_procs[] =
{ {
{ "gimp_blend", "gimp_edit_blend" }, { "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" }, { "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" }, { "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" }, { "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" }, { "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" }, { "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" }, { "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" }, { "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" }, { "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" }, { "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" }, { "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" }, { "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" }, { "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" }, { "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" }, { "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" }, { "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" }, { "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" }, { "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" }, { "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" }, { "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" }, { "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" }, { "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" }, { "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" }, { "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" }, { "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" }, { "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" }, { "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" }, { "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" }, { "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" }, { "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" }, { "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "gimp_palette_refresh", "gimp_palettes_refresh" }, { "gimp_palette_get_foreground", "gimp_context_get_foreground" },
{ "gimp_patterns_list", "gimp_patterns_get_list" }, { "gimp_palette_get_background", "gimp_context_get_background" },
{ "gimp_temp_PDB_name", "gimp_procedural_db_temp_name" }, { "gimp_palette_set_foreground", "gimp_context_set_foreground" },
{ "gimp_undo_push_group_start", "gimp_image_undo_group_start" }, { "gimp_palette_set_background", "gimp_context_set_background" },
{ "gimp_undo_push_group_end", "gimp_image_undo_group_end" }, { "gimp_palette_set_default_colors", "gimp_context_set_default_colors" },
{ "gimp_channel_ops_duplicate", "gimp_image_duplicate" }, { "gimp_palette_swap_colors", "gimp_context_swap_colors" },
{ "gimp_channel_ops_offset", "gimp_drawable_offset" } { "gimp_palette_refresh", "gimp_palettes_refresh" },
{ "gimp_patterns_list", "gimp_patterns_get_list" },
{ "gimp_temp_PDB_name", "gimp_procedural_db_temp_name" },
{ "gimp_undo_push_group_start", "gimp_image_undo_group_start" },
{ "gimp_undo_push_group_end", "gimp_image_undo_group_end" },
{ "gimp_channel_ops_duplicate", "gimp_image_duplicate" },
{ "gimp_channel_ops_offset", "gimp_drawable_offset" }
}; };
g_return_if_fail (GIMP_IS_GIMP (gimp)); g_return_if_fail (GIMP_IS_GIMP (gimp));

82
app/pdb/gimppdb.c
View file

@ -102,44 +102,50 @@ procedural_db_init_procs (Gimp *gimp,
} }
compat_procs[] = compat_procs[] =
{ {
{ "gimp_blend", "gimp_edit_blend" }, { "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" }, { "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" }, { "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" }, { "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" }, { "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" }, { "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" }, { "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" }, { "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" }, { "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" }, { "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" }, { "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" }, { "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" }, { "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" }, { "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" }, { "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" }, { "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" }, { "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" }, { "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" }, { "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" }, { "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" }, { "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" }, { "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" }, { "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" }, { "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" }, { "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" }, { "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" }, { "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" }, { "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" }, { "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" }, { "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" }, { "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "gimp_palette_refresh", "gimp_palettes_refresh" }, { "gimp_palette_get_foreground", "gimp_context_get_foreground" },
{ "gimp_patterns_list", "gimp_patterns_get_list" }, { "gimp_palette_get_background", "gimp_context_get_background" },
{ "gimp_temp_PDB_name", "gimp_procedural_db_temp_name" }, { "gimp_palette_set_foreground", "gimp_context_set_foreground" },
{ "gimp_undo_push_group_start", "gimp_image_undo_group_start" }, { "gimp_palette_set_background", "gimp_context_set_background" },
{ "gimp_undo_push_group_end", "gimp_image_undo_group_end" }, { "gimp_palette_set_default_colors", "gimp_context_set_default_colors" },
{ "gimp_channel_ops_duplicate", "gimp_image_duplicate" }, { "gimp_palette_swap_colors", "gimp_context_swap_colors" },
{ "gimp_channel_ops_offset", "gimp_drawable_offset" } { "gimp_palette_refresh", "gimp_palettes_refresh" },
{ "gimp_patterns_list", "gimp_patterns_get_list" },
{ "gimp_temp_PDB_name", "gimp_procedural_db_temp_name" },
{ "gimp_undo_push_group_start", "gimp_image_undo_group_start" },
{ "gimp_undo_push_group_end", "gimp_image_undo_group_end" },
{ "gimp_channel_ops_duplicate", "gimp_image_duplicate" },
{ "gimp_channel_ops_offset", "gimp_drawable_offset" }
}; };
g_return_if_fail (GIMP_IS_GIMP (gimp)); g_return_if_fail (GIMP_IS_GIMP (gimp));

82
app/pdb/gimpprocedure.c
View file

@ -102,44 +102,50 @@ procedural_db_init_procs (Gimp *gimp,
} }
compat_procs[] = compat_procs[] =
{ {
{ "gimp_blend", "gimp_edit_blend" }, { "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" }, { "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" }, { "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" }, { "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" }, { "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" }, { "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" }, { "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" }, { "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" }, { "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" }, { "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" }, { "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" }, { "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" }, { "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" }, { "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" }, { "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" }, { "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" }, { "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" }, { "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" }, { "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" }, { "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" }, { "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" }, { "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" }, { "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" }, { "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" }, { "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" }, { "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" }, { "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" }, { "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" }, { "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" }, { "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" }, { "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "gimp_palette_refresh", "gimp_palettes_refresh" }, { "gimp_palette_get_foreground", "gimp_context_get_foreground" },
{ "gimp_patterns_list", "gimp_patterns_get_list" }, { "gimp_palette_get_background", "gimp_context_get_background" },
{ "gimp_temp_PDB_name", "gimp_procedural_db_temp_name" }, { "gimp_palette_set_foreground", "gimp_context_set_foreground" },
{ "gimp_undo_push_group_start", "gimp_image_undo_group_start" }, { "gimp_palette_set_background", "gimp_context_set_background" },
{ "gimp_undo_push_group_end", "gimp_image_undo_group_end" }, { "gimp_palette_set_default_colors", "gimp_context_set_default_colors" },
{ "gimp_channel_ops_duplicate", "gimp_image_duplicate" }, { "gimp_palette_swap_colors", "gimp_context_swap_colors" },
{ "gimp_channel_ops_offset", "gimp_drawable_offset" } { "gimp_palette_refresh", "gimp_palettes_refresh" },
{ "gimp_patterns_list", "gimp_patterns_get_list" },
{ "gimp_temp_PDB_name", "gimp_procedural_db_temp_name" },
{ "gimp_undo_push_group_start", "gimp_image_undo_group_start" },
{ "gimp_undo_push_group_end", "gimp_image_undo_group_end" },
{ "gimp_channel_ops_duplicate", "gimp_image_duplicate" },
{ "gimp_channel_ops_offset", "gimp_drawable_offset" }
}; };
g_return_if_fail (GIMP_IS_GIMP (gimp)); g_return_if_fail (GIMP_IS_GIMP (gimp));

42
app/pdb/internal_procs.c
View file

@ -54,7 +54,6 @@ void register_layer_procs (Gimp *gimp);
void register_message_procs (Gimp *gimp); void register_message_procs (Gimp *gimp);
void register_misc_procs (Gimp *gimp); void register_misc_procs (Gimp *gimp);
void register_paint_tools_procs (Gimp *gimp); void register_paint_tools_procs (Gimp *gimp);
void register_palette_procs (Gimp *gimp);
void register_palette_select_procs (Gimp *gimp); void register_palette_select_procs (Gimp *gimp);
void register_palettes_procs (Gimp *gimp); void register_palettes_procs (Gimp *gimp);
void register_parasite_procs (Gimp *gimp); void register_parasite_procs (Gimp *gimp);
@ -95,66 +94,63 @@ internal_procs_init (Gimp *gimp,
(* status_callback) (NULL, _("Context"), 0.094); (* status_callback) (NULL, _("Context"), 0.094);
register_context_procs (gimp); register_context_procs (gimp);
(* status_callback) (NULL, _("Convert"), 0.099); (* status_callback) (NULL, _("Convert"), 0.115);
register_convert_procs (gimp); register_convert_procs (gimp);
(* status_callback) (NULL, _("Display procedures"), 0.107); (* status_callback) (NULL, _("Display procedures"), 0.123);
register_display_procs (gimp); register_display_procs (gimp);
(* status_callback) (NULL, _("Drawable procedures"), 0.117); (* status_callback) (NULL, _("Drawable procedures"), 0.133);
register_drawable_procs (gimp); register_drawable_procs (gimp);
(* status_callback) (NULL, _("Edit procedures"), 0.201); (* status_callback) (NULL, _("Edit procedures"), 0.217);
register_edit_procs (gimp); register_edit_procs (gimp);
(* status_callback) (NULL, _("File Operations"), 0.222); (* status_callback) (NULL, _("File Operations"), 0.238);
register_fileops_procs (gimp); register_fileops_procs (gimp);
(* status_callback) (NULL, _("Floating selections"), 0.245); (* status_callback) (NULL, _("Floating selections"), 0.261);
register_floating_sel_procs (gimp); register_floating_sel_procs (gimp);
(* status_callback) (NULL, _("Font UI"), 0.261); (* status_callback) (NULL, _("Font UI"), 0.277);
register_font_select_procs (gimp); register_font_select_procs (gimp);
(* status_callback) (NULL, _("Fonts"), 0.269); (* status_callback) (NULL, _("Fonts"), 0.285);
register_fonts_procs (gimp); register_fonts_procs (gimp);
(* status_callback) (NULL, _("Gimprc procedures"), 0.274); (* status_callback) (NULL, _("Gimprc procedures"), 0.29);
register_gimprc_procs (gimp); register_gimprc_procs (gimp);
(* status_callback) (NULL, _("Gradient"), 0.29); (* status_callback) (NULL, _("Gradient"), 0.305);
register_gradient_edit_procs (gimp); register_gradient_edit_procs (gimp);
(* status_callback) (NULL, _("Gradient UI"), 0.35); (* status_callback) (NULL, _("Gradient UI"), 0.366);
register_gradient_select_procs (gimp); register_gradient_select_procs (gimp);
(* status_callback) (NULL, _("Gradients"), 0.358); (* status_callback) (NULL, _("Gradients"), 0.373);
register_gradients_procs (gimp); register_gradients_procs (gimp);
(* status_callback) (NULL, _("Guide procedures"), 0.386); (* status_callback) (NULL, _("Guide procedures"), 0.402);
register_guides_procs (gimp); register_guides_procs (gimp);
(* status_callback) (NULL, _("Help procedures"), 0.402); (* status_callback) (NULL, _("Help procedures"), 0.418);
register_help_procs (gimp); register_help_procs (gimp);
(* status_callback) (NULL, _("Image"), 0.405); (* status_callback) (NULL, _("Image"), 0.42);
register_image_procs (gimp); register_image_procs (gimp);
(* status_callback) (NULL, _("Layer"), 0.567); (* status_callback) (NULL, _("Layer"), 0.582);
register_layer_procs (gimp); register_layer_procs (gimp);
(* status_callback) (NULL, _("Message procedures"), 0.634); (* status_callback) (NULL, _("Message procedures"), 0.65);
register_message_procs (gimp); register_message_procs (gimp);
(* status_callback) (NULL, _("Miscellaneous"), 0.642); (* status_callback) (NULL, _("Miscellaneous"), 0.658);
register_misc_procs (gimp); register_misc_procs (gimp);
(* status_callback) (NULL, _("Paint Tool procedures"), 0.648); (* status_callback) (NULL, _("Paint Tool procedures"), 0.663);
register_paint_tools_procs (gimp); register_paint_tools_procs (gimp);
(* status_callback) (NULL, _("Palette"), 0.687);
register_palette_procs (gimp);
(* status_callback) (NULL, _("Palette UI"), 0.702); (* status_callback) (NULL, _("Palette UI"), 0.702);
register_palette_select_procs (gimp); register_palette_select_procs (gimp);

268
app/pdb/palette_cmds.c
View file

@ -1,268 +0,0 @@
/* The GIMP -- an image manipulation program
* Copyright (C) 1995-2003 Spencer Kimball and Peter Mattis
*
* 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
/* NOTE: This file is autogenerated by pdbgen.pl. */
#include "config.h"
#include <glib-object.h>
#include "libgimpcolor/gimpcolor.h"
#include "pdb-types.h"
#include "procedural_db.h"
#include "core/gimp.h"
#include "core/gimpcontext.h"
static ProcRecord palette_get_foreground_proc;
static ProcRecord palette_get_background_proc;
static ProcRecord palette_set_foreground_proc;
static ProcRecord palette_set_background_proc;
static ProcRecord palette_set_default_colors_proc;
static ProcRecord palette_swap_colors_proc;
void
register_palette_procs (Gimp *gimp)
{
procedural_db_register (gimp, &palette_get_foreground_proc);
procedural_db_register (gimp, &palette_get_background_proc);
procedural_db_register (gimp, &palette_set_foreground_proc);
procedural_db_register (gimp, &palette_set_background_proc);
procedural_db_register (gimp, &palette_set_default_colors_proc);
procedural_db_register (gimp, &palette_swap_colors_proc);
}
static Argument *
palette_get_foreground_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
Argument *return_args;
GimpRGB color;
gimp_context_get_foreground (context, &color);
return_args = procedural_db_return_args (&palette_get_foreground_proc, TRUE);
return_args[1].value.pdb_color = color;
return return_args;
}
static ProcArg palette_get_foreground_outargs[] =
{
{
GIMP_PDB_COLOR,
"foreground",
"The foreground color"
}
};
static ProcRecord palette_get_foreground_proc =
{
"gimp_palette_get_foreground",
"Get the current GIMP foreground color.",
"This procedure retrieves the current GIMP foreground color. The foreground color is used in a variety of tools such as paint tools, blending, and bucket fill.",
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1995-1996",
GIMP_INTERNAL,
0,
NULL,
1,
palette_get_foreground_outargs,
{ { palette_get_foreground_invoker } }
};
static Argument *
palette_get_background_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
Argument *return_args;
GimpRGB color;
gimp_context_get_background (context, &color);
return_args = procedural_db_return_args (&palette_get_background_proc, TRUE);
return_args[1].value.pdb_color = color;
return return_args;
}
static ProcArg palette_get_background_outargs[] =
{
{
GIMP_PDB_COLOR,
"background",
"The background color"
}
};
static ProcRecord palette_get_background_proc =
{
"gimp_palette_get_background",
"Get the current GIMP background color.",
"This procedure retrieves the current GIMP background color. The background color is used in a variety of tools such as blending, erasing (with non-alpha images), and image filling.",
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1995-1996",
GIMP_INTERNAL,
0,
NULL,
1,
palette_get_background_outargs,
{ { palette_get_background_invoker } }
};
static Argument *
palette_set_foreground_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
GimpRGB color;
color = args[0].value.pdb_color;
gimp_rgb_set_alpha (&color, 1.0);
gimp_context_set_foreground (context, &color);
return procedural_db_return_args (&palette_set_foreground_proc, TRUE);
}
static ProcArg palette_set_foreground_inargs[] =
{
{
GIMP_PDB_COLOR,
"foreground",
"The foreground color"
}
};
static ProcRecord palette_set_foreground_proc =
{
"gimp_palette_set_foreground",
"Set the current GIMP foreground color.",
"This procedure sets the current GIMP foreground color. After this is set, operations which use foreground such as paint tools, blending, and bucket fill will use the new value.",
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1995-1996",
GIMP_INTERNAL,
1,
palette_set_foreground_inargs,
0,
NULL,
{ { palette_set_foreground_invoker } }
};
static Argument *
palette_set_background_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
GimpRGB color;
color = args[0].value.pdb_color;
gimp_rgb_set_alpha (&color, 1.0);
gimp_context_set_background (context, &color);
return procedural_db_return_args (&palette_set_background_proc, TRUE);
}
static ProcArg palette_set_background_inargs[] =
{
{
GIMP_PDB_COLOR,
"background",
"The background color"
}
};
static ProcRecord palette_set_background_proc =
{
"gimp_palette_set_background",
"Set the current GIMP background color.",
"This procedure sets the current GIMP background color. After this is set, operations which use background such as blending, filling images, clearing, and erasing (in non-alpha images) will use the new value.",
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1995-1996",
GIMP_INTERNAL,
1,
palette_set_background_inargs,
0,
NULL,
{ { palette_set_background_invoker } }
};
static Argument *
palette_set_default_colors_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
gimp_context_set_default_colors (context);
return procedural_db_return_args (&palette_set_default_colors_proc, TRUE);
}
static ProcRecord palette_set_default_colors_proc =
{
"gimp_palette_set_default_colors",
"Set the current GIMP foreground and background colors to black and white.",
"This procedure sets the current GIMP foreground and background colors to their initial default values, black and white.",
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1995-1996",
GIMP_INTERNAL,
0,
NULL,
0,
NULL,
{ { palette_set_default_colors_invoker } }
};
static Argument *
palette_swap_colors_invoker (Gimp *gimp,
GimpContext *context,
GimpProgress *progress,
Argument *args)
{
gimp_context_swap_colors (context);
return procedural_db_return_args (&palette_swap_colors_proc, TRUE);
}
static ProcRecord palette_swap_colors_proc =
{
"gimp_palette_swap_colors",
"Swap the current GIMP foreground and background colors.",
"This procedure swaps the current GIMP foreground and background colors, so that the new foreground color becomes the old background color and vice versa.",
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1995-1996",
GIMP_INTERNAL,
0,
NULL,
0,
NULL,
{ { palette_swap_colors_invoker } }
};

82
app/pdb/procedural_db.c
View file

@ -102,44 +102,50 @@ procedural_db_init_procs (Gimp *gimp,
} }
compat_procs[] = compat_procs[] =
{ {
{ "gimp_blend", "gimp_edit_blend" }, { "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" }, { "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" }, { "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" }, { "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" }, { "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" }, { "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" }, { "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" }, { "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" }, { "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" }, { "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" }, { "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" }, { "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" }, { "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" }, { "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" }, { "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" }, { "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" }, { "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" }, { "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" }, { "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" }, { "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" }, { "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" }, { "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" }, { "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" }, { "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" }, { "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" }, { "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" }, { "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" }, { "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" }, { "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" }, { "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" }, { "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "gimp_palette_refresh", "gimp_palettes_refresh" }, { "gimp_palette_get_foreground", "gimp_context_get_foreground" },
{ "gimp_patterns_list", "gimp_patterns_get_list" }, { "gimp_palette_get_background", "gimp_context_get_background" },
{ "gimp_temp_PDB_name", "gimp_procedural_db_temp_name" }, { "gimp_palette_set_foreground", "gimp_context_set_foreground" },
{ "gimp_undo_push_group_start", "gimp_image_undo_group_start" }, { "gimp_palette_set_background", "gimp_context_set_background" },
{ "gimp_undo_push_group_end", "gimp_image_undo_group_end" }, { "gimp_palette_set_default_colors", "gimp_context_set_default_colors" },
{ "gimp_channel_ops_duplicate", "gimp_image_duplicate" }, { "gimp_palette_swap_colors", "gimp_context_swap_colors" },
{ "gimp_channel_ops_offset", "gimp_drawable_offset" } { "gimp_palette_refresh", "gimp_palettes_refresh" },
{ "gimp_patterns_list", "gimp_patterns_get_list" },
{ "gimp_temp_PDB_name", "gimp_procedural_db_temp_name" },
{ "gimp_undo_push_group_start", "gimp_image_undo_group_start" },
{ "gimp_undo_push_group_end", "gimp_image_undo_group_end" },
{ "gimp_channel_ops_duplicate", "gimp_image_duplicate" },
{ "gimp_channel_ops_offset", "gimp_drawable_offset" }
}; };
g_return_if_fail (GIMP_IS_GIMP (gimp)); g_return_if_fail (GIMP_IS_GIMP (gimp));

7
libgimp/Makefile.am
View file

@ -78,6 +78,7 @@ PDB_WRAPPERS_C = \
gimpbrushselect_pdb.c \ gimpbrushselect_pdb.c \
gimpchannel_pdb.c \ gimpchannel_pdb.c \
gimpcolor_pdb.c \ gimpcolor_pdb.c \
gimpcontext_pdb.c \
gimpconvert_pdb.c \ gimpconvert_pdb.c \
gimpdisplay_pdb.c \ gimpdisplay_pdb.c \
gimpdrawable_pdb.c \ gimpdrawable_pdb.c \
@ -97,7 +98,6 @@ PDB_WRAPPERS_C = \
gimpmessage_pdb.c \ gimpmessage_pdb.c \
gimpmisc_pdb.c \ gimpmisc_pdb.c \
gimppainttools_pdb.c \ gimppainttools_pdb.c \
gimppalette_pdb.c \
gimppalettes_pdb.c \ gimppalettes_pdb.c \
gimppaletteselect_pdb.c \ gimppaletteselect_pdb.c \
gimpparasite_pdb.c \ gimpparasite_pdb.c \
@ -120,6 +120,7 @@ PDB_WRAPPERS_H = \
gimpbrushselect_pdb.h \ gimpbrushselect_pdb.h \
gimpchannel_pdb.h \ gimpchannel_pdb.h \
gimpcolor_pdb.h \ gimpcolor_pdb.h \
gimpcontext_pdb.h \
gimpconvert_pdb.h \ gimpconvert_pdb.h \
gimpdisplay_pdb.h \ gimpdisplay_pdb.h \
gimpdrawable_pdb.h \ gimpdrawable_pdb.h \
@ -139,7 +140,6 @@ PDB_WRAPPERS_H = \
gimpmessage_pdb.h \ gimpmessage_pdb.h \
gimpmisc_pdb.h \ gimpmisc_pdb.h \
gimppainttools_pdb.h \ gimppainttools_pdb.h \
gimppalette_pdb.h \
gimppalettes_pdb.h \ gimppalettes_pdb.h \
gimppaletteselect_pdb.h \ gimppaletteselect_pdb.h \
gimpparasite_pdb.h \ gimpparasite_pdb.h \
@ -177,6 +177,8 @@ libgimp_2_0_la_SOURCES = \
gimpimage.h \ gimpimage.h \
gimplayer.c \ gimplayer.c \
gimplayer.h \ gimplayer.h \
gimppalette.c \
gimppalette.h \
gimppaletteselect.c \ gimppaletteselect.c \
gimppaletteselect.h \ gimppaletteselect.h \
gimppatternselect.c \ gimppatternselect.c \
@ -244,6 +246,7 @@ gimpinclude_HEADERS = \
gimpgradientselect.h \ gimpgradientselect.h \
gimpimage.h \ gimpimage.h \
gimplayer.h \ gimplayer.h \
gimppalette.h \
gimppaletteselect.h \ gimppaletteselect.h \
gimppatternselect.h \ gimppatternselect.h \
gimppixelfetcher.h \ gimppixelfetcher.h \

1
libgimp/gimp.h
View file

@ -38,6 +38,7 @@
#include <libgimp/gimpgradientselect.h> #include <libgimp/gimpgradientselect.h>
#include <libgimp/gimpimage.h> #include <libgimp/gimpimage.h>
#include <libgimp/gimplayer.h> #include <libgimp/gimplayer.h>
#include <libgimp/gimppalette.h>
#include <libgimp/gimppaletteselect.h> #include <libgimp/gimppaletteselect.h>
#include <libgimp/gimppatternselect.h> #include <libgimp/gimppatternselect.h>
#include <libgimp/gimppixelfetcher.h> #include <libgimp/gimppixelfetcher.h>

1
libgimp/gimp_pdb.h
View file

@ -48,7 +48,6 @@
#include <libgimp/gimpmessage_pdb.h> #include <libgimp/gimpmessage_pdb.h>
#include <libgimp/gimpmisc_pdb.h> #include <libgimp/gimpmisc_pdb.h>
#include <libgimp/gimppainttools_pdb.h> #include <libgimp/gimppainttools_pdb.h>
#include <libgimp/gimppalette_pdb.h>
#include <libgimp/gimppalettes_pdb.h> #include <libgimp/gimppalettes_pdb.h>
#include <libgimp/gimppaletteselect_pdb.h> #include <libgimp/gimppaletteselect_pdb.h>
#include <libgimp/gimpparasite_pdb.h> #include <libgimp/gimpparasite_pdb.h>

197
libgimp/gimpcontext_pdb.c
View file

@ -85,3 +85,200 @@ gimp_context_pop (void)
return success; return success;
} }
/**
* gimp_context_get_foreground:
* @foreground: The foreground color.
*
* Get the current GIMP foreground color.
*
* This procedure retrieves the current GIMP foreground color. The
* foreground color is used in a variety of tools such as paint tools,
* blending, and bucket fill.
*
* Returns: TRUE on success.
*
* Since: GIMP 2.2
*/
gboolean
gimp_context_get_foreground (GimpRGB *foreground)
{
GimpParam *return_vals;
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_context_get_foreground",
&nreturn_vals,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
if (success)
*foreground = return_vals[1].data.d_color;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
}
/**
* gimp_context_set_foreground:
* @foreground: The foreground color.
*
* Set the current GIMP foreground color.
*
* This procedure sets the current GIMP foreground color. After this is
* set, operations which use foreground such as paint tools, blending,
* and bucket fill will use the new value.
*
* Returns: TRUE on success.
*
* Since: GIMP 2.2
*/
gboolean
gimp_context_set_foreground (const GimpRGB *foreground)
{
GimpParam *return_vals;
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_context_set_foreground",
&nreturn_vals,
GIMP_PDB_COLOR, foreground,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
}
/**
* gimp_context_get_background:
* @foreground: The foreground color.
*
* Get the current GIMP background color.
*
* This procedure retrieves the current GIMP background color. The
* background color is used in a variety of tools such as blending,
* erasing (with non-alpha images), and image filling.
*
* Returns: TRUE on success.
*
* Since: GIMP 2.2
*/
gboolean
gimp_context_get_background (GimpRGB *foreground)
{
GimpParam *return_vals;
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_context_get_background",
&nreturn_vals,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
if (success)
*foreground = return_vals[1].data.d_color;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
}
/**
* gimp_context_set_background:
* @background: The background color.
*
* Set the current GIMP background color.
*
* This procedure sets the current GIMP background color. After this is
* set, operations which use background such as blending, filling
* images, clearing, and erasing (in non-alpha images) will use the new
* value.
*
* Returns: TRUE on success.
*
* Since: GIMP 2.2
*/
gboolean
gimp_context_set_background (const GimpRGB *background)
{
GimpParam *return_vals;
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_context_set_background",
&nreturn_vals,
GIMP_PDB_COLOR, background,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
}
/**
* gimp_context_set_default_colors:
*
* Set the current GIMP foreground and background colors to black and
* white.
*
* This procedure sets the current GIMP foreground and background
* colors to their initial default values, black and white.
*
* Returns: TRUE on success.
*
* Since: GIMP 2.2
*/
gboolean
gimp_context_set_default_colors (void)
{
GimpParam *return_vals;
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_context_set_default_colors",
&nreturn_vals,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
}
/**
* gimp_context_swap_colors:
*
* Swap the current GIMP foreground and background colors.
*
* This procedure swaps the current GIMP foreground and background
* colors, so that the new foreground color becomes the old background
* color and vice versa.
*
* Returns: TRUE on success.
*/
gboolean
gimp_context_swap_colors (void)
{
GimpParam *return_vals;
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_context_swap_colors",
&nreturn_vals,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
}

10
libgimp/gimpcontext_pdb.h
View file

@ -29,8 +29,14 @@ G_BEGIN_DECLS
/* For information look into the C source or the html documentation */ /* For information look into the C source or the html documentation */
gboolean gimp_context_push (void); gboolean gimp_context_push (void);
gboolean gimp_context_pop (void); gboolean gimp_context_pop (void);
gboolean gimp_context_get_foreground (GimpRGB *foreground);
gboolean gimp_context_set_foreground (const GimpRGB *foreground);
gboolean gimp_context_get_background (GimpRGB *foreground);
gboolean gimp_context_set_background (const GimpRGB *background);
gboolean gimp_context_set_default_colors (void);
gboolean gimp_context_swap_colors (void);
G_END_DECLS G_END_DECLS

96
libgimp/gimppalette_pdb.c → libgimp/gimppalette.c
View file

@ -1,7 +1,7 @@
/* LIBGIMP - The GIMP Library /* LIBGIMP - The GIMP Library
* Copyright (C) 1995-2003 Peter Mattis and Spencer Kimball * Copyright (C) 1995-2003 Peter Mattis and Spencer Kimball
* *
* gimppalette_pdb.c * gimppalette.c
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -19,8 +19,6 @@
* Boston, MA 02111-1307, USA. * Boston, MA 02111-1307, USA.
*/ */
/* NOTE: This file is autogenerated by pdbgen.pl */
#include "config.h" #include "config.h"
#include "gimp.h" #include "gimp.h"
@ -40,22 +38,7 @@
gboolean gboolean
gimp_palette_get_foreground (GimpRGB *foreground) gimp_palette_get_foreground (GimpRGB *foreground)
{ {
GimpParam *return_vals; return gimp_context_get_foreground (foreground);
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_palette_get_foreground",
&nreturn_vals,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
if (success)
*foreground = return_vals[1].data.d_color;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
} }
/** /**
@ -73,22 +56,7 @@ gimp_palette_get_foreground (GimpRGB *foreground)
gboolean gboolean
gimp_palette_get_background (GimpRGB *background) gimp_palette_get_background (GimpRGB *background)
{ {
GimpParam *return_vals; return gimp_context_get_background (background);
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_palette_get_background",
&nreturn_vals,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
if (success)
*background = return_vals[1].data.d_color;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
} }
/** /**
@ -106,20 +74,7 @@ gimp_palette_get_background (GimpRGB *background)
gboolean gboolean
gimp_palette_set_foreground (const GimpRGB *foreground) gimp_palette_set_foreground (const GimpRGB *foreground)
{ {
GimpParam *return_vals; return gimp_context_set_foreground (foreground);
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_palette_set_foreground",
&nreturn_vals,
GIMP_PDB_COLOR, foreground,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
} }
/** /**
@ -138,20 +93,7 @@ gimp_palette_set_foreground (const GimpRGB *foreground)
gboolean gboolean
gimp_palette_set_background (const GimpRGB *background) gimp_palette_set_background (const GimpRGB *background)
{ {
GimpParam *return_vals; return gimp_context_set_background (background);
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_palette_set_background",
&nreturn_vals,
GIMP_PDB_COLOR, background,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
} }
/** /**
@ -168,19 +110,7 @@ gimp_palette_set_background (const GimpRGB *background)
gboolean gboolean
gimp_palette_set_default_colors (void) gimp_palette_set_default_colors (void)
{ {
GimpParam *return_vals; return gimp_context_set_default_colors ();
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_palette_set_default_colors",
&nreturn_vals,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
} }
/** /**
@ -197,17 +127,5 @@ gimp_palette_set_default_colors (void)
gboolean gboolean
gimp_palette_swap_colors (void) gimp_palette_swap_colors (void)
{ {
GimpParam *return_vals; return gimp_context_swap_colors ();
gint nreturn_vals;
gboolean success = TRUE;
return_vals = gimp_run_procedure ("gimp_palette_swap_colors",
&nreturn_vals,
GIMP_PDB_END);
success = return_vals[0].data.d_status == GIMP_PDB_SUCCESS;
gimp_destroy_params (return_vals, nreturn_vals);
return success;
} }

13
libgimp/gimppalette_pdb.h → libgimp/gimppalette.h
View file

@ -1,7 +1,7 @@
/* LIBGIMP - The GIMP Library /* LIBGIMP - The GIMP Library
* Copyright (C) 1995-2003 Peter Mattis and Spencer Kimball * Copyright (C) 1995-2003 Peter Mattis and Spencer Kimball
* *
* gimppalette_pdb.h * gimppalette.h
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -19,15 +19,14 @@
* Boston, MA 02111-1307, USA. * Boston, MA 02111-1307, USA.
*/ */
/* NOTE: This file is autogenerated by pdbgen.pl */ #ifndef __GIMP_PALETTE_H__
#define __GIMP_PALETTE_H__
#ifndef __GIMP_PALETTE_PDB_H__
#define __GIMP_PALETTE_PDB_H__
G_BEGIN_DECLS G_BEGIN_DECLS
/* For information look into the C source or the html documentation */ /* For information look into the C source or the html documentation */
#ifndef GIMP_DISABLE_DEPRECATED
gboolean gimp_palette_get_foreground (GimpRGB *foreground); gboolean gimp_palette_get_foreground (GimpRGB *foreground);
gboolean gimp_palette_get_background (GimpRGB *background); gboolean gimp_palette_get_background (GimpRGB *background);
@ -36,7 +35,9 @@ gboolean gimp_palette_set_background (const GimpRGB *background);
gboolean gimp_palette_set_default_colors (void); gboolean gimp_palette_set_default_colors (void);
gboolean gimp_palette_swap_colors (void); gboolean gimp_palette_swap_colors (void);
#endif /* GIMP_DISABLE_DEPRECATED */
G_END_DECLS G_END_DECLS
#endif /* __GIMP_PALETTE_PDB_H__ */ #endif /* __GIMP_PALETTE_H__ */

4
libgimp/gimpui.c
View file

@ -107,8 +107,8 @@ gimp_ui_init (const gchar *prog_name,
gtk_widget_set_default_colormap (gdk_screen_get_rgb_colormap (screen)); gtk_widget_set_default_colormap (gdk_screen_get_rgb_colormap (screen));
gimp_widgets_init (gimp_ui_help_func, gimp_widgets_init (gimp_ui_help_func,
gimp_palette_get_foreground, gimp_context_get_foreground,
gimp_palette_get_background, gimp_context_get_background,
gimp_ensure_modules); gimp_ensure_modules);
if (! gimp_show_tool_tips ()) if (! gimp_show_tool_tips ())

2
plug-ins/MapObject/mapobject_image.c
View file

@ -374,7 +374,7 @@ image_setup (GimpDrawable *drawable,
} }
else else
{ {
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_rgb_set_alpha (&background, 1.0); gimp_rgb_set_alpha (&background, 1.0);
} }

2
plug-ins/MapObject/mapobject_preview.c
View file

@ -193,7 +193,7 @@ compute_preview (gint x,
} }
else else
{ {
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_rgb_set_alpha (&background, 1.0); gimp_rgb_set_alpha (&background, 1.0);
} }

2
plug-ins/common/apply_lens.c
View file

@ -239,7 +239,7 @@ drawlens (GimpDrawable *drawable)
guchar bgr_red, bgr_blue, bgr_green; guchar bgr_red, bgr_blue, bgr_green;
guchar alphaval; guchar alphaval;
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_rgb_get_uchar (&background, gimp_rgb_get_uchar (&background,
&bgr_red, &bgr_green, &bgr_blue); &bgr_red, &bgr_green, &bgr_blue);

4
plug-ins/common/blinds.c
View file

@ -484,7 +484,7 @@ dialog_update_preview (void)
p = preview_cache; p = preview_cache;
gimp_palette_get_background (&background); gimp_context_get_background (&background);
if (bvals.bg_trans) if (bvals.bg_trans)
gimp_rgb_set_alpha (&background, 0.0); gimp_rgb_set_alpha (&background, 0.0);
@ -590,7 +590,7 @@ apply_blinds (void)
gint sel_x1, sel_y1, sel_x2, sel_y2; gint sel_x1, sel_y1, sel_x2, sel_y2;
gint sel_width, sel_height; gint sel_width, sel_height;
gimp_palette_get_background (&background); gimp_context_get_background (&background);
if (bvals.bg_trans) if (bvals.bg_trans)
gimp_rgb_set_alpha (&background, 0.0); gimp_rgb_set_alpha (&background, 0.0);

2
plug-ins/common/borderaverage.c
View file

@ -165,7 +165,7 @@ run (const gchar *name,
if (run_mode != GIMP_RUN_NONINTERACTIVE) if (run_mode != GIMP_RUN_NONINTERACTIVE)
{ {
gimp_palette_set_foreground (&result_color); gimp_context_set_foreground (&result_color);
} }
if (run_mode == GIMP_RUN_INTERACTIVE) if (run_mode == GIMP_RUN_INTERACTIVE)
{ {

4
plug-ins/common/checkerboard.c
View file

@ -223,10 +223,10 @@ do_checkerboard_pattern (GimpDrawable *drawable)
GimpRgnIterator *iter; GimpRgnIterator *iter;
GimpRGB color; GimpRGB color;
gimp_palette_get_background (&color); gimp_context_get_background (&color);
gimp_drawable_get_color_uchar (drawable->drawable_id, &color, param.bg); gimp_drawable_get_color_uchar (drawable->drawable_id, &color, param.bg);
gimp_palette_get_foreground (&color); gimp_context_get_foreground (&color);
gimp_drawable_get_color_uchar (drawable->drawable_id, &color, param.fg); gimp_drawable_get_color_uchar (drawable->drawable_id, &color, param.fg);
if (cvals.size < 1) if (cvals.size < 1)

2
plug-ins/common/colortoalpha.c
View file

@ -138,7 +138,7 @@ run (const gchar *name,
{ {
case GIMP_RUN_INTERACTIVE: case GIMP_RUN_INTERACTIVE:
gimp_get_data ("plug_in_colortoalpha", &pvals); gimp_get_data ("plug_in_colortoalpha", &pvals);
gimp_palette_get_foreground (&pvals.color); gimp_context_get_foreground (&pvals.color);
if (! colortoalpha_dialog (drawable)) if (! colortoalpha_dialog (drawable))
{ {
gimp_drawable_detach (drawable); gimp_drawable_detach (drawable);

2
plug-ins/common/cubism.c
View file

@ -350,7 +350,7 @@ cubism (GimpDrawable *drawable)
{ {
GimpRGB color; GimpRGB color;
gimp_palette_get_background (&color); gimp_context_get_background (&color);
gimp_rgb_set_alpha (&color, 0.0); gimp_rgb_set_alpha (&color, 0.0);
gimp_drawable_get_color_uchar (drawable->drawable_id, &color, bg_col); gimp_drawable_get_color_uchar (drawable->drawable_id, &color, bg_col);
} }

4
plug-ins/common/exchange.c
View file

@ -190,7 +190,7 @@ run (const gchar *name,
/* retrieve stored arguments (if any) */ /* retrieve stored arguments (if any) */
gimp_get_data ("plug_in_exchange", &xargs); gimp_get_data ("plug_in_exchange", &xargs);
/* initialize using foreground color */ /* initialize using foreground color */
gimp_palette_get_foreground (&xargs.from); gimp_context_get_foreground (&xargs.from);
if (! exchange_dialog ()) if (! exchange_dialog ())
return; return;
@ -203,7 +203,7 @@ run (const gchar *name,
* run with the current foreground as 'from' * run with the current foreground as 'from'
* color, making ALT-F somewhat more useful. * color, making ALT-F somewhat more useful.
*/ */
gimp_palette_get_foreground (&xargs.from); gimp_context_get_foreground (&xargs.from);
break; break;
case GIMP_RUN_NONINTERACTIVE: case GIMP_RUN_NONINTERACTIVE:

8
plug-ins/common/film.c
View file

@ -379,7 +379,7 @@ film (void)
tile_height = gimp_tile_height (); tile_height = gimp_tile_height ();
/* Save foreground colour */ /* Save foreground colour */
gimp_palette_get_foreground (&foreground); gimp_context_get_foreground (&foreground);
if (filmvals.keep_height) /* Search maximum picture height */ if (filmvals.keep_height) /* Search maximum picture height */
{ {
@ -519,7 +519,7 @@ film (void)
if ((number_height > 0) && if ((number_height > 0) &&
(filmvals.number_pos[0] || filmvals.number_pos[1])) (filmvals.number_pos[0] || filmvals.number_pos[1]))
{ {
gimp_palette_set_foreground (&filmvals.number_color); gimp_context_set_foreground (&filmvals.number_color);
if (filmvals.number_pos[0]) if (filmvals.number_pos[0])
draw_number (layer_ID_dst, filmvals.number_start + picture_count, draw_number (layer_ID_dst, filmvals.number_start + picture_count,
@ -531,7 +531,7 @@ film (void)
film_height - (hole_offset + number_height)/2, film_height - (hole_offset + number_height)/2,
number_height); number_height);
gimp_palette_set_foreground (&foreground); gimp_context_set_foreground (&foreground);
} }
picture_x0 += picture_width + (picture_space/2); picture_x0 += picture_width + (picture_space/2);
@ -549,7 +549,7 @@ film (void)
gimp_floating_sel_anchor (gimp_image_get_floating_sel (image_ID_dst)); gimp_floating_sel_anchor (gimp_image_get_floating_sel (image_ID_dst));
/* Restore foreground */ /* Restore foreground */
gimp_palette_set_foreground (&foreground); gimp_context_set_foreground (&foreground);
return image_ID_dst; return image_ID_dst;
} }

2
plug-ins/common/gif.c
View file

@ -943,7 +943,7 @@ save_image (const gchar *filename,
case GIMP_INDEXED_IMAGE: case GIMP_INDEXED_IMAGE:
cmap = gimp_image_get_cmap (image_ID, &colors); cmap = gimp_image_get_cmap (image_ID, &colors);
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_rgb_get_uchar (&background, &bgred, &bggreen, &bgblue); gimp_rgb_get_uchar (&background, &bgred, &bggreen, &bgblue);
for (i = 0; i < colors; i++) for (i = 0; i < colors; i++)

2
plug-ins/common/grid.c
View file

@ -215,7 +215,7 @@ run (const gchar *name,
} }
else else
{ {
gimp_palette_get_foreground (&grid_cfg.hcolor); gimp_context_get_foreground (&grid_cfg.hcolor);
grid_cfg.vcolor = grid_cfg.icolor = grid_cfg.hcolor; grid_cfg.vcolor = grid_cfg.icolor = grid_cfg.hcolor;
/* Possibly retrieve data */ /* Possibly retrieve data */

8
plug-ins/common/mapcolor.c
View file

@ -408,8 +408,8 @@ run (const gchar *name,
break; break;
} }
gimp_palette_get_foreground (plvals.colors); gimp_context_get_foreground (plvals.colors);
gimp_palette_get_background (plvals.colors + 1); gimp_context_get_background (plvals.colors + 1);
gimp_rgb_set (plvals.colors + 2, 0.0, 0.0, 0.0); gimp_rgb_set (plvals.colors + 2, 0.0, 0.0, 0.0);
gimp_rgb_set (plvals.colors + 3, 1.0, 1.0, 1.0); gimp_rgb_set (plvals.colors + 3, 1.0, 1.0, 1.0);
@ -442,8 +442,8 @@ run (const gchar *name,
{ {
gimp_get_data (name, &plvals); gimp_get_data (name, &plvals);
gimp_palette_get_foreground (plvals.colors); gimp_context_get_foreground (plvals.colors);
gimp_palette_get_background (plvals.colors + 1); gimp_context_get_background (plvals.colors + 1);
if (!dialog (param[2].data.d_drawable)) if (!dialog (param[2].data.d_drawable))
break; break;

6
plug-ins/common/mblur.c
View file

@ -318,7 +318,7 @@ mblur_linear (GimpDrawable *drawable,
pft = gimp_pixel_fetcher_new (drawable, FALSE); pft = gimp_pixel_fetcher_new (drawable, FALSE);
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_pixel_fetcher_set_bg_color (pft, &background); gimp_pixel_fetcher_set_bg_color (pft, &background);
progress = 0; progress = 0;
@ -511,7 +511,7 @@ mblur_radial (GimpDrawable *drawable,
pft = gimp_pixel_fetcher_new (drawable, FALSE); pft = gimp_pixel_fetcher_new (drawable, FALSE);
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_pixel_fetcher_set_bg_color (pft, &background); gimp_pixel_fetcher_set_bg_color (pft, &background);
progress = 0; progress = 0;
@ -676,7 +676,7 @@ mblur_zoom (GimpDrawable *drawable,
pft = gimp_pixel_fetcher_new (drawable, FALSE); pft = gimp_pixel_fetcher_new (drawable, FALSE);
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_pixel_fetcher_set_bg_color (pft, &background); gimp_pixel_fetcher_set_bg_color (pft, &background);
progress = 0; progress = 0;

2
plug-ins/common/mng.c
View file

@ -657,7 +657,7 @@ mng_save_image (const gchar *filename,
GimpRGB bgcolor; GimpRGB bgcolor;
guchar red, green, blue; guchar red, green, blue;
gimp_palette_get_background(&bgcolor); gimp_context_get_background(&bgcolor);
gimp_rgb_get_uchar(&bgcolor, &red, &green, &blue); gimp_rgb_get_uchar(&bgcolor, &red, &green, &blue);
if ((ret = mng_putchunk_back(handle, red, green, blue, MNG_BACKGROUNDCOLOR_MANDATORY, 0, MNG_BACKGROUNDIMAGE_NOTILE)) != MNG_NOERROR) if ((ret = mng_putchunk_back(handle, red, green, blue, MNG_BACKGROUNDCOLOR_MANDATORY, 0, MNG_BACKGROUNDIMAGE_NOTILE)) != MNG_NOERROR)

4
plug-ins/common/mosaic.c
View file

@ -465,10 +465,10 @@ mosaic (GimpDrawable *drawable)
break; break;
case FG_BG: case FG_BG:
gimp_palette_get_foreground (&color); gimp_context_get_foreground (&color);
gimp_drawable_get_color_uchar (drawable->drawable_id, &color, fore); gimp_drawable_get_color_uchar (drawable->drawable_id, &color, fore);
gimp_palette_get_background (&color); gimp_context_get_background (&color);
gimp_drawable_get_color_uchar (drawable->drawable_id, &color, back); gimp_drawable_get_color_uchar (drawable->drawable_id, &color, back);
break; break;
} }

4
plug-ins/common/papertile.c
View file

@ -683,7 +683,7 @@ filter (void)
break; break;
case BACKGROUND_TYPE_FOREGROUND: case BACKGROUND_TYPE_FOREGROUND:
gimp_palette_get_foreground (&color); gimp_context_get_foreground (&color);
gimp_rgb_get_uchar (&color, &pixel[0], &pixel[1], &pixel[2]); gimp_rgb_get_uchar (&color, &pixel[0], &pixel[1], &pixel[2]);
pixel[3] = 255; pixel[3] = 255;
for (y = clear_y0; y < clear_y1; y++) for (y = clear_y0; y < clear_y1; y++)
@ -700,7 +700,7 @@ filter (void)
break; break;
case BACKGROUND_TYPE_BACKGROUND: case BACKGROUND_TYPE_BACKGROUND:
gimp_palette_get_background (&color); gimp_context_get_background (&color);
gimp_rgb_get_uchar (&color, &pixel[0], &pixel[1], &pixel[2]); gimp_rgb_get_uchar (&color, &pixel[0], &pixel[1], &pixel[2]);
pixel[3] = 255; pixel[3] = 255;
for (y = clear_y0; y < clear_y1; y++) for (y = clear_y0; y < clear_y1; y++)

2
plug-ins/common/png.c
View file

@ -1277,7 +1277,7 @@ save_image (const gchar *filename,
{ {
GimpRGB color; GimpRGB color;
gimp_palette_get_background (&color); gimp_context_get_background (&color);
gimp_rgb_get_uchar (&color, &red, &green, &blue); gimp_rgb_get_uchar (&color, &red, &green, &blue);
background.index = 0; background.index = 0;

4
plug-ins/common/polar.c
View file

@ -357,7 +357,7 @@ polarize (void)
pft = gimp_pixel_fetcher_new (drawable, FALSE); pft = gimp_pixel_fetcher_new (drawable, FALSE);
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_pixel_fetcher_set_bg_color (pft, &background); gimp_pixel_fetcher_set_bg_color (pft, &background);
gimp_progress_init (_("Polarizing...")); gimp_progress_init (_("Polarizing..."));
@ -726,7 +726,7 @@ dialog_update_preview (void)
guchar *buffer; guchar *buffer;
guchar k; guchar k;
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_rgb_set_alpha (&background, 0.0); gimp_rgb_set_alpha (&background, 0.0);
gimp_drawable_get_color_uchar (drawable->drawable_id, &background, outside); gimp_drawable_get_color_uchar (drawable->drawable_id, &background, outside);

2
plug-ins/common/semiflatten.c
View file

@ -154,7 +154,7 @@ semiflatten (GimpDrawable *drawable)
{ {
GimpRGB background; GimpRGB background;
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_rgb_get_uchar (&background, &bgred, &bggreen, &bgblue); gimp_rgb_get_uchar (&background, &bgred, &bggreen, &bgblue);
gimp_rgn_iterate2 (drawable, run_mode, semiflatten_func, NULL); gimp_rgn_iterate2 (drawable, run_mode, semiflatten_func, NULL);

4
plug-ins/common/sinus.c
View file

@ -389,8 +389,8 @@ prepare_coef (params *p)
gimp_rgb_set (&color2, 0.0, 0.0, 0.0); gimp_rgb_set (&color2, 0.0, 0.0, 0.0);
break; break;
case USE_FG_BG: case USE_FG_BG:
gimp_palette_get_background (&color1); gimp_context_get_background (&color1);
gimp_palette_get_foreground (&color2); gimp_context_get_foreground (&color2);
break; break;
} }
} }

4
plug-ins/common/sparkle.c
View file

@ -935,12 +935,12 @@ fspike (GimpPixelRgn *src_rgn,
break; break;
case FOREGROUND: case FOREGROUND:
gimp_palette_get_foreground (&gimp_color); gimp_context_get_foreground (&gimp_color);
gimp_rgb_get_uchar (&gimp_color, &pixel[0], &pixel[1], &pixel[2]); gimp_rgb_get_uchar (&gimp_color, &pixel[0], &pixel[1], &pixel[2]);
break; break;
case BACKGROUND: case BACKGROUND:
gimp_palette_get_background (&gimp_color); gimp_context_get_background (&gimp_color);
gimp_rgb_get_uchar (&gimp_color, &pixel[0], &pixel[1], &pixel[2]); gimp_rgb_get_uchar (&gimp_color, &pixel[0], &pixel[1], &pixel[2]);
break; break;
} }

6
plug-ins/common/vpropagate.c
View file

@ -464,7 +464,7 @@ value_propagate_body (gint drawable_id)
best = g_new (guchar, bytes); best = g_new (guchar, bytes);
gimp_progress_init (_("Value Propagating...")); gimp_progress_init (_("Value Propagating..."));
gimp_palette_get_foreground (&foreground); gimp_context_get_foreground (&foreground);
gimp_rgb_get_uchar (&foreground, fore+0, fore+1, fore+2); gimp_rgb_get_uchar (&foreground, fore+0, fore+1, fore+2);
/* start real job */ /* start real job */
@ -918,7 +918,7 @@ initialize_foreground (GimpImageBaseType image_type,
{ {
*tmp = (void *) g_new (guchar, 3); *tmp = (void *) g_new (guchar, 3);
ch = (guchar *)*tmp; ch = (guchar *)*tmp;
gimp_palette_get_foreground (&foreground); gimp_context_get_foreground (&foreground);
gimp_rgb_get_uchar (&foreground, &ch[0], &ch[1], &ch[2]); gimp_rgb_get_uchar (&foreground, &ch[0], &ch[1], &ch[2]);
} }
} }
@ -937,7 +937,7 @@ initialize_background (GimpImageBaseType image_type,
{ {
*tmp = (void *) g_new (guchar, 3); *tmp = (void *) g_new (guchar, 3);
ch = (guchar *)*tmp; ch = (guchar *)*tmp;
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_rgb_get_uchar (&background, &ch[0], &ch[1], &ch[2]); gimp_rgb_get_uchar (&background, &ch[0], &ch[1], &ch[2]);
} }
} }

2
plug-ins/common/warp.c
View file

@ -279,7 +279,7 @@ run (const gchar *name,
tile_height = gimp_tile_height (); tile_height = gimp_tile_height ();
/* get currently selected foreground pixel color */ /* get currently selected foreground pixel color */
gimp_palette_get_foreground (&color); gimp_context_get_foreground (&color);
gimp_rgb_get_uchar (&color, gimp_rgb_get_uchar (&color,
&color_pixel[0], &color_pixel[0],
&color_pixel[1], &color_pixel[1],

4
plug-ins/common/whirlpinch.c
View file

@ -362,7 +362,7 @@ whirl_pinch (void)
pft = gimp_pixel_fetcher_new (drawable, FALSE); pft = gimp_pixel_fetcher_new (drawable, FALSE);
pfb = gimp_pixel_fetcher_new (drawable, FALSE); pfb = gimp_pixel_fetcher_new (drawable, FALSE);
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_pixel_fetcher_set_bg_color (pft, &background); gimp_pixel_fetcher_set_bg_color (pft, &background);
gimp_pixel_fetcher_set_bg_color (pfb, &background); gimp_pixel_fetcher_set_bg_color (pfb, &background);
@ -732,7 +732,7 @@ dialog_update_preview (void)
guchar outside[4]; guchar outside[4];
GimpRGB background; GimpRGB background;
gimp_palette_get_background (&background); gimp_context_get_background (&background);
switch (img_bpp) switch (img_bpp)
{ {

8
plug-ins/gfig/gfig-style.c
View file

@ -540,9 +540,9 @@ gfig_style_apply (Style *style)
if (gfig_context->debug_styles) if (gfig_context->debug_styles)
fprintf (stderr, "Applying style '%s' -- ", style->name); fprintf (stderr, "Applying style '%s' -- ", style->name);
gimp_palette_set_foreground (&style->foreground); gimp_context_set_foreground (&style->foreground);
gimp_palette_set_background (&style->background); gimp_context_set_background (&style->background);
if (!gimp_brushes_set_brush (style->brush_name)) if (!gimp_brushes_set_brush (style->brush_name))
g_message ("Style apply: Failed to set brush to '%s' in style '%s'", g_message ("Style apply: Failed to set brush to '%s' in style '%s'",
@ -584,8 +584,8 @@ gfig_read_gimp_style (Style *style,
fprintf (stderr, "Reading Gimp settings as style %s\n", name); fprintf (stderr, "Reading Gimp settings as style %s\n", name);
style->name = g_strdup (name); style->name = g_strdup (name);
gimp_palette_get_foreground (&style->foreground); gimp_context_get_foreground (&style->foreground);
gimp_palette_get_background (&style->background); gimp_context_get_background (&style->background);
style->brush_name = (gchar *) gimp_brushes_get_brush (&style->brush_width, style->brush_name = (gchar *) gimp_brushes_get_brush (&style->brush_width,
&style->brush_height, &style->brush_height,
&style->brush_spacing); &style->brush_spacing);

2
plug-ins/gfli/gfli.c
View file

@ -634,7 +634,7 @@ save_image (const gchar *filename,
to_frame = nframes; to_frame = nframes;
} }
gimp_palette_get_background (&background); gimp_context_get_background (&background);
gimp_rgb_get_uchar (&background, &red, &green, &blue); gimp_rgb_get_uchar (&background, &red, &green, &blue);
switch (gimp_image_base_type (image_id)) switch (gimp_image_base_type (image_id))

8
plug-ins/ifscompose/ifscompose.c
View file

@ -1372,7 +1372,7 @@ ifs_compose (GimpDrawable *drawable)
data = g_new (guchar, width * band_height * SQR (ifsvals.subdivide) * 3); data = g_new (guchar, width * band_height * SQR (ifsvals.subdivide) * 3);
nhits = g_new (guchar, width * band_height * SQR (ifsvals.subdivide)); nhits = g_new (guchar, width * band_height * SQR (ifsvals.subdivide));
gimp_palette_get_background (&color); gimp_context_get_background (&color);
gimp_rgb_get_uchar (&color, &rc, &gc, &bc); gimp_rgb_get_uchar (&color, &rc, &gc, &bc);
band_y = 0; band_y = 0;
@ -2449,7 +2449,7 @@ ifs_compose_set_defaults (void)
gint i; gint i;
GimpRGB color; GimpRGB color;
gimp_palette_get_foreground (&color); gimp_context_get_foreground (&color);
ifsvals.aspect_ratio = ifsvals.aspect_ratio =
(gdouble)ifsD->drawable_height / ifsD->drawable_width; (gdouble)ifsD->drawable_height / ifsD->drawable_width;
@ -2739,7 +2739,7 @@ ifs_compose_new_callback (GtkWidget *widget,
undo_begin (); undo_begin ();
gimp_palette_get_foreground (&color); gimp_context_get_foreground (&color);
elem = aff_element_new (0.5, 0.5 * height / width, &color, elem = aff_element_new (0.5, 0.5 * height / width, &color,
++count_for_naming); ++count_for_naming);
@ -2868,7 +2868,7 @@ ifs_compose_preview (void)
if (!ifsD->preview_data) if (!ifsD->preview_data)
ifsD->preview_data = g_new (guchar, 3 * width * height); ifsD->preview_data = g_new (guchar, 3 * width * height);
gimp_palette_get_background (&color); gimp_context_get_background (&color);
gimp_rgb_get_uchar (&color, &rc, &gc, &bc); gimp_rgb_get_uchar (&color, &rc, &gc, &bc);
ptr = ifsD->preview_data; ptr = ifsD->preview_data;

4
plug-ins/maze/handy.c
View file

@ -42,8 +42,8 @@ get_colors (GimpDrawable *drawable,
GimpRGB foreground; GimpRGB foreground;
GimpRGB background; GimpRGB background;
gimp_palette_get_foreground (&foreground); gimp_context_get_foreground (&foreground);
gimp_palette_get_background (&background); gimp_context_get_background (&background);
fg[0] = fg[1] = fg[2] = fg[3] = 255; fg[0] = fg[1] = fg[2] = fg[3] = 255;
bg[0] = bg[1] = bg[2] = bg[3] = 255; bg[0] = bg[1] = bg[2] = bg[3] = 255;

4
plug-ins/pagecurl/pagecurl.c
View file

@ -707,10 +707,10 @@ init_calculation (gint32 drawable_id)
/* Colors */ /* Colors */
gimp_palette_get_foreground (&color); gimp_context_get_foreground (&color);
gimp_rgb_get_uchar (&color, &fore_color[0], &fore_color[1], &fore_color[2]); gimp_rgb_get_uchar (&color, &fore_color[0], &fore_color[1], &fore_color[2]);
gimp_palette_get_background (&color); gimp_context_get_background (&color);
gimp_rgb_get_uchar (&color, &back_color[0], &back_color[1], &back_color[2]); gimp_rgb_get_uchar (&color, &back_color[0], &back_color[1], &back_color[2]);
} }

8
plug-ins/pygimp/gimpmodule.c
View file

@ -663,7 +663,7 @@ pygimp_get_background(PyObject *self)
GimpRGB colour; GimpRGB colour;
guchar r, g, b; guchar r, g, b;
gimp_palette_get_background(&colour); gimp_context_get_background(&colour);
gimp_rgb_get_uchar(&colour, &r, &g, &b); gimp_rgb_get_uchar(&colour, &r, &g, &b);
return Py_BuildValue("(iii)", (int)r, (int)g, (int)b); return Py_BuildValue("(iii)", (int)r, (int)g, (int)b);
} }
@ -674,7 +674,7 @@ pygimp_get_foreground(PyObject *self)
GimpRGB colour; GimpRGB colour;
guchar r, g, b; guchar r, g, b;
gimp_palette_get_foreground(&colour); gimp_context_get_foreground(&colour);
gimp_rgb_get_uchar(&colour, &r, &g, &b); gimp_rgb_get_uchar(&colour, &r, &g, &b);
return Py_BuildValue("(iii)", (int)r, (int)g, (int)b); return Py_BuildValue("(iii)", (int)r, (int)g, (int)b);
} }
@ -693,7 +693,7 @@ pygimp_set_background(PyObject *self, PyObject *args)
g = CLAMP(g, 0, 255); g = CLAMP(g, 0, 255);
b = CLAMP(b, 0, 255); b = CLAMP(b, 0, 255);
gimp_rgb_set_uchar(&colour, r, g, b); gimp_rgb_set_uchar(&colour, r, g, b);
gimp_palette_set_background(&colour); gimp_context_set_background(&colour);
Py_INCREF(Py_None); Py_INCREF(Py_None);
return Py_None; return Py_None;
} }
@ -712,7 +712,7 @@ pygimp_set_foreground(PyObject *self, PyObject *args)
g = CLAMP(g, 0, 255); g = CLAMP(g, 0, 255);
b = CLAMP(b, 0, 255); b = CLAMP(b, 0, 255);
gimp_rgb_set_uchar(&colour, r, g, b); gimp_rgb_set_uchar(&colour, r, g, b);
gimp_palette_set_foreground(&colour); gimp_context_set_foreground(&colour);
Py_INCREF(Py_None); Py_INCREF(Py_None);
return Py_None; return Py_None;
} }

4
plug-ins/script-fu/scripts/3d-outline.scm
View file

@ -43,11 +43,11 @@
(script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img pattern 1) (gimp-image-add-layer img pattern 1)
(gimp-image-add-layer img bg-layer 2) (gimp-image-add-layer img bg-layer 2)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear pattern) (gimp-edit-clear pattern)
(gimp-layer-set-preserve-trans logo-layer TRUE) (gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-foreground '(0 0 0)) (gimp-context-set-foreground '(0 0 0))
(gimp-edit-fill logo-layer FOREGROUND-FILL) (gimp-edit-fill logo-layer FOREGROUND-FILL)
(gimp-layer-set-preserve-trans logo-layer FALSE) (gimp-layer-set-preserve-trans logo-layer FALSE)
(plug-in-gauss-iir 1 img logo-layer outline-blur-radius TRUE TRUE) (plug-in-gauss-iir 1 img logo-layer outline-blur-radius TRUE TRUE)

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

@ -69,7 +69,7 @@
) )
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background backcolor) (gimp-context-set-background backcolor)
(gimp-edit-fill drawable1 BACKGROUND-FILL) (gimp-edit-fill drawable1 BACKGROUND-FILL)
(let* ( (let* (
@ -83,13 +83,13 @@
(gimp-image-undo-disable temp-img) (gimp-image-undo-disable temp-img)
(gimp-image-add-layer temp-img temp-draw 0) (gimp-image-add-layer temp-img temp-draw 0)
(gimp-image-add-layer temp-img temp-draw2 0) (gimp-image-add-layer temp-img temp-draw2 0)
(gimp-palette-set-background backcolor) (gimp-context-set-background backcolor)
(gimp-edit-fill temp-draw BACKGROUND-FILL) (gimp-edit-fill temp-draw BACKGROUND-FILL)
(gimp-edit-fill temp-draw2 BACKGROUND-FILL) (gimp-edit-fill temp-draw2 BACKGROUND-FILL)
;weird aint it ;weird aint it
(gimp-palette-set-background begincolor) (gimp-context-set-background begincolor)
(gimp-palette-set-foreground endcolor) (gimp-context-set-foreground endcolor)
(center-ellipse temp-img size size outer-radius outer-radius (center-ellipse temp-img size size outer-radius outer-radius
CHANNEL-OP-REPLACE TRUE FALSE 0) CHANNEL-OP-REPLACE TRUE FALSE 0)
@ -181,7 +181,7 @@
;just to look a little better ;just to look a little better
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background backcolor) (gimp-context-set-background backcolor)
(gimp-edit-fill layer-one BACKGROUND-FILL) (gimp-edit-fill layer-one BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)

6
plug-ins/script-fu/scripts/add-bevel.scm
View file

@ -110,13 +110,13 @@
; ;
; Initialise our bumpmap ; Initialise our bumpmap
; ;
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-drawable-fill bump-layer BACKGROUND-FILL) (gimp-drawable-fill bump-layer BACKGROUND-FILL)
(set! index 1) (set! index 1)
(while (< index thickness) (while (< index thickness)
(set! greyness (/ (* index 255) thickness)) (set! greyness (/ (* index 255) thickness))
(gimp-palette-set-background (list greyness greyness greyness)) (gimp-context-set-background (list greyness greyness greyness))
;(gimp-selection-feather image 1) ;Stop the slopey jaggies? ;(gimp-selection-feather image 1) ;Stop the slopey jaggies?
(gimp-edit-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE (gimp-edit-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE
100 0 FALSE 0 0) 100 0 FALSE 0 0)
@ -124,7 +124,7 @@
(set! index (+ index 1)) (set! index (+ index 1))
) )
; Now the white interior ; Now the white interior
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE (gimp-edit-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE
100 0 FALSE 0 0) 100 0 FALSE 0 0)

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

@ -114,7 +114,7 @@
height height
xsize xsize
ysize) ysize)
(gimp-palette-set-background (adjcolour colour dvalue)) (gimp-context-set-background (adjcolour colour dvalue))
(gimp-free-select img (gimp-free-select img
10 10
(gen_top_array xsize ysize owidth oheight width height) (gen_top_array xsize ysize owidth oheight width height)
@ -123,7 +123,7 @@
0 0
0.0) 0.0)
(gimp-edit-fill layer BACKGROUND-FILL) (gimp-edit-fill layer BACKGROUND-FILL)
(gimp-palette-set-background (adjcolour colour (/ dvalue 2))) (gimp-context-set-background (adjcolour colour (/ dvalue 2)))
(gimp-free-select img (gimp-free-select img
10 10
(gen_left_array xsize ysize owidth oheight width height) (gen_left_array xsize ysize owidth oheight width height)
@ -132,7 +132,7 @@
0 0
0.0) 0.0)
(gimp-edit-fill layer BACKGROUND-FILL) (gimp-edit-fill layer BACKGROUND-FILL)
(gimp-palette-set-background (adjcolour colour (- 0 (/ dvalue 2)))) (gimp-context-set-background (adjcolour colour (- 0 (/ dvalue 2))))
(gimp-free-select img (gimp-free-select img
10 10
(gen_right_array xsize ysize owidth oheight width height) (gen_right_array xsize ysize owidth oheight width height)
@ -142,7 +142,7 @@
0.0) 0.0)
(gimp-edit-fill layer BACKGROUND-FILL) (gimp-edit-fill layer BACKGROUND-FILL)
(gimp-palette-set-background (adjcolour colour (- 0 dvalue))) (gimp-context-set-background (adjcolour colour (- 0 dvalue)))
(gimp-free-select img (gimp-free-select img
10 10
(gen_bottom_array xsize ysize owidth oheight width height) (gen_bottom_array xsize ysize owidth oheight width height)

8
plug-ins/script-fu/scripts/alien-glow-arrow.scm
View file

@ -116,8 +116,8 @@
(gimp-free-select img 6 big-arrow CHANNEL-OP-REPLACE TRUE FALSE 0) (gimp-free-select img 6 big-arrow CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-palette-set-foreground '(103 103 103)) (gimp-context-set-foreground '(103 103 103))
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE (gimp-edit-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
@ -125,7 +125,7 @@
0 0 size size) 0 0 size size)
(gimp-selection-grow img grow-amount) (gimp-selection-grow img grow-amount)
(gimp-palette-set-foreground glow-color) (gimp-context-set-foreground glow-color)
(gimp-edit-fill glow-layer FOREGROUND-FILL) (gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
@ -133,7 +133,7 @@
(plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE) (plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(if (= flatten TRUE) (if (= flatten TRUE)

8
plug-ins/script-fu/scripts/alien-glow-bar.scm
View file

@ -49,7 +49,7 @@
(gimp-image-add-layer img ruler-layer -1) (gimp-image-add-layer img ruler-layer -1)
; (gimp-layer-set-preserve-trans ruler-layer TRUE) ; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear glow-layer) (gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer) (gimp-edit-clear ruler-layer)
@ -57,15 +57,15 @@
(gimp-rect-select img (gimp-rect-select img
(/ height 2) (/ height 2) (/ height 2) (/ height 2)
length height CHANNEL-OP-REPLACE FALSE 0) length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground '(79 79 79)) (gimp-context-set-foreground '(79 79 79))
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE (gimp-edit-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE FALSE 0 0 TRUE
0 0 height height) 0 0 height height)
(gimp-palette-set-foreground glow-color) (gimp-context-set-foreground glow-color)
(gimp-selection-grow img border) (gimp-selection-grow img border)
(gimp-edit-fill glow-layer FOREGROUND-FILL) (gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)

8
plug-ins/script-fu/scripts/alien-glow-bullet.scm
View file

@ -58,7 +58,7 @@
(gimp-image-add-layer img bullet-layer -1) (gimp-image-add-layer img bullet-layer -1)
; (gimp-layer-set-preserve-trans ruler-layer TRUE) ; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear glow-layer) (gimp-edit-clear glow-layer)
(gimp-edit-clear bullet-layer) (gimp-edit-clear bullet-layer)
@ -67,8 +67,8 @@
CHANNEL-OP-REPLACE TRUE FALSE 0) CHANNEL-OP-REPLACE TRUE FALSE 0)
; (gimp-rect-select img (/ height 2) (/ height 2) length height CHANNEL-OP-REPLACE FALSE 0) ; (gimp-rect-select img (/ height 2) (/ height 2) length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground '(90 90 90)) (gimp-context-set-foreground '(90 90 90))
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-blend bullet-layer FG-BG-RGB-MODE NORMAL-MODE (gimp-edit-blend bullet-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-RADIAL 100 0 REPEAT-NONE FALSE GRADIENT-RADIAL 100 0 REPEAT-NONE FALSE
@ -76,7 +76,7 @@
blend-start blend-start blend-start blend-start
(+ half-radius radius) (+ half-radius radius)) (+ half-radius radius) (+ half-radius radius))
(gimp-palette-set-foreground glow-color) (gimp-context-set-foreground glow-color)
(gimp-selection-grow img border) (gimp-selection-grow img border)
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-edit-fill glow-layer FOREGROUND-FILL) (gimp-edit-fill glow-layer FOREGROUND-FILL)

12
plug-ins/script-fu/scripts/alien-glow-button.scm
View file

@ -88,8 +88,8 @@
; Create bumpmap layer ; Create bumpmap layer
(gimp-image-add-layer img bg-layer -1) (gimp-image-add-layer img bg-layer -1)
(gimp-palette-set-foreground '(0 0 0)) (gimp-context-set-foreground '(0 0 0))
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-image-add-layer img glow-layer -1) (gimp-image-add-layer img glow-layer -1)
@ -99,8 +99,8 @@
(gimp-layer-set-offsets button-layer (/ glow-radius 2) (/ glow-radius 2)) (gimp-layer-set-offsets button-layer (/ glow-radius 2) (/ glow-radius 2))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-rect-select img 0 0 img-width img-height CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 0 0 img-width img-height CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground '(100 100 100)) (gimp-context-set-foreground '(100 100 100))
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-blend button-layer FG-BG-RGB-MODE NORMAL-MODE (gimp-edit-blend button-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
@ -116,11 +116,11 @@
(- img-height (/ glow-radius 2)) (- img-height (/ glow-radius 2))
CHANNEL-OP-REPLACE FALSE 0 ) CHANNEL-OP-REPLACE FALSE 0 )
(gimp-palette-set-foreground glow-color) (gimp-context-set-foreground glow-color)
(gimp-edit-fill glow-layer FOREGROUND-FILL) (gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE) (plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE)
(gimp-palette-set-foreground text-color) (gimp-context-set-foreground text-color)
(let ((textl (car (gimp-text-fontname (let ((textl (car (gimp-text-fontname
img -1 0 0 text 0 TRUE size PIXELS font)))) img -1 0 0 text 0 TRUE size PIXELS font))))
(gimp-layer-set-offsets textl (gimp-layer-set-offsets textl

8
plug-ins/script-fu/scripts/alien-glow-logo.scm
View file

@ -24,18 +24,18 @@
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img glow-layer 1) (gimp-image-add-layer img glow-layer 1)
(gimp-layer-set-preserve-trans logo-layer TRUE) (gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear glow-layer) (gimp-edit-clear glow-layer)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-selection-grow img grow) (gimp-selection-grow img grow)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-palette-set-foreground glow-color) (gimp-context-set-foreground glow-color)
(gimp-edit-fill glow-layer FOREGROUND-FILL) (gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-palette-set-foreground '(79 79 79)) (gimp-context-set-foreground '(79 79 79))
(gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE (gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE

8
plug-ins/script-fu/scripts/alien-neon-logo.scm
View file

@ -49,13 +49,13 @@
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img bands-layer 1) (gimp-image-add-layer img bands-layer 1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill bands-layer BACKGROUND-FILL) (gimp-edit-fill bands-layer BACKGROUND-FILL)
; The text layer is never shown: it is only used to create a selection ; The text layer is never shown: it is only used to create a selection
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-edit-fill bands-layer FOREGROUND-FILL) (gimp-edit-fill bands-layer FOREGROUND-FILL)
; Create multiple outlines by growing and inverting the selection ; Create multiple outlines by growing and inverting the selection
@ -89,7 +89,7 @@
; Fill the layer with the foreground color. The areas that are not ; Fill the layer with the foreground color. The areas that are not
; masked become visible. ; masked become visible.
(gimp-palette-set-foreground fg-color) (gimp-context-set-foreground fg-color)
(gimp-edit-fill bands-layer FOREGROUND-FILL) (gimp-edit-fill bands-layer FOREGROUND-FILL)
;; (gimp-layer-remove-mask bands-layer MASK-APPLY) ;; (gimp-layer-remove-mask bands-layer MASK-APPLY)

4
plug-ins/script-fu/scripts/asc2img.scm
View file

@ -43,7 +43,7 @@
(gimp-context-push) (gimp-context-push)
(gimp-palette-set-background inBackColor) (gimp-context-set-background inBackColor)
(gimp-drawable-set-name theLayer "Background") (gimp-drawable-set-name theLayer "Background")
(gimp-image-add-layer theImage theLayer 0) (gimp-image-add-layer theImage theLayer 0)
@ -97,7 +97,7 @@
(gimp-context-push) (gimp-context-push)
(gimp-palette-set-foreground inTextColor) (gimp-context-set-foreground inTextColor)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(set! theData ()) (set! theData ())
(set! theIndentList ()) (set! theIndentList ())

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

@ -16,18 +16,18 @@
(script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img shadow-layer 1) (gimp-image-add-layer img shadow-layer 1)
(gimp-image-add-layer img bg-layer 2) (gimp-image-add-layer img bg-layer 2)
(gimp-palette-set-foreground text-color) (gimp-context-set-foreground text-color)
(gimp-layer-set-preserve-trans logo-layer TRUE) (gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-edit-fill logo-layer FOREGROUND-FILL) (gimp-edit-fill logo-layer FOREGROUND-FILL)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-feather img 7.5) (gimp-selection-feather img 7.5)
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE (gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE
GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE

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

@ -30,21 +30,21 @@
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img shadow-layer 1) (gimp-image-add-layer img shadow-layer 1)
(gimp-image-add-layer img highlight-layer 1) (gimp-image-add-layer img highlight-layer 1)
(gimp-palette-set-foreground text-color) (gimp-context-set-foreground text-color)
(gimp-layer-set-preserve-trans logo-layer TRUE) (gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-edit-fill logo-layer FOREGROUND-FILL) (gimp-edit-fill logo-layer FOREGROUND-FILL)
(gimp-edit-clear shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-palette-set-foreground (color-highlight text-color)) (gimp-context-set-foreground (color-highlight text-color))
(gimp-layer-set-preserve-trans highlight-layer TRUE) (gimp-layer-set-preserve-trans highlight-layer TRUE)
(gimp-edit-fill highlight-layer FOREGROUND-FILL) (gimp-edit-fill highlight-layer FOREGROUND-FILL)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-drawable-fill bg-layer BACKGROUND-FILL) (gimp-drawable-fill bg-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-feather img 7.5) (gimp-selection-feather img 7.5)
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE (gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE
GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE

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

@ -86,8 +86,8 @@
; Create bumpmap layer ; Create bumpmap layer
(gimp-image-add-layer img bumpmap -1) (gimp-image-add-layer img bumpmap -1)
(gimp-palette-set-foreground '(0 0 0)) (gimp-context-set-foreground '(0 0 0))
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-rect-select img 0 0 bevel-width img-height CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 0 0 bevel-width img-height CHANNEL-OP-REPLACE FALSE 0)
@ -107,8 +107,8 @@
; Create gradient layer ; Create gradient layer
(gimp-image-add-layer img gradient -1) (gimp-image-add-layer img gradient -1)
(gimp-palette-set-foreground ul-color) (gimp-context-set-foreground ul-color)
(gimp-palette-set-background lr-color) (gimp-context-set-background lr-color)
(gimp-edit-blend gradient FG-BG-RGB-MODE NORMAL-MODE (gimp-edit-blend gradient FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
@ -120,7 +120,7 @@
; Create text layer ; Create text layer
(gimp-palette-set-foreground text-color) (gimp-context-set-foreground text-color)
(let ((textl (car (gimp-text-fontname (let ((textl (car (gimp-text-fontname
img -1 0 0 text 0 TRUE size PIXELS font)))) img -1 0 0 text 0 TRUE size PIXELS font))))
(gimp-layer-set-offsets textl (gimp-layer-set-offsets textl

14
plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
View file

@ -87,7 +87,7 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL) (gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) (gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
@ -96,19 +96,19 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127)) (gimp-context-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- size 2) (- size 2) CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 1 1 (- size 2) (- size 2) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- size 4) (- size 4) CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 2 2 (- size 4) (- size 4) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127)) (gimp-context-set-background '(127 127 127))
(gimp-free-select img 6 big-arrow CHANNEL-OP-REPLACE TRUE FALSE 0) (gimp-free-select img 6 big-arrow CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-free-select img 6 med-arrow CHANNEL-OP-REPLACE TRUE FALSE 0) (gimp-free-select img 6 med-arrow CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -120,10 +120,10 @@
; Darken arrow ; Darken arrow
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(192 192 192)) (gimp-context-set-background '(192 192 192))
(gimp-free-select img 6 small-arrow CHANNEL-OP-REPLACE TRUE FALSE 0) (gimp-free-select img 6 small-arrow CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)

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

@ -33,7 +33,7 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL) (gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) (gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
@ -42,11 +42,11 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127)) (gimp-context-set-background '(127 127 127))
(gimp-ellipse-select img 1 1 (- diameter 2) (- diameter 2) CHANNEL-OP-REPLACE TRUE FALSE 0) (gimp-ellipse-select img 1 1 (- diameter 2) (- diameter 2) CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-ellipse-select img 2 2 (- diameter 4) (- diameter 4) CHANNEL-OP-REPLACE TRUE FALSE 0) (gimp-ellipse-select img 2 2 (- diameter 4) (- diameter 4) CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -58,7 +58,7 @@
; Background ; Background
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-ellipse-select img 0 0 diameter diameter CHANNEL-OP-REPLACE TRUE FALSE 0) (gimp-ellipse-select img 0 0 diameter diameter CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-clear background) (gimp-edit-clear background)

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

@ -67,7 +67,7 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL) (gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) (gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
@ -76,11 +76,11 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127)) (gimp-context-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- width 2) (- height 2) CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 1 1 (- width 2) (- height 2) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- width 4) (- height 4) CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 2 2 (- width 4) (- height 4) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -92,7 +92,7 @@
; Color and position text ; Color and position text
(gimp-palette-set-background text-color) (gimp-context-set-background text-color)
(gimp-layer-set-preserve-trans textl TRUE) (gimp-layer-set-preserve-trans textl TRUE)
(gimp-edit-fill textl BACKGROUND-FILL) (gimp-edit-fill textl BACKGROUND-FILL)

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

@ -52,7 +52,7 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL) (gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-edit-bucket-fill background (gimp-edit-bucket-fill background
@ -62,12 +62,12 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127)) (gimp-context-set-background '(127 127 127))
(gimp-selection-layer-alpha textl) (gimp-selection-layer-alpha textl)
(gimp-selection-shrink img 1) (gimp-selection-shrink img 1)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-layer-alpha textl) (gimp-selection-layer-alpha textl)
(gimp-selection-shrink img 2) (gimp-selection-shrink img 2)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -80,7 +80,7 @@
; Clean up ; Clean up
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-layer-alpha textl) (gimp-selection-layer-alpha textl)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-clear background) (gimp-edit-clear background)

6
plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
View file

@ -37,7 +37,7 @@
; Create pattern layer ; Create pattern layer
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL) (gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) (gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
@ -46,11 +46,11 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(127 127 127)) (gimp-context-set-background '(127 127 127))
(gimp-rect-select img 1 1 (- width 2) (- height 2) CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 1 1 (- width 2) (- height 2) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-rect-select img 2 2 (- width 4) (- height 4) CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 2 2 (- width 4) (- height 4) CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)

20
plug-ins/script-fu/scripts/blended-logo.scm
View file

@ -50,21 +50,21 @@
(gimp-edit-clear text-shadow-layer) (gimp-edit-clear text-shadow-layer)
(gimp-edit-clear drop-shadow-layer) (gimp-edit-clear drop-shadow-layer)
(gimp-edit-clear blend-layer) (gimp-edit-clear blend-layer)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-drawable-fill shadow-layer BACKGROUND-FILL) (gimp-drawable-fill shadow-layer BACKGROUND-FILL)
(gimp-rect-select img b-size-2 b-size-2 (- width b-size) (- height b-size) CHANNEL-OP-REPLACE TRUE b-size-2) (gimp-rect-select img b-size-2 b-size-2 (- width b-size) (- height b-size) CHANNEL-OP-REPLACE TRUE b-size-2)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-layer-add-mask text-shadow-layer tsl-layer-mask) (gimp-layer-add-mask text-shadow-layer tsl-layer-mask)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill tsl-layer-mask BACKGROUND-FILL) (gimp-edit-fill tsl-layer-mask BACKGROUND-FILL)
(gimp-selection-feather img f-size) (gimp-selection-feather img f-size)
(gimp-palette-set-background '(63 63 63)) (gimp-context-set-background '(63 63 63))
(gimp-edit-fill drop-shadow-layer BACKGROUND-FILL) (gimp-edit-fill drop-shadow-layer BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill text-shadow-layer BACKGROUND-FILL) (gimp-edit-fill text-shadow-layer BACKGROUND-FILL)
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend text-shadow-layer FG-BG-RGB-MODE NORMAL-MODE (gimp-edit-blend text-shadow-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
@ -72,8 +72,8 @@
0 0 1 1) 0 0 1 1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground blend-fg) (gimp-context-set-foreground blend-fg)
(gimp-palette-set-background blend-bg) (gimp-context-set-background blend-bg)
(gimp-gradients-set-gradient blend-gradient) (gimp-gradients-set-gradient blend-gradient)
(gimp-edit-blend blend-layer blend-mode NORMAL-MODE (gimp-edit-blend blend-layer blend-mode NORMAL-MODE
@ -87,7 +87,7 @@
(gimp-layer-translate drop-shadow-layer ds-size ds-size) (gimp-layer-translate drop-shadow-layer ds-size ds-size)
(gimp-selection-layer-alpha blend-layer) (gimp-selection-layer-alpha blend-layer)
(gimp-layer-add-mask drop-shadow-layer dsl-layer-mask) (gimp-layer-add-mask drop-shadow-layer dsl-layer-mask)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill dsl-layer-mask BACKGROUND-FILL) (gimp-edit-fill dsl-layer-mask BACKGROUND-FILL)
(gimp-layer-remove-mask drop-shadow-layer MASK-APPLY) (gimp-layer-remove-mask drop-shadow-layer MASK-APPLY)
(gimp-selection-none img) (gimp-selection-none img)
@ -151,7 +151,7 @@
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-drawable-set-name text-layer text) (gimp-drawable-set-name text-layer text)
(gimp-palette-set-foreground text-color) (gimp-context-set-foreground text-color)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill text-layer FOREGROUND-FILL) (gimp-edit-fill text-layer FOREGROUND-FILL)
(apply-blended-logo-effect img text-layer b-size bg-color (apply-blended-logo-effect img text-layer b-size bg-color

6
plug-ins/script-fu/scripts/bovinated-logo.scm
View file

@ -40,16 +40,16 @@
(gimp-image-add-layer img blur-layer 1) (gimp-image-add-layer img blur-layer 1)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer TRUE) (gimp-layer-set-preserve-trans blur-layer TRUE)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill blur-layer BACKGROUND-FILL) (gimp-edit-fill blur-layer BACKGROUND-FILL)
(gimp-edit-clear blur-layer) (gimp-edit-clear blur-layer)
(gimp-palette-set-background '(191 191 191)) (gimp-context-set-background '(191 191 191))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer FALSE) (gimp-layer-set-preserve-trans blur-layer FALSE)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)

10
plug-ins/script-fu/scripts/burn-in-anim.scm
View file

@ -88,8 +88,8 @@
CHANNEL-OP-REPLACE 0 0))) CHANNEL-OP-REPLACE 0 0)))
;--- alpha blending text to trans (fadeout) ;--- alpha blending text to trans (fadeout)
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-palette-set-background '( 0 0 0)) (gimp-context-set-background '( 0 0 0))
(if (= fadeout TRUE) (if (= fadeout TRUE)
(begin (begin
; blend with 20% offset to get less transparency in the front ; blend with 20% offset to get less transparency in the front
@ -100,7 +100,7 @@
(if (= fadeout FALSE) (if (= fadeout FALSE)
(begin (begin
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-edit-bucket-fill bl-mask FG-BUCKET-FILL NORMAL-MODE (gimp-edit-bucket-fill bl-mask FG-BUCKET-FILL NORMAL-MODE
100 255 0 0 0))) 100 255 0 0 0)))
@ -114,7 +114,7 @@
(gimp-brightness-contrast bl-layer 100 0)) (gimp-brightness-contrast bl-layer 100 0))
;--- blend glow color inside the letters ;--- blend glow color inside the letters
(gimp-palette-set-foreground glow-color) (gimp-context-set-foreground glow-color)
(gimp-edit-blend bl-layer FG-TRANSPARENT-MODE NORMAL-MODE (gimp-edit-blend bl-layer FG-TRANSPARENT-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE FALSE 0 0 TRUE
@ -127,7 +127,7 @@
(gimp-selection-grow img corona-width) (gimp-selection-grow img corona-width)
(gimp-layer-set-preserve-trans bl-layer FALSE) (gimp-layer-set-preserve-trans bl-layer FALSE)
(gimp-selection-feather img corona-width) (gimp-selection-feather img corona-width)
(gimp-palette-set-foreground glow-color) (gimp-context-set-foreground glow-color)
(gimp-edit-blend bl-layer FG-TRANSPARENT-MODE NORMAL-MODE (gimp-edit-blend bl-layer FG-TRANSPARENT-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE FALSE 0 0 TRUE

6
plug-ins/script-fu/scripts/camo.scm
View file

@ -37,7 +37,7 @@
(gimp-context-push) (gimp-context-push)
(gimp-selection-all theImage) (gimp-selection-all theImage)
(gimp-palette-set-background inColor1) (gimp-context-set-background inColor1)
(gimp-drawable-fill baseLayer BACKGROUND-FILL) (gimp-drawable-fill baseLayer BACKGROUND-FILL)
(plug-in-solid-noise TRUE theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain) (plug-in-solid-noise TRUE theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain)
@ -47,7 +47,7 @@
(set! theBlur (- 16 inGrain)) (set! theBlur (- 16 inGrain))
(gimp-palette-set-background inColor2) (gimp-context-set-background inColor2)
(gimp-by-color-select thickLayer '(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE) (gimp-by-color-select thickLayer '(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear thickLayer) (gimp-edit-clear thickLayer)
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
@ -59,7 +59,7 @@
) )
(gimp-palette-set-background inColor3) (gimp-context-set-background inColor3)
(gimp-by-color-select thinLayer '(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE) (gimp-by-color-select thinLayer '(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear thinLayer) (gimp-edit-clear thinLayer)
(gimp-selection-invert theImage) (gimp-selection-invert theImage)

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

@ -100,7 +100,7 @@
(gimp-image-add-channel img mask-fat 0) (gimp-image-add-channel img mask-fat 0)
(gimp-selection-load mask-fat) (gimp-selection-load mask-fat)
(gimp-brushes-set-brush (carve-brush brush-size)) (gimp-brushes-set-brush (carve-brush brush-size))
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke mask-fat) (gimp-edit-stroke mask-fat)
(gimp-selection-none img) (gimp-selection-none img)
@ -109,7 +109,7 @@
(plug-in-gauss-rle 1 img mask-emboss feather TRUE TRUE) (plug-in-gauss-rle 1 img mask-emboss feather TRUE TRUE)
(plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE) (plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE)
(gimp-palette-set-background '(180 180 180)) (gimp-context-set-background '(180 180 180))
(gimp-selection-load mask-fat) (gimp-selection-load mask-fat)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-fill mask-emboss BACKGROUND-FILL) (gimp-edit-fill mask-emboss BACKGROUND-FILL)
@ -145,7 +145,7 @@
(set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK))) (set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK)))
(gimp-layer-add-mask cast-shadow-layer csl-mask) (gimp-layer-add-mask cast-shadow-layer csl-mask)
(gimp-selection-load mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill csl-mask BACKGROUND-FILL) (gimp-edit-fill csl-mask BACKGROUND-FILL)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE))) (set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
@ -154,7 +154,7 @@
(set! il-mask (car (gimp-layer-create-mask inset-layer ADD-BLACK-MASK))) (set! il-mask (car (gimp-layer-create-mask inset-layer ADD-BLACK-MASK)))
(gimp-layer-add-mask inset-layer il-mask) (gimp-layer-add-mask inset-layer il-mask)
(gimp-selection-load mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill il-mask BACKGROUND-FILL) (gimp-edit-fill il-mask BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-selection-none bg-image) (gimp-selection-none bg-image)

12
plug-ins/script-fu/scripts/carved-logo.scm
View file

@ -55,9 +55,9 @@
(gimp-image-set-filename img "") (gimp-image-set-filename img "")
(gimp-layer-set-preserve-trans mask-layer TRUE) (gimp-layer-set-preserve-trans mask-layer TRUE)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill mask-layer BACKGROUND-FILL) (gimp-edit-fill mask-layer BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill mask BACKGROUND-FILL) (gimp-edit-fill mask BACKGROUND-FILL)
(plug-in-tile 1 img layer1 width height FALSE) (plug-in-tile 1 img layer1 width height FALSE)
@ -75,7 +75,7 @@
(gimp-image-add-channel img mask-fat 0) (gimp-image-add-channel img mask-fat 0)
(gimp-selection-load mask-fat) (gimp-selection-load mask-fat)
(gimp-brushes-set-brush (carve-brush brush-size)) (gimp-brushes-set-brush (carve-brush brush-size))
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke mask-fat) (gimp-edit-stroke mask-fat)
(gimp-selection-none img) (gimp-selection-none img)
@ -84,7 +84,7 @@
(plug-in-gauss-rle 1 img mask-emboss feather TRUE TRUE) (plug-in-gauss-rle 1 img mask-emboss feather TRUE TRUE)
(plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE) (plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE)
(gimp-palette-set-background '(180 180 180)) (gimp-context-set-background '(180 180 180))
(gimp-selection-load mask-fat) (gimp-selection-load mask-fat)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-fill mask-emboss BACKGROUND-FILL) (gimp-edit-fill mask-emboss BACKGROUND-FILL)
@ -120,7 +120,7 @@
(set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK))) (set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK)))
(gimp-layer-add-mask cast-shadow-layer csl-mask) (gimp-layer-add-mask cast-shadow-layer csl-mask)
(gimp-selection-load mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill csl-mask BACKGROUND-FILL) (gimp-edit-fill csl-mask BACKGROUND-FILL)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE))) (set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
@ -129,7 +129,7 @@
(set! il-mask (car (gimp-layer-create-mask inset-layer ADD-BLACK-MASK))) (set! il-mask (car (gimp-layer-create-mask inset-layer ADD-BLACK-MASK)))
(gimp-layer-add-mask inset-layer il-mask) (gimp-layer-add-mask inset-layer il-mask)
(gimp-selection-load mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill il-mask BACKGROUND-FILL) (gimp-edit-fill il-mask BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)

4
plug-ins/script-fu/scripts/chalk.scm
View file

@ -35,7 +35,7 @@
(gimp-selection-none img) (gimp-selection-none img)
(script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
; the actual effect ; the actual effect
@ -90,7 +90,7 @@
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-drawable-set-name text-layer text) (gimp-drawable-set-name text-layer text)
(gimp-palette-set-foreground chalk-color) (gimp-context-set-foreground chalk-color)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill text-layer FOREGROUND-FILL) (gimp-edit-fill text-layer FOREGROUND-FILL)
(apply-chalk-logo-effect img text-layer bg-color) (apply-chalk-logo-effect img text-layer bg-color)

4
plug-ins/script-fu/scripts/chip-away.scm
View file

@ -58,7 +58,7 @@
(gimp-layer-set-preserve-trans logo-layer TRUE) (gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-patterns-set-pattern pattern) (gimp-patterns-set-pattern pattern)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-all img) (gimp-selection-all img)
(if (= bg-fill TRUE) (if (= bg-fill TRUE)
@ -93,7 +93,7 @@
(gimp-edit-clear shadow-layer) (gimp-edit-clear shadow-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE) (plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE)

10
plug-ins/script-fu/scripts/chrome-it.scm
View file

@ -103,7 +103,7 @@
(if (= carve-white FALSE) (if (= carve-white FALSE)
(gimp-invert mask)) (gimp-invert mask))
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-fill layer2 BACKGROUND-FILL) (gimp-edit-fill layer2 BACKGROUND-FILL)
(gimp-edit-fill layer3 BACKGROUND-FILL) (gimp-edit-fill layer3 BACKGROUND-FILL)
@ -113,7 +113,7 @@
(gimp-drawable-set-visible shadow FALSE) (gimp-drawable-set-visible shadow FALSE)
(gimp-selection-load mask) (gimp-selection-load mask)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill layer2 BACKGROUND-FILL) (gimp-edit-fill layer2 BACKGROUND-FILL)
@ -135,16 +135,16 @@
(set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK))) (set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK)))
(gimp-layer-add-mask layer1 layer-mask) (gimp-layer-add-mask layer1 layer-mask)
(gimp-selection-load mask) (gimp-selection-load mask)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill layer-mask BACKGROUND-FILL) (gimp-edit-fill layer-mask BACKGROUND-FILL)
(set! layer2 (car (gimp-layer-copy layer1 TRUE))) (set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0) (gimp-image-add-layer img layer2 0)
(gimp-brushes-set-brush (brush brush-size)) (gimp-brushes-set-brush (brush brush-size))
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke layer-mask) (gimp-edit-stroke layer-mask)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-feather img (* feather 1.5)) (gimp-selection-feather img (* feather 1.5))
(gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1)) (gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1))
(gimp-edit-fill shadow BACKGROUND-FILL) (gimp-edit-fill shadow BACKGROUND-FILL)

10
plug-ins/script-fu/scripts/chrome-logo.scm
View file

@ -26,7 +26,7 @@
(gimp-image-add-layer img layer3 1) (gimp-image-add-layer img layer3 1)
(gimp-image-add-layer img layer2 1) (gimp-image-add-layer img layer2 1)
(gimp-image-add-layer img layer1 1) (gimp-image-add-layer img layer1 1)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-fill layer1 BACKGROUND-FILL) (gimp-edit-fill layer1 BACKGROUND-FILL)
(gimp-edit-fill layer2 BACKGROUND-FILL) (gimp-edit-fill layer2 BACKGROUND-FILL)
@ -36,7 +36,7 @@
(gimp-drawable-set-visible logo-layer FALSE) (gimp-drawable-set-visible logo-layer FALSE)
(gimp-drawable-set-visible shadow FALSE) (gimp-drawable-set-visible shadow FALSE)
(gimp-drawable-set-visible background FALSE) (gimp-drawable-set-visible background FALSE)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill layer1 BACKGROUND-FILL) (gimp-edit-fill layer1 BACKGROUND-FILL)
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
@ -48,14 +48,14 @@
(gimp-invert layer1) (gimp-invert layer1)
(gimp-layer-add-mask layer1 layer-mask) (gimp-layer-add-mask layer1 layer-mask)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill layer-mask BACKGROUND-FILL) (gimp-edit-fill layer-mask BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-edit-fill shadow BACKGROUND-FILL) (gimp-edit-fill shadow BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill background BACKGROUND-FILL) (gimp-edit-fill background BACKGROUND-FILL)
(gimp-drawable-set-visible shadow TRUE) (gimp-drawable-set-visible shadow TRUE)
(gimp-drawable-set-visible background TRUE) (gimp-drawable-set-visible background TRUE)

4
plug-ins/script-fu/scripts/circuit.scm
View file

@ -87,8 +87,8 @@
(set! active-layer (car (gimp-image-get-active-layer image))) (set! active-layer (car (gimp-image-get-active-layer image)))
(if (= remove-bg TRUE) (if (= remove-bg TRUE)
(gimp-palette-set-foreground '(0 0 0)) (gimp-context-set-foreground '(0 0 0))
(gimp-palette-set-foreground '(14 14 14))) (gimp-context-set-foreground '(14 14 14)))
(gimp-selection-load active-selection) (gimp-selection-load active-selection)
(plug-in-maze 1 image active-layer 5 5 TRUE 0 seed 57 1) (plug-in-maze 1 image active-layer 5 5 TRUE 0 seed 57 1)

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

@ -15,7 +15,7 @@
(gimp-context-push) (gimp-context-push)
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill layer-one BACKGROUND-FILL) (gimp-edit-fill layer-one BACKGROUND-FILL)
(gimp-image-add-layer img layer-one 0) (gimp-image-add-layer img layer-one 0)

6
plug-ins/script-fu/scripts/comic-logo.scm
View file

@ -47,12 +47,12 @@
(gimp-drawable-set-name black-layer "Black") (gimp-drawable-set-name black-layer "Black")
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans white-layer TRUE) (gimp-layer-set-preserve-trans white-layer TRUE)
(gimp-palette-set-background ol-color) (gimp-context-set-background ol-color)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill white-layer BACKGROUND-FILL) (gimp-edit-fill white-layer BACKGROUND-FILL)
(gimp-layer-set-preserve-trans white-layer FALSE) (gimp-layer-set-preserve-trans white-layer FALSE)
@ -63,7 +63,7 @@
(gimp-edit-fill white-layer BACKGROUND-FILL) (gimp-edit-fill white-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-layer-set-preserve-trans black-layer TRUE) (gimp-layer-set-preserve-trans black-layer TRUE)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill black-layer BACKGROUND-FILL) (gimp-edit-fill black-layer BACKGROUND-FILL)

10
plug-ins/script-fu/scripts/coolmetal-logo.scm
View file

@ -38,10 +38,10 @@
(gimp-image-add-layer img shadow-layer 1) (gimp-image-add-layer img shadow-layer 1)
(gimp-layer-set-preserve-trans logo-layer TRUE) (gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-edit-clear reflect-layer) (gimp-edit-clear reflect-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-gradients-set-gradient gradient) (gimp-gradients-set-gradient gradient)
@ -65,7 +65,7 @@
(plug-in-gauss-rle 1 img channel feather TRUE TRUE) (plug-in-gauss-rle 1 img channel feather TRUE TRUE)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill channel BACKGROUND-FILL) (gimp-edit-fill channel BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
@ -92,8 +92,8 @@
(set! layer-mask (car (gimp-layer-create-mask reflect-layer ADD-WHITE-MASK))) (set! layer-mask (car (gimp-layer-create-mask reflect-layer ADD-WHITE-MASK)))
(gimp-layer-add-mask reflect-layer layer-mask) (gimp-layer-add-mask reflect-layer layer-mask)
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-blend layer-mask FG-BG-RGB-MODE NORMAL-MODE (gimp-edit-blend layer-mask FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE FALSE 0 0 TRUE

12
plug-ins/script-fu/scripts/crystal-logo.scm
View file

@ -101,14 +101,14 @@
(gimp-image-resize img width height 0 0) (gimp-image-resize img width height 0 0)
(gimp-image-add-layer img layer3 0) (gimp-image-add-layer img layer3 0)
(gimp-image-add-layer img layer2 0) (gimp-image-add-layer img layer2 0)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-edit-fill layer2 BACKGROUND-FILL) (gimp-edit-fill layer2 BACKGROUND-FILL)
(gimp-edit-fill layer3 BACKGROUND-FILL) (gimp-edit-fill layer3 BACKGROUND-FILL)
(gimp-drawable-set-visible text-layer FALSE) (gimp-drawable-set-visible text-layer FALSE)
(gimp-selection-layer-alpha text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-translate img offx1 offy1) (gimp-selection-translate img offx1 offy1)
(gimp-selection-feather img feather) (gimp-selection-feather img feather)
(gimp-edit-fill layer2 BACKGROUND-FILL) (gimp-edit-fill layer2 BACKGROUND-FILL)
@ -130,12 +130,12 @@
(set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK))) (set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK)))
(gimp-layer-add-mask layer1 layer-mask) (gimp-layer-add-mask layer1 layer-mask)
(gimp-selection-layer-alpha text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill layer-mask BACKGROUND-FILL) (gimp-edit-fill layer-mask BACKGROUND-FILL)
(set! disp-map (car (gimp-selection-save img))) (set! disp-map (car (gimp-selection-save img)))
(gimp-brushes-set-brush (crystal-brush brush-size)) (gimp-brushes-set-brush (crystal-brush brush-size))
(gimp-palette-set-foreground '(0 0 0)) (gimp-context-set-foreground '(0 0 0))
(gimp-edit-stroke disp-map) (gimp-edit-stroke disp-map)
(gimp-selection-none img) (gimp-selection-none img)
@ -157,7 +157,7 @@
(set! layer-mask2 (car (gimp-layer-create-mask layer2 ADD-BLACK-MASK))) (set! layer-mask2 (car (gimp-layer-create-mask layer2 ADD-BLACK-MASK)))
(gimp-layer-add-mask layer2 layer-mask2) (gimp-layer-add-mask layer2 layer-mask2)
(gimp-selection-layer-alpha text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill layer-mask2 BACKGROUND-FILL) (gimp-edit-fill layer-mask2 BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
@ -166,7 +166,7 @@
(plug-in-gauss-rle 1 img text-layer blur TRUE TRUE) (plug-in-gauss-rle 1 img text-layer blur TRUE TRUE)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill text-layer BACKGROUND-FILL) (gimp-edit-fill text-layer BACKGROUND-FILL)
(gimp-layer-set-mode text-layer OVERLAY-MODE) (gimp-layer-set-mode text-layer OVERLAY-MODE)
(gimp-layer-translate text-layer offx1 offy1) (gimp-layer-translate text-layer offx1 offy1)

6
plug-ins/script-fu/scripts/drop-shadow.scm
View file

@ -49,7 +49,7 @@
(type (car (gimp-drawable-type-with-alpha drawable))) (type (car (gimp-drawable-type-with-alpha drawable)))
(image-width (car (gimp-image-width image))) (image-width (car (gimp-image-width image)))
(image-height (car (gimp-image-height image))) (image-height (car (gimp-image-height image)))
(old-bg (car (gimp-palette-get-background))) (old-bg (car (gimp-context-get-background)))
(from-selection 0) (from-selection 0)
(active-selection 0) (active-selection 0)
(shadow-layer 0)) (shadow-layer 0))
@ -129,7 +129,7 @@
shadow-offset-y)) shadow-offset-y))
(gimp-drawable-fill shadow-layer TRANSPARENT-FILL) (gimp-drawable-fill shadow-layer TRANSPARENT-FILL)
(gimp-palette-set-background shadow-color) (gimp-context-set-background shadow-color)
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none image) (gimp-selection-none image)
(gimp-layer-set-preserve-trans shadow-layer FALSE) (gimp-layer-set-preserve-trans shadow-layer FALSE)
@ -153,7 +153,7 @@
(gimp-image-raise-layer image drawable)) (gimp-image-raise-layer image drawable))
(gimp-image-set-active-layer image drawable) (gimp-image-set-active-layer image drawable)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-image-undo-group-end image) (gimp-image-undo-group-end image)
(gimp-displays-flush))) (gimp-displays-flush)))

14
plug-ins/script-fu/scripts/fade-outline.scm
View file

@ -48,7 +48,7 @@
) )
(let* ((l-idx 0) (let* ((l-idx 0)
(l-old-bg-color (car (gimp-palette-get-background))) (l-old-bg-color (car (gimp-context-get-background)))
(l-has-selection TRUE) (l-has-selection TRUE)
) )
@ -126,7 +126,7 @@
(set! l-gray l-from-gray) (set! l-gray l-from-gray)
) )
) )
(gimp-palette-set-background (list (/ l-gray 100) (/ l-gray 100) (/ l-gray 100))) (gimp-context-set-background (list (/ l-gray 100) (/ l-gray 100) (/ l-gray 100)))
(gimp-edit-fill l-mask BACKGROUND-FILL) (gimp-edit-fill l-mask BACKGROUND-FILL)
(set! l-idx (+ l-idx 1)) (set! l-idx (+ l-idx 1))
(set! l-gray (+ l-gray l-step)) (set! l-gray (+ l-gray l-step))
@ -143,17 +143,17 @@
(if (= inGrowingSelection TRUE) (if (= inGrowingSelection TRUE)
(begin (begin
(gimp-selection-load l-orig-selection) (gimp-selection-load l-orig-selection)
(gimp-palette-set-background (list (/ l-to-gray 100) (/ l-to-gray 100) (/ l-to-gray 100))) (gimp-context-set-background (list (/ l-to-gray 100) (/ l-to-gray 100) (/ l-to-gray 100)))
(gimp-edit-fill l-mask BACKGROUND-FILL) (gimp-edit-fill l-mask BACKGROUND-FILL)
(gimp-selection-grow inImage inBorderSize) (gimp-selection-grow inImage inBorderSize)
(gimp-selection-invert inImage) (gimp-selection-invert inImage)
(if (= inClearUnselected TRUE) (if (= inClearUnselected TRUE)
(begin (begin
;(gimp-palette-set-background (list (/ l-from-gray 100) (/ l-from-gray 100) (/ l-from-gray 100))) ;(gimp-context-set-background (list (/ l-from-gray 100) (/ l-from-gray 100) (/ l-from-gray 100)))
(gimp-palette-set-background (list 0 0 0)) (gimp-context-set-background (list 0 0 0))
) )
(begin (begin
(gimp-palette-set-background (list 255 255 255)) (gimp-context-set-background (list 255 255 255))
) )
) )
(gimp-edit-fill l-mask BACKGROUND-FILL) (gimp-edit-fill l-mask BACKGROUND-FILL)
@ -171,7 +171,7 @@
(gimp-selection-none inImage) (gimp-selection-none inImage)
) )
(gimp-palette-set-background l-old-bg-color) (gimp-context-set-background l-old-bg-color)
(gimp-image-undo-group-end inImage) (gimp-image-undo-group-end inImage)
(gimp-displays-flush) (gimp-displays-flush)
) )

12
plug-ins/script-fu/scripts/font-map.scm
View file

@ -65,15 +65,15 @@
(drawable (car (gimp-layer-new img width height (if (= colors 0) (drawable (car (gimp-layer-new img width height (if (= colors 0)
GRAY-IMAGE RGB-IMAGE) GRAY-IMAGE RGB-IMAGE)
"Background" 100 NORMAL-MODE))) "Background" 100 NORMAL-MODE)))
(old-bg (car (gimp-palette-get-background))) (old-bg (car (gimp-context-get-background)))
(old-fg (car (gimp-palette-get-foreground)))) (old-fg (car (gimp-context-get-foreground))))
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(if (= colors 0) (if (= colors 0)
(begin (begin
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-palette-set-foreground '(0 0 0)))) (gimp-context-set-foreground '(0 0 0))))
(gimp-edit-clear drawable) (gimp-edit-clear drawable)
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
@ -123,8 +123,8 @@
(if (= colors 0) (if (= colors 0)
(begin (begin
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-palette-set-foreground old-fg))) (gimp-context-set-foreground old-fg)))
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-display-new img))) (gimp-display-new img)))

20
plug-ins/script-fu/scripts/frosty-logo.scm
View file

@ -15,8 +15,8 @@
(shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 90 MULTIPLY-MODE))) (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 90 MULTIPLY-MODE)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(selection 0) (selection 0)
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background))) (old-bg (car (gimp-context-get-background)))
(old-brush (car (gimp-brushes-get-brush))) (old-brush (car (gimp-brushes-get-brush)))
(old-paint-mode (car (gimp-brushes-get-paint-mode)))) (old-paint-mode (car (gimp-brushes-get-paint-mode))))
(gimp-layer-add-mask logo-layer logo-layer-mask) (gimp-layer-add-mask logo-layer logo-layer-mask)
@ -32,7 +32,7 @@
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(set! selection (car (gimp-selection-save img))) (set! selection (car (gimp-selection-save img)))
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill sparkle-layer BACKGROUND-FILL) (gimp-edit-fill sparkle-layer BACKGROUND-FILL)
(plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0) (plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
(plug-in-c-astretch 1 img sparkle-layer) (plug-in-c-astretch 1 img sparkle-layer)
@ -41,19 +41,19 @@
(gimp-levels sparkle-layer 1 0 255 0.2 0 255) (gimp-levels sparkle-layer 1 0 255 0.2 0 255)
(gimp-levels sparkle-layer 2 0 255 0.7 0 255) (gimp-levels sparkle-layer 2 0 255 0.7 0 255)
(gimp-selection-layer-alpha sparkle-layer) (gimp-selection-layer-alpha sparkle-layer)
(gimp-palette-set-foreground '(0 0 0)) (gimp-context-set-foreground '(0 0 0))
(gimp-brushes-set-brush "Circle Fuzzy (11)") (gimp-brushes-set-brush "Circle Fuzzy (11)")
(gimp-edit-stroke matte-layer) (gimp-edit-stroke matte-layer)
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill logo-layer BACKGROUND-FILL) (gimp-edit-fill logo-layer BACKGROUND-FILL)
; (gimp-layer-add-mask logo-layer logo-layer-mask) ; (gimp-layer-add-mask logo-layer logo-layer-mask)
(gimp-selection-load selection) (gimp-selection-load selection)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill logo-layer-mask BACKGROUND-FILL) (gimp-edit-fill logo-layer-mask BACKGROUND-FILL)
(gimp-selection-feather img border) (gimp-selection-feather img border)
(gimp-selection-translate img (/ border 2) (/ border 2)) (gimp-selection-translate img (/ border 2) (/ border 2))
@ -62,13 +62,13 @@
(gimp-selection-load selection) (gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)") (gimp-brushes-set-brush "Circle Fuzzy (07)")
(gimp-brushes-set-paint-mode BEHIND-MODE) (gimp-brushes-set-paint-mode BEHIND-MODE)
(gimp-palette-set-foreground '(186 241 255)) (gimp-context-set-foreground '(186 241 255))
(gimp-edit-stroke logo-layer) (gimp-edit-stroke logo-layer)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-image-remove-channel img selection) (gimp-image-remove-channel img selection)
(gimp-layer-translate shadow-layer border border) (gimp-layer-translate shadow-layer border border)
(gimp-palette-set-foreground old-fg) (gimp-context-set-foreground old-fg)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-brushes-set-brush old-brush) (gimp-brushes-set-brush old-brush)
(gimp-brushes-set-paint-mode old-paint-mode))) (gimp-brushes-set-paint-mode old-paint-mode)))

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

@ -83,7 +83,7 @@
(gimp-edit-clear theLayer) (gimp-edit-clear theLayer)
(gimp-selection-invert theImage) (gimp-selection-invert theImage)
(gimp-edit-clear theLayer) (gimp-edit-clear theLayer)
(gimp-palette-set-background inColor) (gimp-context-set-background inColor)
(gimp-edit-fill theLayer BACKGROUND-FILL) (gimp-edit-fill theLayer BACKGROUND-FILL)
(gimp-selection-none inImage) (gimp-selection-none inImage)
(chris-color-edge theImage theLayer inColor 1) (chris-color-edge theImage theLayer inColor 1)
@ -139,7 +139,7 @@
(gimp-selection-all inImage) (gimp-selection-all inImage)
(gimp-selection-shrink inImage inSize) (gimp-selection-shrink inImage inSize)
(gimp-selection-invert inImage) (gimp-selection-invert inImage)
(gimp-palette-set-background inColor) (gimp-context-set-background inColor)
(gimp-edit-fill theLayer BACKGROUND-FILL) (gimp-edit-fill theLayer BACKGROUND-FILL)
(gimp-selection-none inImage) (gimp-selection-none inImage)
) )

18
plug-ins/script-fu/scripts/gimp-headers.scm
View file

@ -44,17 +44,17 @@
(width (car (gimp-drawable-width text-layer))) (width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer))) (height (car (gimp-drawable-height text-layer)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-context-get-background))))
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0) (gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background text-color) (gimp-context-set-background text-color)
(gimp-edit-fill text-layer BACKGROUND-FILL) (gimp-edit-fill text-layer BACKGROUND-FILL)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(let* ((highlight-layer (car (gimp-layer-copy text-layer TRUE))) (let* ((highlight-layer (car (gimp-layer-copy text-layer TRUE)))
@ -70,15 +70,15 @@
(gimp-image-add-layer img shadow-layer 1) (gimp-image-add-layer img shadow-layer 1)
(gimp-layer-set-preserve-trans shadow-layer TRUE) (gimp-layer-set-preserve-trans shadow-layer TRUE)
(gimp-palette-set-background high-color) (gimp-context-set-background high-color)
(gimp-edit-fill highlight-layer BACKGROUND-FILL) (gimp-edit-fill highlight-layer BACKGROUND-FILL)
(gimp-layer-translate highlight-layer -1 -1) (gimp-layer-translate highlight-layer -1 -1)
(gimp-palette-set-background side-color) (gimp-context-set-background side-color)
(gimp-edit-fill side-layer BACKGROUND-FILL) (gimp-edit-fill side-layer BACKGROUND-FILL)
(gimp-layer-translate side-layer 1 1) (gimp-layer-translate side-layer 1 1)
(gimp-palette-set-background shadow-color) (gimp-context-set-background shadow-color)
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-layer-translate shadow-layer 5 5) (gimp-layer-translate shadow-layer 5 5)
@ -108,8 +108,8 @@
FALSE FALSE "")) FALSE FALSE ""))
(gimp-palette-set-foreground old-fg) (gimp-context-set-foreground old-fg)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-display-new img) (gimp-display-new img)

14
plug-ins/script-fu/scripts/gimp-labels.scm
View file

@ -45,8 +45,8 @@
(bg-layer (car (gimp-layer-new img 125 height (bg-layer (car (gimp-layer-new img 125 height
RGB-IMAGE "Background" 100 NORMAL-MODE))) RGB-IMAGE "Background" 100 NORMAL-MODE)))
(shadow-layer (car (gimp-layer-copy text-layer TRUE))) (shadow-layer (car (gimp-layer-copy text-layer TRUE)))
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-context-get-background))))
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-image-add-layer img shadow-layer 1) (gimp-image-add-layer img shadow-layer 1)
@ -55,13 +55,13 @@
(gimp-layer-set-preserve-trans text-layer TRUE) (gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans shadow-layer TRUE) (gimp-layer-set-preserve-trans shadow-layer TRUE)
(gimp-palette-set-background text-color) (gimp-context-set-background text-color)
(gimp-edit-fill text-layer BACKGROUND-FILL) (gimp-edit-fill text-layer BACKGROUND-FILL)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-palette-set-background shadow-color) (gimp-context-set-background shadow-color)
(gimp-edit-fill shadow-layer BACKGROUND-FILL) (gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-layer-translate shadow-layer 1 1) (gimp-layer-translate shadow-layer 1 1)
@ -79,8 +79,8 @@
(gimp-image-convert-indexed img FS-DITHER MAKE-PALETTE num-colors (gimp-image-convert-indexed img FS-DITHER MAKE-PALETTE num-colors
FALSE FALSE "")) FALSE FALSE ""))
(gimp-palette-set-foreground old-fg) (gimp-context-set-foreground old-fg)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-display-new img))) (gimp-display-new img)))

12
plug-ins/script-fu/scripts/glossy.scm
View file

@ -49,8 +49,8 @@
(old-gradient (car (gimp-gradients-get-gradient))) (old-gradient (car (gimp-gradients-get-gradient)))
(old-patterns (car (gimp-patterns-get-pattern))) (old-patterns (car (gimp-patterns-get-pattern)))
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-context-get-background))))
(script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-resize-from-layer img logo-layer)
(gimp-drawable-set-name grow-me "Grow-me") (gimp-drawable-set-name grow-me "Grow-me")
@ -58,11 +58,11 @@
(gimp-layer-translate grow-me posx posy) (gimp-layer-translate grow-me posx posy)
(gimp-image-add-layer img bg-layer 2) (gimp-image-add-layer img bg-layer 2)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-bucket-fill bg-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) (gimp-edit-bucket-fill bg-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
@ -134,8 +134,8 @@
(gimp-selection-none img))) (gimp-selection-none img)))
(gimp-gradients-set-gradient old-gradient) (gimp-gradients-set-gradient old-gradient)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-palette-set-foreground old-fg))) (gimp-context-set-foreground old-fg)))
(define (script-fu-glossy-logo-alpha img (define (script-fu-glossy-logo-alpha img

18
plug-ins/script-fu/scripts/glowing-logo.scm
View file

@ -15,45 +15,45 @@
(posy (- (cadr (gimp-drawable-offsets logo-layer)))) (posy (- (cadr (gimp-drawable-offsets logo-layer))))
(glow-layer (car (gimp-layer-copy logo-layer TRUE))) (glow-layer (car (gimp-layer-copy logo-layer TRUE)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-context-get-background))))
(script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img glow-layer 1) (gimp-image-add-layer img glow-layer 1)
(gimp-layer-translate glow-layer posx posy) (gimp-layer-translate glow-layer posx posy)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-layer-set-preserve-trans logo-layer TRUE) (gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill logo-layer BACKGROUND-FILL) (gimp-edit-fill logo-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-selection-feather img feather1) (gimp-selection-feather img feather1)
(gimp-palette-set-background '(221 0 0)) (gimp-context-set-background '(221 0 0))
(gimp-edit-fill glow-layer BACKGROUND-FILL) (gimp-edit-fill glow-layer BACKGROUND-FILL)
(gimp-edit-fill glow-layer BACKGROUND-FILL) (gimp-edit-fill glow-layer BACKGROUND-FILL)
(gimp-edit-fill glow-layer BACKGROUND-FILL) (gimp-edit-fill glow-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-selection-feather img feather2) (gimp-selection-feather img feather2)
(gimp-palette-set-background '(232 217 18)) (gimp-context-set-background '(232 217 18))
(gimp-edit-fill glow-layer BACKGROUND-FILL) (gimp-edit-fill glow-layer BACKGROUND-FILL)
(gimp-edit-fill glow-layer BACKGROUND-FILL) (gimp-edit-fill glow-layer BACKGROUND-FILL)
(gimp-selection-layer-alpha logo-layer) (gimp-selection-layer-alpha logo-layer)
(gimp-selection-feather img feather3) (gimp-selection-feather img feather3)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill glow-layer BACKGROUND-FILL) (gimp-edit-fill glow-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-mode logo-layer OVERLAY-MODE) (gimp-layer-set-mode logo-layer OVERLAY-MODE)
(gimp-drawable-set-name glow-layer "Glow Layer") (gimp-drawable-set-name glow-layer "Glow Layer")
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-palette-set-foreground old-fg))) (gimp-context-set-foreground old-fg)))
(define (script-fu-glowing-logo-alpha img (define (script-fu-glowing-logo-alpha img

16
plug-ins/script-fu/scripts/gradient-bevel-logo.scm
View file

@ -31,20 +31,20 @@
(indentY (+ b-size (/ height 8))) (indentY (+ b-size (/ height 8)))
(bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE))) (bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE)))
(blur-layer (car (gimp-layer-new img width height RGBA-IMAGE "Blur" 100 NORMAL-MODE))) (blur-layer (car (gimp-layer-new img width height RGBA-IMAGE "Blur" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-context-get-background))))
(script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img blur-layer 1) (gimp-image-add-layer img blur-layer 1)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer TRUE) (gimp-layer-set-preserve-trans blur-layer TRUE)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-all img) (gimp-selection-all img)
(gimp-edit-fill blur-layer BACKGROUND-FILL) (gimp-edit-fill blur-layer BACKGROUND-FILL)
(gimp-edit-clear blur-layer) (gimp-edit-clear blur-layer)
@ -54,8 +54,8 @@
(gimp-edit-fill blur-layer BACKGROUND-FILL) (gimp-edit-fill blur-layer BACKGROUND-FILL)
(plug-in-gauss-rle 1 img blur-layer bevel-width 1 1) (plug-in-gauss-rle 1 img blur-layer bevel-width 1 1)
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-background '(127 127 127)) (gimp-context-set-background '(127 127 127))
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(gimp-layer-set-preserve-trans logo-layer TRUE) (gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-selection-all img) (gimp-selection-all img)
@ -71,8 +71,8 @@
(gimp-invert blur-layer) (gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0) (gimp-layer-set-opacity blur-layer 50.0)
(gimp-image-set-active-layer img logo-layer) (gimp-image-set-active-layer img logo-layer)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-palette-set-foreground old-fg))) (gimp-context-set-foreground old-fg)))
(define (script-fu-gradient-bevel-logo-alpha img (define (script-fu-gradient-bevel-logo-alpha img
logo-layer logo-layer

12
plug-ins/script-fu/scripts/gradient-example.scm
View file

@ -28,8 +28,8 @@
; Save old foreground and background colors ; Save old foreground and background colors
(old-fg-color (car (gimp-palette-get-foreground))) (old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-palette-get-background))) (old-bg-color (car (gimp-context-get-background)))
; Calculate colors for checkerboard... just like in the gradient editor ; Calculate colors for checkerboard... just like in the gradient editor
@ -41,8 +41,8 @@
; Render background checkerboard ; Render background checkerboard
(gimp-palette-set-foreground (list fg-color fg-color fg-color)) (gimp-context-set-foreground (list fg-color fg-color fg-color))
(gimp-palette-set-background (list bg-color bg-color bg-color)) (gimp-context-set-background (list bg-color bg-color bg-color))
(plug-in-checkerboard 1 img drawable 0 8) (plug-in-checkerboard 1 img drawable 0 8)
; Render gradient ; Render gradient
@ -54,8 +54,8 @@
; Terminate ; Terminate
(gimp-palette-set-foreground old-fg-color) (gimp-context-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color) (gimp-context-set-background old-bg-color)
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-display-new img))) (gimp-display-new img)))

22
plug-ins/script-fu/scripts/hsv-graph.scm
View file

@ -126,7 +126,7 @@
#f)))))) #f))))))
(define (draw-segment img drawable segment limit rgb) (define (draw-segment img drawable segment limit rgb)
(gimp-palette-set-foreground rgb) (gimp-context-set-foreground rgb)
(gimp-airbrush drawable 100 (* 2 limit) (segment-strokes segment))) (gimp-airbrush drawable 100 (* 2 limit) (segment-strokes segment)))
(define red-color '(255 10 10)) (define red-color '(255 10 10))
@ -143,13 +143,13 @@
(define (fill-dot img drawable x y segment color) (define (fill-dot img drawable x y segment color)
(if (fill-segment! segment x y) (if (fill-segment! segment x y)
(begin (begin
(gimp-palette-set-foreground color) (gimp-context-set-foreground color)
(draw-segment img drawable segment (segment-max-size segment) color) (draw-segment img drawable segment (segment-max-size segment) color)
#t) #t)
#f)) #f))
(define (fill-color-band img drawable x scale x-base y-base color) (define (fill-color-band img drawable x scale x-base y-base color)
(gimp-palette-set-foreground color) (gimp-context-set-foreground color)
(gimp-rect-select img (+ x-base (* scale x)) 0 scale y-base CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img (+ x-base (* scale x)) 0 scale y-base CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-bucket-fill drawable FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) (gimp-edit-bucket-fill drawable FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)) (gimp-selection-none img))
@ -250,15 +250,15 @@
(x-base border-size) (x-base border-size)
(y-base (+ gimg-height border-size)) (y-base (+ gimg-height border-size))
(index 0) (index 0)
(old-foreground (car (gimp-palette-get-foreground))) (old-foreground (car (gimp-context-get-foreground)))
(old-background (car (gimp-palette-get-background))) (old-background (car (gimp-context-get-background)))
(old-paint-mode (car (gimp-brushes-get-paint-mode))) (old-paint-mode (car (gimp-brushes-get-paint-mode)))
(old-brush (car (gimp-brushes-get-brush))) (old-brush (car (gimp-brushes-get-brush)))
(old-opacity (car (gimp-brushes-get-opacity)))) (old-opacity (car (gimp-brushes-get-opacity))))
(gimp-image-undo-disable gimg) (gimp-image-undo-disable gimg)
(gimp-image-add-layer gimg bglayer -1) (gimp-image-add-layer gimg bglayer -1)
(gimp-selection-all gimg) (gimp-selection-all gimg)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill bglayer BACKGROUND-FILL) (gimp-edit-fill bglayer BACKGROUND-FILL)
(gimp-image-add-layer gimg hsv-layer -1) (gimp-image-add-layer gimg hsv-layer -1)
(gimp-edit-clear hsv-layer) (gimp-edit-clear hsv-layer)
@ -293,7 +293,7 @@
(lambda (segment color) (lambda (segment color)
(if (< 1 (segment-filled-size segment)) (if (< 1 (segment-filled-size segment))
(begin (begin
(gimp-palette-set-foreground color) (gimp-context-set-foreground color)
(draw-segment gimg hsv-layer segment (segment-filled-size segment) (draw-segment gimg hsv-layer segment (segment-filled-size segment)
color)))) color))))
(list hue-segment saturation-segment value-segment) (list hue-segment saturation-segment value-segment)
@ -302,12 +302,12 @@
(lambda (segment color) (lambda (segment color)
(if (< 1 (segment-filled-size segment)) (if (< 1 (segment-filled-size segment))
(begin (begin
(gimp-palette-set-foreground color) (gimp-context-set-foreground color)
(draw-segment gimg rgb-layer segment (segment-filled-size segment) (draw-segment gimg rgb-layer segment (segment-filled-size segment)
color)))) color))))
(list red-segment green-segment blue-segment) (list red-segment green-segment blue-segment)
(list red-color green-color blue-color)) (list red-color green-color blue-color))
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(let ((text-layer (car (gimp-text-fontname gimg -1 0 0 (let ((text-layer (car (gimp-text-fontname gimg -1 0 0
"Red: Hue, Green: Sat, Blue: Val" "Red: Hue, Green: Sat, Blue: Val"
1 1 12 PIXELS 1 1 12 PIXELS
@ -319,8 +319,8 @@
(gimp-image-set-active-layer gimg bglayer) (gimp-image-set-active-layer gimg bglayer)
(gimp-image-clean-all gimg) (gimp-image-clean-all gimg)
;; return back the state ;; return back the state
(gimp-palette-set-foreground old-foreground) (gimp-context-set-foreground old-foreground)
(gimp-palette-set-foreground old-background) (gimp-context-set-foreground old-background)
(gimp-brushes-set-brush old-brush) (gimp-brushes-set-brush old-brush)
(gimp-brushes-set-paint-mode old-paint-mode) (gimp-brushes-set-paint-mode old-paint-mode)
(gimp-brushes-set-opacity old-opacity) (gimp-brushes-set-opacity old-opacity)

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

@ -28,8 +28,8 @@
GRAY-IMAGE "temp" 100 NORMAL-MODE))) GRAY-IMAGE "temp" 100 NORMAL-MODE)))
(radius (/ font-size 10)) (radius (/ font-size 10))
(prob 0.5) (prob 0.5)
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background))) (old-bg (car (gimp-context-get-background)))
(old-brush (car (gimp-brushes-get-brush))) (old-brush (car (gimp-brushes-get-brush)))
(old-paint-mode (car (gimp-brushes-get-paint-mode)))) (old-paint-mode (car (gimp-brushes-get-paint-mode))))
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
@ -44,15 +44,15 @@
;; get the text shape ;; get the text shape
(gimp-selection-layer-alpha text-layer) (gimp-selection-layer-alpha text-layer)
;; fill it with the specified color ;; fill it with the specified color
(gimp-palette-set-foreground text-color) (gimp-context-set-foreground text-color)
(gimp-edit-fill dist-text-layer FOREGROUND-FILL) (gimp-edit-fill dist-text-layer FOREGROUND-FILL)
;; get the border shape ;; get the border shape
(gimp-selection-border img frame-size) (gimp-selection-border img frame-size)
(gimp-palette-set-background frame-color) (gimp-context-set-background frame-color)
(gimp-edit-fill dist-frame-layer BACKGROUND-FILL) (gimp-edit-fill dist-frame-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
;; now make the distortion data ;; now make the distortion data
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill distortion-layer BACKGROUND-FILL) (gimp-edit-fill distortion-layer BACKGROUND-FILL)
(plug-in-noisify 1 distortion-img distortion-layer FALSE prob prob prob 0.0) (plug-in-noisify 1 distortion-img distortion-layer FALSE prob prob prob 0.0)
(plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1) (plug-in-gauss-rle 1 distortion-img distortion-layer radius 1 1)
@ -72,11 +72,11 @@
distortion-layer distortion-layer 0) distortion-layer distortion-layer 0)
;; Finally, clear the bottom layer (text-layer) ;; Finally, clear the bottom layer (text-layer)
(gimp-selection-all img) (gimp-selection-all img)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill text-layer BACKGROUND-FILL) (gimp-edit-fill text-layer BACKGROUND-FILL)
;; post processing ;; post processing
(gimp-palette-set-foreground old-fg) (gimp-context-set-foreground old-fg)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-brushes-set-brush old-brush) (gimp-brushes-set-brush old-brush)
(gimp-brushes-set-paint-mode old-paint-mode) (gimp-brushes-set-paint-mode old-paint-mode)
(gimp-image-set-active-layer img dist-text-layer) (gimp-image-set-active-layer img dist-text-layer)

14
plug-ins/script-fu/scripts/image-structure.scm
View file

@ -59,8 +59,8 @@
(new-width (+ (* 2 border) (+ old-width (* 2 shear-length)))) (new-width (+ (* 2 border) (+ old-width (* 2 shear-length))))
(new-height (+ (* 2 border) (+ old-height (* space (- num-of-layers 1))))) (new-height (+ (* 2 border) (+ old-height (* space (- num-of-layers 1)))))
(new-bg #f) (new-bg #f)
(old-foreground (car (gimp-palette-get-foreground))) (old-foreground (car (gimp-context-get-foreground)))
(old-background (car (gimp-palette-get-background))) (old-background (car (gimp-context-get-background)))
(layer-names '()) (layer-names '())
(layer #f) (layer #f)
(index 0)) (index 0))
@ -84,7 +84,7 @@
(gimp-selection-layer-alpha layer) (gimp-selection-layer-alpha layer)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-layer-set-preserve-trans layer FALSE) (gimp-layer-set-preserve-trans layer FALSE)
(gimp-palette-set-foreground padding-color) (gimp-context-set-foreground padding-color)
(gimp-edit-bucket-fill layer FG-BUCKET-FILL NORMAL-MODE (gimp-edit-bucket-fill layer FG-BUCKET-FILL NORMAL-MODE
padding-opacity 0 0 0 0) padding-opacity 0 0 0 0)
(gimp-selection-none img))) (gimp-selection-none img)))
@ -101,12 +101,12 @@
(set! new-bg (car (gimp-layer-new img new-width new-height RGBA-IMAGE (set! new-bg (car (gimp-layer-new img new-width new-height RGBA-IMAGE
"New Background" 100 NORMAL-MODE))) "New Background" 100 NORMAL-MODE)))
(gimp-image-add-layer img new-bg num-of-layers) (gimp-image-add-layer img new-bg num-of-layers)
(gimp-palette-set-background background-color) (gimp-context-set-background background-color)
(gimp-edit-fill new-bg BACKGROUND-FILL))) (gimp-edit-fill new-bg BACKGROUND-FILL)))
(gimp-image-set-active-layer img (aref layers 0)) (gimp-image-set-active-layer img (aref layers 0))
(if (= TRUE with-layer-name?) (if (= TRUE with-layer-name?)
(let ((text-layer #f)) (let ((text-layer #f))
(gimp-palette-set-foreground '(255 255 255)) (gimp-context-set-foreground '(255 255 255))
(set! index 0) (set! index 0)
(set! layer-names (nreverse layer-names)) (set! layer-names (nreverse layer-names))
(while (< index num-of-layers) (while (< index num-of-layers)
@ -118,8 +118,8 @@
(set! index (+ index 1)) (set! index (+ index 1))
(set! layer-names (cdr layer-names))))) (set! layer-names (cdr layer-names)))))
(gimp-image-set-active-layer img new-bg) (gimp-image-set-active-layer img new-bg)
(gimp-palette-set-background old-background) (gimp-context-set-background old-background)
(gimp-palette-set-foreground old-foreground) (gimp-context-set-foreground old-foreground)
(set! script-fu-show-image-structure-new-image? new-image?) (set! script-fu-show-image-structure-new-image? new-image?)
(set! script-fu-show-image-structure-space space) (set! script-fu-show-image-structure-space space)
(set! script-fu-show-image-structure-shear-length shear-length) (set! script-fu-show-image-structure-shear-length shear-length)

4
plug-ins/script-fu/scripts/lava.scm
View file

@ -37,7 +37,7 @@
(image-width (car (gimp-image-width image))) (image-width (car (gimp-image-width image)))
(image-height (car (gimp-image-height image))) (image-height (car (gimp-image-height image)))
(old-gradient (car (gimp-gradients-get-gradient))) (old-gradient (car (gimp-gradients-get-gradient)))
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-context-get-background))))
(gimp-image-undo-disable image) (gimp-image-undo-disable image)
(gimp-layer-add-alpha drawable) (gimp-layer-add-alpha drawable)
@ -88,7 +88,7 @@
(plug-in-gradmap 1 image active-layer) (plug-in-gradmap 1 image active-layer)
(gimp-gradients-set-gradient old-gradient) (gimp-gradients-set-gradient old-gradient)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(if (= keep-selection FALSE) (if (= keep-selection FALSE)
(gimp-selection-none image)) (gimp-selection-none image))

48
plug-ins/script-fu/scripts/mkbrush.scm
View file

@ -30,8 +30,8 @@
; Save old foregound and background colors ; Save old foregound and background colors
(old-fg-color (car (gimp-palette-get-foreground))) (old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-palette-get-background))) (old-bg-color (car (gimp-context-get-background)))
; construct variables ; construct variables
@ -54,9 +54,9 @@
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
; Actual code starts... ; Actual code starts...
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL) (gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-rect-select img 0 0 width height CHANNEL-OP-REPLACE FALSE 0) (gimp-rect-select img 0 0 width height CHANNEL-OP-REPLACE FALSE 0)
(gimp-edit-fill drawable BACKGROUND-FILL) (gimp-edit-fill drawable BACKGROUND-FILL)
@ -68,8 +68,8 @@
; Terminate, restoring old bg. ; Terminate, restoring old bg.
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground old-fg-color) (gimp-context-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color) (gimp-context-set-background old-bg-color)
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-image-delete img) (gimp-image-delete img)
) )
@ -102,8 +102,8 @@
; Save old foregound and background colors ; Save old foregound and background colors
(old-fg-color (car (gimp-palette-get-foreground))) (old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-palette-get-background))) (old-bg-color (car (gimp-context-get-background)))
(filename (string-append gimp-directory (filename (string-append gimp-directory
"/brushes/r" "/brushes/r"
@ -128,9 +128,9 @@
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
; Actual code starts... ; Actual code starts...
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL) (gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(cond ((< 0 feathering) (cond ((< 0 feathering)
(gimp-rect-select img (/ feathering 2) (/ feathering 2) width height CHANNEL-OP-REPLACE TRUE feathering)) (gimp-rect-select img (/ feathering 2) (/ feathering 2) width height CHANNEL-OP-REPLACE TRUE feathering))
((>= 0 feathering) ((>= 0 feathering)
@ -145,8 +145,8 @@
; Terminate, restoring old bg. ; Terminate, restoring old bg.
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground old-fg-color) (gimp-context-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color) (gimp-context-set-background old-bg-color)
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-image-delete img) (gimp-image-delete img)
) )
@ -177,8 +177,8 @@
; Save old foregound and background colors ; Save old foregound and background colors
(old-fg-color (car (gimp-palette-get-foreground))) (old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-palette-get-background))) (old-bg-color (car (gimp-context-get-background)))
; Construct variables... ; Construct variables...
@ -201,9 +201,9 @@
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
; Actual code starts... ; Actual code starts...
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL) (gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-ellipse-select img 0 0 width height CHANNEL-OP-REPLACE TRUE FALSE 0) (gimp-ellipse-select img 0 0 width height CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-fill drawable BACKGROUND-FILL) (gimp-edit-fill drawable BACKGROUND-FILL)
@ -215,8 +215,8 @@
; Terminate, restoring old bg. ; Terminate, restoring old bg.
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground old-fg-color) (gimp-context-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color) (gimp-context-set-background old-bg-color)
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-image-delete img) (gimp-image-delete img)
) )
@ -249,8 +249,8 @@
; Save old foregound and background colors ; Save old foregound and background colors
(old-fg-color (car (gimp-palette-get-foreground))) (old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-palette-get-background))) (old-bg-color (car (gimp-context-get-background)))
; Construct variables... ; Construct variables...
(filename (string-append gimp-directory (filename (string-append gimp-directory
@ -277,9 +277,9 @@
(gimp-image-add-layer img drawable 0) (gimp-image-add-layer img drawable 0)
; Actual code starts... ; Actual code starts...
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL) (gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(cond ((> feathering 0) ; keep from taking out gimp with stupid entry. (cond ((> feathering 0) ; keep from taking out gimp with stupid entry.
(gimp-ellipse-select img (/ feathering 2) (/ feathering 2) width height CHANNEL-OP-REPLACE TRUE TRUE feathering)) (gimp-ellipse-select img (/ feathering 2) (/ feathering 2) width height CHANNEL-OP-REPLACE TRUE TRUE feathering))
((<= feathering 0) ((<= feathering 0)
@ -294,8 +294,8 @@
; Terminate, restoring old bg. ; Terminate, restoring old bg.
(gimp-selection-none img) (gimp-selection-none img)
(gimp-palette-set-foreground old-fg-color) (gimp-context-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color) (gimp-context-set-background old-bg-color)
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-image-delete img) (gimp-image-delete img)
) )

20
plug-ins/script-fu/scripts/neon-logo.scm
View file

@ -79,8 +79,8 @@
(car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 NORMAL-MODE)) (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 NORMAL-MODE))
0)) 0))
(selection 0) (selection 0)
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-context-get-background))))
(script-fu-util-image-resize-from-layer img tube-layer) (script-fu-util-image-resize-from-layer img tube-layer)
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(if (not (= shadow 0)) (if (not (= shadow 0))
@ -89,7 +89,7 @@
(gimp-edit-clear shadow-layer))) (gimp-edit-clear shadow-layer)))
(gimp-image-add-layer img glow-layer 1) (gimp-image-add-layer img glow-layer 1)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-layer-alpha tube-layer) (gimp-selection-layer-alpha tube-layer)
(set! selection (car (gimp-selection-save img))) (set! selection (car (gimp-selection-save img)))
(gimp-selection-none img) (gimp-selection-none img)
@ -97,14 +97,14 @@
(gimp-edit-clear glow-layer) (gimp-edit-clear glow-layer)
(gimp-edit-clear tube-layer) (gimp-edit-clear tube-layer)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-load selection) (gimp-selection-load selection)
(gimp-palette-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill tube-layer BACKGROUND-FILL) (gimp-edit-fill tube-layer BACKGROUND-FILL)
(gimp-selection-shrink img shrink) (gimp-selection-shrink img shrink)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill selection BACKGROUND-FILL) (gimp-edit-fill selection BACKGROUND-FILL)
(gimp-edit-clear tube-layer) (gimp-edit-clear tube-layer)
@ -130,7 +130,7 @@
(gimp-layer-set-preserve-trans tube-layer 1) (gimp-layer-set-preserve-trans tube-layer 1)
(gimp-selection-layer-alpha tube-layer) (gimp-selection-layer-alpha tube-layer)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-palette-set-background glow-color) (gimp-context-set-background glow-color)
(gimp-edit-fill tube-layer BACKGROUND-FILL) (gimp-edit-fill tube-layer BACKGROUND-FILL)
(gimp-selection-none img) (gimp-selection-none img)
@ -153,13 +153,13 @@
(gimp-selection-shrink img shadow-shrink) (gimp-selection-shrink img shadow-shrink)
(gimp-selection-feather img shadow-feather) (gimp-selection-feather img shadow-feather)
(gimp-selection-translate img shadow-offx shadow-offy) (gimp-selection-translate img shadow-offx shadow-offy)
(gimp-palette-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL))) (gimp-edit-fill shadow-layer BACKGROUND-FILL)))
(gimp-selection-none img) (gimp-selection-none img)
(gimp-drawable-set-name tube-layer "Neon Tubes") (gimp-drawable-set-name tube-layer "Neon Tubes")
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-palette-set-foreground old-fg) (gimp-context-set-foreground old-fg)
(gimp-image-remove-channel img selection))) (gimp-image-remove-channel img selection)))
(define (script-fu-neon-logo-alpha img (define (script-fu-neon-logo-alpha img

14
plug-ins/script-fu/scripts/news-text.scm
View file

@ -28,25 +28,25 @@
(text-layer (car (gimp-layer-new img width height RGBA-IMAGE "Text layer" 100 NORMAL-MODE))) (text-layer (car (gimp-layer-new img width height RGBA-IMAGE "Text layer" 100 NORMAL-MODE)))
(text-mask 0) (text-mask 0)
(grey (/ (* density 255) 100)) (grey (/ (* density 255) 100))
(old-fg (car (gimp-palette-get-foreground))) (old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-palette-get-background)))) (old-bg (car (gimp-context-get-background))))
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-image-add-layer img bg-layer 1) (gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img text-layer -1) (gimp-image-add-layer img text-layer -1)
(gimp-palette-set-background bg-color) (gimp-context-set-background bg-color)
(gimp-edit-clear bg-layer) (gimp-edit-clear bg-layer)
(gimp-edit-clear text-layer) (gimp-edit-clear text-layer)
(gimp-palette-set-foreground text-color) (gimp-context-set-foreground text-color)
(gimp-floating-sel-anchor (car (gimp-text-fontname img text-layer (/ (+ 20 blur-radius) 2) (/ (+ 20 blur-radius) 2) string 0 TRUE font-size PIXELS font))) (gimp-floating-sel-anchor (car (gimp-text-fontname img text-layer (/ (+ 20 blur-radius) 2) (/ (+ 20 blur-radius) 2) string 0 TRUE font-size PIXELS font)))
(set! text-mask (car (gimp-layer-create-mask text-layer ADD-ALPHA-MASK))) (set! text-mask (car (gimp-layer-create-mask text-layer ADD-ALPHA-MASK)))
(gimp-layer-add-mask text-layer text-mask) (gimp-layer-add-mask text-layer text-mask)
(gimp-selection-layer-alpha text-layer) (gimp-selection-layer-alpha text-layer)
(gimp-palette-set-background (list grey grey grey)) (gimp-context-set-background (list grey grey grey))
(gimp-edit-fill text-mask BACKGROUND-FILL) (gimp-edit-fill text-mask BACKGROUND-FILL)
(gimp-selection-clear img) (gimp-selection-clear img)
(if (> blur-radius 0) (if (> blur-radius 0)
@ -58,8 +58,8 @@
(gimp-edit-fill text-layer FOREGROUND-FILL) (gimp-edit-fill text-layer FOREGROUND-FILL)
(gimp-layer-remove-mask text-layer MASK-APPLY) (gimp-layer-remove-mask text-layer MASK-APPLY)
(gimp-palette-set-foreground old-fg) (gimp-context-set-foreground old-fg)
(gimp-palette-set-background old-bg) (gimp-context-set-background old-bg)
(gimp-image-undo-enable img) (gimp-image-undo-enable img)
(gimp-display-new img))) (gimp-display-new img)))

Some files were not shown because too many files have changed in this diff Show more