callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse Source
This commit is contained in:
Marc Lehmann
1999-07-30 20:51:19 +00:00
parent a3854b331c
commit aaedafae1d
16 changed files with 312 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
plug-ins/perl/examples/perlotine
View File

@ -15,7 +15,7 @@ sub get_vguides { # get back an ordered set of vertical guides
$i=0;
my @vguides;
while ($i=$img->find_next_guide($i)) {
if ($img->get_guide_orientation($i) == &Gimp::VERTICAL_GUIDE){
if ($img->get_guide_orientation($i) == ORIENTATION_VERTICAL){
$keyval = sprintf("%4d", $img->get_guide_position($i));
$vkeys{$keyval} = $i;
}
@ -32,7 +32,7 @@ sub get_hguides { # get back an ordered set of horizontal guides
$i=0;
my @hguides;
while ($i=$img->find_next_guide($i)) {
if ($img->get_guide_orientation($i) == &Gimp::HORIZONTAL_GUIDE){
if ($img->get_guide_orientation($i) == ORIENTATION_HORIZONTAL){
$keyval = sprintf("%4d", $img->get_guide_position($i));
$hkeys{$keyval} = $i;
}
@ -106,7 +106,7 @@ register "perlotine",
"Add guides to an image. Then run this. It will cut along the guides, and give you the html to reassemble the resulting images.",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-03-19",
"1999-07-30",
"<Image>/Image/Transforms/Perl-o-tine",
"*",
[