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 1999-02-26 19:14:25 +00:00
parent 7d749f4218
commit 7af79909a1
3 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/Gimp/Util.pm
View File

@ -244,8 +244,8 @@ is with alpha or not. Example: imagetype: RGB -> RGB_IMAGE (or RGBA_IMAGE).
=cut =cut
sub gimp_image_layertype { sub gimp_image_layertype {
my $type = $_[0]->base_type; my $type = $_[0]->base_type;
$type == RGB ? $alpha ? RGBA_IMAGE : RGB_IMAGE : $type == RGB ? $alpha ? RGBA_IMAGE : RGB_IMAGE :
$type == GRAY ? $alpha ? GRAYA_IMAGE : GRAY_IMAGE : $type == GRAY ? $alpha ? GRAYA_IMAGE : GRAY_IMAGE :
$type == INDEXED ? $alpha ? INDEXEDA_IMAGE : INDEXED_IMAGE : $type == INDEXED ? $alpha ? INDEXEDA_IMAGE : INDEXED_IMAGE :
die; die;
} }

16
plug-ins/perl/examples/terral_text
View File

@ -26,22 +26,24 @@
#[terral] input levels of 0, .24, 113 [22:11] #[terral] input levels of 0, .24, 113 [22:11]
#[terral] --end of script [22:12] #[terral] --end of script [22:12]
use Gimp; use Gimp 1.06;
use Gimp::Fu; use Gimp::Fu;
use Gimp::Util;
# Gimp::set_trace(TRACE_ALL); # Gimp::set_trace(TRACE_ALL);
register register
"terraltext", "terraltext",
"Make a cool text bumpmap thingy", "Make a cool text bumpmap thingy",
"Creates a bumpmap text thingy. Can work using the current layer as a bumpmap or make a solid noise layer for it.", "Does a neat text render effect. If you uncheck the box, it uses the current layer. ".
"Otherwise, it overwrites the current layer and uses a solid noise",
"Seth Burgess", "Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>", "Seth Burgess <sjburges\@gimp.org>",
"1999-02-24", "1999-02-26",
"<Image>/Filters/Render/Terral Text", "<Image>/Filters/Render/Terral Text",
"RGB*", "RGB*,GRAY*",
[ [
[ PF_TOGGLE, "Solid Noise?", "Say yes here", "Either use solid noise or the current background", 0 ], [ PF_RADIO, "solid_noise", "The Texture Type", 0, [["solid noise",1],["current picture",0]]],
[ PF_FONT, "helvetica", "Font Name", "-*-helvetica-medium-r-normal-*-*-240-*-*-p-*-iso8859-1" ], [ PF_FONT, "helvetica", "Font Name", "-*-helvetica-medium-r-normal-*-*-240-*-*-p-*-iso8859-1" ],
[ PF_STRING, "Text", "Enter your Text to be Terral-ified", "TerralText"], [ PF_STRING, "Text", "Enter your Text to be Terral-ified", "TerralText"],
[ PF_SLIDER, "Blur Amount", "Blur Amount", 10, [0,26,1]], [ PF_SLIDER, "Blur Amount", "Blur Amount", 10, [0,26,1]],
@ -60,8 +62,10 @@ sub {
# FIXME: I should endeavour to find out what kind of image I'm talking # FIXME: I should endeavour to find out what kind of image I'm talking
# about before blindly apply a type of layer. Oh well. Call it RGBA # about before blindly apply a type of layer. Oh well. Call it RGBA
# for now. # for now.
# Hello, Seth.. look at this:
$textlayer = $img->layer_new($img->width, $img->height,RGBA_IMAGE, $textlayer = $img->layer_new($img->width, $img->height, $img->layertype(1),
"TextLayer", 100, 0); "TextLayer", 100, 0);
$img->add_layer($textlayer,1); $img->add_layer($textlayer,1);
palette_set_background([255,255,255]); palette_set_background([255,255,255]);

4
plug-ins/perl/examples/tex-to-float
View File

@ -162,8 +162,8 @@ sub tex_string_to_float {
# register the script # register the script
register "tex_string_to_float", "Turn a TeX-string into floating layer", "Takes a TeX string as input and creates a floating layer of the rendered string in the current layer in the foreground color.", register "tex_string_to_float", "Turn a TeX-string into floating layer", "Takes a TeX string as input and creates a floating layer of the rendered string in the current layer in the foreground color.",
"Dov Grobgeld <dov\@imagic.weizmann.ac.il>", "Dov Grobgeld", "Dov Grobgeld <dov\@imagic.weizmann.ac.il>", "Dov Grobgeld",
"1998-11-03", "1999-02-26",
"<Image>/Perl-Fu/TeX String", "<Image>/Filters/Render/TeX String",
"*", "*",
[ [
[PF_STRING, "Input file", "TeX macro file to input", ""], [PF_STRING, "Input file", "TeX macro file to input", ""],