dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

updated my gimp-perl plugins for sane menus and email addys

This commit is contained in:
Seth Burgess 1999-02-16 03:16:30 +00:00
parent 8219132943
commit ed92f2189f
7 changed files with 41 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ChangeLog
View File

@ -1,3 +1,12 @@
Mon Feb 15 21:14:00 CST 1999 Seth Burgess <sjburges@gimp.org>
* plug-ins/perl/examples/prep4gif.pl
* plug-ins/perl/examples/alpha2color.pl
* plug-ins/perl/examples/windy.pl
* plug-ins/perl/examples/feedback.pl
* plug-ins/perl/examples/xachlego.pl
* plug-ins/perl/examples/xachshadows.pl: added email addresses and
put things in a more sane spot in the menus
Mon Feb 15 05:23:18 1999 Tor Lillqvist <tml@iki.fi> Mon Feb 15 05:23:18 1999 Tor Lillqvist <tml@iki.fi>
* app/color_balance.c (color_balance): Use the rgb_to_l function. * app/color_balance.c (color_balance): Use the rgb_to_l function.

11
plug-ins/perl/examples/alpha2color.pl
View File

@ -1,4 +1,4 @@
#!/usr/app/bin/perl #!/usr/bin/perl
use Gimp qw( :auto ); use Gimp qw( :auto );
use Gimp::Fu; use Gimp::Fu;
@ -78,11 +78,6 @@ sub alpha2col {
} }
$target_layer->set_visible(1); $target_layer->set_visible(1);
gimp_palette_set_background($color); 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); $newlay = $target_layer->copy(1);
$img->add_layer($newlay, 0); $img->add_layer($newlay, 0);
$newlay->set_offsets(@offsets); $newlay->set_offsets(@offsets);
@ -107,8 +102,8 @@ register
"Change the current alpha to a selected color.", "Change the current alpha to a selected color.",
"Seth Burgess", "Seth Burgess",
"Seth Burgess<sjburges\@gimp.org>", "Seth Burgess<sjburges\@gimp.org>",
"1998-10-18", "2-15-98",
"<Image>/Filters/Misc/Alpha2Color", "<Image>/Image/Colors/Alpha2Color",
"RGBA", "RGBA",
[ [
[PF_COLOR, "Color", "Color for current alpha", [127,127,127]] [PF_COLOR, "Color", "Color for current alpha", [127,127,127]]

11
plug-ins/perl/examples/feedback.pl
View File

@ -1,7 +1,10 @@
#!/usr/app/bin/perl #!/usr/bin/perl
# Revision 1.0: Released it # Revision 1.0: Released it
# 1.1: Marc Lehman added undo capability! <pcg@goof.com> # 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;
use Gimp::Fu; use Gimp::Fu;
@ -10,9 +13,9 @@ register "feedback",
"Take an image and feed it back onto itself multiple times", "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", "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",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>",
"1.1", "2-15-99",
"<Image>/Filters/Misc/feedback", "<Image>/Filters/Noise/Feedback",
"RGB, GRAY", "RGB, GRAY",
[ [
[PF_SLIDER, "offset", "the amount the frames will offset", 3, [0, 255, 1]], [PF_SLIDER, "offset", "the amount the frames will offset", 3, [0, 255, 1]],

6
plug-ins/perl/examples/prep4gif.pl
View File

@ -1,4 +1,4 @@
#!/usr/app/bin/perl #!/usr/bin/perl
use Gimp; use Gimp;
use Gimp::Fu; use Gimp::Fu;
@ -93,8 +93,8 @@ register
"Prep for gif", "Prep for gif",
"Make the image a small-cut-out of the intended background, so your transparent text doesn't look blocky.", "Make the image a small-cut-out of the intended background, so your transparent text doesn't look blocky.",
"Seth Burgess", "Seth Burgess",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>",
"1998-09-14", "2-15-98",
"<Image>/Filters/Misc/Prepare for GIF", "<Image>/Filters/Misc/Prepare for GIF",
"RGB*", "RGB*",
[ [

8
plug-ins/perl/examples/windy.pl
View File

@ -1,6 +1,6 @@
#!/usr/app/bin/perl #!/usr/bin/perl
# sent to me by Seth Burgess <sjburges@ou.edu> # sent to me by Seth Burgess <sjburges@gimp.org>
# small changes my Marc Lehmann <pcg@goof.com> # small changes my Marc Lehmann <pcg@goof.com>
use Gimp; use Gimp;
@ -49,9 +49,9 @@ register
"Add wind to an image", "Add wind to an image",
"Blow your image all over :)", "Blow your image all over :)",
"Seth Burgess", "Seth Burgess",
"Seth Burgess (c)", "Seth Burgess <sjburges\@gimp.org>",
"1998-09-14", "1998-09-14",
"<Image>/Filters/Artistic/Windify", "<Image>/Filters/Distorts/Windify",
"*", "*",
[ [
[PF_INT32, "Angle", "Wind Angle, 0 is left", 120], [PF_INT32, "Angle", "Wind Angle, 0 is left", 120],

11
plug-ins/perl/examples/xachlego.pl
View File

@ -1,4 +1,4 @@
#!/usr/app/bin/perl #!/usr/bin/perl
# This is (hopefully) a demonstration of how pathetically easy it is to script # 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, # 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 # and translated by sjburges (me). You can consider it released under the GPL
@ -25,7 +25,8 @@
# 1.2: Fixed buggy selection handling - oops ;) # 1.2: Fixed buggy selection handling - oops ;)
# 1.3: Added undo capability by Marc Lehman <pcg@goof.com> # 1.3: Added undo capability by Marc Lehman <pcg@goof.com>
# 1.4: Marc Lehman <pcg@goof.com>, changed function name # 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... # Here's the boring start of every script...
use Gimp; use Gimp;
@ -36,9 +37,9 @@ register "xach_blocks",
"Turn your picture into something that resembles a certain trademarked "Turn your picture into something that resembles a certain trademarked
building block creation", building block creation",
"Seth Burgess", "Seth Burgess",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>",
"1.4", "2-15-98",
"<Image>/Filters/Misc/Xach Blocks", "<Image>/Filters/Map/Xach Blocks",
"*", "*",
[ [
[PF_SLIDER, "Block size", "The size of the blocks...", 10, [0, 255, 1]], [PF_SLIDER, "Block size", "The size of the blocks...", 10, [0, 255, 1]],

14
plug-ins/perl/examples/xachshadow.pl
View File

@ -1,4 +1,6 @@
#!/usr/app/bin/perl #!/usr/bin/perl
# by Seth Burgess <sjburges@gimp.org>
#[Xach] start off with an image, then pixelize it #[Xach] start off with an image, then pixelize it
#[Xach] then add alpha->add layer mask [20:21] #[Xach] then add alpha->add layer mask [20:21]
#[Xach] render a checkerboard into the layer mask #[Xach] render a checkerboard into the layer mask
@ -15,7 +17,9 @@
# Revision 1.1: Marc Lehman <pcg@goof.com> added undo capability # Revision 1.1: Marc Lehman <pcg@goof.com> added undo capability
# Revision 1.2: Marc Lehman <pcg@goof.com>, changed function name # 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... # Here's the boring start of every script...
use Gimp; use Gimp;
@ -25,9 +29,9 @@ register "xach_shadows",
"Xach's Shadows o' Fun", "Xach's Shadows o' Fun",
"Screen of 50% of your drawing into a dropshadowed layer.", "Screen of 50% of your drawing into a dropshadowed layer.",
"Seth Burgess", "Seth Burgess",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>",
"1.2", "2-15-98",
"<Image>/Filters/Misc/Xach Shadows", "<Image>/Filters/Map/Xach Shadows",
"RGB*, GRAY*", "RGB*, GRAY*",
[ [
[PF_SLIDER, "Block size", "The size of the blocks...", 10, [0, 255, 1]], [PF_SLIDER, "Block size", "The size of the blocks...", 10, [0, 255, 1]],