Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Seeking GD::Graph like goal-thermometer graph

by vladdrak (Monk)
on Dec 18, 2006 at 11:11 UTC ( #590406=note: print w/replies, xml ) Need Help??


in reply to Seeking GD::Graph like goal-thermometer graph

This will show a 50x300 white bar filled with blue.
#!/usr/bin/perl use strict; use warnings; use Image::Magick; my $width = 50; my $height = 300; my $fill = 150; my $image = Image::Magick->new(size => $width."x".$height); $image->Read("xc:white"); $image->Draw(primitive => "Rectangle", fill => "blue", stroke => "blue", strokewidth => 4, points => "0,$height $width,$fill"); $image->Write("progress.png");

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2023-01-31 09:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?