mirror of https://github.com/GNOME/gimp.git
305 lines
6.5 KiB
Plaintext
305 lines
6.5 KiB
Plaintext
# The GIMP -- an 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 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.
|
|
|
|
# "Perlized" from C source by Manish Singh <yosh@gimp.org>
|
|
|
|
sub pdb_misc {
|
|
$author = $copyright = 'Adam D. Moss';
|
|
$date = '1998';
|
|
}
|
|
|
|
sub image_add_guide {
|
|
my ($desc, $type, $max, $pos) = @_;
|
|
|
|
$blurb = "Add a $desc guide to an image.";
|
|
|
|
$help = <<HELP;
|
|
This procedure adds a $desc guide to an image. It takes the input image and the
|
|
$type-position of the new guide as parameters. It returns the guide ID of the
|
|
new guide.
|
|
HELP
|
|
|
|
&pdb_misc;
|
|
|
|
@inargs = (
|
|
&std_image_arg,
|
|
{ name => "${type}position", type => '0 < int32',
|
|
desc => "The guide's ${type}-offset from $pos of image",
|
|
alias => 'offset' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'guide_id', type => 'guide', init => 1,
|
|
desc => 'The new guide' }
|
|
);
|
|
|
|
my $func = substr($desc, 0, 1);
|
|
%invoke = (
|
|
vars => [ 'Guide *guide' ],
|
|
code => <<CODE
|
|
{
|
|
if (offset < gimage->$max)
|
|
{
|
|
guide = gimp_image_add_${func}guide (gimage);
|
|
guide->position = offset;
|
|
guide_id = guide->guide_ID;
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
# The defs
|
|
|
|
sub image_add_hguide {
|
|
&image_add_guide('horizontal', 'y', 'height', 'top');
|
|
}
|
|
|
|
sub image_add_vguide {
|
|
&image_add_guide('vertical', 'x', 'width', 'left');
|
|
}
|
|
|
|
sub image_delete_guide {
|
|
$blurb = 'Deletes a guide from an image.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure takes an image and a guide ID as input and removes the specified
|
|
guide from the specified image.
|
|
HELP
|
|
|
|
&pdb_misc;
|
|
|
|
@inargs = (
|
|
&std_image_arg,
|
|
{ name => 'guide', type => 'guide',
|
|
desc => 'The ID of the guide to be removed' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("undo.h") ],
|
|
vars => [ 'GList *guides' ],
|
|
code => <<'CODE'
|
|
{
|
|
success = FALSE;
|
|
|
|
guides = gimage->guides;
|
|
|
|
while (guides)
|
|
{
|
|
if ((((Guide *) guides->data)->guide_ID == guide) &&
|
|
(((Guide *) guides->data)->position >= 0))
|
|
{
|
|
GList *tmp_next;
|
|
|
|
success = TRUE;
|
|
|
|
tmp_next = guides->next;
|
|
|
|
((Guide *) guides->data)->position = -1;
|
|
undo_push_guide (gimage, ((Guide *) guides->data));
|
|
/* gimp_image_remove_guide (gimage, ((Guide *) guides->data)); */
|
|
|
|
guides = tmp_next;
|
|
}
|
|
else
|
|
guides = guides->next;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub image_find_next_guide {
|
|
$blurb = 'Find next guide on an image.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure takes an image and a guide ID as input and finds the guide ID of
|
|
the successor of the given guide ID in the image's guide list. If the supplied
|
|
guide ID is 0, the procedure will return the first Guide. The procedure will
|
|
return 0 if given the final guide ID as an argument or the image has no guides.
|
|
HELP
|
|
|
|
&pdb_misc;
|
|
|
|
@inargs = (
|
|
&std_image_arg,
|
|
{ name => 'guide', type => 'guide',
|
|
desc => 'The ID of the current guide (0 if first invocation)' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'next_guide', type => 'guide', init => 1,
|
|
desc => "The next guide's ID" }
|
|
);
|
|
|
|
%invoke = (
|
|
vars => [ 'GList *guides' ],
|
|
code => <<'CODE'
|
|
{
|
|
guides = gimage->guides;
|
|
|
|
if (guides != NULL)
|
|
{
|
|
if (guide == 0) /* init - Return first guide ID in list */
|
|
{
|
|
while (guides && (((Guide *) guides->data)->position < 0))
|
|
guides = guides->next;
|
|
|
|
if (guides) /* didn't just come to end of list */
|
|
next_guide = ((Guide *) guides->data)->guide_ID;
|
|
}
|
|
else
|
|
{
|
|
success = FALSE;
|
|
|
|
while (guides)
|
|
{
|
|
if ((((Guide *) guides->data)->guide_ID == guide) &&
|
|
(((Guide *) guides->data)->position >= 0))
|
|
{
|
|
GList* tmplist;
|
|
|
|
success = TRUE;
|
|
|
|
tmplist = guides->next;
|
|
|
|
while (tmplist && (((Guide *) tmplist->data)->position < 0))
|
|
tmplist = tmplist->next;
|
|
|
|
if (tmplist)
|
|
next_guide = ((Guide *) tmplist->data)->guide_ID;
|
|
else
|
|
next_guide = 0;
|
|
|
|
break;
|
|
}
|
|
|
|
guides = guides->next;
|
|
}
|
|
|
|
}
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub image_get_guide_orientation {
|
|
$blurb = 'Get orientation of a guide on an image.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure takes an image and a guide ID as input and returns the
|
|
orientations of the guide.
|
|
HELP
|
|
|
|
&pdb_misc;
|
|
|
|
@inargs = (
|
|
&std_image_arg,
|
|
{ name => 'guide', type => 'guide',
|
|
desc => 'The guide' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'orientation', type => 'enum GuideOrientation', init => 1,
|
|
desc => "The guide's orientation: { %%desc%% }" }
|
|
);
|
|
|
|
%invoke = (
|
|
vars => [ 'GList *guides' ],
|
|
code => <<'CODE'
|
|
{
|
|
guides = gimage->guides;
|
|
|
|
success = FALSE;
|
|
|
|
while (guides)
|
|
{
|
|
if ((((Guide *) guides->data)->guide_ID == guide) &&
|
|
(((Guide *) guides->data)->position >= 0))
|
|
{
|
|
orientation = ((Guide *) guides->data)->orientation;
|
|
success = TRUE;
|
|
break;
|
|
}
|
|
|
|
guides = guides->next;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub image_get_guide_position {
|
|
$blurb = 'Get position of a guide on an image.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure takes an image and a guide ID as input and returns the position
|
|
of the guide relative to the top or left of the image.
|
|
HELP
|
|
|
|
&pdb_misc;
|
|
|
|
@inargs = (
|
|
&std_image_arg,
|
|
{ name => 'guide', type => 'guide',
|
|
desc => 'The guide' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'position', type => 'int32', init => 1,
|
|
desc => "The guide's position relative to top or left of image" }
|
|
);
|
|
|
|
%invoke = (
|
|
vars => [ 'GList *guides' ],
|
|
code => <<'CODE'
|
|
{
|
|
guides = gimage->guides;
|
|
|
|
success = FALSE;
|
|
|
|
while (guides)
|
|
{
|
|
if ((((Guide *) guides->data)->guide_ID == guide) &&
|
|
(((Guide *) guides->data)->position >= 0))
|
|
{
|
|
position = ((Guide *) guides->data)->position;
|
|
success = TRUE;
|
|
break;
|
|
}
|
|
|
|
guides = guides->next;
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
@headers = qw("gimage.h");
|
|
|
|
@procs = qw(image_add_hguide image_add_vguide image_delete_guide
|
|
image_find_next_guide image_get_guide_orientation
|
|
image_get_guide_position);
|
|
%exports = (app => [@procs]);
|
|
|
|
$desc = 'Guide procedures';
|
|
|
|
1;
|