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
24633c17
Commit
24633c17
authored
Nov 25, 2000
by
Marc Lehmann
Browse files
see plug-ins/perl/Changes
parent
e72f39e2
Changes
2
Hide whitespace changes
Inline
Side-by-side
plug-ins/perl/Changes
View file @
24633c17
...
...
@@ -21,6 +21,7 @@ Revision history for Gimp-Perl extension.
- added/updated examples/fade-alpha by Seth.
- re-apply patches to examples/xachshadow, xachlego after I nuked
them without knowing.
- updated examples/xachvision.
1.201 Thu Aug 24 23:44:43 CEST 2000
** LAST VERSION THAT WORKS WITH 1.0 **
...
...
plug-ins/perl/examples/xachvision
View file @
24633c17
#!/usr/app/bin/perl
eval
'
exec /usr/app/bin/perl -S $0 ${1+"$@"}
'
if
0
;
# not running under some shell
# Once again, an effect of Xach's
# Created by Seth Burgess <sjburges@gimp.org>
...
...
@@ -14,7 +11,7 @@ register "xachvision",
"
This makes an interlaced-looking machine vision type thing.
",
"
Seth Burgess
",
"
Seth Burgess <sjburges
\@
gimp.org>
",
"
1999-02
-2
8
",
"
2000-11
-2
5
",
N_
"
<Image>/Filters/Noise/Xach Vision...
",
"
RGB*, GRAY*
",
[
...
...
@@ -30,7 +27,7 @@ register "xachvision",
$midlayer
=
$drawable
->
gimp_layer_copy
(
1
);
$img
->
add_layer
(
$midlayer
,
0
);
$toplayer
=
$drawable
->
gimp_layer_copy
(
0
);
$toplayer
=
$drawable
->
gimp_layer_copy
(
1
);
$img
->
add_layer
(
$toplayer
,
0
);
gimp_palette_set_background
(
$color
);
...
...
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