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
2000-01-31 03:48:28 +00:00
parent 03015f85d7
commit a22fd354ad
11 changed files with 784 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/Changes
View File

@ -10,7 +10,9 @@ Revision history for Gimp-Perl extension.
- do not install examples/gap-vcr.
- added new sethspin, with slight changes.
- do not install "feedback".
- updated xachlego.
- updated examples/xachlego.
- added examples/blended2, examples/translogo.
- removed examples/giflogo.
1.19 Thu Jan 6 00:21:58 CET 2000
- used N_ to mark all the menu paths, since gimp now tries to

7
plug-ins/perl/MANIFEST
View File

@ -122,8 +122,12 @@ examples/bricks
examples/dataurl
examples/colorhtml
examples/gap-vcr
examples/giflogo
examples/translogo
examples/sethspin
examples/roundsel
examples/visual
examples/billboard
examples/blended2
pxgettext
po/ChangeLog
po/gimp-perl.pot
@ -131,3 +135,4 @@ po/de.po
po/it.po
po/cs.po
po/no.po
po/update.sh

9
plug-ins/perl/Makefile.PL
View File

@ -28,8 +28,8 @@ if ($ARGV[0] ne "--writemakefile") {
@pins =
qw(windify prep4gif webify PDB tex-to-float ditherize
xachlego xachshadow parasite-editor roundsel
scratches blowinout terral_text xachvision perlcc giflogo
xachlego xachshadow parasite-editor roundsel blended2
scratches blowinout terral_text xachvision perlcc translogo
animate_cells image_tile yinyang stamps font_table sethspin
perlotine randomblends innerbevel fit-text guidegrid roundrectsel
repdup centerguide stampify goldenmean triangle mirrorsplit
@ -248,10 +248,7 @@ autoconf:
# merge messages into potfile
msgmerge:
./pxgettext `find . -name '*.pm' -o -name '*.xs' -o -path './examples/*'` Perl-Server | \\
msgmerge -w 83 po/gimp-perl.pot - >gimp-perl.pot~ && \\
mv gimp-perl.pot~ po/gimp-perl.pot
for po in po/*.po; do msgmerge -w 83 \$\$po po/gimp-perl.pot >\$\$po~ && mv \$\$po~ \$\$po; done
./po/update.sh
# set \$VERSION in all modules
setver:

1
plug-ins/perl/UI/UI.pm
View File

@ -488,7 +488,6 @@ sub _new_adjustment {
$adj[3]||=($adj[1]-$adj[0])*0.01;
$adj[4]||=0;
print "new adjustment $_[0], @adj\n";
new Gtk::Adjustment $_[0],@adj;
}

186
plug-ins/perl/examples/billboard Executable file
View File

@ -0,0 +1,186 @@
#!/usr/bin/perl -w
# This one's all mine. Well, its GPL/Artisitic but I"m the author and creator. # I think you need gimp 1.1 or better for this - if you don't, please let
# me know
# I'm hacking this on top of my sethspin script, so this is doing even more
# stuff it wasn't really designed to do. Hence if you thought sethspin was
# a bit ugly, look at this one...
# I think it was tigert that suggested this. It turned out to be less
# complex than I orginally thought so I figured I'd give it a spin.
# Seth Burgess
# <sjburges@gimp.org>
use Gimp qw(:auto);
use Gimp::Fu;
use Gimp::Util;
# Uncomment below to spew forth much data about whats going on.
#Gimp::set_trace(TRACE_ALL);
sub saw { # a sawtooth function on PI
($val) = @_;
if ($val < 3.14159/2.0) {
return ($val/3.14159) ;
}
elsif ($val < 3.14159) {
return (-1+$val/3.14159);
}
elsif ($val < 3.14159+3.14159/2.0) {
return ($val/3.14159) ;
}
else {
return (-1+$val/3.14159);
}
}
sub spin_layer { # the function for actually spinning the layer
my ($img, $spin, $dest, $numframes, $prp, $blinds) = @_;
# Now lets spin it!
$stepsize = 3.14159/$numframes; # in radians
for ($i=0; $i<=3.14159; $i+=$stepsize) {
Gimp->progress_update ($i/3.14159);
# create a new layer for spinning
$framelay = ($i < 3.14159/2.0) ? $spin->copy(1) : $dest->copy(1);
$img->add_layer($framelay, 0);
# spin it a step
# Here I need to make the proper selection, repeatedly if necessary
$blindheight = $img->height/$blinds;
for ($j=0; $j<$blinds; $j++) {
# select a section
$img->rect_select(0, $j*$blindheight, $img->width, $blindheight, 2, 0, 0.13);
@x = $img->selection_bounds();
# x[1],x[2] x[3],x[2]
# x[1],x[4] x[3],x[4]
$floater = $framelay->perspective(1,
$x[1]+saw($i)*$prp*$framelay->width,$x[2]+$blindheight *sin($i)/2,
$x[3]-saw($i)*$prp*$framelay->width,$x[2]+$blindheight *sin($i)/2,
$x[1]-saw($i)*$prp*$framelay->width,$x[4]-$blindheight *sin($i)/2,
$x[3]+saw($i)*$prp*$framelay->width,$x[4]-$blindheight *sin($i)/2);
# Gimp Perspective Functionality has changed. It used to create a floating
# selection if there was a selection active already. Now it only does that
# in interactive - PDB makes it a new layer. Fine by me, wish the docs had
# changed though.
# $floater->floating_sel_anchor;
} # end for ($j=0;...
# I need to create another layer beind this spun one now
$backlayer = $framelay->layer_copy(0);
$img->add_layer($backlayer, 1);
$backlayer->fill(1); # BG-IMAGE-FILL
}
for ($i=0; $i<$numframes; $i++) {
@all_layers = $img->get_layers();
$img->set_visible($all_layers[$i],$all_layers[$i+1]);
$img->merge_visible_layers(0);
}
@all_layers = $img->get_layers();
$destfram = $all_layers[$numframes]->copy(0);
$img->add_layer($destfram,0);
# clean up my temporary layers
$img->remove_layer($all_layers[$numframes]);
$img->remove_layer($all_layers[$numframes+1]);
}
register "billboard",
"Billboard",
"Take one image. Spin it about the multiple axes, and end up with another image. I made it for easy web buttons, mostly because somebody suggested to me.",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1.3",
N_"<Toolbox>/Xtns/Animation/Billboard",
"*",
[
[PF_DRAWABLE, "source", "What drawable to spin from?"],
[PF_DRAWABLE, "destination","What drawable to spin to?"],
[PF_INT8, "frames", "How many frames to use?", 16],
[PF_COLOR, "background", "What color to use for background if not transparent", [0,0,0]],
[PF_SLIDER, "perspective", "How much perspective effect to get", 40, [0,255,5]],
[PF_TOGGLE, "spin_back", "Also spin back?" , 0],
[PF_TOGGLE, "convert_indexed", "Convert to indexed?", 1],
[PF_SPINNER, "billboard_slats", "Number of shades", 3, [1,50,1]],
],
[],
['gimp-1.1'],
sub {
my($src,$dest,$frames,$color,$psp,$spinback,$indexed, $shadenum) =@_;
$maxwide = ($src->width > $dest->width) ? $src->width : $dest->width;
$maxhigh = ($src->height > $dest->height) ? $src->height: $dest->height;
$img = gimp_image_new($maxwide, $maxhigh, RGB);
$tmpimglayer = $img->add_new_layer(0,3,1);
$img->display_new;
Gimp->progress_init("Billboard...",-1);
$oldbackground = gimp_palette_get_background();
Palette->set_background($color);
$src->edit_copy();
$spinlayer = $tmpimglayer->edit_paste(1);
$spinlayer->floating_sel_to_layer();
$dest->edit_copy();
$destlayer = $tmpimglayer->edit_paste(1);
$destlayer->floating_sel_to_layer();
$tmpimglayer->remove_layer;
$spinlayer->resize($maxwide, $maxhigh, $spinlayer->offsets);
$destlayer->resize($maxwide, $maxhigh, $destlayer->offsets);
# work around for PF_SLIDER when < 1
$psp = $psp/255.0;
# need an even number of frames for spinback
if ($frames%2 && $spinback) {
$frames++;
gimp_message("An even number of frames is needed for spin back.\nAdjusted frames up to $frames");
}
spin_layer($img, $spinlayer, $destlayer, $spinback ? $frames/2 : $frames-1, $psp, $shadenum);
$img->set_visible($img->add_new_layer(1),($img->get_layers)[0]);
$img->merge_visible_layers(0);
if ($spinback) {
@layerlist = $img->get_layers();
$img->add_layer($layerlist[$frames/2]->copy(0),0);
@layerlist = $img->get_layers();
spin_layer($img, $layerlist[1], $layerlist[0], $frames/2, $psp, $shadenum);
$img->remove_layer(($img->get_layers)[0]);
}
# unhide and name layers
@all_layers = $img->get_layers;
$img->set_visible(@all_layers);
for ($i=1; $i<=$frames ; $i++) {
$all_layers[$i-1]->set_name("Spin Layer $i (50ms)");
}
$all_layers[$frames-1]->set_name("Spin Layer SRC (250ms)");
if ($spinback) {
$all_layers[$frames/2-1]->set_name("Spin Layer DEST (250ms)");
}
else { $all_layers[0]->set_name("Spin Layer DEST (250ms)")}
# indexed conversion wants a display for some reason
if ($indexed) {
$img->convert_indexed(1, # dither type = fs
MAKE_PALETTE, # palette type
255, # number of colors
0, # don't dither transparency
1, # (ignored)
"Custom" # custom palette name
);
}
Palette->set_background($oldbackground);
gimp_displays_flush();
return();
};
exit main;

88
plug-ins/perl/examples/blended2 Executable file
View File

@ -0,0 +1,88 @@
#!/usr/bin/perl
use Gimp qw(:auto __ N_);
use Gimp::Fu;
use Gimp::Util;
#Gimp::set_trace(TRACE_CALL);
sub my_innerbevel {
my ($image, $drawable, $bg_col, $bl1, $bl2, $elev, $depth, $rad_tog) = @_;
$drawable->has_alpha or die "You can't run this script without an ALPHA CHANNEL!!";
my $img = gimp_image_new (256, 100, RGB_IMAGE);
$drawable->image->selection_all;
$drawable->edit_copy;
gimp_selection_none ($image);
if ($rad_tog == 0) {
my $bg_layer;
$bg_layer=$img->layer_new($drawable->width,$drawable->height,$image->layertype(1), "Background", 100, NORMAL_MODE);
gimp_palette_set_background ($bg_col);
$bg_layer->drawable_fill(BG_IMAGE_FILL);
$img->add_layer($bg_layer,0);
}
$img->resize($drawable->width,$drawable->height, 0, 0);
my $text1_lay;
$text1_lay=$img->layer_new($drawable->width,$drawable->height,$image->layertype(1), "Text -1-", 100, NORMAL_MODE);
$img->add_layer($text1_lay,-1);
gimp_edit_clear ($text1_lay);
$text1_lay->edit_paste(0)->floating_sel_anchor;
$text1_lay->set_preserve_trans(1);
gimp_palette_set_foreground ($bl1);
gimp_palette_set_background ($bl2);
@start = ($text1_lay->width / 2 - 5, 0);
@end = ($text1_lay->width / 2 + 5, $text1_lay->height);
gimp_blend ($text1_lay, 0, 0, 0, 100, 0, 0, 0, 2, 0.30, @start, @end);
my $text2_lay;
$text2_lay=$text1_lay->copy(1);
$img->add_layer($text2_lay, -1);
gimp_palette_set_background ([255, 255, 255]);
$text2_lay->edit_fill;
$text2_lay->set_preserve_trans(0);
$text1_lay->set_preserve_trans(0);
plug_in_gauss_rle ($text2_lay, 6, 1, 1);
plug_in_bump_map ($img, $text1_lay, $text2_lay, 110.0, $elev, $depth, 0, 0, 0, 0, 0, 0, 0);
$text2_lay->invert;
$img->lower_layer($text2_lay);
$text2_lay->translate(2, 3);
$text2_lay->set_opacity(75);
if ($rad_tog == 1) {
$img->flatten;
gimp_convert_indexed ($img, 0, MAKE_PALETTE, 256, 0, 0, "");
my $new = gimp_image_active_drawable ($img);
gimp_layer_add_alpha ($new);
gimp_by_color_select ($new, [255, 255, 255], 55, ADD, 0, 0, 0.0, 0);
gimp_edit_clear ($new);
gimp_selection_none ($img);
} else {
$img->flatten;
}
gimp_display_new ($img);
exit main;
}
$help=<<EOF.$help;
This script will produce a nice blended beveled logo from your alpha
layer, which must have a black text. You can choose the initial and finals colours
of the blend, the background, and how to tweak the bevel effect.
It uses a techinque quite similar to that in the Inner Bevel Logo.
EOF
register "make_bevel_logos",
"A script to get blended beveled logos",
$help,
"Michele Gherlone <mikem\@enet.it>",
"(c) 2000 M. Gherlone",
"20000130",
N_"<Image>/Filters/Logulator/Blended II",
"*",
[
[PF_COLOUR , 'choose_bg_colour', "Choose the background colour", [255, 255, 255]],
[PF_COLOUR , 'blend_start', "Choose the 1st blend colour", [247, 231, 9]],
[PF_COLOUR , 'blend_stop', "Choose the 2nd blend colour", [255, 0, 0]],
[PF_SLIDER , 'strength_of_bevel', "Strength of bevel", 45.00, [0.00, 60.00, 0.50]],
[PF_SLIDER , 'depth_of_bevel', "Depth of bevel", 4, [0, 60, 1]],
[PF_RADIO , 'user_choice', "The user's choice", 0, [Background => 0, Transparent => 1]],
],
\&my_innerbevel;
exit main;

1
plug-ins/perl/examples/map_to_gradient
View File

@ -42,7 +42,6 @@ register "map_to_gradient",
$grad = $grad->xchg(0,1); # this form is later needed in index, so do it now
my @bounds = $drawable->bounds;
my @off = $drawable->offsets;
{
my $src = new PixelRgn ($drawable,@bounds,0,0);
my $dst = new PixelRgn ($drawable,@bounds,1,1);

39
plug-ins/perl/examples/roundsel Executable file
View File

@ -0,0 +1,39 @@
#!/usr/bin/perl
# Use gaussian blur and levels to round selection corners
use Gimp qw(:auto __ N_);
use Gimp::Fu;
use Gimp::Util;
# Gimp::set_trace(TRACE_ALL);
register "round_sel",
"Rounds a selection.",
"Rounds a selection.",
"Uri Zarfaty",
"Uri Zarfaty <udz20\@cam.ac.uk>",
"1999-03-25",
N_"<Image>/Select/Round...",
"*",
[
[PF_SPINNER, "roundness", "How much to round, in pixels", 16, [1,1000,1]],
], sub {
my($img,$drawable,$round) = @_;
eval { $img->undo_push_group_start };
my $channel = gimp_selection_save($img);
gimp_selection_none($img);
plug_in_gauss_iir($img, $channel, $round, 1, 1);
gimp_levels($channel, 0, 123, 133, 1.0, 0, 255);
gimp_selection_load($channel);
gimp_image_remove_channel($img, $channel);
# gimp_channel_delete($channel);
eval { $img->undo_push_group_end };
();
};
exit main;

73
plug-ins/perl/examples/sethspin
View File

@ -1,6 +1,12 @@
#!/usr/bin/perl
# This one's all mine. Well, its GPL/Artisitic but I"m the author and creator.
#
# Note: Seth has transferred the maintainer `position' to me, so bother me
# instead of him now :-)
# - Steinar H. Gunderson <sgunderson@bigfoot.com>
# This one's all mine. Well, its GPL/Artisitic but I'm the author and creator.
# You need gimp 1.1 or better for this; too much has changed, and I don't think
# 1.0.x had a perspective PDB function anyway
@ -25,6 +31,11 @@
# make sure you're logging to console since the Gtk messagebox will never show
# up due to a rapid segfault).
#
# Just a comment on that: We fixed the bug, so height=0 no longer segfaults, but
# gives the error message it should. However, if GIMP segfaults, you should try
# logging to console to make sure you get all applicable error messages. This
# will make it _much_ easier to find the bug. - Steinar
#
# Revision History:
# 1.0 - Initial (too early) release
# 1.1 - Second (still ugly) release: Made the perspective setting actually do
@ -34,6 +45,7 @@
# Filters->Animations-> menu to Xtns->Animations. I think its
# clearer whats going on this way. It also works w/ any 2 layers now.
# 1.5 - Some debugging by Steinar and myself to make it work again.
# 1.6 - Moved some renaming into the main loop, more cleanups.
#
# TODO: Clean it up; allow for other effects (skewing, ripples?) while spinning;
@ -49,15 +61,12 @@ use Gimp::Util;
sub saw { # a sawtooth function on PI
($val) = @_;
if ($val < 3.14159/2.0) {
return ($val/3.14159) ;
}
elsif ($val < 3.14159) {
return ($val/3.14159);
} elsif ($val < 3.14159) {
return (-1+$val/3.14159);
}
elsif ($val < 3.14159+3.14159/2.0) {
return ($val/3.14159) ;
}
else {
} elsif ($val < 3.14159+3.14159/2.0) {
return ($val/3.14159);
} else {
return (-1+$val/3.14159);
}
}
@ -66,17 +75,21 @@ sub spin_layer { # the function for actually spinning the layer
my ($img, $spin, $dest, $numframes, $prp) = @_;
my $floater, # The transformed image
$framelay; # The background color
$framelay, # The background color
$frameno; # The current frame
# Now lets spin it!
# Now let's spin it!
$stepsize = 3.14159/$numframes; # in radians
$frameno = 0;
for ($i=0; $i<=3.14159; $i+=$stepsize) {
Gimp->progress_update ($i/3.14159);
# create a new layer for spinning
$framelay = ($i < 3.14159/2.0) ? $spin->copy(1) : $dest->copy(1);
$framelay = ($i < 3.14159/2.0) ? $spin->copy(1) : $dest->copy(1);
$img->add_layer($framelay, 0);
$floater = $framelay->copy(1);
$img->add_layer($floater, 0);
# spin it a step
$img->selection_all();
@x = $img->selection_bounds();
@ -88,9 +101,9 @@ sub spin_layer { # the function for actually spinning the layer
$y1 = int($x[2]+$spin->height *sin($i)/2);
$y3 = int($x[4]-$spin->height *sin($i)/2);
# height must be != 0
$y3++ if ($y1 == $y3);
$floater->set_name("First-floater $i");
$floater = Gimp->perspective($floater, 1,
$x[1]+saw($i)*$prp*$framelay->width,$y1,
$x[3]-saw($i)*$prp*$framelay->width,$y1,
@ -98,11 +111,12 @@ sub spin_layer { # the function for actually spinning the layer
$x[3]+saw($i)*$prp*$framelay->width,$y3);
$framelay->fill(1); # BG-IMAGE-FILL
# merge the two layers together before we continue
$img->set_visible($floater, $framelay);
$framelay = $img->merge_visible_layers(0);
$floater->set_name("Floater $i");
$framelay->set_name("Framelay $i");
$img->merge_visible_layers(0);
$frameno++;
$framelay->set_name("Spin Layer $frameno (50ms)");
}
}
@ -111,8 +125,8 @@ register "seth_spin",
"Take one image. Spin it about the horizontal axis, and end up with another image. I made it for easy web buttons.",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1.5",
N_"<Toolbox>/Xtns/Animation/Seth Spin...",
"1.6",
N_"<Toolbox>/Xtns/Animation/Seth Spin",
"*",
[
[PF_DRAWABLE, "source", "What drawable to spin from?"],
@ -126,14 +140,14 @@ register "seth_spin",
[],
['gimp-1.1'],
sub {
my($src,$dest,$frames,$color,$perspective,$spinback,$indexed) = @_;
my($src,$dest,$frames,$color,$perspective,$spinback,$indexed) = @_;
$oldbackground = Gimp->palette_get_background();
Gimp->palette_set_background($color);
$perspective = $perspective/255.0; # PF_SLIDER doesn't work right for < 1
Gimp->progress_init("Seth Spin...",-1);
Gimp->progress_init(__"Seth Spin...",-1);
# Copy souce and destination to new image
@ -161,7 +175,7 @@ register "seth_spin",
# need an even number of frames for spinback
if ($frames%2 && $spinback) {
$frames++;
gimp_message("An even number of frames is needed for spin back.\nAdjusted frames up to $frames");
Gimp->message(__"An even number of frames is needed for spin back.\nAdjusted frames up to $frames");
}
spin_layer($img, $spinlayer, $destlayer, $spinback ? $frames/2 : $frames, $perspective);
@ -170,7 +184,7 @@ register "seth_spin",
if ($spinback) {
@layerlist = $img->get_layers();
spin_layer($img, $destlayer, $spinlayer, $frames/2, $perspective);
}
}
# remove the original 2 pasted layers
$img->remove_layer($destlayer);
@ -180,20 +194,14 @@ register "seth_spin",
@all_layers = $img->get_layers;
$img->set_visible(@all_layers);
for ($i=1; $i<=$frames ; $i++) {
$all_layers[$i-1]->set_name("Spin Layer $i (50ms)");
}
$all_layers[$frames-1]->set_name("Spin Layer SRC (250ms)");
if ($spinback) {
$all_layers[$frames/2-1]->set_name("Spin Layer DEST (250ms)");
}
else { $all_layers[0]->set_name("Spin Layer DEST (250ms)")}
$all_layers[$frames/2-1]->set_name(__"Spin Layer DEST (250ms)");
}
$all_layers[$frames-1]->set_name(__"Spin Layer SRC (250ms)");
# indexed conversion wants a display for some reason
if ($indexed) {
$img->convert_indexed(1,MAKE_PALETTE,255,0,1,"buffy" );
$img->convert_indexed(1,MAKE_PALETTE,255,0,1,"buffy" );
}
Gimp->palette_set_background($oldbackground);
@ -201,3 +209,4 @@ register "seth_spin",
};
exit main;

91
plug-ins/perl/examples/translogo Executable file
View File

@ -0,0 +1,91 @@
#!/usr/bin/perl
use Gimp qw(:auto __ N_);
use Gimp::Fu;
use Gimp::Util;
#Gimp::set_trace(TRACE_CALL);
sub my_code {
my ($image, $drawable, $rad_tog, $pattern, $txt_col) = @_;
$drawable->has_alpha or die __"You can't run this script without an ALPHA CHANNEL!!";
my $test = 0;
$test = $drawable->type_with_alpha;
if ($test == 5) {
die __"You can't run this script with an INDEXED image!!";
} elsif ($test == 3) {
gimp_convert_rgb ($image);
}
my $img = gimp_image_new (100, 100, RGB_IMAGE);
$drawable->image->selection_all;
$drawable->edit_copy;
gimp_selection_none ($image);
my $layer;
$layer=$img->layer_new($drawable->width,$drawable->height,$image->layertype(1), __"Text", 100, NORMAL_MODE);
$layer->drawable_fill(TRANS_IMAGE_FILL);
$img->add_layer($layer,0);
$layer->edit_paste(0)->floating_sel_anchor;
$img->resize($drawable->width,$drawable->height, 0, 0);
gimp_selection_layer_alpha ($layer);
gimp_selection_invert ($img);
gimp_palette_set_background ([255, 255, 255]);
gimp_edit_fill ($layer);
gimp_selection_none ($img);
gimp_invert ($layer);
plug_in_gauss_rle ($layer, 2.0, 1, 1);
my $bump_lay;
$bump_lay = $img->layer_new($img->width,$img->height, RGBA_IMAGE, __"Bumpmap", 100, NORMAL_MODE);
$bump_lay->drawable_fill(BG_IMAGE_FILL);
$img->add_layer($bump_lay,0);
if ($rad_tog == 1) {
gimp_patterns_set_pattern ($pattern);
gimp_bucket_fill ($bump_lay, PATTERN_BUCKET_FILL, NORMAL_MODE, 100, 0, 0, 0, 0);
} else {
gimp_palette_set_background ($txt_col);
gimp_edit_fill ($bump_lay);
}
plug_in_bump_map ($img, $bump_lay, $layer, 110.0, 45.0, 4, 0, 0, 0, 0, 1, 0, 0);
$pattern_mask = gimp_layer_create_mask ($bump_lay, ALPHA_MASK);
$img->add_layer_mask($bump_lay,$pattern_mask);
gimp_selection_all ($img);
gimp_edit_copy ($layer);
$float = gimp_edit_paste ($pattern_mask, 0);
gimp_floating_sel_anchor ($float);
gimp_levels ($pattern_mask, 0, 0, 77, 0.91, 0, 255);
gimp_image_remove_layer_mask ($img, $bump_lay, APPLY);
gimp_invert ($layer);
gimp_image_flatten ($img);
gimp_convert_indexed ($img, 0, MAKE_PALETTE, 256, 0, 0, "");
my $new = gimp_image_active_drawable ($img);
gimp_layer_add_alpha ($new);
gimp_by_color_select ($new, [255, 255, 255], 55, ADD, 0, 0, 0.0, 0);
gimp_edit_clear ($new);
gimp_selection_none ($img);
return ($img);
}
$help=<<EOF.$help;
This script aims to produce a transparent logo in an indexed image
which is ready to be saved in .gif format. The quality of the
logo is equal to that of flattened .jpg images. If you need a transparent
image containing a logo for your web page, just apply this script over
a drawable with an alpha channel in RGB or GRAY mode. You'll get a transparent
image in indexed mode. You can choose between colour and pattern fill
of your text. Enjoy it!
EOF
register "make_trans_logos",
"A script to get transparent beveled logos",
"$help",
"Michele Gherlone <mikem\@enet.it>",
"(c) 2000 M. Gherlone",
"20000123",
N_"<Image>/Filters/Logulator/Transparent Logo",
"*",
[
[PF_RADIO , 'use_a_colour_or_a_pattern_for_text', "The user's choice", 0, [Colour => 0, Pattern => 1]],
[PF_PATTERN , 'choose_a_pattern', "Choose the text Pattern", "Wood #1"],
[PF_COLOUR , 'choose_a_colour', "Choose the text Color", [69, 88, 211]],
],
\&my_code;
exit main;

327
plug-ins/perl/examples/visual Executable file
View File

@ -0,0 +1,327 @@
#!/usr/bin/perl
# this is just a very basic hack...
use Gimp::Feature qw(perl-5.005 gtk-1.2);
use Gimp (':consts','__','N_');
use Gimp::Fu;
use Gnome;
#use Gtk 0.61231;
use Gtk;
use Gtk::Gdk;
use Gimp::UI (); # for the logo
$VERSION = 0.0;
$tabw = 30;
$tabh = 12;
#Gimp::set_trace(TRACE_ALL);
@stringtargets = (
{ target => "STRING", flags => 0, info => TARGET_STRING },
{ target => "text/plain", flags => 0, info => TARGET_STRING },
);
@funcframetarget = (
{ target => "application/funcframe", flags => 0, info => TARGET_STRING },
);
%typetargets = (
&PF_IMAGE => [{ target => "application/image-link", flags => 0, info => 0 }],
&PF_INT32 => [{ target => "application/value-link", flags => 0, info => 0 }],
&PF_STRING => [{ target => "application/value-link", flags => 0, info => 0 }],
);
my $ex; # average font width for default font
my $ey; # average font height for default font
my $window; # the main window
my $canvas; # the gtklayout widget
my $funclist;
my %type2str = (
&PARAM_BOUNDARY => 'BOUNDARY',
&PARAM_CHANNEL => 'CHANNEL',
&PARAM_COLOR => 'COLOR',
&PARAM_DISPLAY => 'DISPLAY',
&PARAM_DRAWABLE => 'DRAWABLE',
&PARAM_FLOAT => 'FLOAT',
&PARAM_IMAGE => 'IMAGE',
&PARAM_INT32 => 'INT32',
&PARAM_FLOATARRAY => 'FLOATARRAY',
&PARAM_INT16 => 'INT16',
&PARAM_PARASITE => 'PARASITE',
&PARAM_STRING => 'STRING',
&PARAM_PATH => 'PATH',
&PARAM_INT16ARRAY => 'INT16ARRAY',
&PARAM_INT8 => 'INT8',
&PARAM_INT8ARRAY => 'INT8ARRAY',
&PARAM_LAYER => 'LAYER',
&PARAM_REGION => 'REGION',
&PARAM_STRINGARRAY => 'STRINGARRAY',
&PARAM_SELECTION => 'SELECTION',
&PARAM_STATUS => 'STATUS',
&PARAM_INT32ARRAY => 'INT32ARRAY',
);
sub add_func($$;) {
my($group,$func)=@_;
$funclist->append($func);
}
sub create_main {
my $t = new Gtk::Tooltips;
my $w = new Gtk::Window;
my $v = new Gtk::VBox 0,5;
my $h = new Gtk::HBox 0,5;
$canvas = new ProgShell;
$funclist = new Gtk::CList 1;
$funclist->set_usize(200,0);
$funclist->drag_source_set ([-button1_mask, -button3_mask], [-copy, -move], @::stringtargets);
$funclist->signal_connect ("drag_data_get", sub {
my ($widget, $context, $data, $info, $time) = @_;
$data->set ($data->target, 8, $widget->get_text($widget->selection,0));
});
$funclist->set_selection_mode(-extended);
$w->add ($h);
$h->add ($v);
my $sc = new Gtk::ScrolledWindow;
$sc->add ($funclist);
$v->add ($sc);
$h->add ($canvas);
for (sort Gimp->procedural_db_query("","","","","","","")) {
$group = "gimp";
$group = "image" if /^gimp_image_/;
$group = "layer" if /^gimp_layer_/;
$group = "channel" if /^gimp_channel_/;
$group = "drawable" if /^gimp_drawable_/;
add_func $group, $_;
$gimpfunc{$_} = 1;
}
$window = $w;
$w->realize;
$ex = $w->style->font->string_width ('Mn')*0.5;
$ey = $w->style->font->string_width ('My');
$w->set_title(__"Visual Scriptor");
$w->signal_connect("destroy",sub {main_quit Gtk});
show_all $w;
}
register "extension_visual_scriptor",
"Visual Gimp Scripting Environment",
"=pod(DESCRIPTION)",
"Marc Lehmann",
"Marc Lehmann",
$VERSION,
N_"<Toolbox>/Xtns/Visual Scriptor",
"",
[],
sub {
Gimp::gtk_init;
create_main;
main Gtk;
();
};
# the basic function/node-type
package Func;
use Gimp;
sub new_from_gimp_func {
my $name = shift;
my $self = {};
my ($narg, $nval);
(
$self->{blurb},
$self->{help},
$self->{author},
$self->{copyright},
$self->{date},
$self->{proc_type},
$narg,
$nval,
) = Gimp->procedural_db_proc_info($name);
$self->{in } = [map Gimp->procedural_db_proc_arg($name,$_), 0..$narg-1];
$self->{out} = [map Gimp->procedural_db_proc_val($name,$_), 0..$nval-1];
$self;
}
sub new_from_name {
my $class = shift;
my $name = shift;
$new{$name} = new_from_gimp_func($name) if !$new{$name} && $::gimpfunc{$name};
$new{$name} ?
bless {
name => $name,
%{$new{$name}},
}, $class
:
();
}
# a connection tab
package Tab;
use Gimp::basewidget Gtk::Button;
sub OPEN (){1}
sub CONN (){2}
sub BOUND(){3}
sub GTK_CLASS_INIT {
my $class = shift;
add_arg_type $class "state", "gint", 3, 1;
add_arg_type $class "type" , "gint", 3, 2;
add_arg_type $class "dir" , "gint", 3, 3;
}
sub GTK_OBJECT_SET_ARG {
my($self,$arg,$id,$value) = @_;
print "SA $self,$arg,$id,$value\n";
if ($id == 1) {
$self->{state} = $value;
} elsif ($id == 2) {
$self->{type} = $value;
$self->drag_dest_set('all', ['copy'], $::typetargets{$value});
$self->drag_source_set ([-button1_mask], [-copy], $::typetargets{$value});
} elsif ($id == 3) {
$self->{dir} = $value;
}
}
sub GTK_OBJECT_GET_ARG {
my($self,$arg,$id) = @_;
if ($id == 1) {
$self->{state};
} elsif ($id == 2) {
$self->{type};
} elsif ($id == 3) {
$self->{dir};
}
}
sub GTK_OBJECT_INIT {
shift unless ref $self; # care for "old" Gtk modules
$self->set_usize($::tabw, $::tabh);
}
sub new {
my $class = shift;
$class->SUPER::new(@_);
#$class->SUPER::new(shadow => out, @_);
}
# a single function or "block", can only exist
# within a progshell
package FuncFrame;
use Gimp::basewidget Gtk::VBox;
sub GTK_OBJECT_INIT {
my $self = shift;
signal_connect $self draw => sub {
print "re-drawing @_\n\n";
};
signal_connect $self realize => sub {
print "realize @_\n\n";
};
$self->add ($self->{inbox } = new Gtk::HBox 1, $::tabw*0.6);
$self->add ($self->{button} = new Gtk::Button);
$self->add ($self->{outbox} = new Gtk::HBox 1, $::tabw*0.6);
$self->{button}->add(
$self->{label} = new Gtk::Label
);
}
sub set_func {
my($self,$func)=@_;
$self->{func} = $func;
$self->{inbox }->remove($_) for $self->{inbox }->children;
$self->{outbox}->remove($_) for $self->{outbox}->children;
my $w = 1;
my $in = $self->{func}->{in };
my $out = $self->{func}->{out};
for (@$in) {
$self->{inbox }->add (new Tab type => $_->[0], dir => 0);
}
for (@$out) {
$self->{outbox}->add (new Tab type => $_->[0], dir => 1);
}
$self->{label}->set($func->{name});
}
sub new_from_name {
my $class = shift;
my $func = Func->new_from_name (shift);
if ($func) {
my $self = $class->new(@_);
$self->set_func($func);
$self;
} else {
();
}
}
# the shell canvas
package ProgShell;
use Gimp::basewidget Gtk::Layout;
sub new {
print "new for progshell ",ProgShell->_object_type,"\n";
Gtk::Object::new("ProgShell");
}
sub GTK_CLASS_INIT { }
sub GTK_OBJECT_INIT {
my $canvas = shift;
print "X @_\n";
$canvas->set_usize (600, 800);
$canvas->set_hadjustment(0);
$canvas->set_vadjustment(0);
$canvas->set_app_paintable(1);
$canvas->signal_connect (draw => sub {
print "DRAW @_ : ",@{$_[1]},"\n";
});
$canvas->signal_connect (drag_data_received => sub {
my ($widget, $context, $x, $y, $data, $info, $time) = @_;
my $type = Gtk::Gdk::Atom->name($data->type);
if (($type eq "STRING" || $type eq "text/plain") && $data->format == 8) {
my $widget = FuncFrame->new_from_name($data->data);
$widget->show_all;
$canvas ->put($widget,$x,$y);
#printf ("Received \"%s\" in trashcan at $x, $y\n", $data->data);
} else {
$context->finish (0, 0, $time);
}
$context->finish (1, 0, $time);
});
$canvas->drag_dest_set('all', ['copy'], @::stringtargets);
}
package main;
exit main;