diff options
Diffstat (limited to 'pdb/groups/palettes.pdb')
| -rw-r--r-- | pdb/groups/palettes.pdb | 167 |
1 files changed, 167 insertions, 0 deletions
diff --git a/pdb/groups/palettes.pdb b/pdb/groups/palettes.pdb new file mode 100644 index 0000000..4abd0c9 --- /dev/null +++ b/pdb/groups/palettes.pdb @@ -0,0 +1,167 @@ +# GIMP - The GNU Image Manipulation Program +# Copyright (C) 1995 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 3 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, see <https://www.gnu.org/licenses/>. + +# "Perlized" from C source by Manish Singh <yosh@gimp.org> + +sub palettes_refresh { + $blurb = 'Refreshes current palettes. This function always succeeds.'; + + $help = <<'HELP'; +This procedure retrieves all palettes currently in the user's palette path +and updates the palette dialogs accordingly. +HELP + + &adrian_pdb_misc('1998'); + + %invoke = ( + code => <<'CODE' +{ + gimp_data_factory_data_refresh (gimp->palette_factory, context); +} +CODE + ); +} + +sub palettes_get_list { + $blurb = 'Retrieves a list of all of the available palettes'; + + $help = <<'HELP'; +This procedure returns a complete listing of available palettes. Each name +returned can be used as input to the command gimp_context_set_palette(). +HELP + + &rock_pdb_misc('2001'); + + @inargs = ( + { name => 'filter', type => 'string', null_ok => 1, + desc => 'An optional regular expression used to filter the list' } + ); + + @outargs = ( + { name => 'palette_list', type => 'stringarray', + desc => 'The list of palette names', + array => { name => 'num_palettes', + desc => 'The number of palettes in the list' } } + ); + + %invoke = ( + headers => [ qw("core/gimpcontainer-filter.h") ], + code => <<'CODE' +{ + palette_list = gimp_container_get_filtered_name_array (gimp_data_factory_get_container (gimp->palette_factory), + filter, &num_palettes); +} +CODE + ); +} + +sub palettes_get_palette { + &std_pdb_deprecated ('gimp-context-get-palette'); + + @outargs = ( + { name => 'name', type => 'string', null_ok => 1, + desc => 'The palette name' }, + { name => 'num_colors', type => 'int32', + desc => 'The palette num_colors' } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPalette *palette = gimp_context_get_palette (context); + + if (palette) + { + name = g_strdup (gimp_object_get_name (palette)); + num_colors = gimp_palette_get_n_colors (palette); + } + else + success = FALSE; +} +CODE + ); +} + +sub palettes_get_palette_entry { + &std_pdb_deprecated ('gimp-palette-entry-get-color'); + + @inargs = ( + { name => 'name', type => 'string', null_ok => 1, + desc => 'The palette name ("" means currently active palette)' }, + { name => 'entry_num', type => 'int32', + desc => 'The entry to retrieve' } + ); + + @outargs = ( + { name => 'actual_name', type => 'string', + desc => 'The palette name' }, + { name => 'num_colors', type => 'int32', + desc => 'The palette num_colors' }, + { name => 'color', type => 'color', void_ret => 1, + desc => 'The color requested' } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPalette *palette; + + if (name && strlen (name)) + palette = gimp_pdb_get_palette (gimp, name, FALSE, error); + else + palette = gimp_context_get_palette (context); + + if (palette) + { + GimpPaletteEntry *entry = gimp_palette_get_entry (palette, entry_num); + + if (entry) + { + actual_name = g_strdup (gimp_object_get_name (palette)); + num_colors = gimp_palette_get_n_colors (palette); + color = entry->color; + } + else + success = FALSE; + } + else + success = FALSE; +} +CODE + ); +} + + +@headers = qw(<string.h> + "core/gimp.h" + "core/gimpcontext.h" + "core/gimpdatafactory.h" + "core/gimppalette.h" + "gimppdb-utils.h"); + +@procs = qw(palettes_refresh + palettes_get_list + palettes_get_palette + palettes_get_palette_entry); + +%exports = (app => [@procs], lib => [@procs]); + +$desc = 'Palettes'; +$doc_title = 'gimppalettes'; +$doc_short_desc = 'Operations related to palettes.'; +$doc_long_desc = 'Operations related to palettes.'; + +1; |