dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-04-11 19:15:28 +00:00
parent c881d7bf02
commit 7c946f4707
4 changed files with 35 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
plug-ins/perl/MANIFEST
View File

@ -85,4 +85,5 @@ examples/goldenmean
examples/triangle
examples/billboard
examples/mirrorsplit
examples/oneliners

1
plug-ins/perl/Makefile.PL
View File

@ -12,6 +12,7 @@ $|=1;
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
);
@shebang = (map("examples/$_",@examples),
qw(Perl-Server examples/example-net.pl examples/homepage-logo.pl

10
plug-ins/perl/TODO
View File

@ -10,6 +10,7 @@ make test TEST_VERBOSE=1
bugs
* make parasiterc ascii-only !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
* improve examples/example-*.pl
* install in /usr/local (???? why? more options??)
* install even without Gtk? NO!
@ -21,17 +22,14 @@ bugs
important issues
* PF_PREVIEW(!)
[PF_FILE] * PF_FILE
* --use-interp=perl|script-fu
* change set_usize to something else..
* Gimp::IO (?)
* Gimp::Fu import after Gimp? use Gimp::main for Gimp::Fu??
* generic config query mechanism
[DONE] * Gimp->server_eval()
[DONE] * supply a gimp-1.1 compatible gimp_progress_init
* install scripts in share/
[DONE] * fix auto-edit shebang for check-ins
[DONE] * gimp-tiles are not accessible in any way..
* register dummy function to calm gimp down
* config options & paths in module(!)
* Gimp::Module for modules (!)
@ -39,15 +37,12 @@ important issues
* gimp_display_image
* vamp up homepage
* --ui and --noui for Gimp::Fu
[DONE] * [PF_CUSTOM]
* Gimp::ping
* clean up PKG_ANY vs. PKG_REAL_DRAWABLE
* allow plug-ins to register with only a drawable argument(!)
(fix this in Gimp)
[DONE] * provide propper overwriting in Gimp::Net::pixel-_rgn ;(
* gradient button
* implement Perl-Server RSET and shared lock(!)
[KILL] * substr 4th argument form for Net:: -> require 5.005!!!! DO IT! PLEASE!!!!
* use Gimp qw(GIMP_HOST=jfjf)???
* zero-copy PDL support
* weighted movement in drawing tools
@ -58,7 +53,6 @@ important issues
* create working progress when Net and $verbose
* require Storable soon(!)
* Gimp::Fu::command(?)
[DONE] * Untitled/0 Untitled/1 etc..
* default parameters at end(!)
* try to deduce default parameters

31
plug-ins/perl/examples/oneliners Executable file
View File

@ -0,0 +1,31 @@
#!/usr/bin/perl
use Gimp;
use Gimp::Fu;
use Gimp::Util;
# These are a couple of one-liners that you might find handy. Both should
# be undoable w/o any special magick, and work with any gimp.
# <sjburges@gimp.org>
register "layer_to_image_size", "Layer2ImageSize", "Expands layer to image size",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>", "1.0",
"<Image>/Layers/Layer to Image Size", "RGB*, GRAY*", [ ], sub {
($img, $layer) = @_;
$layer->resize($img->width, $img->height, $layer->offsets);
();
};
# <sjburges@gimp.org>
register "center_layer", "Center Layer",
"Centers the current layer on the image",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>",
"1.0", "<Image>/Layers/Center Layer", "RGB*, GRAY*", [], sub {
($img, $layer) = @_;
$layer->set_offsets(($img->width - $layer->width )/2,
($img->height - $layer->height)/2);
();
};
exit main;