033fcf1628
2008-10-27 Sven Neumann <sven@gimp.org> * libgimpbase/gimpbaseenums.[ch]: added new enum GimpTextHintStyle. * libgimp/gimpenums.c.tail * tools/pdbgen/enums.pl: regenerated. * app/text/gimptext.[ch]: added new property "hint-style". Removed "autohint" property and mapped the boolean property "hinting" to the new enum property "hint-style". * app/text/gimptextlayout-render.c (gimp_text_layout_render_flags): use "hint-style". * app/tools/gimptextoptions.[ch]: changed tool options accordingly. * tools/pdbgen/pdb/text_layer.pdb: deprecated the "hinting" API and introduced getters and setters for "hint-style". * app/pdb/text-layer-cmds.c * app/pdb/internal-procs.c * libgimp/gimptextlayer_pdb.[ch]: regenerated. svn path=/trunk/; revision=27432
1157 lines
27 KiB
Text
1157 lines
27 KiB
Text
# GIMP - The GNU Image Manipulation Program
|
|
# Copyright (C) 1995 Spencer Kimball and Peter Mattis
|
|
|
|
# New Text PDB API
|
|
# Copyright (C) 2008 Marcus Heese <heese@cip.ifi.lmu.de>
|
|
|
|
# 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.
|
|
|
|
|
|
sub text_layer_new {
|
|
$blurb = 'Creates a new text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure creates a new text layer. The arguments are kept as
|
|
simple as necessary for the normal case. All text attributes, however,
|
|
can be modified with the appropriate gimp_text_layer_set_*()
|
|
procedures. The new layer still needs to be added to the image, as
|
|
this is not automatic. Add the new layer using gimp_image_add_layer().
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'image', type => 'image',
|
|
desc => 'The image' },
|
|
{ name => 'text', type => 'string',
|
|
desc => 'The text to generate (in UTF-8 encoding)' },
|
|
{ name => 'fontname', type => 'string',
|
|
desc => 'The name of the font' },
|
|
{ name => 'size', type => '0.0 <= float <= 8192.0',
|
|
desc => 'The size of text in either pixels or points' },
|
|
{ name => 'unit', type => 'unit',
|
|
desc => 'The units of specified size' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The new text layer.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
GimpText *gimp_text;
|
|
GimpRGB color;
|
|
|
|
gimp_context_get_foreground (context, &color);
|
|
|
|
gimp_text = g_object_new (GIMP_TYPE_TEXT,
|
|
"text", text,
|
|
"font", fontname,
|
|
"font-size", size,
|
|
"font-size-unit", unit,
|
|
"color", &color,
|
|
NULL);
|
|
|
|
layer = gimp_text_layer_new (image, gimp_text);
|
|
g_object_unref (gimp_text);
|
|
|
|
if (! layer)
|
|
{
|
|
g_set_error (error, GIMP_PDB_ERROR, GIMP_PDB_INVALID_ARGUMENT,
|
|
_("Failed to create text layer"));
|
|
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_text {
|
|
$blurb = 'Get the text from a text layer as string.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the text from a text layer as a string.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'text', type => 'string',
|
|
desc => 'The text from the specified text layer.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"text", &text,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_text {
|
|
$blurb = 'Set the text of a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure changes the text of a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'text', type => 'string',
|
|
desc => 'The new text to set' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"text", text,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_font {
|
|
$blurb = 'Get the font from a text layer as string.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the name of the font from a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'font', type => 'string',
|
|
desc => 'The font which is used in the specified text layer.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"font", &font,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_font {
|
|
$blurb = 'Set the font of a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure modifies the font used in the specified text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'font', type => 'string',
|
|
desc => 'The new font to use' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"font", font,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_font_size {
|
|
$blurb = 'Get the font size from a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the size of the font which is used in a text
|
|
layer. You will receive the size as a float 'font-size' in 'unit'
|
|
units.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'font_size', type => 'float',
|
|
desc => 'The font size' },
|
|
{ name => 'unit', type => 'unit',
|
|
desc => 'The unit used for the font size' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"font-size", &font_size,
|
|
"font-size-unit", &unit,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_font_size {
|
|
$blurb = 'Set the font size.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure changes the font size of a text layer. The size of your
|
|
font will be a double 'font-size' of 'unit' units.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'font_size', type => '0.0 <= float <= 8192.0',
|
|
desc => 'The font size' },
|
|
{ name => 'unit', type => 'unit',
|
|
desc => 'The unit to use for the font size' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"font-size-unit", unit,
|
|
"font-size", font_size,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_hinting {
|
|
&std_pdb_deprecated ('gimp-text-layer-get-hint-style');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'hinting', type => 'boolean',
|
|
desc => 'A flag which is true if hinting is used on the font.' },
|
|
{ name => 'autohint', type => 'boolean',
|
|
desc => 'A flag which is true if the text layer is forced to use the autohinter from FreeType.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"hinting", &hinting,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_hinting {
|
|
&std_pdb_deprecated ('gimp-text-layer-set-hint-style');
|
|
|
|
$blurb = 'Enable/disable the use of hinting in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure enables or disables hinting on the text of a text
|
|
layer. If you enable 'auto-hint', FreeType\'s automatic hinter will be
|
|
used and hinting information from the font will be ignored.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'hinting', type => 'boolean',
|
|
desc => 'Enable/disable the use of hinting on the text' },
|
|
{ name => 'autohint', type => 'boolean',
|
|
desc => 'Force the use of the autohinter provided through FreeType' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"hinting", hinting,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_antialias {
|
|
$blurb = 'Check if antialiasing is used in the text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure checks if antialiasing is enabled in the specified text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'antialias', type => 'boolean',
|
|
desc => 'A flag which is true if antialiasing is used for rendering the font in the text layer.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"antialias", &antialias,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_antialias {
|
|
$blurb = 'Enable/disable anti-aliasing in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure enables or disables anti-aliasing of the text in a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'antialias', type => 'boolean',
|
|
desc => 'Enable/disable antialiasing of the text' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"antialias", antialias,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_hint_style {
|
|
$blurb = 'Get information about hinting in the specified text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure provides information about the hinting that is being
|
|
used in a text layer. Hinting can be optimized for fidelity or contrast
|
|
or it can be turned entirely off.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'style', type => 'enum GimpTextHintStyle',
|
|
desc => 'The hint style used for font outlines' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"hint-style", &style,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_hint_style {
|
|
$blurb = 'Control how font outlines are hinted in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure sets the hint style for font outlines in a text
|
|
layer. This controls whether to fit font outlines to the pixel grid,
|
|
and if so, whether to optimize for fidelity or contrast.
|
|
HELP
|
|
|
|
&neo_pdb_misc('2008', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'style', type => 'enum GimpTextHintStyle',
|
|
desc => 'The new hint style' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"hint-style", style,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_kerning {
|
|
$blurb = 'Check if kerning is used in the text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure checks if kerning is enabled in the specified text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'kerning', type => 'boolean',
|
|
desc => 'A flag which is true if kerning is used in the text layer.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"kerning", &kerning,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_kerning {
|
|
$blurb = 'Enable/disable kerning in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure enables or disables kerning in a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'kerning', type => 'boolean',
|
|
desc => 'Enable/disable kerning in the text' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"kerning", kerning,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_language {
|
|
$blurb = 'Get the language used in the text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the language string which is set for the text
|
|
in the text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer.' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'language', type => 'string',
|
|
desc => 'The language used in the text layer.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"language", &language,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_language {
|
|
$blurb = 'Set the language of the text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure sets the language of the text in text layer. For some
|
|
scripts the language has an influence of how the text is rendered.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'language', type => 'string',
|
|
desc => 'The new language to use for the text layer' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"language", language,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_base_direction {
|
|
$blurb = 'Get the base direction used for rendering the text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the base direction used for rendering the text
|
|
in the text layer
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer.' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'direction', type => 'enum GimpTextDirection',
|
|
desc => 'The based direction used for the text layer.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"base-direction", &direction,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_base_direction {
|
|
$blurb = 'Set the base direction in the text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure sets the base direction used in applying the Unicode
|
|
bidirectional algorithm when rendering the text.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'direction', type => 'enum GimpTextDirection',
|
|
desc => 'The base direction of the text.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"base-direction", direction,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_justification {
|
|
$blurb = 'Get the text justification information of the text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the alignment of the lines in the text layer
|
|
relative to each other.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer.' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'justify', type => 'enum GimpTextJustification',
|
|
desc => 'The justification used in the text layer.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"justify", &justify,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_justification {
|
|
$blurb = 'Set the justification of the text in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure sets the alignment of the lines in the text layer
|
|
relative to each other.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'justify', type => 'enum GimpTextJustification',
|
|
desc => 'The justification for your text.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"justify", justify,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_color {
|
|
$blurb = 'Get the color of the text in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the color of the text in a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer.' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'color', type => 'color', void_ret => 1,
|
|
desc => 'The color of the text.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
color = gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer))->color;
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_color {
|
|
$blurb = 'Set the color of the text in the text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure sets the text color in the text layer 'layer'.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'color', type => 'color',
|
|
desc => 'The color to use for the text' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"color", &color,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_indent {
|
|
$blurb = 'Get the line indentation of text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the indentation of the first line in a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer.' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'indent', type => 'float',
|
|
desc => 'The indentation value of the first line.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"indent", &indent,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_indent {
|
|
$blurb = 'Set the indentation of the first line in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure sets the indentation of the first line in the text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'indent', type => '-8192.0 <= float <= 8192.0',
|
|
desc => 'The indentation for the first line.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"indent", indent,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_line_spacing {
|
|
$blurb = 'Get the spacing between lines of text.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the line-spacing between lines of text in a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer.' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'line_spacing', type => 'float',
|
|
desc => 'The line-spacing value.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"line-spacing", &line_spacing,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_line_spacing {
|
|
$blurb = 'Adjust the line spacing in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure sets the additional spacing used between lines a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'line_spacing', type => '-8192.0 <= float <= 8192.0',
|
|
desc => 'The additional line spacing to use.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"line-spacing", line_spacing,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_get_letter_spacing {
|
|
$blurb = 'Get the letter spacing used in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure returns the additional spacing between the single glyps
|
|
in a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer.' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'letter_spacing', type => 'float',
|
|
desc => 'The letter-spacing value.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
g_object_get (gimp_text_layer_get_text (GIMP_TEXT_LAYER (layer)),
|
|
"letter-spacing", &letter_spacing,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub text_layer_set_letter_spacing {
|
|
$blurb = 'Adjust the letter spacing in a text layer.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure sets the additional spacing between the single glyphs
|
|
in a text layer.
|
|
HELP
|
|
|
|
&marcus_pdb_misc('2008', '2.6');
|
|
|
|
@inargs = (
|
|
{ name => 'layer', type => 'layer',
|
|
desc => 'The text layer' },
|
|
{ name => 'letter_spacing', type => '-8192.0 <= float <= 8192.0',
|
|
desc => 'The additional letter spacing to use.' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_layer_is_text_layer (layer, error))
|
|
{
|
|
gimp_text_layer_set (GIMP_TEXT_LAYER (layer),
|
|
_("Set text layer attribute"),
|
|
"letter-spacing", letter_spacing,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
|
|
@headers = qw("libgimpbase/gimpbase.h"
|
|
"core/gimpcontext.h"
|
|
"text/gimptext.h"
|
|
"text/gimptextlayer.h"
|
|
"gimppdb-utils.h"
|
|
"gimppdberror.h"
|
|
"gimp-intl.h");
|
|
|
|
@procs = qw(text_layer_new
|
|
text_layer_get_text
|
|
text_layer_set_text
|
|
text_layer_get_font
|
|
text_layer_set_font
|
|
text_layer_get_font_size
|
|
text_layer_set_font_size
|
|
text_layer_get_antialias
|
|
text_layer_set_antialias
|
|
text_layer_get_hint_style
|
|
text_layer_set_hint_style
|
|
text_layer_get_kerning
|
|
text_layer_set_kerning
|
|
text_layer_get_language
|
|
text_layer_set_language
|
|
text_layer_get_base_direction
|
|
text_layer_set_base_direction
|
|
text_layer_get_justification
|
|
text_layer_set_justification
|
|
text_layer_get_color
|
|
text_layer_set_color
|
|
text_layer_get_indent
|
|
text_layer_set_indent
|
|
text_layer_get_line_spacing
|
|
text_layer_set_line_spacing
|
|
text_layer_get_letter_spacing
|
|
text_layer_set_letter_spacing
|
|
text_layer_get_hinting
|
|
text_layer_set_hinting
|
|
);
|
|
|
|
%exports = (app => [@procs], lib => [@procs]);
|
|
|
|
$desc = 'Text layer procedures';
|
|
|
|
1;
|