On Sat, 08 Jan 2005 14:36:57 -0600
"JupiterHost.Net" <[EMAIL PROTECTED]> wrote:
>
> I've added it to my test script and did the othe types as well and
> removed the content type header so that doesn't confuse the issue.
>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use GD;
>
> my $image = GD::Image->new(100,50);
> my $white = $image->colorAllocate(255,255,255);
> $image->transparent($white);
>
> my $fontcolor = $image->colorAllocate(0,0,0);
> my $font = GD::Font->Small();
>
> $image->string($font,2,10,'hello world',$fontcolor);
--------------------------insert---------------------------
open (OUT,">GD.png");
my $img = $image->png;
print OUT "$img";
--------------------------end insert---------------------------
> binmode STDOUT;
>
> print "PNG\n";
> print $image->png;
>
>
> print "\nGIF\n";
> print $image->gif;
>
>
> print "\nJPEG\n";
> print $image->jpeg;
It worked for me, try modifying the script a la above and see if it produces a
GD.png file
--
Owen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
