Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
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 having an uproarious good time at the Monastery: (4)
As of 2015-07-05 13:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (67 votes), past polls