NAME
alpha_fade - Fade the alpha channel of a layer from one side to another
SYNOPSIS
<Image>/Layer/Transparency/_Fade...
DESCRIPTION
Inspired by a mailing list question that asked how to do exactly what this does, which is fade the alpha from one side to another. Original by Seth Burgess, rewritten by Ed J to use Gimp::Fu as demo of PF_CUSTOM widget.
PARAMETERS
[PF_CUSTOM, "direction", "Direction to fade(0-8)", 4, sub {
my $btnTable = new Gtk2::Table(3,3,1);
$btnTable->set_border_width(6);
my $btn = new Gtk2::RadioButton;
my ($u_direction, @buttons);
for (my $x=0;$x<3;$x++) {
for (my $y=0;$y<3;$y++) {
my $dir = $x*3 + $y;
$buttons[$dir] = $btn = Gtk2::RadioButton->new_from_widget($btn);
$btn->set_mode(0);
$btn->signal_connect("clicked", sub { $u_direction = $_[1]; }, $dir);
$btn->show;
$btnTable->attach_defaults($btn, $x, $x+1, $y, $y+1);
my $pixmap = Gtk2::Image->new_from_pixmap(
Gtk2::Gdk::Pixmap->colormap_create_from_xpm_d(
undef, $btn->get_colormap,
$btn->style->bg('normal'), @{$::arr[$dir]}
)
);
$pixmap->show;
$btn->add($pixmap);
}
}
$btnTable->show;
($btnTable, sub { $buttons[$_[0]]->clicked }, sub { $u_direction });
},
]
IMAGE TYPES
*
HISTORY
2014/04/20 Ed J: rewrite to use Gimp::Fu and PF_CUSTOM
12/5/03: <sjburges@gimp.org>
s/->mask/->get_mask
3/21/04: <sjburges@gimp.org>
s/AlphaFade/alpha_fade/ to be compatible with PDB naming conventions
AUTHOR
Seth Burgess
DATE
2000
LICENSE
Copyright Seth Burgess.
Distributed under the same terms as Gimp-Perl.