mirror of https://github.com/GNOME/gimp.git
see plug-ins/perl/Changes
This commit is contained in:
Marc Lehmann
parent
b7647fa148
commit
145cdfabd7
|
|
@ -39,6 +39,8 @@ Revision history for Gimp-Perl extension.
|
|||
- fixed examples/image_tile to use die instead of exit.
|
||||
- improved croak behaviour.
|
||||
- new plug-in: clear alpha.
|
||||
- fix the "manpages installed twice under different names" bug that
|
||||
nobody had noticed.
|
||||
|
||||
1.19 Thu Jan 6 00:21:58 CET 2000
|
||||
- used N_ to mark all the menu paths, since gimp now tries to
|
||||
|
|
|
|||
|
|
@ -129,6 +129,7 @@ examples/visual
|
|||
examples/billboard
|
||||
examples/blended2
|
||||
examples/dust
|
||||
examples/clear_alpha
|
||||
pxgettext
|
||||
po/ChangeLog
|
||||
po/Makefile.PL
|
||||
|
|
|
|||
|
|
@ -311,9 +311,6 @@ WriteMakefile(
|
|||
'Gimp/Data.pm' => '$(INST_LIBDIR)/Gimp/Data.pm',
|
||||
'Gimp/Fu.pm' => '$(INST_LIBDIR)/Gimp/Fu.pm',
|
||||
'Gimp/Lib.pm' => '$(INST_LIBDIR)/Gimp/Lib.pm',
|
||||
'UI/UI.pm' => '$(INST_LIBDIR)/Gimp/UI.pm',
|
||||
'UI/basewidget.pm' => '$(INST_LIBDIR)/Gimp/basewidget.pm',
|
||||
'Net/Net.pm' => '$(INST_LIBDIR)/Gimp/Net.pm',
|
||||
'Gimp/PDL.pm' => '$(INST_LIBDIR)/Gimp/PDL.pm',
|
||||
'Gimp/Util.pm' => '$(INST_LIBDIR)/Gimp/Util.pm',
|
||||
'Gimp/Feature.pm' => '$(INST_LIBDIR)/Gimp/Feature.pm',
|
||||
|
|
|
|||
|
|
@ -20,4 +20,7 @@ WriteMakefile(
|
|||
'TYPEMAPS' => ["$topdir/typemap",@pdl_typemaps],
|
||||
#dynamic_lib => { OTHERLDFLAGS => "$LDFLAGS $LIBS $cfg{GLIB_LIBS}" },
|
||||
dynamic_lib => { OTHERLDFLAGS => "$LDFLAGS $LIBS" },
|
||||
'PM' => {
|
||||
'Net.pm' => '$(INST_LIBDIR)/Net.pm',
|
||||
},
|
||||
);
|
||||
|
|
|
|||
|
|
@ -38,4 +38,8 @@ WriteMakefile(
|
|||
'DEFINE' => "$DEFINE1 $DEFS",
|
||||
'macro' => { libdir => $libdir, exec_prefix => $exec_prefix, prefix => $prefix },
|
||||
'TYPEMAPS' => ["$topdir/typemap",@pdl_typemaps],
|
||||
'PM' => {
|
||||
'UI.pm' => '$(INST_LIBDIR)/UI.pm',
|
||||
'basewidget.pm' => '$(INST_LIBDIR)/basewidget.pm',
|
||||
},
|
||||
);
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@ dnl disable some warnings I don't want to see
|
|||
if test "x$GCC" = xyes; then
|
||||
nowarn="-Wno-parentheses -Wno-unused -Wno-uninitialized"
|
||||
GIMP_CFLAGS="$GIMP_CFLAGS $nowarn"
|
||||
GIMP_CFLAGS_NOUI="$GIMP_CFLAGS"
|
||||
GIMP_CFLAGS_NOUI="$GIMP_CFLAGS_NOUI $nowarn"
|
||||
fi
|
||||
|
||||
AC_SUBST(EXTENSIVE_TESTS)dnl from Makefile.PL
|
||||
|
|
|
|||
|
|
@ -0,0 +1,80 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use Gimp::Feature 'pdl';
|
||||
use Gimp 1.098;
|
||||
use Gimp::Fu;
|
||||
use PDL::LiteF;
|
||||
|
||||
register "clear_alpha",
|
||||
"This plug-in sets the (hidden) colour in transparent regions to some constant, to support better file compression",
|
||||
"This plug-in sets the (hidden) colour in transparent regions to some constant, to support better file compression",
|
||||
"Marc Lehmann",
|
||||
"Marc Lehmann <pcg\@goof.com>",
|
||||
"20000412",
|
||||
N_"<Image>/Image/Alpha/Clear Alpha...",
|
||||
"RGB*, GRAY*, INDEXED*",
|
||||
[
|
||||
[PF_SLIDER, "threshold", "The threshold to detect 'transparent' with", 0, [0, 255, 1, 10]],
|
||||
[PF_COLOUR, "colour", "The colour to set the transparent parts to", "black"],
|
||||
[PF_BOOL, "all_layers", "Apply to all layers instead of only the active one?", 1],
|
||||
],
|
||||
sub {
|
||||
my($image, $drawable, $thresh, $colour, $all)=@_;
|
||||
|
||||
Gimp->progress_init ("Clearing Alpha...");
|
||||
$image->undo_push_group_start;
|
||||
|
||||
my $colour = pdl byte, @$colour;
|
||||
|
||||
for my $drawable ($all ? $image->get_layers : $drawable) {
|
||||
next unless $drawable->has_alpha;
|
||||
|
||||
my @bounds = $drawable->bounds;
|
||||
my @off = $drawable->offsets;
|
||||
|
||||
$bounds[2]-- if $bounds[0]+$bounds[2] >= ($drawable->offsets)[0]+$drawable->width;
|
||||
$bounds[3]-- if $bounds[1]+$bounds[3] >= ($drawable->offsets)[1]+$drawable->height;
|
||||
{
|
||||
my $src = new PixelRgn ($drawable,@bounds,0,0);
|
||||
my $dst = new PixelRgn ($drawable,@bounds,1,1);
|
||||
|
||||
my $iter = Gimp->pixel_rgns_register ($src, $dst);
|
||||
my $area = $bounds[2]*$bounds[3];
|
||||
my $progress = 0;
|
||||
|
||||
do {
|
||||
my $data = $src->data;
|
||||
|
||||
my $mask = $data->slice("-1") <= $thresh;
|
||||
my $rgb = $data->slice("0:-2");
|
||||
|
||||
$rgb *= !$mask;
|
||||
$rgb += $colour * $mask;
|
||||
|
||||
$dst->data($data);
|
||||
|
||||
$progress += $src->w*$src->h/$area;
|
||||
Gimp->progress_update ($progress);
|
||||
} while (Gimp->pixel_rgns_process ($iter));
|
||||
}
|
||||
|
||||
$drawable->merge_shadow (1);
|
||||
$drawable->update (@bounds);
|
||||
}
|
||||
$image->undo_push_group_end;
|
||||
Gimp->progress_update (1);
|
||||
|
||||
();
|
||||
};
|
||||
|
||||
exit main;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
@ -1,15 +1,3 @@
|
|||
2000-04-18 Valek Filippov <frob@df.ru>
|
||||
|
||||
* ru.po: Updated russian translation.
|
||||
|
||||
2000-04-17 Yuri Syrota <rasta@renome.rovno.ua>
|
||||
|
||||
* uk.po: Added Ukrainian translation
|
||||
|
||||
Sat Apr 8 23:29:31 CEST 2000 Stanislav Brabec <utx@penguin.cz>
|
||||
|
||||
* cs.po: Updated translation.
|
||||
|
||||
Thu Apr 6 22:38:51 CEST 2000 Marc Lehmann <pcg@goof.com>
|
||||
|
||||
* Makefile.PL: msgmerge will no longer be called under any
|
||||
|
|
|
|||
Loading…
Reference in New Issue