Andrew Gaffney <[EMAIL PROTECTED]> wrote:
:
: I wrote my own script based off your example and the docs
: at <http://search.cpan.org/~lds/GD-2.11/GD.pm>. When I
: run the below program, I get:
:
:
: skyline skyline-src # ./genbutton.pl
: gd-png: fatal libpng error: Invalid number of colors in palette
: gd-png error: setjmp returns error condition
You haven't set the palette. You need to Allocate()
colors into the palette before you can choose the
Closest() color in the palette. I changed $blue to
$green. It was easier to see the text that way.
my $im = new GD::Image->new(51, 20);
my $gray = $im->colorAllocate( 127, 127, 127 );
my $green = $im->colorAllocate( 0, 190, 200 );
my $white = $im->colorAllocate( 255, 255, 255 );
my $black = $im->colorAllocate( 0, 0, 0 );
$im->transparent($white);
$im->filledRectangle( 0, 0, 51, 20, $white );
$im->filledRectangle( 4, 4, 51, 20, $gray );
$im->filledRectangle( 0, 0, 47, 16, $green );
$im->string( gdSmallFont, 3, 3, "Test", $black );
my $png = 'testbutton.png';
open PNG, ">/home/httpd/htdocs/$png" or die qq|Can't write "$png": $!|;
binmode PNG;
print PNG $im->png;
close PNG;
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
