Ed J > Gimp-2.31 > alpha_fade

Download:
Gimp-2.31.tar.gz

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Source  

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.

syntax highlighting: