mirror of https://github.com/GNOME/gimp.git
see plug-ins/perl/Changes
This commit is contained in:
Marc Lehmann
parent
2302862906
commit
da385ac1c1
|
|
@ -1,5 +1,6 @@
|
|||
Revision history for Gimp-Perl extension.
|
||||
|
||||
1.15
|
||||
- added italian translations by Daniele Medri (madrid@kjws.com).
|
||||
- POINTS really are decipoints: correct xlfd_size to create
|
||||
larger (& more correct) fonts.
|
||||
|
|
@ -9,6 +10,8 @@ Revision history for Gimp-Perl extension.
|
|||
- fixed "dirty" identifier clash with <= 5.005_03 && PERL_POLLUTE.
|
||||
- updated seth's scripts.
|
||||
- improved avi hunk skipping and 24 bit handling.
|
||||
- realclean now also removes the Makefile (just to be sure)
|
||||
- only install pdl plug-ins when pdl is available.
|
||||
|
||||
1.14 Mon Oct 11 03:23:13 CEST 1999
|
||||
- set the version of all modules explicitly (for the benefit of CPAN).
|
||||
|
|
|
|||
|
|
@ -140,5 +140,9 @@ fun 1,1,gimp_paintbrush,sub {
|
|||
Gimp::gimp_call_procedure('gimp_paintbrush',$drawable,$fade_out,$strokes);
|
||||
};
|
||||
|
||||
fun 1,1,gimp_image_list,sub {
|
||||
Gimp::gimp_call_procedure('gimp_list_images');
|
||||
};
|
||||
|
||||
1;
|
||||
|
||||
|
|
|
|||
|
|
@ -69,7 +69,7 @@ examples/example-fu.pl
|
|||
examples/example-net.pl
|
||||
examples/gimp-make-img-map
|
||||
examples/homepage-logo.pl
|
||||
examples/windy.pl
|
||||
examples/windify.pl
|
||||
examples/prep4gif.pl
|
||||
examples/ditherize.pl
|
||||
examples/view3d.pl
|
||||
|
|
|
|||
|
|
@ -4,18 +4,6 @@ use Config;
|
|||
|
||||
$|=1;
|
||||
|
||||
@examples =
|
||||
qw(windify.pl prep4gif.pl webify.pl PDB tex-to-float ditherize.pl
|
||||
border.pl view3d.pl feedback.pl xachlego.pl xachshadow.pl parasite-editor
|
||||
scratches.pl blowinout.pl terral_text xachvision.pl perlcc gouge
|
||||
sethspin.pl animate_cells image_tile yinyang stamps font_table
|
||||
perlotine randomblends innerbevel fit-text guidegrid roundrectsel
|
||||
repdup centerguide stampify goldenmean triangle billboard mirrorsplit
|
||||
oneliners randomart1 pixelmap glowing_steel frame_reshuffle frame_filter
|
||||
logulator miff gimpmagick guide_remove guides_to_selection burst map_to_gradient
|
||||
fire povray avi layerfuncs
|
||||
);
|
||||
|
||||
if ($ARGV[0] ne "--writemakefile") {
|
||||
for(@ARGV) {
|
||||
s/^prefix=/--prefix=/i;
|
||||
|
|
@ -38,6 +26,24 @@ if ($ARGV[0] ne "--writemakefile") {
|
|||
do './config.pl'; die $@ if $@;
|
||||
}
|
||||
|
||||
@pins =
|
||||
qw(windify.pl prep4gif.pl webify.pl PDB tex-to-float ditherize.pl
|
||||
feedback.pl xachlego.pl xachshadow.pl parasite-editor
|
||||
scratches.pl blowinout.pl terral_text xachvision.pl perlcc
|
||||
sethspin.pl animate_cells image_tile yinyang stamps font_table
|
||||
perlotine randomblends innerbevel fit-text guidegrid roundrectsel
|
||||
repdup centerguide stampify goldenmean triangle billboard mirrorsplit
|
||||
layerfuncs randomart1 glowing_steel frame_reshuffle frame_filter
|
||||
logulator miff gimpmagick guide_remove guides_to_selection burst
|
||||
fire povray avi layerfuncs
|
||||
);
|
||||
@pdl_pins =
|
||||
qw(
|
||||
border.pl gouge map_to_gradient pixelmap view3d.pl
|
||||
);
|
||||
|
||||
push @pins, @pdl_pins if $PDL;
|
||||
|
||||
require ExtUtils::MakeMaker;
|
||||
import ExtUtils::MakeMaker;
|
||||
|
||||
|
|
@ -104,9 +110,9 @@ EOF
|
|||
|
||||
$PRD or print <<EOF;
|
||||
|
||||
WARNING: Parse::RecDescent not found, scm2perl, the Scheme->Perl
|
||||
translator, will not work. Should the need arise you can install
|
||||
Parse::RecDescent later; it is available from any CPAN mirror.
|
||||
NOTICE: Parse::RecDescent not found, scm2perl, the Scheme->Perl
|
||||
translator, will not work. This is normally not a problem, since
|
||||
it is quite unimportant for most people.
|
||||
|
||||
EOF
|
||||
|
||||
|
|
@ -171,7 +177,7 @@ install-plugins ::
|
|||
\$(MKPATH) inst-temp
|
||||
cd inst-temp ; \\
|
||||
\$(UMASK_NULL) ; \\
|
||||
\$(CP) ".join(' ',map("'../examples/$_'",@examples))." ../Perl-Server . ; \\
|
||||
\$(CP) ".join(' ',map("'../examples/$_'",sort @pins))." ../Perl-Server . ; \\
|
||||
\$(CHMOD) 755 * ; \\
|
||||
\$(MY_FIXIN) * ; \\
|
||||
for plugin in * ; do \\
|
||||
|
|
@ -180,7 +186,7 @@ install-plugins ::
|
|||
\$(RM_RF) inst-temp
|
||||
|
||||
uninstall :: force_uninstall_from_\$(INSTALLDIRS)dirs
|
||||
for plugin in Perl-Server @examples; do \\
|
||||
for plugin in Perl-Server @pins; do \\
|
||||
$UT $GT2\$\$plugin; \\
|
||||
done
|
||||
|
||||
|
|
@ -298,7 +304,7 @@ WriteMakefile(
|
|||
'DEFINE' => "$DEFINE1 $DEFS",
|
||||
'EXE_FILES' => [qw(scm2perl scm2scm gimpdoc xcftopnm embedxpm)],
|
||||
'macro' => \%cfg,
|
||||
'realclean' => { FILES => "config.status config.cache config.pl config.log config.h Gimp/Config.pm" },
|
||||
'realclean' => { FILES => "config.status config.cache config.pl config.log config.h Gimp/Config.pm Makefile" },
|
||||
'clean' => { FILES => "Makefile.old stamp-h" },
|
||||
);
|
||||
|
||||
|
|
|
|||
|
|
@ -54,21 +54,21 @@ sub image_name {
|
|||
|
||||
sub Gimp::UI::ImageMenu::_items {
|
||||
map [[$_],$_,image_name($_)],
|
||||
Gimp->list_images ();
|
||||
Gimp->image_list ();
|
||||
}
|
||||
sub Gimp::UI::LayerMenu::_items {
|
||||
map { my $i = $_; map [[$i,$_],$_,image_name($i)."/".$_->get_name],$i->get_layers }
|
||||
Gimp->list_images ();
|
||||
Gimp->image_list ();
|
||||
}
|
||||
|
||||
sub Gimp::UI::ChannelMenu::_items {
|
||||
map { my $i = $_; map [[$i,$_],$_,image_name($i)."/".$_->get_name],$i->get_channels }
|
||||
Gimp->list_images ();
|
||||
Gimp->image_list ();
|
||||
}
|
||||
|
||||
sub Gimp::UI::DrawableMenu::_items {
|
||||
map { my $i = $_; map [[$i,$_],$_,image_name($i)."/".$_->get_name],($i->get_layers, $i->get_channels) }
|
||||
Gimp->list_images ();
|
||||
Gimp->image_list ();
|
||||
}
|
||||
|
||||
sub new($$$$) {
|
||||
|
|
|
|||
|
|
@ -0,0 +1,65 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# sent to me by Seth Burgess <sjburges@gimp.org>
|
||||
# small changes my Marc Lehmann <pcg@goof.com>
|
||||
|
||||
use Gimp;
|
||||
use Gimp::Fu;
|
||||
|
||||
#Gimp::set_trace(TRACE_CALL);
|
||||
|
||||
sub windify {
|
||||
my ($img, $drawable, $angle, $density, $distance, $wrap) = @_;
|
||||
my $oldbg = gimp_palette_get_background();
|
||||
my $xsize = gimp_drawable_width($drawable);
|
||||
my $ysize = gimp_drawable_height($drawable);
|
||||
|
||||
my $out = gimp_image_new($xsize,$ysize,0);
|
||||
gimp_palette_set_background([128,128,128]);
|
||||
my $windlayer = gimp_layer_new($out,$xsize,$ysize,RGB_IMAGE,"Windlayer",100,NORMAL_MODE);
|
||||
gimp_drawable_fill($windlayer, 0);
|
||||
gimp_image_add_layer($out,$windlayer,0);
|
||||
my $windlayercopy = gimp_layer_copy($windlayer, 1);
|
||||
gimp_image_add_layer($out,$windlayercopy,0);
|
||||
plug_in_noisify(1,$out,$windlayercopy,0,$density/255,
|
||||
$density/255,
|
||||
$density/255,1);
|
||||
|
||||
plug_in_mblur(1,$out,$windlayercopy,0,15,$angle);
|
||||
gimp_layer_set_mode($windlayercopy, 10); # Lighten Only
|
||||
gimp_image_merge_visible_layers($out,0);
|
||||
|
||||
# many thanks to Dov for this suggestion as a workaround to the
|
||||
# gimp_image_merge_visible_layers bug
|
||||
|
||||
my $newlay = gimp_image_get_active_layer ($out);
|
||||
plug_in_displace(1,$img,$drawable,-$distance*cos($angle*180/3.14159),
|
||||
$distance*sin($angle*180/3.14159),
|
||||
1,1, $newlay,$newlay, $wrap);
|
||||
gimp_image_remove_layer($out,$newlay);
|
||||
gimp_image_delete ($out);
|
||||
gimp_palette_set_background($oldbg);
|
||||
gimp_displays_flush();
|
||||
|
||||
undef;
|
||||
}
|
||||
|
||||
register
|
||||
"windify",
|
||||
"Add wind to an image",
|
||||
"Blow your image all over :)",
|
||||
"Seth Burgess",
|
||||
"Seth Burgess <sjburges\@gimp.org>",
|
||||
"1998-09-14",
|
||||
"<Image>/Filters/Distorts/Windify",
|
||||
"*",
|
||||
[
|
||||
[PF_INT32, "angle", "Wind Angle, 0 is left", 120],
|
||||
[PF_INT32, "density", "How Much Is Blown",80],
|
||||
[PF_VALUE, "distance", "How Far Its Blown",30],
|
||||
[PF_TOGGLE, "smear", "Smear on Edges (or Wrap)",0]
|
||||
],
|
||||
\&windify;
|
||||
|
||||
exit main;
|
||||
|
||||
Loading…
Reference in New Issue