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 {
require Gimp::Compat;
$compat_gimp_version[0] == $Gimp::Compat::max_gimp_version[0]
&& $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) {
......@@ -984,7 +984,7 @@ integers>, rather than blessed objects.
=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
PixelRgn->new and similar functions.
......
......@@ -1338,7 +1338,7 @@ gimp_main(...)
argc++;
}
else
croak (__("internal error (please report): too many main arguments"));
croak ("internal error (please report): too many arguments to main");
}
else
croak (__("arguments to main not yet supported!"));
......@@ -1584,10 +1584,10 @@ gimp_call_procedure (proc_name, ...)
SPAGAIN;
}
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
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;
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;
__END__
......
......@@ -130,7 +130,6 @@ examples/billboard
examples/blended2
pxgettext
po/ChangeLog
po/gimp-perl.pot
po/de.po
po/it.po
po/cs.po
......
......@@ -71,10 +71,10 @@ static void destroy_object (SV *sv)
hv_delete (object_cache, (char *)&id, sizeof(id), G_DISCARD);
}
else
croak (__("Internal error: Gimp::Net #101, please report!"));
croak ("Internal error: Gimp::Net #101, please report!");
}
else
croak (__("Internal error: Gimp::Net #100, please report!"));
croak ("Internal error: Gimp::Net #100, please report!");
}
/* allocate this much as initial length */
......@@ -135,7 +135,7 @@ static void sv2net (int deobjectify, SV *s, SV *sv)
else if (SvTYPE(rv) == SVt_PVMG)
sv2net (deobjectify, s, rv);
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))
{
......@@ -190,7 +190,7 @@ static SV *net2sv (int objectify, char **_s)
case 'b':
sscanf (s, "%x:%n", &ui, &n); s += n;
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;
str[ui] = 0;
......@@ -204,7 +204,7 @@ static SV *net2sv (int objectify, char **_s)
cv = hv_fetch (object_cache, (char *)(id=l,&id), sizeof(id), 0);
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;
SvREFCNT_inc (sv);
......@@ -225,7 +225,7 @@ static SV *net2sv (int objectify, char **_s)
break;
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;
......
......@@ -722,10 +722,10 @@ sub script_fu_chalk_logo {
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_palette_set_background ($bg_color);
gimp_edit_fill ($bg_layer);
gimp_edit_clear ($text_layer);
gimp_palette_set_foreground ($chalk_color);
$float_layer = gimp_text_fontname ($img, $text_layer, 0, 0, $text, $border, 1, $size, PIXELS, $font);
gimp_floating_sel_anchor ($float_layer);
gimp_palette_set_background ($chalk_color);
gimp_selection_layer_alpha ($text_layer);
gimp_edit_fill ($text_layer);
gimp_selection_none ($img);
plug_in_gauss_rle ($img, $text_layer, 2.0, 1, 1);
plug_in_spread ($img, $text_layer, 5.0, 5.0);
plug_in_ripple ($img, $text_layer, 27, 2, 0, 0, 0, 1, 1);
......@@ -1350,14 +1350,15 @@ sub script_fu_frosty_logo {
my ($text, $size, $font, $bg_color) = @_;
do {
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 $width = gimp_drawable_width ($text_layer);
my $height = gimp_drawable_height ($text_layer);
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 $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 $selection = 0;
my $old_fg = gimp_palette_get_foreground ();
......@@ -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_c_astretch ($img, $sparkle_layer);
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, 2, 0, 255, 0.7, 0, 255);
gimp_selection_layer_alpha ($sparkle_layer);
......@@ -2561,7 +2562,7 @@ sub script_fu_t_o_p_logo {
gimp_selection_border ($img, $edge_size);
plug_in_noisify ($img, $sparkle_layer, 0, $hit_rate, $hit_rate, $hit_rate, 0.0);
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_shrink ($img, $edge_size);
gimp_levels ($sparkle_layer, 0, 0, 255, 1.2, 0, 255);
......@@ -2617,7 +2618,7 @@ register "perl_fu_t_o_p_logo",
[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_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_TOGGLE, 'edge_only', "Edge Only?", 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