Commit 2d5c7c01 authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent 77fc62a1
...@@ -328,7 +328,7 @@ sub _initialized_callback { ...@@ -328,7 +328,7 @@ sub _initialized_callback {
require Gimp::Compat; require Gimp::Compat;
$compat_gimp_version[0] == $Gimp::Compat::max_gimp_version[0] $compat_gimp_version[0] == $Gimp::Compat::max_gimp_version[0]
&& $compat_gimp_version[1] == $Gimp::Compat::max_gimp_version[1] && $compat_gimp_version[1] == $Gimp::Compat::max_gimp_version[1]
or die __"FATAL: Gimp::Compat version mismatch\n"; or die "FATAL: Gimp::Compat version mismatch\n";
} }
} }
if (@log) { if (@log) {
...@@ -984,7 +984,7 @@ integers>, rather than blessed objects. ...@@ -984,7 +984,7 @@ integers>, rather than blessed objects.
=item gimp_drawable_bounds drawable/gdrawable =item gimp_drawable_bounds drawable/gdrawable
Returns an array (0,0,w,h) containing the upper left corner and the Returns an array (x,y,w,h) containing the upper left corner and the
size of currently selected parts of the drawable, just as needed by size of currently selected parts of the drawable, just as needed by
PixelRgn->new and similar functions. PixelRgn->new and similar functions.
......
...@@ -1338,7 +1338,7 @@ gimp_main(...) ...@@ -1338,7 +1338,7 @@ gimp_main(...)
argc++; argc++;
} }
else else
croak (__("internal error (please report): too many main arguments")); croak ("internal error (please report): too many arguments to main");
} }
else else
croak (__("arguments to main not yet supported!")); croak (__("arguments to main not yet supported!"));
...@@ -1584,10 +1584,10 @@ gimp_call_procedure (proc_name, ...) ...@@ -1584,10 +1584,10 @@ gimp_call_procedure (proc_name, ...)
SPAGAIN; SPAGAIN;
} }
else else
sprintf (croak_str, __("unsupported status code: %d, fatal error\n"), values[0].data.d_status); sprintf (croak_str, "unsupported status code: %d, fatal error\n", values[0].data.d_status);
} }
else else
sprintf (croak_str, __("gimp didn't return an execution status, fatal error")); sprintf (croak_str, "gimp didn't return an execution status, fatal error");
} }
......
package Gimp::PDL; package Gimp::PDL;
use Gimp ('__'); warn "use'ing Gimp::PDL is no longer necessary, please remove it!\n";
warn __"use'ing Gimp::PDL is no longer necessary, please remove it!\n";
1; 1;
__END__ __END__
......
...@@ -130,7 +130,6 @@ examples/billboard ...@@ -130,7 +130,6 @@ examples/billboard
examples/blended2 examples/blended2
pxgettext pxgettext
po/ChangeLog po/ChangeLog
po/gimp-perl.pot
po/de.po po/de.po
po/it.po po/it.po
po/cs.po po/cs.po
......
...@@ -71,10 +71,10 @@ static void destroy_object (SV *sv) ...@@ -71,10 +71,10 @@ static void destroy_object (SV *sv)
hv_delete (object_cache, (char *)&id, sizeof(id), G_DISCARD); hv_delete (object_cache, (char *)&id, sizeof(id), G_DISCARD);
} }
else else
croak (__("Internal error: Gimp::Net #101, please report!")); croak ("Internal error: Gimp::Net #101, please report!");
} }
else else
croak (__("Internal error: Gimp::Net #100, please report!")); croak ("Internal error: Gimp::Net #100, please report!");
} }
/* allocate this much as initial length */ /* allocate this much as initial length */
...@@ -135,7 +135,7 @@ static void sv2net (int deobjectify, SV *s, SV *sv) ...@@ -135,7 +135,7 @@ static void sv2net (int deobjectify, SV *s, SV *sv)
else if (SvTYPE(rv) == SVt_PVMG) else if (SvTYPE(rv) == SVt_PVMG)
sv2net (deobjectify, s, rv); sv2net (deobjectify, s, rv);
else else
croak (__("Internal error: unable to convert reference in sv2net, please report!")); croak ("Internal error: unable to convert reference in sv2net, please report!");
} }
else if (SvOK(sv)) else if (SvOK(sv))
{ {
...@@ -190,7 +190,7 @@ static SV *net2sv (int objectify, char **_s) ...@@ -190,7 +190,7 @@ static SV *net2sv (int objectify, char **_s)
case 'b': case 'b':
sscanf (s, "%x:%n", &ui, &n); s += n; sscanf (s, "%x:%n", &ui, &n); s += n;
if (ui >= sizeof str) if (ui >= sizeof str)
croak (__("Internal error: stashname too long, please report!")); croak ("Internal error: stashname too long, please report!");
memcpy (str, s, ui); s += ui; memcpy (str, s, ui); s += ui;
str[ui] = 0; str[ui] = 0;
...@@ -204,7 +204,7 @@ static SV *net2sv (int objectify, char **_s) ...@@ -204,7 +204,7 @@ static SV *net2sv (int objectify, char **_s)
cv = hv_fetch (object_cache, (char *)(id=l,&id), sizeof(id), 0); cv = hv_fetch (object_cache, (char *)(id=l,&id), sizeof(id), 0);
if (!cv) if (!cv)
croak (__("Internal error: asked to deobjectify an object not in the cache, please report!")); croak ("Internal error: asked to deobjectify an object not in the cache, please report!");
sv = *cv; sv = *cv;
SvREFCNT_inc (sv); SvREFCNT_inc (sv);
...@@ -225,7 +225,7 @@ static SV *net2sv (int objectify, char **_s) ...@@ -225,7 +225,7 @@ static SV *net2sv (int objectify, char **_s)
break; break;
default: default:
croak (__("Internal error: unable to handle argtype '%c' in net2sv, please report!"), s[-1]); croak ("Internal error: unable to handle argtype '%c' in net2sv, please report!", s[-1]);
} }
*_s = s; *_s = s;
......
...@@ -722,10 +722,10 @@ sub script_fu_chalk_logo { ...@@ -722,10 +722,10 @@ sub script_fu_chalk_logo {
gimp_image_add_layer ($img, $bg_layer, 1); gimp_image_add_layer ($img, $bg_layer, 1);
gimp_palette_set_background ($bg_color); gimp_palette_set_background ($bg_color);
gimp_edit_fill ($bg_layer); gimp_edit_fill ($bg_layer);
gimp_edit_clear ($text_layer); gimp_palette_set_background ($chalk_color);
gimp_palette_set_foreground ($chalk_color); gimp_selection_layer_alpha ($text_layer);
$float_layer = gimp_text_fontname ($img, $text_layer, 0, 0, $text, $border, 1, $size, PIXELS, $font); gimp_edit_fill ($text_layer);
gimp_floating_sel_anchor ($float_layer); gimp_selection_none ($img);
plug_in_gauss_rle ($img, $text_layer, 2.0, 1, 1); plug_in_gauss_rle ($img, $text_layer, 2.0, 1, 1);
plug_in_spread ($img, $text_layer, 5.0, 5.0); plug_in_spread ($img, $text_layer, 5.0, 5.0);
plug_in_ripple ($img, $text_layer, 27, 2, 0, 0, 0, 1, 1); plug_in_ripple ($img, $text_layer, 27, 2, 0, 0, 0, 1, 1);
...@@ -1350,14 +1350,15 @@ sub script_fu_frosty_logo { ...@@ -1350,14 +1350,15 @@ sub script_fu_frosty_logo {
my ($text, $size, $font, $bg_color) = @_; my ($text, $size, $font, $bg_color) = @_;
do { do {
my $img = gimp_image_new (256, 256, RGB_IMAGE); my $img = gimp_image_new (256, 256, RGB_IMAGE);
my $border = $size / 5; my $border = $size / 7.5; # to avoid the ugly effect of the shadow, if the offset is excessive
my $text_layer = gimp_text_fontname ($img, -1, 0, 0, $text, $border * 2, 1, $size, PIXELS, $font); my $text_layer = gimp_text_fontname ($img, -1, 0, 0, $text, $border * 2, 1, $size, PIXELS, $font);
my $width = gimp_drawable_width ($text_layer); my $width = gimp_drawable_width ($text_layer);
my $height = gimp_drawable_height ($text_layer); my $height = gimp_drawable_height ($text_layer);
my $text_layer_mask = gimp_layer_create_mask ($text_layer, BLACK_MASK); my $text_layer_mask = gimp_layer_create_mask ($text_layer, BLACK_MASK);
my $sparkle_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Sparkle", 100, NORMAL_MODE); my $sparkle_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Sparkle", 100, NORMAL_MODE);
my $matte_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Matte", 100, NORMAL_MODE); my $matte_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Matte", 100, NORMAL_MODE);
my $shadow_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Shadow", 90, MULTIPLY_MODE); # to soften a bit the shadow effect, set opacity to 70
my $shadow_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Shadow", 70, MULTIPLY_MODE);
my $bg_layer = gimp_layer_new ($img, $width, $height, RGB_IMAGE, "Background", 100, NORMAL_MODE); my $bg_layer = gimp_layer_new ($img, $width, $height, RGB_IMAGE, "Background", 100, NORMAL_MODE);
my $selection = 0; my $selection = 0;
my $old_fg = gimp_palette_get_foreground (); my $old_fg = gimp_palette_get_foreground ();
...@@ -1383,7 +1384,7 @@ sub script_fu_frosty_logo { ...@@ -1383,7 +1384,7 @@ sub script_fu_frosty_logo {
plug_in_noisify ($img, $sparkle_layer, 0, 0.2, 0.2, 0.2, 0.0); plug_in_noisify ($img, $sparkle_layer, 0, 0.2, 0.2, 0.2, 0.0);
plug_in_c_astretch ($img, $sparkle_layer); plug_in_c_astretch ($img, $sparkle_layer);
gimp_selection_none ($img); gimp_selection_none ($img);
plug_in_sparkle ($img, $sparkle_layer, 0.03, 0.45, min ($width, $height) / 2, 6, 15, 1.0, 1.0, 0.0, 0.0, 0, 0, 0, 0); plug_in_sparkle ($img, $sparkle_layer, 0.03, 0.45, min ($width, $height) / 2, 6, 15, 1.0, 0.0, 0.0, 0.0, 0, 0, 0, 0);
gimp_levels ($sparkle_layer, 1, 0, 255, 0.2, 0, 255); gimp_levels ($sparkle_layer, 1, 0, 255, 0.2, 0, 255);
gimp_levels ($sparkle_layer, 2, 0, 255, 0.7, 0, 255); gimp_levels ($sparkle_layer, 2, 0, 255, 0.7, 0, 255);
gimp_selection_layer_alpha ($sparkle_layer); gimp_selection_layer_alpha ($sparkle_layer);
...@@ -2561,7 +2562,7 @@ sub script_fu_t_o_p_logo { ...@@ -2561,7 +2562,7 @@ sub script_fu_t_o_p_logo {
gimp_selection_border ($img, $edge_size); gimp_selection_border ($img, $edge_size);
plug_in_noisify ($img, $sparkle_layer, 0, $hit_rate, $hit_rate, $hit_rate, 0.0); plug_in_noisify ($img, $sparkle_layer, 0, $hit_rate, $hit_rate, $hit_rate, 0.0);
gimp_selection_none ($img); gimp_selection_none ($img);
plug_in_sparkle ($img, $sparkle_layer, 0.03, 0.45, $width, 6, 15, 1.0, 1.0, 0.0, 0.0, 0, 0, 0, 0); plug_in_sparkle ($img, $sparkle_layer, 0.03, 0.49, $width, 6, 15, 1.0, 0.0, 0.0, 0.0, 0, 0, 0, 0);
gimp_selection_load ($selection); gimp_selection_load ($selection);
gimp_selection_shrink ($img, $edge_size); gimp_selection_shrink ($img, $edge_size);
gimp_levels ($sparkle_layer, 0, 0, 255, 1.2, 0, 255); gimp_levels ($sparkle_layer, 0, 0, 255, 1.2, 0, 255);
...@@ -2617,7 +2618,7 @@ register "perl_fu_t_o_p_logo", ...@@ -2617,7 +2618,7 @@ register "perl_fu_t_o_p_logo",
[PF_STRING, 'text_string', "Text String", "The GIMP"], [PF_STRING, 'text_string', "Text String", "The GIMP"],
[PF_ADJUSTMENT,'font_size_pixels',"Font size (in pixels)", [100, 1, 1000, 1, 10, 0, 1]], [PF_ADJUSTMENT,'font_size_pixels',"Font size (in pixels)", [100, 1, 1000, 1, 10, 0, 1]],
[PF_FONT, 'font', "Font", "-*-becker-*-r-*-*-24-*-*-*-p-*-*-*"], [PF_FONT, 'font', "Font", "-*-becker-*-r-*-*-24-*-*-*-p-*-*-*"],
[PF_ADJUSTMENT,'hit_rate', "Hit Rate [0.0,1.0]", [0.2, 0, 1, .01, .01, 2, 0]], [PF_ADJUSTMENT,'hit_rate', "Hit Rate [0.0,1.0]", [0.2, 0, 1, .01, .01, 0, 0]],
[PF_ADJUSTMENT,'edge_width', "Edge Width", [2, 0, 128, 1, 1, 0, 0]], [PF_ADJUSTMENT,'edge_width', "Edge Width", [2, 0, 128, 1, 1, 0, 0]],
[PF_TOGGLE, 'edge_only', "Edge Only?", 0], [PF_TOGGLE, 'edge_only', "Edge Only?", 0],
[PF_COLOUR, 'base_color', "Base Color", [0, 40, 0]], [PF_COLOUR, 'base_color', "Base Color", [0, 40, 0]],
......
This diff is collapsed.
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