Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
GNOME
GIMP
Commits
145cdfab
Commit
145cdfab
authored
May 03, 2000
by
Marc Lehmann
Browse files
see plug-ins/perl/Changes
parent
b7647fa1
Changes
8
Hide whitespace changes
Inline
Side-by-side
plug-ins/perl/Changes
View file @
145cdfab
...
...
@@ -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
...
...
plug-ins/perl/MANIFEST
View file @
145cdfab
...
...
@@ -129,6 +129,7 @@ examples/visual
examples/billboard
examples/blended2
examples/dust
examples/clear_alpha
pxgettext
po/ChangeLog
po/Makefile.PL
...
...
plug-ins/perl/Makefile.PL
View file @
145cdfab
...
...
@@ -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
',
...
...
plug-ins/perl/Net/Makefile.PL
View file @
145cdfab
...
...
@@ -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'
,
},
);
plug-ins/perl/UI/Makefile.PL
View file @
145cdfab
...
...
@@ -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
',
},
);
plug-ins/perl/configure.frag
View file @
145cdfab
...
...
@@ -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
...
...
plug-ins/perl/examples/clear_alpha
0 → 100755
View file @
145cdfab
#!/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
;
plug-ins/perl/po/ChangeLog
View file @
145cdfab
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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment