Commit da385ac1 authored by Marc Lehmann's avatar Marc Lehmann

see plug-ins/perl/Changes

parent 23028629
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($$$$) {
......
#!/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;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment