| |
Re: printing generated png image
From: 08386@xyz.molar.is
Date: Fri 09 May 2003 - 17:05:10 GMT
Next message: Dan Muey: "RE: printing generated png image"
From perldoc Imager::Files (slightly modified)
use CGI qw(:standard);
$| = 1;
binmode STDOUT;
my $img =
Imager->new(xsize=>400,ysize=>300,channels=>4,type=>'paletted',bits=>16);
.
.
draw some stuff
.
.
print header(-type=>'image/png');
$img->write(type=>'png', fd=>fileno(STDOUT))
or die $img->errstr;
I use it myself to generate graphs on the fly.
re,
Simon
On Fri, 9 May 2003, Dan Muey wrote:
> Hello list,
>
> I have a script that is generating an image.
>
> Instead of writing it to a file I'd like to be able to have the script
> print the image.
>
> Foe example :
>
> If I just read a png file I can then print it like so :
>
> use CGI qw/:standard/;
> use File::Slurp;
>
> my $png_guts = read_file("./mysuper.png");
> print header("image/png");
> print $png_guts;
>
> So how can I take a blank image : ( never opening or using an existing image file )
>
> my $img = Imager->new(xsize=>400,ysize=>300,channels=>4,type=>'paletted',bits=>16);
>
> ...do what i need to get the image i want
> And print the newly generated image to the screen :
>
> print header("image/png");
> print $img;
>
> How do I print it to the screen?
> How to I make it a png image so the png header will work?
>
> Thanks a bunch! This looks to be a very cool module that I'll end up using quite a bit!!
>
> Dan
>
>
>
| |
