Commit 1251b28f authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent 9e040204
#!/usr/bin/perl
#!/usr/app/bin/perl
use Gimp qw( :auto );
use Gimp::Fu;
......@@ -78,6 +78,11 @@ sub alpha2col {
}
$target_layer->set_visible(1);
gimp_palette_set_background($color);
# $newlay = gimp_layer_new ( $img,
# $target_layer->width,
# $target_layer->height,
# 1, "NewLayer", 100, NORMAL);
# $img->add_layer($newlay, scalar(@layers));
$newlay = $target_layer->copy(1);
$img->add_layer($newlay, 0);
$newlay->set_offsets(@offsets);
......@@ -102,8 +107,8 @@ register
"Change the current alpha to a selected color.",
"Seth Burgess",
"Seth Burgess<sjburges\@gimp.org>",
"2-15-98",
"<Image>/Image/Colors/Alpha2Color",
"1998-10-18",
"<Image>/Filters/Misc/Alpha2Color",
"RGBA",
[
[PF_COLOR, "Color", "Color for current alpha", [127,127,127]]
......
#!/usr/bin/perl
#!/usr/app/bin/perl
# Revision 1.0: Released it
# 1.1: Marc Lehman added undo capability! <pcg@goof.com>
# 1.2: Added my email, and put it in "Noise" where it belongs
# <sjburges@gimp.org>
use Gimp;
use Gimp::Fu;
......@@ -13,9 +10,9 @@ register "feedback",
"Take an image and feed it back onto itself multiple times",
"This plug-in simulates video feedback. It makes for kinda a neat desktop if you're into that sort of thing",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-99",
"<Image>/Filters/Noise/Feedback",
"Seth Burgess",
"1.1",
"<Image>/Filters/Misc/feedback",
"RGB, GRAY",
[
[PF_SLIDER, "offset", "the amount the frames will offset", 3, [0, 255, 1]],
......
#!/usr/bin/perl
#!/usr/app/bin/perl
use Gimp;
use Gimp::Fu;
......@@ -93,8 +93,8 @@ register
"Prep for gif",
"Make the image a small-cut-out of the intended background, so your transparent text doesn't look blocky.",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-98",
"Seth Burgess",
"1998-09-14",
"<Image>/Filters/Misc/Prepare for GIF",
"RGB*",
[
......
#!/usr/bin/perl
#!/usr/app/bin/perl
# sent to me by Seth Burgess <sjburges@gimp.org>
# sent to me by Seth Burgess <sjburges@ou.edu>
# small changes my Marc Lehmann <pcg@goof.com>
use Gimp;
......@@ -49,9 +49,9 @@ register
"Add wind to an image",
"Blow your image all over :)",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"Seth Burgess (c)",
"1998-09-14",
"<Image>/Filters/Distorts/Windify",
"<Image>/Filters/Artistic/Windify",
"*",
[
[PF_INT32, "Angle", "Wind Angle, 0 is left", 120],
......
#!/usr/bin/perl
#!/usr/app/bin/perl
# This is (hopefully) a demonstration of how pathetically easy it is to script
# a neato effect you've come up with. This lil' effect was created by xach,
# and translated by sjburges (me). You can consider it released under the GPL
......@@ -25,8 +25,7 @@
# 1.2: Fixed buggy selection handling - oops ;)
# 1.3: Added undo capability by Marc Lehman <pcg@goof.com>
# 1.4: Marc Lehman <pcg@goof.com>, changed function name
# 1.5: Seth Burgess <sjburges@gimp.org> added my email, put it
# in a directory more suitable than the lame "Misc"
# Here's the boring start of every script...
use Gimp;
......@@ -37,9 +36,9 @@ register "xach_blocks",
"Turn your picture into something that resembles a certain trademarked
building block creation",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-98",
"<Image>/Filters/Map/Xach Blocks",
"Seth Burgess",
"1.4",
"<Image>/Filters/Misc/Xach Blocks",
"*",
[
[PF_SLIDER, "Block size", "The size of the blocks...", 10, [0, 255, 1]],
......
#!/usr/bin/perl
# by Seth Burgess <sjburges@gimp.org>
#!/usr/app/bin/perl
#[Xach] start off with an image, then pixelize it
#[Xach] then add alpha->add layer mask [20:21]
#[Xach] render a checkerboard into the layer mask
......@@ -17,9 +15,7 @@
# Revision 1.1: Marc Lehman <pcg@goof.com> added undo capability
# Revision 1.2: Marc Lehman <pcg@goof.com>, changed function name
# Revision 1.3: Seth Burgess <sjburges@gimp.org>, changed location and
# added my email address
#
# Here's the boring start of every script...
use Gimp;
......@@ -29,9 +25,9 @@ register "xach_shadows",
"Xach's Shadows o' Fun",
"Screen of 50% of your drawing into a dropshadowed layer.",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-98",
"<Image>/Filters/Map/Xach Shadows",
"Seth Burgess",
"1.2",
"<Image>/Filters/Misc/Xach Shadows",
"RGB*, GRAY*",
[
[PF_SLIDER, "Block size", "The size of the blocks...", 10, [0, 255, 1]],
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment