Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Just another Perl shrine
 
PerlMonks  

Re: How to get Dynamic Images on the Screen

by dree (Monsignor)
on Jun 09, 2002 at 16:07 UTC ( #172923=note: print w/ replies, xml ) Need Help??


in reply to How to get Dynamic Images on the Screen

You have to print the image to the standard output, but before you have to put this 2 instructions:

1) binmode STDOUT;
2) print "Content-type img/png\n\n"; "Content-type: image/png\n\n"; #as merlyn said

The GD example becomes:

use GD; # create a new image $im = new GD::Image(100,100); # allocate some colors $white = $im->colorAllocate(255,255,255); $black = $im->colorAllocate(0,0,0); $red = $im->colorAllocate(255,0,0); $blue = $im->colorAllocate(0,0,255); # make the background transparent and interlaced $im->transparent($white); $im->interlaced('true'); # Put a black frame around the picture $im->rectangle(0,0,99,99,$black); # Draw a blue oval $im->arc(50,50,95,75,0,360,$blue); # And fill it with red $im->fill(50,50,$red); # make sure we are writing to a binary stream binmode STDOUT; print "Content-type: image/png\n\n"; #as [merlyn] said # Convert the image to PNG and print it on standard output print $im->png;

UPDATE: fixed the error in the content type string


Comment on Re: How to get Dynamic Images on the Screen
Download Code
•Re: Re: How to get Dynamic Images on the Screen
by merlyn (Sage) on Jun 09, 2002 at 16:09 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://172923]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (16)
As of 2014-04-17 19:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (454 votes), past polls