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

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

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
Show Stats 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>
* 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 \
misc_cmds.c \
paint_tools_cmds.c \
palette_cmds.c \
palette_select_cmds.c \
palettes_cmds.c \
parasite_cmds.c \

232
app/pdb/context_cmds.c
View File

@ -23,6 +23,8 @@
#include <glib-object.h>
#include "libgimpcolor/gimpcolor.h"
#include "pdb-types.h"
#include "procedural_db.h"
@ -33,12 +35,24 @@
static ProcRecord context_push_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
register_context_procs (Gimp *gimp)
{
procedural_db_register (gimp, &context_push_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 *
@ -104,3 +118,221 @@ static ProcRecord context_pop_proc =
NULL,
{ { 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[] =
{
{ "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "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" }
{ "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "gimp_palette_get_foreground", "gimp_context_get_foreground" },
{ "gimp_palette_get_background", "gimp_context_get_background" },
{ "gimp_palette_set_foreground", "gimp_context_set_foreground" },
{ "gimp_palette_set_background", "gimp_context_set_background" },
{ "gimp_palette_set_default_colors", "gimp_context_set_default_colors" },
{ "gimp_palette_swap_colors", "gimp_context_swap_colors" },
{ "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));

82
app/pdb/gimppdb.c
View File

@ -102,44 +102,50 @@ procedural_db_init_procs (Gimp *gimp,
}
compat_procs[] =
{
{ "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "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" }
{ "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "gimp_palette_get_foreground", "gimp_context_get_foreground" },
{ "gimp_palette_get_background", "gimp_context_get_background" },
{ "gimp_palette_set_foreground", "gimp_context_set_foreground" },
{ "gimp_palette_set_background", "gimp_context_set_background" },
{ "gimp_palette_set_default_colors", "gimp_context_set_default_colors" },
{ "gimp_palette_swap_colors", "gimp_context_swap_colors" },
{ "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));

82
app/pdb/gimpprocedure.c
View File

@ -102,44 +102,50 @@ procedural_db_init_procs (Gimp *gimp,
}
compat_procs[] =
{
{ "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "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" }
{ "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "gimp_palette_get_foreground", "gimp_context_get_foreground" },
{ "gimp_palette_get_background", "gimp_context_get_background" },
{ "gimp_palette_set_foreground", "gimp_context_set_foreground" },
{ "gimp_palette_set_background", "gimp_context_set_background" },
{ "gimp_palette_set_default_colors", "gimp_context_set_default_colors" },
{ "gimp_palette_swap_colors", "gimp_context_swap_colors" },
{ "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));

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_misc_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_palettes_procs (Gimp *gimp);
void register_parasite_procs (Gimp *gimp);
@ -95,66 +94,63 @@ internal_procs_init (Gimp *gimp,
(* status_callback) (NULL, _("Context"), 0.094);
register_context_procs (gimp);
(* status_callback) (NULL, _("Convert"), 0.099);
(* status_callback) (NULL, _("Convert"), 0.115);
register_convert_procs (gimp);
(* status_callback) (NULL, _("Display procedures"), 0.107);
(* status_callback) (NULL, _("Display procedures"), 0.123);
register_display_procs (gimp);
(* status_callback) (NULL, _("Drawable procedures"), 0.117);
(* status_callback) (NULL, _("Drawable procedures"), 0.133);
register_drawable_procs (gimp);
(* status_callback) (NULL, _("Edit procedures"), 0.201);
(* status_callback) (NULL, _("Edit procedures"), 0.217);
register_edit_procs (gimp);
(* status_callback) (NULL, _("File Operations"), 0.222);
(* status_callback) (NULL, _("File Operations"), 0.238);
register_fileops_procs (gimp);
(* status_callback) (NULL, _("Floating selections"), 0.245);
(* status_callback) (NULL, _("Floating selections"), 0.261);
register_floating_sel_procs (gimp);
(* status_callback) (NULL, _("Font UI"), 0.261);
(* status_callback) (NULL, _("Font UI"), 0.277);
register_font_select_procs (gimp);
(* status_callback) (NULL, _("Fonts"), 0.269);
(* status_callback) (NULL, _("Fonts"), 0.285);
register_fonts_procs (gimp);
(* status_callback) (NULL, _("Gimprc procedures"), 0.274);
(* status_callback) (NULL, _("Gimprc procedures"), 0.29);
register_gimprc_procs (gimp);
(* status_callback) (NULL, _("Gradient"), 0.29);
(* status_callback) (NULL, _("Gradient"), 0.305);
register_gradient_edit_procs (gimp);
(* status_callback) (NULL, _("Gradient UI"), 0.35);
(* status_callback) (NULL, _("Gradient UI"), 0.366);
register_gradient_select_procs (gimp);
(* status_callback) (NULL, _("Gradients"), 0.358);
(* status_callback) (NULL, _("Gradients"), 0.373);
register_gradients_procs (gimp);
(* status_callback) (NULL, _("Guide procedures"), 0.386);
(* status_callback) (NULL, _("Guide procedures"), 0.402);
register_guides_procs (gimp);
(* status_callback) (NULL, _("Help procedures"), 0.402);
(* status_callback) (NULL, _("Help procedures"), 0.418);
register_help_procs (gimp);
(* status_callback) (NULL, _("Image"), 0.405);
(* status_callback) (NULL, _("Image"), 0.42);
register_image_procs (gimp);
(* status_callback) (NULL, _("Layer"), 0.567);
(* status_callback) (NULL, _("Layer"), 0.582);
register_layer_procs (gimp);
(* status_callback) (NULL, _("Message procedures"), 0.634);
(* status_callback) (NULL, _("Message procedures"), 0.65);
register_message_procs (gimp);
(* status_callback) (NULL, _("Miscellaneous"), 0.642);
(* status_callback) (NULL, _("Miscellaneous"), 0.658);
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);
(* status_callback) (NULL, _("Palette"), 0.687);
register_palette_procs (gimp);
(* status_callback) (NULL, _("Palette UI"), 0.702);
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[] =
{
{ "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "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" }
{ "gimp_blend", "gimp_edit_blend" },
{ "gimp_brushes_list", "gimp_brushes_get_list" },
{ "gimp_bucket_fill", "gimp_edit_bucket_fill" },
{ "gimp_channel_delete", "gimp_drawable_delete" },
{ "gimp_channel_get_name", "gimp_drawable_get_name" },
{ "gimp_channel_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_channel_get_visible", "gimp_drawable_get_visible" },
{ "gimp_channel_set_name", "gimp_drawable_set_name" },
{ "gimp_channel_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_channel_set_visible", "gimp_drawable_set_visible" },
{ "gimp_color_picker", "gimp_image_pick_color" },
{ "gimp_convert_grayscale", "gimp_image_convert_grayscale" },
{ "gimp_convert_indexed", "gimp_image_convert_indexed" },
{ "gimp_convert_rgb", "gimp_image_convert_rgb" },
{ "gimp_crop", "gimp_image_crop" },
{ "gimp_drawable_bytes", "gimp_drawable_bpp" },
{ "gimp_drawable_image", "gimp_drawable_get_image" },
{ "gimp_gradients_get_active", "gimp_gradients_get_gradient" },
{ "gimp_gradients_set_active", "gimp_gradients_set_gradient" },
{ "gimp_image_active_drawable", "gimp_image_get_active_drawable" },
{ "gimp_image_floating_selection", "gimp_image_get_floating_sel" },
{ "gimp_layer_delete", "gimp_drawable_delete" },
{ "gimp_layer_get_linked", "gimp_drawable_get_linked" },
{ "gimp_layer_get_name", "gimp_drawable_get_name" },
{ "gimp_layer_get_tattoo", "gimp_drawable_get_tattoo" },
{ "gimp_layer_get_visible", "gimp_drawable_get_visible" },
{ "gimp_layer_mask", "gimp_layer_get_mask" },
{ "gimp_layer_set_linked", "gimp_drawable_set_linked" },
{ "gimp_layer_set_name", "gimp_drawable_set_name" },
{ "gimp_layer_set_tattoo", "gimp_drawable_set_tattoo" },
{ "gimp_layer_set_visible", "gimp_drawable_set_visible" },
{ "gimp_palette_get_foreground", "gimp_context_get_foreground" },
{ "gimp_palette_get_background", "gimp_context_get_background" },
{ "gimp_palette_set_foreground", "gimp_context_set_foreground" },
{ "gimp_palette_set_background", "gimp_context_set_background" },
{ "gimp_palette_set_default_colors", "gimp_context_set_default_colors" },
{ "gimp_palette_swap_colors", "gimp_context_swap_colors" },
{ "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));

7
libgimp/Makefile.am
View File

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

1
libgimp/gimp.h
View File

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

1
libgimp/gimp_pdb.h
View File

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

197
libgimp/gimpcontext_pdb.c
View File

@ -85,3 +85,200 @@ gimp_context_pop (void)
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 */
gboolean gimp_context_push (void);
gboolean gimp_context_pop (void);
gboolean gimp_context_push (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

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

@ -1,7 +1,7 @@
/* LIBGIMP - The GIMP Library
* 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
* modify it under the terms of the GNU Lesser General Public
@ -19,8 +19,6 @@
* Boston, MA 02111-1307, USA.
*/
/* NOTE: This file is autogenerated by pdbgen.pl */
#include "config.h"
#include "gimp.h"
@ -40,22 +38,7 @@
gboolean
gimp_palette_get_foreground (GimpRGB *foreground)
{
GimpParam *return_vals;
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;
return gimp_context_get_foreground (foreground);
}
/**
@ -73,22 +56,7 @@ gimp_palette_get_foreground (GimpRGB *foreground)
gboolean
gimp_palette_get_background (GimpRGB *background)
{
GimpParam *return_vals;
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;
return gimp_context_get_background (background);
}
/**
@ -106,20 +74,7 @@ gimp_palette_get_background (GimpRGB *background)
gboolean
gimp_palette_set_foreground (const GimpRGB *foreground)
{
GimpParam *return_vals;
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;
return gimp_context_set_foreground (foreground);
}
/**
@ -138,20 +93,7 @@ gimp_palette_set_foreground (const GimpRGB *foreground)
gboolean
gimp_palette_set_background (const GimpRGB *background)
{
GimpParam *return_vals;
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;
return gimp_context_set_background (background);
}
/**
@ -168,19 +110,7 @@ gimp_palette_set_background (const GimpRGB *background)
gboolean
gimp_palette_set_default_colors (void)
{
GimpParam *return_vals;
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;
return gimp_context_set_default_colors ();
}
/**
@ -197,17 +127,5 @@ gimp_palette_set_default_colors (void)
gboolean
gimp_palette_swap_colors (void)
{
GimpParam *return_vals;
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;
return gimp_context_swap_colors ();
}

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

@ -1,7 +1,7 @@
/* LIBGIMP - The GIMP Library
* 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
* modify it under the terms of the GNU Lesser General Public
@ -19,15 +19,14 @@
* Boston, MA 02111-1307, USA.
*/
/* NOTE: This file is autogenerated by pdbgen.pl */
#ifndef __GIMP_PALETTE_PDB_H__
#define __GIMP_PALETTE_PDB_H__
#ifndef __GIMP_PALETTE_H__
#define __GIMP_PALETTE_H__
G_BEGIN_DECLS
/* 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_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_swap_colors (void);
#endif /* GIMP_DISABLE_DEPRECATED */
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));
gimp_widgets_init (gimp_ui_help_func,
gimp_palette_get_foreground,
gimp_palette_get_background,
gimp_context_get_foreground,
gimp_context_get_background,
gimp_ensure_modules);
if (! gimp_show_tool_tips ())

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

@ -374,7 +374,7 @@ image_setup (GimpDrawable *drawable,
}
else
{
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
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
{
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
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 alphaval;
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
gimp_rgb_get_uchar (&background,
&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;
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
if (bvals.bg_trans)
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_width, sel_height;
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
if (bvals.bg_trans)
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)
{
gimp_palette_set_foreground (&result_color);
gimp_context_set_foreground (&result_color);
}
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;
GimpRGB color;
gimp_palette_get_background (&color);
gimp_context_get_background (&color);
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);
if (cvals.size < 1)

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

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

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

@ -350,7 +350,7 @@ cubism (GimpDrawable *drawable)
{
GimpRGB color;
gimp_palette_get_background (&color);
gimp_context_get_background (&color);
gimp_rgb_set_alpha (&color, 0.0);
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) */
gimp_get_data ("plug_in_exchange", &xargs);
/* initialize using foreground color */
gimp_palette_get_foreground (&xargs.from);
gimp_context_get_foreground (&xargs.from);
if (! exchange_dialog ())
return;
@ -203,7 +203,7 @@ run (const gchar *name,
* run with the current foreground as 'from'
* color, making ALT-F somewhat more useful.
*/
gimp_palette_get_foreground (&xargs.from);
gimp_context_get_foreground (&xargs.from);
break;
case GIMP_RUN_NONINTERACTIVE:

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

@ -379,7 +379,7 @@ film (void)
tile_height = gimp_tile_height ();
/* Save foreground colour */
gimp_palette_get_foreground (&foreground);
gimp_context_get_foreground (&foreground);
if (filmvals.keep_height) /* Search maximum picture height */
{
@ -519,7 +519,7 @@ film (void)
if ((number_height > 0) &&
(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])
draw_number (layer_ID_dst, filmvals.number_start + picture_count,
@ -531,7 +531,7 @@ film (void)
film_height - (hole_offset + number_height)/2,
number_height);
gimp_palette_set_foreground (&foreground);
gimp_context_set_foreground (&foreground);
}
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));
/* Restore foreground */
gimp_palette_set_foreground (&foreground);
gimp_context_set_foreground (&foreground);
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:
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);
for (i = 0; i < colors; i++)

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

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

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

@ -408,8 +408,8 @@ run (const gchar *name,
break;
}
gimp_palette_get_foreground (plvals.colors);
gimp_palette_get_background (plvals.colors + 1);
gimp_context_get_foreground (plvals.colors);
gimp_context_get_background (plvals.colors + 1);
gimp_rgb_set (plvals.colors + 2, 0.0, 0.0, 0.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_palette_get_foreground (plvals.colors);
gimp_palette_get_background (plvals.colors + 1);
gimp_context_get_foreground (plvals.colors);
gimp_context_get_background (plvals.colors + 1);
if (!dialog (param[2].data.d_drawable))
break;

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

@ -318,7 +318,7 @@ mblur_linear (GimpDrawable *drawable,
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);
progress = 0;
@ -511,7 +511,7 @@ mblur_radial (GimpDrawable *drawable,
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);
progress = 0;
@ -676,7 +676,7 @@ mblur_zoom (GimpDrawable *drawable,
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);
progress = 0;

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

@ -657,7 +657,7 @@ mng_save_image (const gchar *filename,
GimpRGB bgcolor;
guchar red, green, blue;
gimp_palette_get_background(&bgcolor);
gimp_context_get_background(&bgcolor);
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)

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

@ -465,10 +465,10 @@ mosaic (GimpDrawable *drawable)
break;
case FG_BG:
gimp_palette_get_foreground (&color);
gimp_context_get_foreground (&color);
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);
break;
}

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

@ -683,7 +683,7 @@ filter (void)
break;
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]);
pixel[3] = 255;
for (y = clear_y0; y < clear_y1; y++)
@ -700,7 +700,7 @@ filter (void)
break;
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]);
pixel[3] = 255;
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;
gimp_palette_get_background (&color);
gimp_context_get_background (&color);
gimp_rgb_get_uchar (&color, &red, &green, &blue);
background.index = 0;

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

@ -357,7 +357,7 @@ polarize (void)
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_progress_init (_("Polarizing..."));
@ -726,7 +726,7 @@ dialog_update_preview (void)
guchar *buffer;
guchar k;
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
gimp_rgb_set_alpha (&background, 0.0);
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;
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
gimp_rgb_get_uchar (&background, &bgred, &bggreen, &bgblue);
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);
break;
case USE_FG_BG:
gimp_palette_get_background (&color1);
gimp_palette_get_foreground (&color2);
gimp_context_get_background (&color1);
gimp_context_get_foreground (&color2);
break;
}
}

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

@ -935,12 +935,12 @@ fspike (GimpPixelRgn *src_rgn,
break;
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]);
break;
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]);
break;
}

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

@ -464,7 +464,7 @@ value_propagate_body (gint drawable_id)
best = g_new (guchar, bytes);
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);
/* start real job */
@ -918,7 +918,7 @@ initialize_foreground (GimpImageBaseType image_type,
{
*tmp = (void *) g_new (guchar, 3);
ch = (guchar *)*tmp;
gimp_palette_get_foreground (&foreground);
gimp_context_get_foreground (&foreground);
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);
ch = (guchar *)*tmp;
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
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 ();
/* get currently selected foreground pixel color */
gimp_palette_get_foreground (&color);
gimp_context_get_foreground (&color);
gimp_rgb_get_uchar (&color,
&color_pixel[0],
&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);
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 (pfb, &background);
@ -732,7 +732,7 @@ dialog_update_preview (void)
guchar outside[4];
GimpRGB background;
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
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)
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))
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);
style->name = g_strdup (name);
gimp_palette_get_foreground (&style->foreground);
gimp_palette_get_background (&style->background);
gimp_context_get_foreground (&style->foreground);
gimp_context_get_background (&style->background);
style->brush_name = (gchar *) gimp_brushes_get_brush (&style->brush_width,
&style->brush_height,
&style->brush_spacing);

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

@ -634,7 +634,7 @@ save_image (const gchar *filename,
to_frame = nframes;
}
gimp_palette_get_background (&background);
gimp_context_get_background (&background);
gimp_rgb_get_uchar (&background, &red, &green, &blue);
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);
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);
band_y = 0;
@ -2449,7 +2449,7 @@ ifs_compose_set_defaults (void)
gint i;
GimpRGB color;
gimp_palette_get_foreground (&color);
gimp_context_get_foreground (&color);
ifsvals.aspect_ratio =
(gdouble)ifsD->drawable_height / ifsD->drawable_width;
@ -2739,7 +2739,7 @@ ifs_compose_new_callback (GtkWidget *widget,
undo_begin ();
gimp_palette_get_foreground (&color);
gimp_context_get_foreground (&color);
elem = aff_element_new (0.5, 0.5 * height / width, &color,
++count_for_naming);
@ -2868,7 +2868,7 @@ ifs_compose_preview (void)
if (!ifsD->preview_data)
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);
ptr = ifsD->preview_data;

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

@ -42,8 +42,8 @@ get_colors (GimpDrawable *drawable,
GimpRGB foreground;
GimpRGB background;
gimp_palette_get_foreground (&foreground);
gimp_palette_get_background (&background);
gimp_context_get_foreground (&foreground);
gimp_context_get_background (&background);
fg[0] = fg[1] = fg[2] = fg[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 */
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_palette_get_background (&color);
gimp_context_get_background (&color);
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;
guchar r, g, b;
gimp_palette_get_background(&colour);
gimp_context_get_background(&colour);
gimp_rgb_get_uchar(&colour, &r, &g, &b);
return Py_BuildValue("(iii)", (int)r, (int)g, (int)b);
}
@ -674,7 +674,7 @@ pygimp_get_foreground(PyObject *self)
GimpRGB colour;
guchar r, g, b;
gimp_palette_get_foreground(&colour);
gimp_context_get_foreground(&colour);
gimp_rgb_get_uchar(&colour, &r, &g, &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);
b = CLAMP(b, 0, 255);
gimp_rgb_set_uchar(&colour, r, g, b);
gimp_palette_set_background(&colour);
gimp_context_set_background(&colour);
Py_INCREF(Py_None);
return Py_None;
}
@ -712,7 +712,7 @@ pygimp_set_foreground(PyObject *self, PyObject *args)
g = CLAMP(g, 0, 255);
b = CLAMP(b, 0, 255);
gimp_rgb_set_uchar(&colour, r, g, b);
gimp_palette_set_foreground(&colour);
gimp_context_set_foreground(&colour);
Py_INCREF(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)
(gimp-image-add-layer img pattern 1)
(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-clear pattern)
(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-layer-set-preserve-trans logo-layer FALSE)
(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-palette-set-background backcolor)
(gimp-context-set-background backcolor)
(gimp-edit-fill drawable1 BACKGROUND-FILL)
(let* (
@ -83,13 +83,13 @@
(gimp-image-undo-disable temp-img)
(gimp-image-add-layer temp-img temp-draw 0)
(gimp-image-add-layer temp-img temp-draw2 0)
(gimp-palette-set-background backcolor)
(gimp-context-set-background backcolor)
(gimp-edit-fill temp-draw BACKGROUND-FILL)
(gimp-edit-fill temp-draw2 BACKGROUND-FILL)
;weird aint it
(gimp-palette-set-background begincolor)
(gimp-palette-set-foreground endcolor)
(gimp-context-set-background begincolor)
(gimp-context-set-foreground endcolor)
(center-ellipse temp-img size size outer-radius outer-radius
CHANNEL-OP-REPLACE TRUE FALSE 0)
@ -181,7 +181,7 @@
;just to look a little better
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-context-set-background backcolor)
(gimp-edit-fill layer-one BACKGROUND-FILL)
(gimp-selection-none img)

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

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

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

@ -114,7 +114,7 @@
height
xsize
ysize)
(gimp-palette-set-background (adjcolour colour dvalue))
(gimp-context-set-background (adjcolour colour dvalue))
(gimp-free-select img
10
(gen_top_array xsize ysize owidth oheight width height)
@ -123,7 +123,7 @@
0
0.0)
(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
10
(gen_left_array xsize ysize owidth oheight width height)
@ -132,7 +132,7 @@
0
0.0)
(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
10
(gen_right_array xsize ysize owidth oheight width height)
@ -142,7 +142,7 @@
0.0)
(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
10
(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-palette-set-foreground '(103 103 103))
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-foreground '(103 103 103))
(gimp-context-set-background '(0 0 0))
(gimp-edit-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
@ -125,7 +125,7 @@
0 0 size size)
(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-selection-none img)
@ -133,7 +133,7 @@
(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)
(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-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-clear glow-layer)
(gimp-edit-clear ruler-layer)
@ -57,15 +57,15 @@
(gimp-rect-select img
(/ height 2) (/ height 2)
length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground '(79 79 79))
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-foreground '(79 79 79))
(gimp-context-set-background '(0 0 0))
(gimp-edit-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 height height)
(gimp-palette-set-foreground glow-color)
(gimp-context-set-foreground glow-color)
(gimp-selection-grow img border)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(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-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-clear glow-layer)
(gimp-edit-clear bullet-layer)
@ -67,8 +67,8 @@
CHANNEL-OP-REPLACE TRUE 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-palette-set-background '(0 0 0))
(gimp-context-set-foreground '(90 90 90))
(gimp-context-set-background '(0 0 0))
(gimp-edit-blend bullet-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-RADIAL 100 0 REPEAT-NONE FALSE
@ -76,7 +76,7 @@
blend-start blend-start
(+ 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-feather img border)
(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
(gimp-image-add-layer img bg-layer -1)
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background bg-color)
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(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-selection-none img)
(gimp-rect-select img 0 0 img-width img-height CHANNEL-OP-REPLACE FALSE 0)
(gimp-palette-set-foreground '(100 100 100))
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-foreground '(100 100 100))
(gimp-context-set-background '(0 0 0))
(gimp-edit-blend button-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
@ -116,11 +116,11 @@
(- img-height (/ glow-radius 2))
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-selection-none img)
(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
img -1 0 0 text 0 TRUE size PIXELS font))))
(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 glow-layer 1)
(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-clear glow-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-grow img grow)
(gimp-selection-feather img feather)
(gimp-palette-set-foreground glow-color)
(gimp-context-set-foreground glow-color)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(gimp-palette-set-background '(0 0 0))
(gimp-palette-set-foreground '(79 79 79))
(gimp-context-set-background '(0 0 0))
(gimp-context-set-foreground '(79 79 79))
(gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE
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 bands-layer 1)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-context-set-background bg-color)
(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)
; The text layer is never shown: it is only used to create a selection
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-foreground '(255 255 255))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-fill bands-layer FOREGROUND-FILL)
; 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
; masked become visible.
(gimp-palette-set-foreground fg-color)
(gimp-context-set-foreground fg-color)
(gimp-edit-fill bands-layer FOREGROUND-FILL)
;; (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-palette-set-background inBackColor)
(gimp-context-set-background inBackColor)
(gimp-drawable-set-name theLayer "Background")
(gimp-image-add-layer theImage theLayer 0)
@ -97,7 +97,7 @@
(gimp-context-push)
(gimp-palette-set-foreground inTextColor)
(gimp-context-set-foreground inTextColor)
(gimp-selection-none theImage)
(set! theData ())
(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)
(gimp-image-add-layer img shadow-layer 1)
(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-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-clear shadow-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-edit-fill shadow-layer BACKGROUND-FILL)
(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
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 shadow-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-edit-fill logo-layer FOREGROUND-FILL)
(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-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-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-edit-fill shadow-layer BACKGROUND-FILL)
(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
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
(gimp-image-add-layer img bumpmap -1)
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background '(255 255 255))
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-rect-select img 0 0 bevel-width img-height CHANNEL-OP-REPLACE FALSE 0)
@ -107,8 +107,8 @@
; Create gradient layer
(gimp-image-add-layer img gradient -1)
(gimp-palette-set-foreground ul-color)
(gimp-palette-set-background lr-color)
(gimp-context-set-foreground ul-color)
(gimp-context-set-background lr-color)
(gimp-edit-blend gradient FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
@ -120,7 +120,7 @@
; Create text layer
(gimp-palette-set-foreground text-color)
(gimp-context-set-foreground text-color)
(let ((textl (car (gimp-text-fontname
img -1 0 0 text 0 TRUE size PIXELS font))))
(gimp-layer-set-offsets textl

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

@ -87,7 +87,7 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(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-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-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-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-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-edit-fill bumpmap BACKGROUND-FILL)
@ -120,10 +120,10 @@
; Darken arrow
(gimp-palette-set-background '(255 255 255))
(gimp-context-set-background '(255 255 255))
(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-edit-fill bumpmap BACKGROUND-FILL)

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

@ -33,7 +33,7 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(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-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-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-edit-fill bumpmap BACKGROUND-FILL)
@ -58,7 +58,7 @@
; 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-selection-invert img)
(gimp-edit-clear background)

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

@ -67,7 +67,7 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(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-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-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-edit-fill bumpmap BACKGROUND-FILL)
@ -92,7 +92,7 @@
; Color and position text
(gimp-palette-set-background text-color)
(gimp-context-set-background text-color)
(gimp-layer-set-preserve-trans textl TRUE)
(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
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-edit-bucket-fill background
@ -62,12 +62,12 @@
(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-shrink img 1)
(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-shrink img 2)
(gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -80,7 +80,7 @@
; Clean up
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-selection-layer-alpha textl)
(gimp-selection-invert img)
(gimp-edit-clear background)

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

@ -37,7 +37,7 @@
; Create pattern layer
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(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-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-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-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 drop-shadow-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-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-selection-layer-alpha logo-layer)
(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-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-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(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
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
@ -72,8 +72,8 @@
0 0 1 1)
(gimp-selection-none img)
(gimp-palette-set-foreground blend-fg)
(gimp-palette-set-background blend-bg)
(gimp-context-set-foreground blend-fg)
(gimp-context-set-background blend-bg)
(gimp-gradients-set-gradient blend-gradient)
(gimp-edit-blend blend-layer blend-mode NORMAL-MODE
@ -87,7 +87,7 @@
(gimp-layer-translate drop-shadow-layer ds-size ds-size)
(gimp-selection-layer-alpha blend-layer)
(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-layer-remove-mask drop-shadow-layer MASK-APPLY)
(gimp-selection-none img)
@ -151,7 +151,7 @@
(gimp-image-undo-disable img)
(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-edit-fill text-layer FOREGROUND-FILL)
(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-selection-all img)
(gimp-palette-set-background bg-color)
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-none img)
(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-edit-fill blur-layer BACKGROUND-FILL)
(gimp-edit-clear blur-layer)
(gimp-palette-set-background '(191 191 191))
(gimp-context-set-background '(191 191 191))
(gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer FALSE)
(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)))
;--- alpha blending text to trans (fadeout)
(gimp-palette-set-foreground '(255 255 255))
(gimp-palette-set-background '( 0 0 0))
(gimp-context-set-foreground '(255 255 255))
(gimp-context-set-background '( 0 0 0))
(if (= fadeout TRUE)
(begin
; blend with 20% offset to get less transparency in the front
@ -100,7 +100,7 @@
(if (= fadeout FALSE)
(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
100 255 0 0 0)))
@ -114,7 +114,7 @@
(gimp-brightness-contrast bl-layer 100 0))
;--- 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
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
@ -127,7 +127,7 @@
(gimp-selection-grow img corona-width)
(gimp-layer-set-preserve-trans bl-layer FALSE)
(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
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE

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

@ -37,7 +37,7 @@
(gimp-context-push)
(gimp-selection-all theImage)
(gimp-palette-set-background inColor1)
(gimp-context-set-background inColor1)
(gimp-drawable-fill baseLayer BACKGROUND-FILL)
(plug-in-solid-noise TRUE theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain)
@ -47,7 +47,7 @@
(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-edit-clear thickLayer)
(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-edit-clear thinLayer)
(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-selection-load mask-fat)
(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-selection-none img)
@ -109,7 +109,7 @@
(plug-in-gauss-rle 1 img mask-emboss feather TRUE 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-invert img)
(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)))
(gimp-layer-add-mask cast-shadow-layer csl-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)
(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)))
(gimp-layer-add-mask inset-layer il-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-selection-none img)
(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-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-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill mask BACKGROUND-FILL)
(plug-in-tile 1 img layer1 width height FALSE)
@ -75,7 +75,7 @@
(gimp-image-add-channel img mask-fat 0)
(gimp-selection-load mask-fat)
(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-selection-none img)
@ -84,7 +84,7 @@
(plug-in-gauss-rle 1 img mask-emboss feather TRUE 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-invert img)
(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)))
(gimp-layer-add-mask cast-shadow-layer csl-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)
(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)))
(gimp-layer-add-mask inset-layer il-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-selection-none img)

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

@ -35,7 +35,7 @@
(gimp-selection-none img)
(script-fu-util-image-resize-from-layer img logo-layer)
(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)
; the actual effect
@ -90,7 +90,7 @@
(gimp-image-undo-disable img)
(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-edit-fill text-layer FOREGROUND-FILL)
(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-patterns-set-pattern pattern)
(gimp-palette-set-background '(255 255 255))
(gimp-context-set-background '(255 255 255))
(gimp-selection-all img)
(if (= bg-fill TRUE)
@ -93,7 +93,7 @@
(gimp-edit-clear shadow-layer)
(gimp-selection-none img)
(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-selection-none img)
(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)
(gimp-invert mask))
(gimp-palette-set-background '(255 255 255))
(gimp-context-set-background '(255 255 255))
(gimp-selection-none img)
(gimp-edit-fill layer2 BACKGROUND-FILL)
(gimp-edit-fill layer3 BACKGROUND-FILL)
@ -113,7 +113,7 @@
(gimp-drawable-set-visible shadow FALSE)
(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-feather img feather)
(gimp-edit-fill layer2 BACKGROUND-FILL)
@ -135,16 +135,16 @@
(set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK)))
(gimp-layer-add-mask layer1 layer-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)
(set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0)
(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-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-selection-feather img (* feather 1.5))
(gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1))
(gimp-edit-fill shadow 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 layer2 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-edit-fill layer1 BACKGROUND-FILL)
(gimp-edit-fill layer2 BACKGROUND-FILL)
@ -36,7 +36,7 @@
(gimp-drawable-set-visible logo-layer FALSE)
(gimp-drawable-set-visible shadow 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-selection-translate img offx1 offy1)
(gimp-selection-feather img feather)
@ -48,14 +48,14 @@
(gimp-invert layer1)
(gimp-layer-add-mask layer1 layer-mask)
(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-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-edit-fill shadow BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-context-set-background bg-color)
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-drawable-set-visible shadow 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)))
(if (= remove-bg TRUE)
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-foreground '(14 14 14)))
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-foreground '(14 14 14)))
(gimp-selection-load active-selection)
(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-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-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-selection-all img)
(gimp-palette-set-background bg-color)
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-none img)
(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-edit-fill white-layer BACKGROUND-FILL)
(gimp-layer-set-preserve-trans white-layer FALSE)
@ -63,7 +63,7 @@
(gimp-edit-fill white-layer BACKGROUND-FILL)
(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-selection-all img)
(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-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-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-gradients-set-gradient gradient)
@ -65,7 +65,7 @@
(plug-in-gauss-rle 1 img channel feather TRUE TRUE)
(gimp-selection-layer-alpha logo-layer)
(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-selection-none img)
@ -92,8 +92,8 @@
(set! layer-mask (car (gimp-layer-create-mask reflect-layer ADD-WHITE-MASK)))
(gimp-layer-add-mask reflect-layer layer-mask)
(gimp-palette-set-foreground '(255 255 255))
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-foreground '(255 255 255))
(gimp-context-set-background '(0 0 0))
(gimp-edit-blend layer-mask FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
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-add-layer img layer3 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-edit-fill layer2 BACKGROUND-FILL)
(gimp-edit-fill layer3 BACKGROUND-FILL)
(gimp-drawable-set-visible text-layer FALSE)
(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-feather img feather)
(gimp-edit-fill layer2 BACKGROUND-FILL)
@ -130,12 +130,12 @@
(set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK)))
(gimp-layer-add-mask layer1 layer-mask)
(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)
(set! disp-map (car (gimp-selection-save img)))
(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-selection-none img)
@ -157,7 +157,7 @@
(set! layer-mask2 (car (gimp-layer-create-mask layer2 ADD-BLACK-MASK)))
(gimp-layer-add-mask layer2 layer-mask2)
(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-selection-none img)
@ -166,7 +166,7 @@
(plug-in-gauss-rle 1 img text-layer blur TRUE TRUE)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill text-layer BACKGROUND-FILL)
(gimp-layer-set-mode text-layer OVERLAY-MODE)
(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)))
(image-width (car (gimp-image-width 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)
(active-selection 0)
(shadow-layer 0))
@ -129,7 +129,7 @@
shadow-offset-y))
(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-selection-none image)
(gimp-layer-set-preserve-trans shadow-layer FALSE)
@ -153,7 +153,7 @@
(gimp-image-raise-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-displays-flush)))

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

@ -48,7 +48,7 @@
)
(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)
)
@ -126,7 +126,7 @@
(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)
(set! l-idx (+ l-idx 1))
(set! l-gray (+ l-gray l-step))
@ -143,17 +143,17 @@
(if (= inGrowingSelection TRUE)
(begin
(gimp-selection-load l-orig-selection)
(gimp-palette-set-background (list (/ l-to-gray 100) (/ l-to-gray 100) (/ l-to-gray 100)))
(gimp-context-set-background (list (/ l-to-gray 100) (/ l-to-gray 100) (/ l-to-gray 100)))
(gimp-edit-fill l-mask BACKGROUND-FILL)
(gimp-selection-grow inImage inBorderSize)
(gimp-selection-invert inImage)
(if (= inClearUnselected TRUE)
(begin
;(gimp-palette-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 (/ l-from-gray 100) (/ l-from-gray 100) (/ l-from-gray 100)))
(gimp-context-set-background (list 0 0 0))
)
(begin
(gimp-palette-set-background (list 255 255 255))
(gimp-context-set-background (list 255 255 255))
)
)
(gimp-edit-fill l-mask BACKGROUND-FILL)
@ -171,7 +171,7 @@
(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-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)
GRAY-IMAGE RGB-IMAGE)
"Background" 100 NORMAL-MODE)))
(old-bg (car (gimp-palette-get-background)))
(old-fg (car (gimp-palette-get-foreground))))
(old-bg (car (gimp-context-get-background)))
(old-fg (car (gimp-context-get-foreground))))
(gimp-image-undo-disable img)
(if (= colors 0)
(begin
(gimp-palette-set-background '(255 255 255))
(gimp-palette-set-foreground '(0 0 0))))
(gimp-context-set-background '(255 255 255))
(gimp-context-set-foreground '(0 0 0))))
(gimp-edit-clear drawable)
(gimp-image-add-layer img drawable 0)
@ -123,8 +123,8 @@
(if (= colors 0)
(begin
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)))
(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)))
(gimp-image-undo-enable 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)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(selection 0)
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background)))
(old-brush (car (gimp-brushes-get-brush)))
(old-paint-mode (car (gimp-brushes-get-paint-mode))))
(gimp-layer-add-mask logo-layer logo-layer-mask)
@ -32,7 +32,7 @@
(gimp-selection-layer-alpha logo-layer)
(set! selection (car (gimp-selection-save img)))
(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)
(plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
(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 2 0 255 0.7 0 255)
(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-edit-stroke matte-layer)
(gimp-selection-feather img border)
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-context-set-background bg-color)
(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-layer-add-mask logo-layer logo-layer-mask)
(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-selection-feather img border)
(gimp-selection-translate img (/ border 2) (/ border 2))
@ -62,13 +62,13 @@
(gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)")
(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-selection-none img)
(gimp-image-remove-channel img selection)
(gimp-layer-translate shadow-layer border border)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-context-set-foreground old-fg)
(gimp-context-set-background old-bg)
(gimp-brushes-set-brush old-brush)
(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-selection-invert theImage)
(gimp-edit-clear theLayer)
(gimp-palette-set-background inColor)
(gimp-context-set-background inColor)
(gimp-edit-fill theLayer BACKGROUND-FILL)
(gimp-selection-none inImage)
(chris-color-edge theImage theLayer inColor 1)
@ -139,7 +139,7 @@
(gimp-selection-all inImage)
(gimp-selection-shrink inImage inSize)
(gimp-selection-invert inImage)
(gimp-palette-set-background inColor)
(gimp-context-set-background inColor)
(gimp-edit-fill theLayer BACKGROUND-FILL)
(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)))
(height (car (gimp-drawable-height text-layer)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(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-palette-set-background '(255 255 255))
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(let* ((highlight-layer (car (gimp-layer-copy text-layer TRUE)))
@ -70,15 +70,15 @@
(gimp-image-add-layer img shadow-layer 1)
(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-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-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-layer-translate shadow-layer 5 5)
@ -108,8 +108,8 @@
FALSE FALSE ""))
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-context-set-foreground old-fg)
(gimp-context-set-background old-bg)
(gimp-image-undo-enable 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
RGB-IMAGE "Background" 100 NORMAL-MODE)))
(shadow-layer (car (gimp-layer-copy text-layer TRUE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background))))
(gimp-image-undo-disable img)
(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 shadow-layer TRUE)
(gimp-palette-set-background text-color)
(gimp-context-set-background text-color)
(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-palette-set-background shadow-color)
(gimp-context-set-background shadow-color)
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-layer-translate shadow-layer 1 1)
@ -79,8 +79,8 @@
(gimp-image-convert-indexed img FS-DITHER MAKE-PALETTE num-colors
FALSE FALSE ""))
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-context-set-foreground old-fg)
(gimp-context-set-background old-bg)
(gimp-image-undo-enable 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-patterns (car (gimp-patterns-get-pattern)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background))))
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-drawable-set-name grow-me "Grow-me")
@ -58,11 +58,11 @@
(gimp-layer-translate grow-me posx posy)
(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-edit-bucket-fill bg-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-palette-set-background old-bg)
(gimp-context-set-background old-bg)
(gimp-selection-layer-alpha logo-layer)
@ -134,8 +134,8 @@
(gimp-selection-none img)))
(gimp-gradients-set-gradient old-gradient)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)))
(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)))
(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))))
(glow-layer (car (gimp-layer-copy logo-layer TRUE)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background))))
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img glow-layer 1)
(gimp-layer-translate glow-layer posx posy)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(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-selection-layer-alpha logo-layer)
(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-selection-layer-alpha logo-layer)
(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-selection-layer-alpha logo-layer)
(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-selection-none img)
(gimp-layer-set-mode logo-layer OVERLAY-MODE)
(gimp-drawable-set-name glow-layer "Glow Layer")
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)))
(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)))
(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)))
(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)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background))))
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img blur-layer 1)
(gimp-selection-all img)
(gimp-palette-set-background bg-color)
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-none img)
(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-edit-fill blur-layer BACKGROUND-FILL)
(gimp-edit-clear blur-layer)
@ -54,8 +54,8 @@
(gimp-edit-fill blur-layer BACKGROUND-FILL)
(plug-in-gauss-rle 1 img blur-layer bevel-width 1 1)
(gimp-selection-none img)
(gimp-palette-set-background '(127 127 127))
(gimp-palette-set-foreground '(255 255 255))
(gimp-context-set-background '(127 127 127))
(gimp-context-set-foreground '(255 255 255))
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-selection-all img)
@ -71,8 +71,8 @@
(gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0)
(gimp-image-set-active-layer img logo-layer)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)))
(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)))
(define (script-fu-gradient-bevel-logo-alpha img
logo-layer

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

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

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

@ -126,7 +126,7 @@
#f))))))
(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)))
(define red-color '(255 10 10))
@ -143,13 +143,13 @@
(define (fill-dot img drawable x y segment color)
(if (fill-segment! segment x y)
(begin
(gimp-palette-set-foreground color)
(gimp-context-set-foreground color)
(draw-segment img drawable segment (segment-max-size segment) color)
#t)
#f))
(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-edit-bucket-fill drawable FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img))
@ -250,15 +250,15 @@
(x-base border-size)
(y-base (+ gimg-height border-size))
(index 0)
(old-foreground (car (gimp-palette-get-foreground)))
(old-background (car (gimp-palette-get-background)))
(old-foreground (car (gimp-context-get-foreground)))
(old-background (car (gimp-context-get-background)))
(old-paint-mode (car (gimp-brushes-get-paint-mode)))
(old-brush (car (gimp-brushes-get-brush)))
(old-opacity (car (gimp-brushes-get-opacity))))
(gimp-image-undo-disable gimg)
(gimp-image-add-layer gimg bglayer -1)
(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-image-add-layer gimg hsv-layer -1)
(gimp-edit-clear hsv-layer)
@ -293,7 +293,7 @@
(lambda (segment color)
(if (< 1 (segment-filled-size segment))
(begin
(gimp-palette-set-foreground color)
(gimp-context-set-foreground color)
(draw-segment gimg hsv-layer segment (segment-filled-size segment)
color))))
(list hue-segment saturation-segment value-segment)
@ -302,12 +302,12 @@
(lambda (segment color)
(if (< 1 (segment-filled-size segment))
(begin
(gimp-palette-set-foreground color)
(gimp-context-set-foreground color)
(draw-segment gimg rgb-layer segment (segment-filled-size segment)
color))))
(list red-segment green-segment blue-segment)
(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
"Red: Hue, Green: Sat, Blue: Val"
1 1 12 PIXELS
@ -319,8 +319,8 @@
(gimp-image-set-active-layer gimg bglayer)
(gimp-image-clean-all gimg)
;; return back the state
(gimp-palette-set-foreground old-foreground)
(gimp-palette-set-foreground old-background)
(gimp-context-set-foreground old-foreground)
(gimp-context-set-foreground old-background)
(gimp-brushes-set-brush old-brush)
(gimp-brushes-set-paint-mode old-paint-mode)
(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)))
(radius (/ font-size 10))
(prob 0.5)
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background)))
(old-brush (car (gimp-brushes-get-brush)))
(old-paint-mode (car (gimp-brushes-get-paint-mode))))
(gimp-image-undo-disable img)
@ -44,15 +44,15 @@
;; get the text shape
(gimp-selection-layer-alpha text-layer)
;; 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)
;; get the border shape
(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-selection-none img)
;; 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)
(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)
@ -72,11 +72,11 @@
distortion-layer distortion-layer 0)
;; Finally, clear the bottom layer (text-layer)
(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)
;; post processing
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-context-set-foreground old-fg)
(gimp-context-set-background old-bg)
(gimp-brushes-set-brush old-brush)
(gimp-brushes-set-paint-mode old-paint-mode)
(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-height (+ (* 2 border) (+ old-height (* space (- num-of-layers 1)))))
(new-bg #f)
(old-foreground (car (gimp-palette-get-foreground)))
(old-background (car (gimp-palette-get-background)))
(old-foreground (car (gimp-context-get-foreground)))
(old-background (car (gimp-context-get-background)))
(layer-names '())
(layer #f)
(index 0))
@ -84,7 +84,7 @@
(gimp-selection-layer-alpha layer)
(gimp-selection-invert img)
(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
padding-opacity 0 0 0 0)
(gimp-selection-none img)))
@ -101,12 +101,12 @@
(set! new-bg (car (gimp-layer-new img new-width new-height RGBA-IMAGE
"New Background" 100 NORMAL-MODE)))
(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-image-set-active-layer img (aref layers 0))
(if (= TRUE with-layer-name?)
(let ((text-layer #f))
(gimp-palette-set-foreground '(255 255 255))
(gimp-context-set-foreground '(255 255 255))
(set! index 0)
(set! layer-names (nreverse layer-names))
(while (< index num-of-layers)
@ -118,8 +118,8 @@
(set! index (+ index 1))
(set! layer-names (cdr layer-names)))))
(gimp-image-set-active-layer img new-bg)
(gimp-palette-set-background old-background)
(gimp-palette-set-foreground old-foreground)
(gimp-context-set-background old-background)
(gimp-context-set-foreground old-foreground)
(set! script-fu-show-image-structure-new-image? new-image?)
(set! script-fu-show-image-structure-space space)
(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-height (car (gimp-image-height image)))
(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-layer-add-alpha drawable)
@ -88,7 +88,7 @@
(plug-in-gradmap 1 image active-layer)
(gimp-gradients-set-gradient old-gradient)
(gimp-palette-set-background old-bg)
(gimp-context-set-background old-bg)
(if (= keep-selection FALSE)
(gimp-selection-none image))

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

@ -30,8 +30,8 @@
; Save old foregound and background colors
(old-fg-color (car (gimp-palette-get-foreground)))
(old-bg-color (car (gimp-palette-get-background)))
(old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-context-get-background)))
; construct variables
@ -54,9 +54,9 @@
(gimp-image-add-layer img drawable 0)
; Actual code starts...
(gimp-palette-set-background '(255 255 255))
(gimp-context-set-background '(255 255 255))
(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-edit-fill drawable BACKGROUND-FILL)
@ -68,8 +68,8 @@
; Terminate, restoring old bg.
(gimp-selection-none img)
(gimp-palette-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color)
(gimp-context-set-foreground old-fg-color)
(gimp-context-set-background old-bg-color)
(gimp-image-undo-enable img)
(gimp-image-delete img)
)
@ -102,8 +102,8 @@
; Save old foregound and background colors
(old-fg-color (car (gimp-palette-get-foreground)))
(old-bg-color (car (gimp-palette-get-background)))
(old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-context-get-background)))
(filename (string-append gimp-directory
"/brushes/r"
@ -128,9 +128,9 @@
(gimp-image-add-layer img drawable 0)
; Actual code starts...
(gimp-palette-set-background '(255 255 255))
(gimp-context-set-background '(255 255 255))
(gimp-drawable-fill drawable BACKGROUND-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-context-set-background '(0 0 0))
(cond ((< 0 feathering)
(gimp-rect-select img (/ feathering 2) (/ feathering 2) width height CHANNEL-OP-REPLACE TRUE feathering))
((>= 0 feathering)
@ -145,8 +145,8 @@
; Terminate, restoring old bg.
(gimp-selection-none img)
(gimp-palette-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color)
(gimp-context-set-foreground old-fg-color)
(gimp-context-set-background old-bg-color)
(gimp-image-undo-enable img)
(gimp-image-delete img)
)
@ -177,8 +177,8 @@
; Save old foregound and background colors
(old-fg-color (car (gimp-palette-get-foreground)))
(old-bg-color (car (gimp-palette-get-background)))
(old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-context-get-background)))
; Construct variables...
@ -201,9 +201,9 @@
(gimp-image-add-layer img drawable 0)
; Actual code starts...
(gimp-palette-set-background '(255 255 255))
(gimp-context-set-background '(255 255 255))
(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-edit-fill drawable BACKGROUND-FILL)
@ -215,8 +215,8 @@
; Terminate, restoring old bg.
(gimp-selection-none img)
(gimp-palette-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color)
(gimp-context-set-foreground old-fg-color)
(gimp-context-set-background old-bg-color)
(gimp-image-undo-enable img)
(gimp-image-delete img)
)
@ -249,8 +249,8 @@
; Save old foregound and background colors
(old-fg-color (car (gimp-palette-get-foreground)))
(old-bg-color (car (gimp-palette-get-background)))
(old-fg-color (car (gimp-context-get-foreground)))
(old-bg-color (car (gimp-context-get-background)))
; Construct variables...
(filename (string-append gimp-directory
@ -277,9 +277,9 @@
(gimp-image-add-layer img drawable 0)
; Actual code starts...
(gimp-palette-set-background '(255 255 255))
(gimp-context-set-background '(255 255 255))
(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.
(gimp-ellipse-select img (/ feathering 2) (/ feathering 2) width height CHANNEL-OP-REPLACE TRUE TRUE feathering))
((<= feathering 0)
@ -294,8 +294,8 @@
; Terminate, restoring old bg.
(gimp-selection-none img)
(gimp-palette-set-foreground old-fg-color)
(gimp-palette-set-background old-bg-color)
(gimp-context-set-foreground old-fg-color)
(gimp-context-set-background old-bg-color)
(gimp-image-undo-enable 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))
0))
(selection 0)
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background))))
(script-fu-util-image-resize-from-layer img tube-layer)
(gimp-image-add-layer img bg-layer 1)
(if (not (= shadow 0))
@ -89,7 +89,7 @@
(gimp-edit-clear shadow-layer)))
(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)
(set! selection (car (gimp-selection-save img)))
(gimp-selection-none img)
@ -97,14 +97,14 @@
(gimp-edit-clear glow-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-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-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-clear tube-layer)
@ -130,7 +130,7 @@
(gimp-layer-set-preserve-trans tube-layer 1)
(gimp-selection-layer-alpha tube-layer)
(gimp-selection-invert img)
(gimp-palette-set-background glow-color)
(gimp-context-set-background glow-color)
(gimp-edit-fill tube-layer BACKGROUND-FILL)
(gimp-selection-none img)
@ -153,13 +153,13 @@
(gimp-selection-shrink img shadow-shrink)
(gimp-selection-feather img shadow-feather)
(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-selection-none img)
(gimp-drawable-set-name tube-layer "Neon Tubes")
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)
(gimp-image-remove-channel img selection)))
(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-mask 0)
(grey (/ (* density 255) 100))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background))))
(gimp-image-undo-disable img)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img text-layer -1)
(gimp-palette-set-background bg-color)
(gimp-context-set-background bg-color)
(gimp-edit-clear bg-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)))
(set! text-mask (car (gimp-layer-create-mask text-layer ADD-ALPHA-MASK)))
(gimp-layer-add-mask text-layer text-mask)
(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-selection-clear img)
(if (> blur-radius 0)
@ -58,8 +58,8 @@
(gimp-edit-fill text-layer FOREGROUND-FILL)
(gimp-layer-remove-mask text-layer MASK-APPLY)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-context-set-foreground old-fg)
(gimp-context-set-background old-bg)
(gimp-image-undo-enable img)
(gimp-display-new img)))

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