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 2000-01-08 00:08:00 +00:00
parent 342a421b57
commit cd726b2897
5 changed files with 39 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,9 +27,9 @@ if ($ARGV[0] ne "--writemakefile") {
}
@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
qw(windify prep4gif webify PDB tex-to-float ditherize
feedback xachlego xachshadow parasite-editor
scratches blowinout terral_text xachvision perlcc
animate_cells image_tile yinyang stamps font_table
perlotine randomblends innerbevel fit-text guidegrid roundrectsel
repdup centerguide stampify goldenmean triangle mirrorsplit
@ -39,7 +39,7 @@ if ($ARGV[0] ne "--writemakefile") {
);
@pdl_pins =
qw(
border.pl gouge map_to_gradient pixelmap view3d.pl
border gouge map_to_gradient pixelmap view3d
);
push @pins, @pdl_pins if $PDL;
@ -166,7 +166,7 @@ install :: install-po
exit ; \
fi \
done ; \
$(MAKE) UNINST=1 really-install install-plugins'."
$(MAKE) really-install install-plugins'."
$main::dont_embed || (cd embed && \$(MAKE) install)
".$install;

1
plug-ins/perl/TODO
View File

@ -21,6 +21,7 @@ API generalization
firetext! AND _grayscale_ for map_gradient(!)
bugs
* never grayed out = "undef" imagetypes!!!
* gimp_layer_set_name(4, "(null)") = gimp: fatal error: sigsegv caught
gimp (pid:27638): [E]xit, [H]alt, show [S]tack trace or [P]roceed:
this should not crash the gimp itself, but rather gimp-perl (or libc).

7
plug-ins/perl/examples/fit-text
View File

@ -24,12 +24,11 @@ $calls = 0;
sub growfont {
($fontname, $plussize) = @_;
@fontdesc = split /-/, $fontname;
if ($fontdesc[8] eq "*") {
$fontdesc[7] += $plussize/72; # if in pixels
} else {
$fontdesc[8] eq "*" ?
$fontdesc[7] += $plussize/72 : # if in pixels
$fontdesc[8] += $plussize; # if in points
}
$outname = join "-", @fontdesc;
print ("!!!${fontdesc[8]}-${fondesc[9]}!!!\n");
$calls ++;
return $outname;
}

4
plug-ins/perl/examples/innerbevel
View File

@ -46,7 +46,7 @@ register $regname, $shortdesc, $longdesc, $authorname, $author, $date, $path, $i
my ($font, $text, $color1, $color2, $azimuth, $elevation, $depth, $maptype) = @_;
# -- step 1 --
#$oldst = get_state(); # function no longer exists -- klm 20.01.06
$oldst = get_state();
gimp_palette_set_background($color1);
gimp_palette_set_foreground($color2);
@ -91,7 +91,7 @@ $layer2->translate(2, 3);
$img->add_new_layer(2);
$img->gimp_selection_none();
#set_state($oldst); # function no longer exists -- klm 20.01.06
set_state($oldst); # Doesn't seem to work - says it can't grok color
return();
};

54
plug-ins/perl/examples/logulator
View File

@ -185,7 +185,7 @@ register "perl_fu_3d_outline_logo",
"Hrvoje Horvat (hhorvat\@open.hr)",
"Hrvoje Horvat",
"07 April, 1998",
__"<Image>/Filters/Logulator/3D Outline",
N_"<Image>/Filters/Logulator/3D Outline",
"",
[
[PF_PATTERN, 'pattern', "Pattern", "Parque #1"],
@ -245,7 +245,7 @@ register "perl_fu_alien_glow_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
__"<Image>/Filters/Logulator/Alien Glow",
N_"<Image>/Filters/Logulator/Alien Glow",
"",
[
[PF_STRING, 'text_string', "Text String", "ALIEN"],
@ -298,7 +298,7 @@ register "perl_fu_basic1_logo",
"Spencer Kimball",
"Spencer Kimball",
"1996",
__"<Image>/Filters/Logulator/Basic I",
N_"<Image>/Filters/Logulator/Basic I",
"",
[
[PF_STRING, 'text_string', "Text String", "The Gimp"],
@ -373,7 +373,7 @@ register "perl_fu_basic2_logo",
"Spencer Kimball",
"Spencer Kimball",
"1996",
__"<Image>/Filters/Logulator/Basic II",
N_"<Image>/Filters/Logulator/Basic II",
"",
[
[PF_STRING, 'text_string', "Text String", "SCRIPT-FU"],
@ -466,7 +466,7 @@ register "perl_fu_blended_logo",
"Spencer Kimball",
"Spencer Kimball",
"1996",
__"<Image>/Filters/Logulator/Blended",
N_"<Image>/Filters/Logulator/Blended",
"",
[
[PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -535,7 +535,7 @@ register "perl_fu_bovinated_logo",
"Brian McFee <keebler\@wco.com>",
"Brian McFee",
"April 1998",
__"<Image>/Filters/Logulator/Bovination",
N_"<Image>/Filters/Logulator/Bovination",
"",
[
[PF_STRING, 'text_string', "Text String", "Fear the Cow"],
@ -693,7 +693,7 @@ register "perl_fu_carved_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
__"<Image>/Filters/Logulator/Carved",
N_"<Image>/Filters/Logulator/Carved",
"",
[
[PF_STRING, 'text_string', "Text String", "Marble"],
@ -748,7 +748,7 @@ register "perl_fu_chalk_logo",
"Manish Singh <msingh\@uclink4.berkeley.edu>",
"Manish Singh",
"October 1997",
__"<Image>/Filters/Logulator/Chalk",
N_"<Image>/Filters/Logulator/Chalk",
"",
[
[PF_STRING, 'text_string', "Text String", "CHALK"],
@ -834,7 +834,7 @@ register "perl_fu_logo_chip_away",
"Adrian Likins <adrian\@gimp.org>",
"Adrian Likins <adrian\@gimp.org>",
"1997",
__"<Image>/Filters/Logulator/Chip Away",
N_"<Image>/Filters/Logulator/Chip Away",
"",
[
[PF_STRING, 'text_string', "Text String", "Sloth"],
@ -927,7 +927,7 @@ register "perl_fu_chrome_logo",
"Spencer Kimball",
"Spencer Kimball & Peter Mattis",
"1997",
__"<Image>/Filters/Logulator/Chrome",
N_"<Image>/Filters/Logulator/Chrome",
"",
[
[PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -1001,7 +1001,7 @@ register "perl_fu_comic_logo",
"Brian McFee <keebler\@wco.com>",
"Brian McFee",
"April 1998",
__"<Image>/Filters/Logulator/Comic Book",
N_"<Image>/Filters/Logulator/Comic Book",
"",
[
[PF_STRING, 'text_string', "Text String", "Moo"],
@ -1104,7 +1104,7 @@ register "perl_fu_cool_metal_logo",
"Spencer Kimball & Rob Malda",
"Spencer Kimball & Rob Malda",
"1997",
__"<Image>/Filters/Logulator/Cool Metal",
N_"<Image>/Filters/Logulator/Cool Metal",
"",
[
[PF_STRING, 'text_string', "Text String", "Cool Metal"],
@ -1324,7 +1324,7 @@ register "perl_fu_crystal_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
__"<Image>/Filters/Logulator/Crystal",
N_"<Image>/Filters/Logulator/Crystal",
"",
[
[PF_VALUE, 'chrome_factor', "Chrome Factor", "1.0"],
@ -1426,7 +1426,7 @@ register "perl_fu_frosty_logo",
"Spencer Kimball & Ed Mackey",
"Spencer Kimball & Ed Mackey",
"1997",
__"<Image>/Filters/Logulator/Frosty",
N_"<Image>/Filters/Logulator/Frosty",
"",
[
[PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -1529,7 +1529,7 @@ register "perl_fu_glossy_logo",
"Hrvoje Horvat (hhorvat\@open.hr)",
"Hrvoje Horvat",
"14/04/1998",
__"<Image>/Filters/Logulator/Glossy",
N_"<Image>/Filters/Logulator/Glossy",
"",
[
[PF_STRING, 'text_string', "Text String", "Galaxy"],
@ -1611,7 +1611,7 @@ register "perl_fu_glowing_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
__"<Image>/Filters/Logulator/Glowing Hot",
N_"<Image>/Filters/Logulator/Glowing Hot",
"",
[
[PF_STRING, 'text_string', "Text String", "GLOWING"],
@ -1679,7 +1679,7 @@ register "perl_fu_gradient_bevel_logo",
"Brian McFee <keebler\@wco.com>",
"Brian McFee",
"April 1998",
__"<Image>/Filters/Logulator/Gradient Bevel",
N_"<Image>/Filters/Logulator/Gradient Bevel",
"",
[
[PF_STRING, 'text_string', "Text String", "Moo"],
@ -1757,7 +1757,7 @@ register "perl_fu_i26_gunya2",
"Shuji Narazaki",
"Shuji Narazaki",
"1997",
__"<Image>/Filters/Logulator/Imigre-26",
N_"<Image>/Filters/Logulator/Imigre-26",
"",
[
[PF_STRING, 'text_string', "Text", "The GIMP"],
@ -1955,7 +1955,7 @@ register "perl_fu_neon_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
__"<Image>/Filters/Logulator/Neon",
N_"<Image>/Filters/Logulator/Neon",
"",
[
[PF_STRING, 'text_string', "Text String", "NEON"],
@ -2004,7 +2004,7 @@ register "perl_fu_newsprint_text",
"Austin Donnelly",
"Austin Donnelly",
"1998",
__"<Image>/Filters/Logulator/Newsprint text",
N_"<Image>/Filters/Logulator/Newsprint text",
"",
[
[PF_STRING, 'text_string', "Text String", "Newsprint"],
@ -2224,7 +2224,7 @@ register "perl_fu_sota_chrome_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
__"<Image>/Filters/Logulator/SOTA Chrome",
N_"<Image>/Filters/Logulator/SOTA Chrome",
"",
[
[PF_ADJUSTMENT,'chrome_saturation',"Chrome Saturation", [-80, -100, 100, 1, 10, 0, 0]],
@ -2291,7 +2291,7 @@ register "perl_fu_speed_text",
"Austin Donnelly",
"Austin Donnelly",
"1998",
__"<Image>/Filters/Logulator/Speed text",
N_"<Image>/Filters/Logulator/Speed text",
"",
[
[PF_STRING, 'text_string', "Text String", "Speed!"],
@ -2367,7 +2367,7 @@ register "perl_fu_starburst_logo",
"Spencer Kimball & Xach Beane",
"Spencer Kimball & Xach Beane",
"1997",
__"<Image>/Filters/Logulator/Starburst",
N_"<Image>/Filters/Logulator/Starburst",
"",
[
[PF_STRING, 'text_string', "Text String", "GIMP"],
@ -2498,7 +2498,7 @@ register "perl_fu_starscape_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
__"<Image>/Filters/Logulator/Starscape",
N_"<Image>/Filters/Logulator/Starscape",
"",
[
[PF_STRING, 'text_string', "Text String", "Nova"],
@ -2594,7 +2594,7 @@ register "perl_fu_t_o_p_logo",
"Shuji Narazaki (narazaki\@InetQ.or.jp)",
"Shuji Narazaki",
"1997",
__"<Image>/Filters/Logulator/Particle Trace",
N_"<Image>/Filters/Logulator/Particle Trace",
"",
[
[PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -2691,7 +2691,7 @@ register "perl_fu_textured_logo",
"Spencer Kimball",
"Spencer Kimball",
"1996",
__"<Image>/Filters/Logulator/Textured",
N_"<Image>/Filters/Logulator/Textured",
"",
[
[PF_PATTERN, 'text_pattern', "Text Pattern", "Fibers"],
@ -2770,7 +2770,7 @@ register "perl_fu_title_header",
"Federico Mena Quintero",
"Federico Mena Quintero",
"June 1997",
__"<Image>/Filters/Logulator/Web title header",
N_"<Image>/Filters/Logulator/Web title header",
"",
[
[PF_STRING, 'text_string', "Text", "Hello world!"],