1010 lines
41 KiB
Perl
Executable File
1010 lines
41 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use Gimp qw(:auto __ N_);
|
|
use Gimp::Fu;
|
|
use Gimp::Util;
|
|
|
|
N_"/Filters/Logulator"; # workaround for i18n weirdnesses
|
|
|
|
#Gimp::set_trace(TRACE_CALL);
|
|
|
|
my $global_drawable;
|
|
|
|
sub register($$$$$$$$$;@) {
|
|
my($function,$blurb,$help,$author,$copyright,$date,
|
|
$menupath,$imagetypes,$params,$code)=@_;
|
|
$function =~ s%^perl_fu_%logulator_% or die;
|
|
$imagetypes ||= "RGBA,GRAYA,INDEXEDA";
|
|
my($i,$j)=0;
|
|
my($ti,$fsi,$fi);
|
|
$i=@$params;
|
|
while($i--) {
|
|
local $_ = $params->[$i];
|
|
if($_->[1] =~ /text_string/i &&!defined $ti) {
|
|
$ti=$i;
|
|
splice @$params,$i,1;
|
|
} elsif ($_->[1] =~ /font_size_pixels/i &&!defined $fsi) {
|
|
$fsi=$i;
|
|
splice @$params,$i,1;
|
|
} elsif ($_->[1] =~ /font/i &&!defined $fi) {
|
|
$fi=$i;
|
|
splice @$params,$i,1;
|
|
}
|
|
}
|
|
defined($ti) and defined($fsi) and defined($fi) or die "$function, $menupath: no identifiable font ($ti $fsi $fi)\n";
|
|
|
|
$menupath =~ /([^\/]+)$/;
|
|
$menupath =~ s/\.*$/.../;
|
|
$help=<<EOF.$help;
|
|
|
|
This "script" is actually a script-fu logo script that has been converted
|
|
to perl. Instead of producing a logo from a text string (nice but rather
|
|
limited in the shapes you can create) it uses the drawable you specified
|
|
as the text shape. Any colour that the plug-in tries to use is ignored,
|
|
which allows you to create multi-colour text.
|
|
|
|
The drawable must have an alpha channel, and the shape of this channel
|
|
prescribes the shape of the logo. Most logos ignore any colour information
|
|
and instead use the shape only as a stencil, but some logo scripts do make
|
|
use of the text colour.
|
|
|
|
The original help for $1 follows:
|
|
|
|
EOF
|
|
|
|
Gimp::Fu::register($function,$blurb,$help,$author,$copyright,$date,
|
|
$menupath,$imagetypes,$params,sub{
|
|
my($image,$drawable)=(shift,shift);
|
|
$drawable->has_alpha or die "It makes no sense to call $menupath with a drawable lacking alpha!\n";
|
|
$i=0;
|
|
while($i<=@_) {
|
|
if($i==$ti) {
|
|
splice @_,$i,0,"-- Text --";
|
|
} elsif ($i==$fsi) {
|
|
splice @_,$i,0,$drawable->height;
|
|
} elsif ($i==$fi) {
|
|
splice @_,$i,0,"-*-helvetica-medium-r-normal-*-24-*-*-*-p-*-iso8859-1";
|
|
}
|
|
$i++;
|
|
}
|
|
$global_drawable=$drawable;
|
|
&$code;
|
|
();
|
|
});
|
|
}
|
|
|
|
sub gimp_text {
|
|
die "gimp_text not yet supported\n";
|
|
}
|
|
|
|
sub gimp_text_get_extents {
|
|
die "gimp_text_get_extents not yet supported\n";
|
|
}
|
|
|
|
# just return the width/height of the drawable instead
|
|
sub gimp_text_get_extents_fontname {
|
|
my($text,$size,$size_type,$fontname)=@_;
|
|
($global_drawable->width,$global_drawable->height,$global_drawable->height,0);
|
|
}
|
|
|
|
# instead of the text layer, just return a copy of the drawable
|
|
sub gimp_text_fontname {
|
|
my($image,$layer,$x,$y,$text,$border,$antialias,$height,$size_type,$fontname)=@_;
|
|
$global_drawable->image->selection_all;
|
|
$global_drawable->edit_copy;
|
|
my $newlay;
|
|
if ($layer == -1) {
|
|
$newlay=$image->layer_new($global_drawable->width,$global_drawable->height,
|
|
$image->layertype(1), $text || "--text--", 100, NORMAL_MODE);
|
|
$newlay->drawable_fill(TRANS_IMAGE_FILL);
|
|
$newlay->add_layer(0);
|
|
$newlay->edit_paste(0)->floating_sel_anchor;
|
|
} else {
|
|
$newlay = $layer->edit_paste(0);
|
|
}
|
|
$newlay;
|
|
}
|
|
|
|
# script-fu convenience functions
|
|
|
|
sub cdr {
|
|
my(@x)=@{$_[0]};
|
|
shift(@x);
|
|
@x >1 ? [@x] : $x[0];
|
|
}
|
|
|
|
sub number2string {
|
|
sprintf "%$_[1]d",$_[0];
|
|
}
|
|
|
|
sub nth {
|
|
$_[1]->[$_[0]];
|
|
}
|
|
|
|
sub min {
|
|
$_[0] < $_[1] ? $_[0] : $_[1];
|
|
}
|
|
|
|
sub max {
|
|
$_[0] > $_[1] ? $_[0] : $_[1];
|
|
}
|
|
|
|
#############################################################################
|
|
# converted scripts start here
|
|
#############################################################################
|
|
|
|
sub carve_brush {
|
|
my ($brush_size) = @_;
|
|
$brush_size <= 5 ? "Circle (05)"
|
|
: $brush_size <= 7 ? "Circle (07)"
|
|
: $brush_size <= 9 ? "Circle (09)"
|
|
: $brush_size <= 11 ? "Circle (11)"
|
|
: $brush_size <= 13 ? "Circle (13)"
|
|
: $brush_size <= 15 ? "Circle (15)"
|
|
: $brush_size <= 17 ? "Circle (17)"
|
|
: $brush_size > 17 ? "Circle (19)"
|
|
: die 'cond fell off the end';
|
|
}
|
|
|
|
sub carve_scale {
|
|
my ($val, $scale) = @_;
|
|
sqrt ($val) * $scale;
|
|
}
|
|
|
|
sub calculate_inset_gamma {
|
|
my ($img, $layer) = @_;
|
|
do {
|
|
my $stats = [gimp_histogram ($layer, 0, 0, 255)];
|
|
my $mean = @{$stats}[0];
|
|
|
|
$mean < 127 ? (1.0 + 0.5 * (127 - $mean) / 127.0)
|
|
: $mean >= 127 ? (1.0 - 0.5 * ($mean - 127) / 127.0)
|
|
: die 'cond fell off the end';
|
|
};
|
|
}
|
|
|
|
sub script_fu_carved_logo {
|
|
my ($text, $size, $font, $bg_img, $carve_raised) = @_;
|
|
do {
|
|
my $img = gimp_file_load ($bg_img, $bg_img);
|
|
my $offx = carve_scale ($size, 0.33);
|
|
my $offy = carve_scale ($size, 0.25);
|
|
my $feather = carve_scale ($size, 0.3);
|
|
my $brush_size = carve_scale ($size, 0.3);
|
|
my $b_size = carve_scale ($size, 1.5);
|
|
my $layer1 = gimp_image_active_drawable ($img);
|
|
my $mask_layer = gimp_text_fontname ($img, -1, 0, 0, $text, $b_size, 1, $size, PIXELS, $font);
|
|
my $width = gimp_drawable_width ($mask_layer);
|
|
my $height = gimp_drawable_height ($mask_layer);
|
|
my $mask_fs = 0;
|
|
my $mask = gimp_channel_new ($img, $width, $height, "Engraving Mask", 50, [0, 0, 0]);
|
|
my $inset_gamma = calculate_inset_gamma ($img, $layer1);
|
|
my $mask_fat = 0;
|
|
my $mask_emboss = 0;
|
|
my $mask_highlight = 0;
|
|
my $mask_shadow = 0;
|
|
my $shadow_layer = 0;
|
|
my $highlight_layer = 0;
|
|
my $cast_shadow_layer = 0;
|
|
my $csl_mask = 0;
|
|
my $inset_layer = 0;
|
|
my $il_mask = 0;
|
|
my $old_fg = gimp_palette_get_foreground ();
|
|
my $old_bg = gimp_palette_get_background ();
|
|
my $old_brush = gimp_brushes_get_brush ();
|
|
|
|
gimp_image_undo_disable ($img);
|
|
gimp_layer_set_preserve_trans ($mask_layer, 1);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($mask_layer, BG_IMAGE_FILL);
|
|
gimp_palette_set_background ([0, 0, 0]);
|
|
gimp_edit_fill ($mask, BG_IMAGE_FILL);
|
|
plug_in_tile ($img, $layer1, $width, $height, 0);
|
|
gimp_image_add_channel ($img, $mask, 0);
|
|
gimp_edit_copy ($mask_layer);
|
|
$mask_fs = gimp_edit_paste ($mask, 0);
|
|
gimp_floating_sel_anchor ($mask_fs);
|
|
if ($carve_raised) {
|
|
gimp_invert ($mask);
|
|
}
|
|
gimp_image_remove_layer ($img, $mask_layer);
|
|
$mask_fat = gimp_channel_copy ($mask);
|
|
gimp_image_add_channel ($img, $mask_fat, 0);
|
|
gimp_selection_load ($mask_fat);
|
|
gimp_brushes_set_brush (carve_brush ($brush_size));
|
|
gimp_palette_set_foreground ([255, 255, 255]);
|
|
gimp_edit_stroke ($mask_fat);
|
|
gimp_selection_none ($img);
|
|
$mask_emboss = gimp_channel_copy ($mask_fat);
|
|
gimp_image_add_channel ($img, $mask_emboss, 0);
|
|
plug_in_gauss_rle ($img, $mask_emboss, $feather, 1, 1);
|
|
plug_in_emboss ($img, $mask_emboss, 315.0, 45.0, 7, 1);
|
|
gimp_palette_set_background ([180, 180, 180]);
|
|
gimp_selection_load ($mask_fat);
|
|
gimp_selection_invert ($img);
|
|
gimp_edit_fill ($mask_emboss, BG_IMAGE_FILL);
|
|
gimp_selection_load ($mask);
|
|
gimp_edit_fill ($mask_emboss, BG_IMAGE_FILL);
|
|
gimp_selection_none ($img);
|
|
$mask_highlight = gimp_channel_copy ($mask_emboss);
|
|
gimp_image_add_channel ($img, $mask_highlight, 0);
|
|
gimp_levels ($mask_highlight, 0, 180, 255, 1.0, 0, 255);
|
|
$mask_shadow = $mask_emboss;
|
|
gimp_levels ($mask_shadow, 0, 0, 180, 1.0, 0, 255);
|
|
gimp_edit_copy ($mask_shadow);
|
|
$shadow_layer = gimp_edit_paste ($layer1, 0);
|
|
gimp_floating_sel_to_layer ($shadow_layer);
|
|
gimp_layer_set_mode ($shadow_layer, MULTIPLY_MODE);
|
|
gimp_edit_copy ($mask_highlight);
|
|
$highlight_layer = gimp_edit_paste ($shadow_layer, 0);
|
|
gimp_floating_sel_to_layer ($highlight_layer);
|
|
gimp_layer_set_mode ($highlight_layer, SCREEN_MODE);
|
|
gimp_edit_copy ($mask);
|
|
$cast_shadow_layer = gimp_edit_paste ($highlight_layer, 0);
|
|
gimp_floating_sel_to_layer ($cast_shadow_layer);
|
|
gimp_layer_set_mode ($cast_shadow_layer, MULTIPLY_MODE);
|
|
gimp_layer_set_opacity ($cast_shadow_layer, 75);
|
|
plug_in_gauss_rle ($img, $cast_shadow_layer, $feather, 1, 1);
|
|
gimp_layer_translate ($cast_shadow_layer, $offx, $offy);
|
|
$csl_mask = gimp_layer_create_mask ($cast_shadow_layer, BLACK_MASK);
|
|
gimp_image_add_layer_mask ($img, $cast_shadow_layer, $csl_mask);
|
|
gimp_selection_load ($mask);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($csl_mask, BG_IMAGE_FILL);
|
|
$inset_layer = gimp_layer_copy ($layer1, 1);
|
|
gimp_image_add_layer ($img, $inset_layer, 1);
|
|
$il_mask = gimp_layer_create_mask ($inset_layer, BLACK_MASK);
|
|
gimp_image_add_layer_mask ($img, $inset_layer, $il_mask);
|
|
gimp_selection_load ($mask);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($il_mask, BG_IMAGE_FILL);
|
|
gimp_selection_none ($img);
|
|
gimp_levels ($inset_layer, 0, 0, 255, $inset_gamma, 0, 255);
|
|
gimp_image_remove_channel ($img, $mask);
|
|
gimp_image_remove_channel ($img, $mask_fat);
|
|
gimp_image_remove_channel ($img, $mask_highlight);
|
|
gimp_image_remove_channel ($img, $mask_shadow);
|
|
gimp_layer_set_name ($layer1, "Carved Surface");
|
|
gimp_layer_set_name ($shadow_layer, "Bevel Shadow");
|
|
gimp_layer_set_name ($highlight_layer, "Bevel Highlight");
|
|
gimp_layer_set_name ($cast_shadow_layer, "Cast Shadow");
|
|
gimp_layer_set_name ($inset_layer, "Inset");
|
|
gimp_palette_set_foreground ($old_fg);
|
|
gimp_palette_set_background ($old_bg);
|
|
gimp_brushes_set_brush ($old_brush);
|
|
gimp_display_new ($img);
|
|
gimp_image_undo_enable ($img);
|
|
};
|
|
}
|
|
|
|
register "perl_fu_carved_logo",
|
|
"Carve the text from the specified image. The image will be automatically tiled to accomodate the rendered text string. The \"Carve Raised Text\" parameter determines whether to carve the text itself, or around the text.",
|
|
"Carve the text from the specified image. The image will be automatically tiled to accomodate the rendered text string. The \"Carve Raised Text\" parameter determines whether to carve the text itself, or around the text.",
|
|
"Spencer Kimball",
|
|
"Spencer Kimball",
|
|
"1997",
|
|
N_"<Image>/Filters/Logulator/Carved",
|
|
"",
|
|
[
|
|
[PF_STRING, 'text_string', "Text String", "Marble"],
|
|
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [100, 2, 1000, 1, 10, 0, 1]],
|
|
[PF_FONT, 'font', "Font", "-*-Engraver-*-r-*-*-24-*-*-*-p-*-*-*"],
|
|
[PF_FILE, 'background_img', "Background Img", "".'/usr/local/share/gimp/1.1'."/scripts/texture3.jpg"],
|
|
[PF_TOGGLE, 'carve_raised_text',"Carve Raised Text", 0],
|
|
],
|
|
\&script_fu_carved_logo;
|
|
|
|
sub set_pt {
|
|
my ($a, $index, $x, $y) = @_;
|
|
do {
|
|
$a->[$index * 2] = $x;
|
|
$a->[($index * 2 + 1)] = $y;
|
|
};
|
|
}
|
|
|
|
sub spline1 {
|
|
|
|
do {
|
|
my $a = (18,"byte",[]);
|
|
|
|
set_pt ($a, 0, 0, 0);
|
|
set_pt ($a, 1, 31, 235);
|
|
set_pt ($a, 2, 63, 23);
|
|
set_pt ($a, 3, 95, 230);
|
|
set_pt ($a, 4, 127, 25);
|
|
set_pt ($a, 5, 159, 210);
|
|
set_pt ($a, 6, 191, 20);
|
|
set_pt ($a, 7, 223, 240);
|
|
set_pt ($a, 8, 255, 31);
|
|
$a;
|
|
};
|
|
}
|
|
|
|
sub crystal_brush {
|
|
my ($brush_size) = @_;
|
|
$brush_size <= 5 ? "Circle (05)"
|
|
: $brush_size <= 7 ? "Circle (07)"
|
|
: $brush_size <= 9 ? "Circle (09)"
|
|
: $brush_size <= 11 ? "Circle (11)"
|
|
: $brush_size <= 13 ? "Circle (13)"
|
|
: $brush_size <= 15 ? "Circle (15)"
|
|
: $brush_size <= 17 ? "Circle (17)"
|
|
: "Circle Fuzzy (19)";
|
|
}
|
|
|
|
sub shadows {
|
|
my ($val) = @_;
|
|
0.96 * $val / 2.55;
|
|
}
|
|
|
|
sub midtones {
|
|
my ($val) = @_;
|
|
$val / 2.55;
|
|
}
|
|
|
|
sub highlights {
|
|
my ($val) = @_;
|
|
1.108 * $val / 2.55;
|
|
}
|
|
|
|
sub rval {
|
|
my ($col) = @_;
|
|
@{$col}[0];
|
|
}
|
|
|
|
sub gval {
|
|
my ($col) = @_;
|
|
@{$col}[1];
|
|
}
|
|
|
|
sub bval {
|
|
my ($col) = @_;
|
|
@{$col}[2];
|
|
}
|
|
|
|
sub sota_scale {
|
|
my ($val, $scale, $chrome_factor) = @_;
|
|
sqrt ($val) * $scale * $chrome_factor;
|
|
}
|
|
|
|
sub copy_layer_crystal {
|
|
my ($dest_image, $dest_drawable, $source_image, $source_drawable) = @_;
|
|
gimp_selection_all ($dest_image);
|
|
gimp_edit_clear ($dest_drawable);
|
|
gimp_selection_none ($dest_image);
|
|
gimp_selection_all ($source_image);
|
|
gimp_edit_copy ($source_drawable);
|
|
do {
|
|
my $floating_sel = gimp_edit_paste ($dest_drawable, 0);
|
|
|
|
gimp_floating_sel_anchor ($floating_sel);
|
|
};
|
|
}
|
|
|
|
sub script_fu_crystal_logo {
|
|
my ($chrome_factor, $text, $size, $font, $bg_img, $env_map) = @_;
|
|
do {
|
|
my $img = gimp_image_new (256, 256, GRAY);
|
|
my $back_img = gimp_file_load ($bg_img, $bg_img);
|
|
my $back_layer = gimp_image_active_drawable ($back_img);
|
|
my $banding_img = gimp_file_load ($env_map, $env_map);
|
|
my $banding_layer = gimp_image_active_drawable ($banding_img);
|
|
my $banding_height = gimp_drawable_height ($banding_layer);
|
|
my $banding_width = gimp_drawable_width ($banding_layer);
|
|
my $banding_type = gimp_drawable_type ($banding_layer);
|
|
my $b_size = sota_scale ($size, 2, $chrome_factor);
|
|
my $offx1 = sota_scale ($size, 0.33, $chrome_factor);
|
|
my $offy1 = sota_scale ($size, 0.25, $chrome_factor);
|
|
my $offx2 = sota_scale ($size, -(0.33), $chrome_factor);
|
|
my $offy2 = sota_scale ($size, -(0.25), $chrome_factor);
|
|
my $feather = sota_scale ($size, 0.5, $chrome_factor);
|
|
my $blur = sota_scale ($size, 0.5, $chrome_factor);
|
|
my $displace = sota_scale ($size, 0.25, $chrome_factor);
|
|
my $brush_size = sota_scale ($size, 0.5, $chrome_factor);
|
|
my $text_layer = gimp_text_fontname ($img, -1, 0, 0, $text, $b_size, 1, $size, PIXELS, $font);
|
|
my $width = gimp_drawable_width ($text_layer);
|
|
my $height = gimp_drawable_height ($text_layer);
|
|
my $tile_ret = [plug_in_tile ($back_img, $back_layer, $width, $height, 1)];
|
|
my $tile_img = @{$tile_ret}[0];
|
|
my $tile_layer = @{$tile_ret}[1];
|
|
my $tile_width = gimp_drawable_width ($tile_layer);
|
|
my $tile_height = gimp_drawable_height ($tile_layer);
|
|
my $tile_type = gimp_drawable_type ($tile_layer);
|
|
my $bg_layer = gimp_layer_new ($img, $tile_width, $tile_height, $tile_type, "BG-Layer", 100, NORMAL_MODE);
|
|
my $layer1 = gimp_layer_new ($img, $banding_width, $banding_height, $banding_type, "Layer1", 100, NORMAL_MODE);
|
|
my $layer2 = gimp_layer_new ($img, $width, $height, GRAYA_IMAGE, "Layer 2", 100, DIFFERENCE_MODE);
|
|
my $layer3 = gimp_layer_new ($img, $width, $height, GRAYA_IMAGE, "Layer 3", 100, NORMAL_MODE);
|
|
my $layer_mask = 0;
|
|
my $layer_mask2 = 0;
|
|
my $disp_map = 0;
|
|
my $old_fg = gimp_palette_get_foreground ();
|
|
my $old_bg = gimp_palette_get_background ();
|
|
my $old_brush = gimp_brushes_get_brush ();
|
|
|
|
gimp_image_delete ($back_img);
|
|
gimp_image_undo_disable ($img);
|
|
gimp_image_resize ($img, $width, $height, 0, 0);
|
|
gimp_image_add_layer ($img, $layer3, 0);
|
|
gimp_image_add_layer ($img, $layer2, 0);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_selection_none ($img);
|
|
gimp_edit_fill ($layer2, BG_IMAGE_FILL);
|
|
gimp_edit_fill ($layer3, BG_IMAGE_FILL);
|
|
gimp_layer_set_visible ($text_layer, 0);
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
gimp_palette_set_background ([0, 0, 0]);
|
|
gimp_selection_translate ($img, $offx1, $offy1);
|
|
gimp_selection_feather ($img, $feather);
|
|
gimp_edit_fill ($layer2, BG_IMAGE_FILL);
|
|
gimp_selection_translate ($img, 2 * $offx2, 2 * $offy2);
|
|
gimp_edit_fill ($layer3, BG_IMAGE_FILL);
|
|
gimp_selection_none ($img);
|
|
$layer2 = gimp_image_merge_visible_layers ($img, CLIP_TO_IMAGE);
|
|
gimp_invert ($layer2);
|
|
copy_layer_crystal ($img, $layer1, $banding_img, $banding_layer);
|
|
gimp_image_delete ($banding_img);
|
|
gimp_image_add_layer ($img, $layer1, 0);
|
|
gimp_layer_scale ($layer1, $width, $height, 0);
|
|
plug_in_gauss_iir ($img, $layer1, 10, 1, 1);
|
|
gimp_layer_set_opacity ($layer1, 50);
|
|
$layer1 = gimp_image_merge_visible_layers ($img, CLIP_TO_IMAGE);
|
|
gimp_curves_spline ($layer1, 0, 18, spline1 ());
|
|
$layer_mask = gimp_layer_create_mask ($layer1, BLACK_MASK);
|
|
gimp_image_add_layer_mask ($img, $layer1, $layer_mask);
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($layer_mask, BG_IMAGE_FILL);
|
|
$disp_map = gimp_selection_save ($img);
|
|
gimp_brushes_set_brush (crystal_brush ($brush_size));
|
|
gimp_palette_set_foreground ([0, 0, 0]);
|
|
gimp_edit_stroke ($disp_map);
|
|
gimp_selection_none ($img);
|
|
plug_in_gauss_rle ($img, $disp_map, $blur, 1, 1);
|
|
gimp_levels ($disp_map, 0, 0, 255, 1.0, 96, 255);
|
|
if (gimp_drawable_is_rgb ($bg_layer) == 1) {
|
|
gimp_convert_rgb ($img);
|
|
}
|
|
copy_layer_crystal ($img, $bg_layer, $tile_img, $tile_layer);
|
|
gimp_image_delete ($tile_img);
|
|
gimp_image_add_layer ($img, $bg_layer, 2);
|
|
$layer2 = gimp_layer_copy ($bg_layer, 1);
|
|
gimp_image_add_layer ($img, $layer2, 1);
|
|
plug_in_displace ($img, $layer2, $displace, $displace, 1, 1, $disp_map, $disp_map, 0);
|
|
$layer_mask2 = gimp_layer_create_mask ($layer2, BLACK_MASK);
|
|
gimp_image_add_layer_mask ($img, $layer2, $layer_mask2);
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($layer_mask2, BG_IMAGE_FILL);
|
|
gimp_selection_none ($img);
|
|
gimp_levels ($layer2, 0, 0, 200, 1.5, 50, 255);
|
|
gimp_layer_set_mode ($layer1, OVERLAY_MODE);
|
|
plug_in_gauss_rle ($img, $text_layer, $blur, 1, 1);
|
|
gimp_layer_set_preserve_trans ($text_layer, 1);
|
|
gimp_palette_set_background ([0, 0, 0]);
|
|
gimp_edit_fill ($text_layer, BG_IMAGE_FILL);
|
|
gimp_layer_set_mode ($text_layer, OVERLAY_MODE);
|
|
gimp_layer_translate ($text_layer, $offx1, $offy1);
|
|
gimp_image_remove_channel ($img, $disp_map);
|
|
gimp_layer_set_visible ($text_layer, 1);
|
|
gimp_layer_set_name ($layer1, "Crystal");
|
|
gimp_layer_set_name ($layer2, "Interior");
|
|
gimp_layer_set_name ($bg_layer, "Background");
|
|
gimp_layer_set_name ($text_layer, "Shadow");
|
|
gimp_palette_set_foreground ($old_fg);
|
|
gimp_palette_set_background ($old_bg);
|
|
gimp_brushes_set_brush ($old_brush);
|
|
gimp_image_undo_enable ($img);
|
|
gimp_display_new ($img);
|
|
};
|
|
}
|
|
|
|
register "perl_fu_crystal_logo",
|
|
"Crystal/Gel effect which displaces the image underneath",
|
|
"Crystal/Gel effect which displaces the image underneath",
|
|
"Spencer Kimball",
|
|
"Spencer Kimball",
|
|
"1997",
|
|
N_"<Image>/Filters/Logulator/Crystal",
|
|
"",
|
|
[
|
|
[PF_VALUE, 'chrome_factor', "Chrome Factor", "1.0"],
|
|
[PF_STRING, 'text_string', "Text String", "Crystal"],
|
|
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [150, 2, 1000, 1, 10, 0, 1]],
|
|
[PF_FONT, 'font', "Font", "-*-Engraver-*-r-*-*-24-*-*-*-p-*-*-*"],
|
|
[PF_FILE, 'background_img', "Background Img", "".'/usr/local/share/gimp/1.1'."/scripts/texture1.jpg"],
|
|
[PF_FILE, 'environment_map', "Environment Map", "".'/usr/local/share/gimp/1.1'."/scripts/beavis.jpg"],
|
|
],
|
|
\&script_fu_crystal_logo;
|
|
|
|
sub script_fu_i26_gunya2 {
|
|
my ($text, $text_color, $frame_color, $font, $font_size, $frame_size) = @_;
|
|
do {
|
|
my $img = gimp_image_new (256, 256, RGB_IMAGE);
|
|
my $border = $font_size / 10;
|
|
my $text_layer = gimp_text_fontname ($img, -1, 0, 0, $text, $border * 2, 1, $font_size, PIXELS, $font);
|
|
my $width = gimp_drawable_width ($text_layer);
|
|
my $height = gimp_drawable_height ($text_layer);
|
|
my $dist_text_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Distorted text", 100, NORMAL_MODE);
|
|
my $dist_frame_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Distorted text", 100, NORMAL_MODE);
|
|
my $distortion_img = gimp_image_new ($width, $height, GRAY);
|
|
my $distortion_layer = gimp_layer_new ($distortion_img, $width, $height, GRAY_IMAGE, "temp", 100, NORMAL_MODE);
|
|
my $radius = $font_size / 10;
|
|
my $prob = 0.5;
|
|
my $old_fg = gimp_palette_get_foreground ();
|
|
my $old_bg = gimp_palette_get_background ();
|
|
my $old_brush = gimp_brushes_get_brush ();
|
|
my $old_paint_mode = gimp_brushes_get_paint_mode ();
|
|
|
|
gimp_image_undo_disable ($img);
|
|
gimp_image_undo_disable ($distortion_img);
|
|
gimp_image_resize ($img, $width, $height, 0, 0);
|
|
gimp_image_add_layer ($img, $dist_text_layer, -1);
|
|
gimp_image_add_layer ($img, $dist_frame_layer, -1);
|
|
gimp_image_add_layer ($distortion_img, $distortion_layer, -1);
|
|
gimp_selection_none ($img);
|
|
gimp_edit_clear ($dist_text_layer);
|
|
gimp_edit_clear ($dist_frame_layer);
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
gimp_palette_set_background ($text_color);
|
|
gimp_edit_fill ($dist_text_layer, BG_IMAGE_FILL);
|
|
gimp_selection_border ($img, $frame_size);
|
|
gimp_palette_set_background ($frame_color);
|
|
gimp_edit_fill ($dist_frame_layer, BG_IMAGE_FILL);
|
|
gimp_selection_none ($img);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($distortion_layer, BG_IMAGE_FILL);
|
|
plug_in_noisify ($distortion_img, $distortion_layer, 0, $prob, $prob, $prob, 0.0);
|
|
plug_in_gauss_rle ($distortion_img, $distortion_layer, $radius, 1, 1);
|
|
plug_in_c_astretch ($distortion_img, $distortion_layer);
|
|
plug_in_gauss_rle ($distortion_img, $distortion_layer, $radius, 1, 1);
|
|
plug_in_displace ($img, $dist_text_layer, $radius, $radius, 1, 1, $distortion_layer, $distortion_layer, 0);
|
|
gimp_edit_fill ($distortion_layer, BG_IMAGE_FILL);
|
|
plug_in_noisify ($distortion_img, $distortion_layer, 0, $prob, $prob, $prob, 0.0);
|
|
plug_in_gauss_rle ($distortion_img, $distortion_layer, $radius, 1, 1);
|
|
plug_in_c_astretch ($distortion_img, $distortion_layer);
|
|
plug_in_gauss_rle ($distortion_img, $distortion_layer, $radius, 1, 1);
|
|
plug_in_displace ($img, $dist_frame_layer, $radius, $radius, 1, 1, $distortion_layer, $distortion_layer, 0);
|
|
gimp_selection_all ($img);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($text_layer, BG_IMAGE_FILL);
|
|
gimp_palette_set_foreground ($old_fg);
|
|
gimp_palette_set_background ($old_bg);
|
|
gimp_brushes_set_brush ($old_brush);
|
|
gimp_brushes_set_paint_mode ($old_paint_mode);
|
|
gimp_image_set_active_layer ($img, $dist_text_layer);
|
|
gimp_image_undo_enable ($img);
|
|
gimp_image_delete ($distortion_img);
|
|
gimp_display_new ($img);
|
|
};
|
|
}
|
|
|
|
register "perl_fu_i26_gunya2",
|
|
"Two-colored text by hand",
|
|
"Two-colored text by hand",
|
|
"Shuji Narazaki",
|
|
"Shuji Narazaki",
|
|
"1997",
|
|
N_"<Image>/Filters/Logulator/Imigre-26",
|
|
"",
|
|
[
|
|
[PF_STRING, 'text_string', "Text", "The GIMP"],
|
|
[PF_COLOUR, 'text_color', "Text Color", [255, 0, 0]],
|
|
[PF_COLOUR, 'frame_color', "Frame Color", [0, 34, 255]],
|
|
[PF_FONT, 'font', "Font"],
|
|
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [100, 2, 1000, 1, 10, 0, 1]],
|
|
[PF_VALUE, 'frame_size', "Frame Size", "2"],
|
|
],
|
|
\&script_fu_i26_gunya2;
|
|
|
|
sub script_fu_newsprint_text {
|
|
my ($string, $font, $font_size, $cell_size, $density) = @_;
|
|
do {
|
|
my $text_ext = [gimp_text_get_extents_fontname ($string, $font_size, PIXELS, $font)];
|
|
my $wid = (@{$text_ext}[0] + 20);
|
|
my $hi = (nth (1, $text_ext) + 20);
|
|
my $img = gimp_image_new ($wid, $hi, RGB_IMAGE);
|
|
my $bg_layer = gimp_layer_new ($img, $wid, $hi, RGB_IMAGE, "Background", 100, NORMAL_MODE);
|
|
my $text_layer = gimp_layer_new ($img, $wid, $hi, RGBA_IMAGE, "Text layer", 100, NORMAL_MODE);
|
|
my $text_mask = 0;
|
|
my $grey = $density * 255 / 100;
|
|
my $old_bg = gimp_palette_get_background ();
|
|
|
|
gimp_image_undo_disable ($img);
|
|
gimp_image_add_layer ($img, $bg_layer, 1);
|
|
gimp_image_add_layer ($img, $text_layer, -1);
|
|
gimp_edit_clear ($bg_layer);
|
|
gimp_edit_clear ($text_layer);
|
|
gimp_floating_sel_anchor (gimp_text_fontname ($img, $text_layer, 10, 10, $string, 0, 1, $font_size, PIXELS, $font));
|
|
$text_mask = gimp_layer_create_mask ($text_layer, ALPHA_MASK);
|
|
gimp_image_add_layer_mask ($img, $text_layer, $text_mask);
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
gimp_palette_set_background ([$grey, $grey, $grey]);
|
|
gimp_edit_fill ($text_mask, BG_IMAGE_FILL);
|
|
plug_in_newsprint ($img, $text_mask, $cell_size, 0, 0, 45.0, 3, 45.0, 0, 45.0, 0, 45.0, 0, 3);
|
|
gimp_image_remove_layer_mask ($img, $text_layer, APPLY);
|
|
gimp_palette_set_background ($old_bg);
|
|
gimp_image_undo_enable ($img);
|
|
gimp_display_new ($img);
|
|
};
|
|
}
|
|
|
|
register "perl_fu_newsprint_text",
|
|
"apply a screen to text",
|
|
"apply a screen to text",
|
|
"Austin Donnelly",
|
|
"Austin Donnelly",
|
|
"1998",
|
|
N_"<Image>/Filters/Logulator/Newsprint text",
|
|
"",
|
|
[
|
|
[PF_STRING, 'text_string', "Text String", "Newsprint"],
|
|
[PF_FONT, 'font', "Font", "-*-Helvetica-*-r-*-*-24-*-*-*-p-*-*-*"],
|
|
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [100, 2, 1000, 1, 10, 0, 1]],
|
|
[PF_VALUE, 'cell_size_in_pixels',"Cell size (in pixels)", "7"],
|
|
[PF_ADJUSTMENT,'density', "Density (%)", [60, 0, 100, 1, 10, 0, 0]],
|
|
],
|
|
\&script_fu_newsprint_text;
|
|
sub set_pt {
|
|
my ($a, $index, $x, $y) = @_;
|
|
do {
|
|
$a->[$index * 2] = $x;
|
|
$a->[($index * 2 + 1)] = $y;
|
|
};
|
|
}
|
|
|
|
sub spline1 {
|
|
|
|
do {
|
|
my $a = (18,"byte",[]);
|
|
|
|
set_pt ($a, 0, 0, 0);
|
|
set_pt ($a, 1, 31, 235);
|
|
set_pt ($a, 2, 63, 23);
|
|
set_pt ($a, 3, 95, 230);
|
|
set_pt ($a, 4, 127, 25);
|
|
set_pt ($a, 5, 159, 210);
|
|
set_pt ($a, 6, 191, 20);
|
|
set_pt ($a, 7, 223, 240);
|
|
set_pt ($a, 8, 255, 31);
|
|
$a;
|
|
};
|
|
}
|
|
|
|
sub brush {
|
|
my ($brush_size) = @_;
|
|
$brush_size <= 5 ? "Circle Fuzzy (05)"
|
|
: $brush_size <= 7 ? "Circle Fuzzy (07)"
|
|
: $brush_size <= 9 ? "Circle Fuzzy (09)"
|
|
: $brush_size <= 11 ? "Circle Fuzzy (11)"
|
|
: $brush_size <= 13 ? "Circle Fuzzy (13)"
|
|
: $brush_size <= 15 ? "Circle Fuzzy (15)"
|
|
: $brush_size <= 17 ? "Circle Fuzzy (17)"
|
|
: "Circle Fuzzy (19)";
|
|
}
|
|
|
|
sub shadows {
|
|
my ($val) = @_;
|
|
0.96 * $val / 2.55;
|
|
}
|
|
|
|
sub midtones {
|
|
my ($val) = @_;
|
|
$val / 2.55;
|
|
}
|
|
|
|
sub highlights {
|
|
my ($val) = @_;
|
|
do {
|
|
my $h = 1.108 * $val / 2.55;
|
|
|
|
if ($h > 100) {
|
|
100;
|
|
} else {
|
|
$h;
|
|
}
|
|
};
|
|
}
|
|
|
|
sub rval {
|
|
my ($col) = @_;
|
|
@{$col}[0];
|
|
}
|
|
|
|
sub gval {
|
|
my ($col) = @_;
|
|
@{$col}[1];
|
|
}
|
|
|
|
sub bval {
|
|
my ($col) = @_;
|
|
@{$col}[2];
|
|
}
|
|
|
|
sub sota_scale {
|
|
my ($val, $scale, $chrome_factor) = @_;
|
|
sqrt ($val) * $scale * $chrome_factor;
|
|
}
|
|
|
|
sub copy_layer_sota {
|
|
my ($dest_image, $dest_drawable, $source_image, $source_drawable) = @_;
|
|
gimp_selection_all ($dest_image);
|
|
gimp_edit_clear ($dest_drawable);
|
|
gimp_selection_none ($dest_image);
|
|
gimp_selection_all ($source_image);
|
|
gimp_edit_copy ($source_drawable);
|
|
do {
|
|
my $floating_sel = gimp_edit_paste ($dest_drawable, 0);
|
|
|
|
gimp_floating_sel_anchor ($floating_sel);
|
|
};
|
|
}
|
|
|
|
sub script_fu_sota_chrome_logo {
|
|
my ($chrome_saturation, $chrome_lightness, $chrome_factor, $text, $size, $fontname, $env_map, $hc, $cc) = @_;
|
|
do {
|
|
my $img = gimp_image_new (256, 256, GRAY);
|
|
my $banding_img = gimp_file_load ($env_map, $env_map);
|
|
my $banding_layer = gimp_image_active_drawable ($banding_img);
|
|
my $banding_height = gimp_drawable_height ($banding_layer);
|
|
my $banding_width = gimp_drawable_width ($banding_layer);
|
|
my $banding_type = gimp_drawable_type ($banding_layer);
|
|
my $b_size = sota_scale ($size, 2, $chrome_factor);
|
|
my $offx1 = sota_scale ($size, 0.33, $chrome_factor);
|
|
my $offy1 = sota_scale ($size, 0.25, $chrome_factor);
|
|
my $offx2 = sota_scale ($size, -(0.33), $chrome_factor);
|
|
my $offy2 = sota_scale ($size, -(0.25), $chrome_factor);
|
|
my $feather = sota_scale ($size, 0.5, $chrome_factor);
|
|
my $brush_size = sota_scale ($size, 0.5, $chrome_factor);
|
|
my $text_layer = gimp_text_fontname ($img, -1, 0, 0, $text, $b_size * 2, 1, $size, PIXELS, $fontname);
|
|
my $width = gimp_drawable_width ($text_layer);
|
|
my $height = gimp_drawable_height ($text_layer);
|
|
my $layer1 = gimp_layer_new ($img, $banding_width, $banding_height, $banding_type, "Layer1", 100, NORMAL_MODE);
|
|
my $layer2 = gimp_layer_new ($img, $width, $height, GRAYA_IMAGE, "Layer 2", 100, DIFFERENCE_MODE);
|
|
my $layer3 = gimp_layer_new ($img, $width, $height, GRAYA_IMAGE, "Layer 3", 100, NORMAL_MODE);
|
|
my $shadow = gimp_layer_new ($img, $width, $height, GRAYA_IMAGE, "Drop Shadow", 100, NORMAL_MODE);
|
|
my $layer_mask = 0;
|
|
my $old_fg = gimp_palette_get_foreground ();
|
|
my $old_bg = gimp_palette_get_background ();
|
|
my $old_brush = gimp_brushes_get_brush ();
|
|
my $old_pattern = gimp_patterns_get_pattern ();
|
|
|
|
gimp_image_undo_disable ($img);
|
|
gimp_image_resize ($img, $width, $height, 0, 0);
|
|
gimp_image_add_layer ($img, $shadow, 0);
|
|
gimp_image_add_layer ($img, $layer3, 0);
|
|
gimp_image_add_layer ($img, $layer2, 0);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_selection_none ($img);
|
|
gimp_edit_fill ($layer2, BG_IMAGE_FILL);
|
|
gimp_edit_fill ($layer3, BG_IMAGE_FILL);
|
|
gimp_edit_clear ($shadow);
|
|
gimp_layer_set_visible ($text_layer, 0);
|
|
gimp_layer_set_visible ($shadow, 0);
|
|
gimp_rect_select ($img, $b_size / 2, $b_size / 2, ($width - $b_size), ($height - $b_size), REPLACE, 0, 0);
|
|
gimp_rect_select ($img, $b_size, $b_size, ($width - $b_size * 2), ($height - $b_size * 2), SUB, 0, 0);
|
|
gimp_edit_fill ($text_layer, BG_IMAGE_FILL);
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
gimp_palette_set_background ([0, 0, 0]);
|
|
gimp_selection_translate ($img, $offx1, $offy1);
|
|
gimp_selection_feather ($img, $feather);
|
|
gimp_edit_fill ($layer2, BG_IMAGE_FILL);
|
|
gimp_selection_translate ($img, 2 * $offx2, 2 * $offy2);
|
|
gimp_edit_fill ($layer3, BG_IMAGE_FILL);
|
|
gimp_selection_none ($img);
|
|
gimp_layer_set_visible ($layer2, 1);
|
|
gimp_layer_set_visible ($layer3, 1);
|
|
$layer2 = gimp_image_merge_visible_layers ($img, CLIP_TO_IMAGE);
|
|
gimp_invert ($layer2);
|
|
copy_layer_sota ($img, $layer1, $banding_img, $banding_layer);
|
|
gimp_image_delete ($banding_img);
|
|
gimp_image_add_layer ($img, $layer1, 0);
|
|
gimp_layer_scale ($layer1, $width, $height, 0);
|
|
plug_in_gauss_iir ($img, $layer1, 10, 1, 1);
|
|
gimp_layer_set_opacity ($layer1, 50);
|
|
gimp_layer_set_visible ($layer1, 1);
|
|
gimp_layer_set_visible ($layer2, 1);
|
|
$layer1 = gimp_image_merge_visible_layers ($img, CLIP_TO_IMAGE);
|
|
gimp_curves_spline ($layer1, 0, 18, spline1 ());
|
|
$layer_mask = gimp_layer_create_mask ($layer1, BLACK_MASK);
|
|
gimp_image_add_layer_mask ($img, $layer1, $layer_mask);
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($layer_mask, BG_IMAGE_FILL);
|
|
$layer2 = gimp_layer_copy ($layer1, 1);
|
|
gimp_image_add_layer ($img, $layer2, 0);
|
|
gimp_brushes_set_brush (brush ($brush_size));
|
|
gimp_palette_set_foreground ([255, 255, 255]);
|
|
gimp_edit_stroke ($layer_mask);
|
|
gimp_palette_set_background ([0, 0, 0]);
|
|
gimp_selection_feather ($img, $feather * 1.5);
|
|
gimp_selection_translate ($img, 2.5 * $offx1, 2.5 * $offy1);
|
|
gimp_edit_fill ($shadow, BG_IMAGE_FILL);
|
|
gimp_selection_all ($img);
|
|
gimp_patterns_set_pattern ("Marble #1");
|
|
gimp_bucket_fill ($text_layer, PATTERN_BUCKET_FILL, NORMAL_MODE, 100, 0, 0, 0, 0);
|
|
gimp_selection_none ($img);
|
|
gimp_convert_rgb ($img);
|
|
gimp_color_balance ($layer1, 0, 1, shadows (rval ($hc)), shadows (gval ($hc)), shadows (bval ($hc)));
|
|
gimp_color_balance ($layer1, 1, 1, midtones (rval ($hc)), midtones (gval ($hc)), midtones (bval ($hc)));
|
|
gimp_color_balance ($layer1, 2, 1, highlights (rval ($hc)), highlights (gval ($hc)), highlights (bval ($hc)));
|
|
gimp_color_balance ($layer2, 0, 1, shadows (rval ($cc)), shadows (gval ($cc)), shadows (bval ($cc)));
|
|
gimp_color_balance ($layer2, 1, 1, midtones (rval ($cc)), midtones (gval ($cc)), midtones (bval ($cc)));
|
|
gimp_color_balance ($layer2, 2, 1, highlights (rval ($cc)), highlights (gval ($cc)), highlights (bval ($cc)));
|
|
gimp_hue_saturation ($layer2, 0, 0, $chrome_lightness, $chrome_saturation);
|
|
gimp_layer_set_visible ($shadow, 1);
|
|
gimp_layer_set_visible ($text_layer, 1);
|
|
gimp_layer_set_name ($text_layer, "Background");
|
|
gimp_layer_set_name ($layer2, "Chrome");
|
|
gimp_layer_set_name ($layer1, "Highlight");
|
|
gimp_layer_translate ($shadow, $b_size / -4, $b_size / -4);
|
|
gimp_layer_translate ($layer2, $b_size / -4, $b_size / -4);
|
|
gimp_layer_translate ($layer1, $b_size / -4, $b_size / -4);
|
|
gimp_palette_set_foreground ($old_fg);
|
|
gimp_palette_set_background ($old_bg);
|
|
gimp_brushes_set_brush ($old_brush);
|
|
gimp_patterns_set_pattern ($old_pattern);
|
|
gimp_image_undo_enable ($img);
|
|
gimp_display_new ($img);
|
|
};
|
|
}
|
|
|
|
register "perl_fu_sota_chrome_logo",
|
|
"State of the art chromed logos.",
|
|
"State of the art chromed logos.",
|
|
"Spencer Kimball",
|
|
"Spencer Kimball",
|
|
"1997",
|
|
N_"<Image>/Filters/Logulator/SOTA Chrome",
|
|
"",
|
|
[
|
|
[PF_ADJUSTMENT,'chrome_saturation',"Chrome Saturation", [-80, -100, 100, 1, 10, 0, 0]],
|
|
[PF_ADJUSTMENT,'chrome_lightness', "Chrome Lightness", [-47, -100, 100, 1, 10, 0, 0]],
|
|
[PF_ADJUSTMENT,'chrome_factor', "Chrome Factor", [.75, 0, 1, .1, .01, 0, 0]],
|
|
[PF_STRING, 'text_string', "Text String", "The GIMP"],
|
|
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [150, 2, 1000, 1, 10, 0, 1]],
|
|
[PF_FONT, 'font', "Font", "-*-RoostHeavy-*-r-*-*-24-*-*-*-p-*-*-*"],
|
|
[PF_FILE, 'environment_map', "Environment Map", "".'/usr/local/share/gimp/1.1'."/scripts/beavis.jpg"],
|
|
[PF_COLOUR, 'highlight_balance',"Highlight Balance", [211, 95, 0]],
|
|
[PF_COLOUR, 'chrome_balance', "Chrome Balance", [0, 0, 0]],
|
|
],
|
|
\&script_fu_sota_chrome_logo;
|
|
sub script_fu_speed_text {
|
|
my ($string, $font, $font_size, $density) = @_;
|
|
do {
|
|
my $text_ext = [gimp_text_get_extents_fontname ($string, $font_size, PIXELS, $font)];
|
|
my $wid = (@{$text_ext}[0] + 20);
|
|
my $hi = (nth (1, $text_ext) + 20);
|
|
my $img = gimp_image_new ($wid, $hi, RGB_IMAGE);
|
|
my $bg_layer = gimp_layer_new ($img, $wid, $hi, RGB_IMAGE, "Background", 100, NORMAL_MODE);
|
|
my $text_layer = gimp_layer_new ($img, $wid, $hi, RGBA_IMAGE, "Text layer", 100, NORMAL_MODE);
|
|
my $text_mask = 0;
|
|
my $saved_select = 0;
|
|
my $cell_size = $font_size / 8;
|
|
my $grey = $density * 255 / 100;
|
|
my $old_fg = gimp_palette_get_foreground ();
|
|
my $old_bg = gimp_palette_get_background ();
|
|
|
|
gimp_image_undo_disable ($img);
|
|
gimp_image_add_layer ($img, $bg_layer, 1);
|
|
gimp_image_add_layer ($img, $text_layer, -1);
|
|
gimp_edit_clear ($bg_layer);
|
|
gimp_edit_clear ($text_layer);
|
|
gimp_floating_sel_anchor (gimp_text_fontname ($img, $text_layer, 10, 10, $string, 0, 1, $font_size, PIXELS, $font));
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
$saved_sel = gimp_selection_save ($img);
|
|
$text_mask = gimp_layer_create_mask ($text_layer, ALPHA_MASK);
|
|
gimp_image_add_layer_mask ($img, $text_layer, $text_mask);
|
|
gimp_layer_set_edit_mask ($text_layer, 0);
|
|
gimp_selection_grow ($img, 10);
|
|
gimp_palette_set_background ($old_fg);
|
|
gimp_edit_fill ($text_layer, BG_IMAGE_FILL);
|
|
gimp_layer_set_edit_mask ($text_layer, 1);
|
|
gimp_selection_load ($saved_sel);
|
|
gimp_selection_feather ($img, 10);
|
|
gimp_palette_set_background ([$grey, $grey, $grey]);
|
|
gimp_edit_fill ($text_mask, BG_IMAGE_FILL);
|
|
gimp_edit_fill ($text_mask, BG_IMAGE_FILL);
|
|
gimp_edit_fill ($text_mask, BG_IMAGE_FILL);
|
|
gimp_selection_clear ($img);
|
|
plug_in_newsprint ($img, $text_mask, $cell_size, 0, 0, 0.0, 1, 45.0, 0, 45.0, 0, 45.0, 0, 5);
|
|
gimp_image_remove_layer_mask ($img, $text_layer, APPLY);
|
|
gimp_palette_set_foreground ($old_fg);
|
|
gimp_palette_set_background ($old_bg);
|
|
gimp_image_undo_enable ($img);
|
|
gimp_display_new ($img);
|
|
};
|
|
}
|
|
|
|
register "perl_fu_speed_text",
|
|
"give text a speedy effect",
|
|
"give text a speedy effect",
|
|
"Austin Donnelly",
|
|
"Austin Donnelly",
|
|
"1998",
|
|
N_"<Image>/Filters/Logulator/Speed text",
|
|
"",
|
|
[
|
|
[PF_STRING, 'text_string', "Text String", "Speed!"],
|
|
[PF_FONT, 'font', "Font", "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"],
|
|
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [100, 2, 1000, 1, 10, 0, 1]],
|
|
[PF_ADJUSTMENT,'density', "Density (%)", [80, 0, 100, 1, 10, 0, 0]],
|
|
],
|
|
\&script_fu_speed_text;
|
|
|
|
sub script_fu_title_header {
|
|
my ($text, $size, $fontname) = @_;
|
|
do {
|
|
my $padding = 8;
|
|
my $fade_width = 64;
|
|
my $old_fg_color = gimp_palette_get_foreground ();
|
|
my $old_bg_color = gimp_palette_get_background ();
|
|
my $img = gimp_image_new (256, 256, RGB_IMAGE);
|
|
my $text_layer = gimp_text_fontname ($img, -1, 0, 0, $text, $padding, 1, $size, PIXELS, $fontname);
|
|
my $text_width = gimp_drawable_width ($text_layer);
|
|
my $text_height = gimp_drawable_height ($text_layer);
|
|
my $text_layers_offset = $text_height / 2;
|
|
my $img_width = ($text_layers_offset + $text_width + $fade_width);
|
|
my $img_height = $text_height;
|
|
my $bg_layer = gimp_layer_new ($img, $img_width, $img_height, RGBA_IMAGE, "bg-layer", 100, NORMAL_MODE);
|
|
my $bumpmap_layer = gimp_layer_new ($img, $text_width, $text_height, RGBA_IMAGE, "bumpmap-layer", 100, NORMAL_MODE);
|
|
my $fore_layer = gimp_layer_new ($img, $text_width, $text_height, RGBA_IMAGE, "fore-layer", 100, NORMAL_MODE);
|
|
|
|
gimp_image_undo_disable ($img);
|
|
gimp_image_resize ($img, $img_width, $img_height, 0, 0);
|
|
gimp_image_add_layer ($img, $bg_layer, -1);
|
|
gimp_image_add_layer ($img, $bumpmap_layer, -1);
|
|
gimp_image_add_layer ($img, $fore_layer, -1);
|
|
gimp_image_raise_layer ($img, $text_layer);
|
|
gimp_image_raise_layer ($img, $text_layer);
|
|
gimp_image_raise_layer ($img, $text_layer);
|
|
gimp_layer_set_offsets ($bg_layer, 0, 0);
|
|
gimp_layer_set_offsets ($text_layer, $text_layers_offset, 0);
|
|
gimp_layer_set_offsets ($bumpmap_layer, $text_layers_offset, 0);
|
|
gimp_layer_set_offsets ($fore_layer, $text_layers_offset, 0);
|
|
gimp_palette_set_background ([0, 0, 0]);
|
|
gimp_edit_fill ($bumpmap_layer, BG_IMAGE_FILL);
|
|
gimp_selection_layer_alpha ($text_layer);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($bumpmap_layer, BG_IMAGE_FILL);
|
|
gimp_selection_none ($img);
|
|
plug_in_gauss_rle ($img, $bumpmap_layer, 4.0, 1, 1);
|
|
gimp_palette_set_background ([255, 255, 255]);
|
|
gimp_edit_fill ($fore_layer, BG_IMAGE_FILL);
|
|
plug_in_bump_map ($img, $fore_layer, $bumpmap_layer, 135.0, 45.0, 4, 0, 0, 0, 0, 0, 0, 0);
|
|
gimp_layer_set_visible ($text_layer, 1);
|
|
gimp_layer_set_preserve_trans ($text_layer, 1);
|
|
gimp_blend ($text_layer, CUSTOM, NORMAL_MODE, LINEAR, 100, 0, REPEAT_NONE, 0, 0.2, 3, $padding, $padding, ($text_width - $padding - 1), ($text_height - $padding - 1));
|
|
gimp_palette_set_background ([0, 0, 0]);
|
|
gimp_edit_fill ($bg_layer, BG_IMAGE_FILL);
|
|
gimp_ellipse_select ($img, 0, 0, $text_height, $text_height, REPLACE, 1, 0, 0);
|
|
gimp_palette_set_background (gimp_color_picker ($text_layer, $text_layers_offset, 0, 1, 0, 6, 0));
|
|
gimp_edit_fill ($bg_layer, BG_IMAGE_FILL);
|
|
gimp_rect_select ($img, ($img_width - $fade_width), 0, $fade_width, $text_height, REPLACE, 0, 0);
|
|
gimp_palette_set_foreground (gimp_palette_get_background ());
|
|
gimp_palette_set_background ([0, 0, 0]);
|
|
gimp_blend ($bg_layer, FG_BG_RGB, NORMAL_MODE, LINEAR, 100, 0, REPEAT_NONE, 0, 0.2, 3, ($img_width - $fade_width), 0, ($img_width - 1), 0);
|
|
gimp_selection_none ($img);
|
|
gimp_palette_set_foreground ($old_fg_color);
|
|
gimp_palette_set_background ($old_bg_color);
|
|
gimp_image_undo_enable ($img);
|
|
gimp_display_new ($img);
|
|
};
|
|
}
|
|
|
|
register "perl_fu_title_header",
|
|
"Web title header",
|
|
"Web title header",
|
|
"Federico Mena Quintero",
|
|
"Federico Mena Quintero",
|
|
"June 1997",
|
|
N_"<Image>/Filters/Logulator/Web title header",
|
|
"",
|
|
[
|
|
[PF_STRING, 'text_string', "Text", "Hello world!"],
|
|
[PF_ADJUSTMENT,'font_size_pixels', "Text size", [32, 2, 256, 1, 10, 0, 0]],
|
|
[PF_FONT, 'font', "Font", "-adobe-helvetica-bold-r-normal-*-30-*-*-*-p-*-*-*"],
|
|
],
|
|
\&script_fu_title_header;
|
|
|
|
exit main;
|