callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

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

1
plug-ins/perl/TODO
View File

@ -21,6 +21,7 @@ API generalization
firetext! AND _grayscale_ for map_gradient(!) firetext! AND _grayscale_ for map_gradient(!)
bugs bugs
* never grayed out = "undef" imagetypes!!!
* gimp_layer_set_name(4, "(null)") = gimp: fatal error: sigsegv caught * 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: 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). this should not crash the gimp itself, but rather gimp-perl (or libc).

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

@ -24,12 +24,11 @@ $calls = 0;
sub growfont { sub growfont {
($fontname, $plussize) = @_; ($fontname, $plussize) = @_;
@fontdesc = split /-/, $fontname; @fontdesc = split /-/, $fontname;
if ($fontdesc[8] eq "*") { $fontdesc[8] eq "*" ?
$fontdesc[7] += $plussize/72; # if in pixels $fontdesc[7] += $plussize/72 : # if in pixels
} else { $fontdesc[8] += $plussize; # if in points
$fontdesc[8] += $plussize; # if in points
}
$outname = join "-", @fontdesc; $outname = join "-", @fontdesc;
print ("!!!${fontdesc[8]}-${fondesc[9]}!!!\n");
$calls ++; $calls ++;
return $outname; 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) = @_; my ($font, $text, $color1, $color2, $azimuth, $elevation, $depth, $maptype) = @_;
# -- step 1 -- # -- step 1 --
#$oldst = get_state(); # function no longer exists -- klm 20.01.06 $oldst = get_state();
gimp_palette_set_background($color1); gimp_palette_set_background($color1);
gimp_palette_set_foreground($color2); gimp_palette_set_foreground($color2);
@ -91,7 +91,7 @@ $layer2->translate(2, 3);
$img->add_new_layer(2); $img->add_new_layer(2);
$img->gimp_selection_none(); $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(); 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 (hhorvat\@open.hr)",
"Hrvoje Horvat", "Hrvoje Horvat",
"07 April, 1998", "07 April, 1998",
__"<Image>/Filters/Logulator/3D Outline", N_"<Image>/Filters/Logulator/3D Outline",
"", "",
[ [
[PF_PATTERN, 'pattern', "Pattern", "Parque #1"], [PF_PATTERN, 'pattern', "Pattern", "Parque #1"],
@ -245,7 +245,7 @@ register "perl_fu_alien_glow_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1997", "1997",
__"<Image>/Filters/Logulator/Alien Glow", N_"<Image>/Filters/Logulator/Alien Glow",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "ALIEN"], [PF_STRING, 'text_string', "Text String", "ALIEN"],
@ -298,7 +298,7 @@ register "perl_fu_basic1_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1996", "1996",
__"<Image>/Filters/Logulator/Basic I", N_"<Image>/Filters/Logulator/Basic I",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "The Gimp"], [PF_STRING, 'text_string', "Text String", "The Gimp"],
@ -373,7 +373,7 @@ register "perl_fu_basic2_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1996", "1996",
__"<Image>/Filters/Logulator/Basic II", N_"<Image>/Filters/Logulator/Basic II",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "SCRIPT-FU"], [PF_STRING, 'text_string', "Text String", "SCRIPT-FU"],
@ -466,7 +466,7 @@ register "perl_fu_blended_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1996", "1996",
__"<Image>/Filters/Logulator/Blended", N_"<Image>/Filters/Logulator/Blended",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "The GIMP"], [PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -535,7 +535,7 @@ register "perl_fu_bovinated_logo",
"Brian McFee <keebler\@wco.com>", "Brian McFee <keebler\@wco.com>",
"Brian McFee", "Brian McFee",
"April 1998", "April 1998",
__"<Image>/Filters/Logulator/Bovination", N_"<Image>/Filters/Logulator/Bovination",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Fear the Cow"], [PF_STRING, 'text_string', "Text String", "Fear the Cow"],
@ -693,7 +693,7 @@ register "perl_fu_carved_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1997", "1997",
__"<Image>/Filters/Logulator/Carved", N_"<Image>/Filters/Logulator/Carved",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Marble"], [PF_STRING, 'text_string', "Text String", "Marble"],
@ -748,7 +748,7 @@ register "perl_fu_chalk_logo",
"Manish Singh <msingh\@uclink4.berkeley.edu>", "Manish Singh <msingh\@uclink4.berkeley.edu>",
"Manish Singh", "Manish Singh",
"October 1997", "October 1997",
__"<Image>/Filters/Logulator/Chalk", N_"<Image>/Filters/Logulator/Chalk",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "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>",
"Adrian Likins <adrian\@gimp.org>", "Adrian Likins <adrian\@gimp.org>",
"1997", "1997",
__"<Image>/Filters/Logulator/Chip Away", N_"<Image>/Filters/Logulator/Chip Away",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Sloth"], [PF_STRING, 'text_string', "Text String", "Sloth"],
@ -927,7 +927,7 @@ register "perl_fu_chrome_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball & Peter Mattis", "Spencer Kimball & Peter Mattis",
"1997", "1997",
__"<Image>/Filters/Logulator/Chrome", N_"<Image>/Filters/Logulator/Chrome",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "The GIMP"], [PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -1001,7 +1001,7 @@ register "perl_fu_comic_logo",
"Brian McFee <keebler\@wco.com>", "Brian McFee <keebler\@wco.com>",
"Brian McFee", "Brian McFee",
"April 1998", "April 1998",
__"<Image>/Filters/Logulator/Comic Book", N_"<Image>/Filters/Logulator/Comic Book",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Moo"], [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",
"Spencer Kimball & Rob Malda", "Spencer Kimball & Rob Malda",
"1997", "1997",
__"<Image>/Filters/Logulator/Cool Metal", N_"<Image>/Filters/Logulator/Cool Metal",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Cool Metal"], [PF_STRING, 'text_string', "Text String", "Cool Metal"],
@ -1324,7 +1324,7 @@ register "perl_fu_crystal_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1997", "1997",
__"<Image>/Filters/Logulator/Crystal", N_"<Image>/Filters/Logulator/Crystal",
"", "",
[ [
[PF_VALUE, 'chrome_factor', "Chrome Factor", "1.0"], [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",
"Spencer Kimball & Ed Mackey", "Spencer Kimball & Ed Mackey",
"1997", "1997",
__"<Image>/Filters/Logulator/Frosty", N_"<Image>/Filters/Logulator/Frosty",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "The GIMP"], [PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -1529,7 +1529,7 @@ register "perl_fu_glossy_logo",
"Hrvoje Horvat (hhorvat\@open.hr)", "Hrvoje Horvat (hhorvat\@open.hr)",
"Hrvoje Horvat", "Hrvoje Horvat",
"14/04/1998", "14/04/1998",
__"<Image>/Filters/Logulator/Glossy", N_"<Image>/Filters/Logulator/Glossy",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Galaxy"], [PF_STRING, 'text_string', "Text String", "Galaxy"],
@ -1611,7 +1611,7 @@ register "perl_fu_glowing_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1997", "1997",
__"<Image>/Filters/Logulator/Glowing Hot", N_"<Image>/Filters/Logulator/Glowing Hot",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "GLOWING"], [PF_STRING, 'text_string', "Text String", "GLOWING"],
@ -1679,7 +1679,7 @@ register "perl_fu_gradient_bevel_logo",
"Brian McFee <keebler\@wco.com>", "Brian McFee <keebler\@wco.com>",
"Brian McFee", "Brian McFee",
"April 1998", "April 1998",
__"<Image>/Filters/Logulator/Gradient Bevel", N_"<Image>/Filters/Logulator/Gradient Bevel",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Moo"], [PF_STRING, 'text_string', "Text String", "Moo"],
@ -1757,7 +1757,7 @@ register "perl_fu_i26_gunya2",
"Shuji Narazaki", "Shuji Narazaki",
"Shuji Narazaki", "Shuji Narazaki",
"1997", "1997",
__"<Image>/Filters/Logulator/Imigre-26", N_"<Image>/Filters/Logulator/Imigre-26",
"", "",
[ [
[PF_STRING, 'text_string', "Text", "The GIMP"], [PF_STRING, 'text_string', "Text", "The GIMP"],
@ -1955,7 +1955,7 @@ register "perl_fu_neon_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1997", "1997",
__"<Image>/Filters/Logulator/Neon", N_"<Image>/Filters/Logulator/Neon",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "NEON"], [PF_STRING, 'text_string', "Text String", "NEON"],
@ -2004,7 +2004,7 @@ register "perl_fu_newsprint_text",
"Austin Donnelly", "Austin Donnelly",
"Austin Donnelly", "Austin Donnelly",
"1998", "1998",
__"<Image>/Filters/Logulator/Newsprint text", N_"<Image>/Filters/Logulator/Newsprint text",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Newsprint"], [PF_STRING, 'text_string', "Text String", "Newsprint"],
@ -2224,7 +2224,7 @@ register "perl_fu_sota_chrome_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1997", "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]], [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",
"Austin Donnelly", "Austin Donnelly",
"1998", "1998",
__"<Image>/Filters/Logulator/Speed text", N_"<Image>/Filters/Logulator/Speed text",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Speed!"], [PF_STRING, 'text_string', "Text String", "Speed!"],
@ -2367,7 +2367,7 @@ register "perl_fu_starburst_logo",
"Spencer Kimball & Xach Beane", "Spencer Kimball & Xach Beane",
"Spencer Kimball & Xach Beane", "Spencer Kimball & Xach Beane",
"1997", "1997",
__"<Image>/Filters/Logulator/Starburst", N_"<Image>/Filters/Logulator/Starburst",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "GIMP"], [PF_STRING, 'text_string', "Text String", "GIMP"],
@ -2498,7 +2498,7 @@ register "perl_fu_starscape_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1997", "1997",
__"<Image>/Filters/Logulator/Starscape", N_"<Image>/Filters/Logulator/Starscape",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "Nova"], [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 (narazaki\@InetQ.or.jp)",
"Shuji Narazaki", "Shuji Narazaki",
"1997", "1997",
__"<Image>/Filters/Logulator/Particle Trace", N_"<Image>/Filters/Logulator/Particle Trace",
"", "",
[ [
[PF_STRING, 'text_string', "Text String", "The GIMP"], [PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -2691,7 +2691,7 @@ register "perl_fu_textured_logo",
"Spencer Kimball", "Spencer Kimball",
"Spencer Kimball", "Spencer Kimball",
"1996", "1996",
__"<Image>/Filters/Logulator/Textured", N_"<Image>/Filters/Logulator/Textured",
"", "",
[ [
[PF_PATTERN, 'text_pattern', "Text Pattern", "Fibers"], [PF_PATTERN, 'text_pattern', "Text Pattern", "Fibers"],
@ -2770,7 +2770,7 @@ register "perl_fu_title_header",
"Federico Mena Quintero", "Federico Mena Quintero",
"Federico Mena Quintero", "Federico Mena Quintero",
"June 1997", "June 1997",
__"<Image>/Filters/Logulator/Web title header", N_"<Image>/Filters/Logulator/Web title header",
"", "",
[ [
[PF_STRING, 'text_string', "Text", "Hello world!"], [PF_STRING, 'text_string', "Text", "Hello world!"],