PAT So many questions about Perl, does 2-8-16 have it installed, where are the scripts installed in gimp
is this script ready to install
#!/usr/bin/perl -w
use strict;
use Gimp;
use Gimp::Fu;
podregister {
# no need to have my ($size, $color) = @_;
my $img = Gimp::Image->new($size, $size, RGB); # Create a new image
# Create a new layer
my $layer = $img->layer_new($size, $size, RGB, "Layer 1", 100, NORMAL_MODE);
$img->insert_layer($layer, -1, 0); # add the layer to the image
Gimp::Context->set_background($color); # Set background to required color
$layer->edit_fill(BACKGROUND_FILL); # Paint the layer
Gimp::Display->new($img);
return $img; # Return image - return implied by no IMAGE TYPES
};
exit main;
__END__
_________________
No matter how much you push the envelope, it'll still be stationery.
Login
Register
Tweets
FAQ
Advanced Search
Viewing GIMP tutorials
