Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Fortune Fame, Mirror Vain... but the memory remains....

by Chady (Priest)
on Jun 05, 2002 at 06:29 UTC ( [id://171737]=note: print w/replies, xml ) Need Help??


in reply to Fame, Fortune, ChicksStuds, and XP!

count me in.

Update: yeah right... got beaten up before I even got home to my linux machine to access GD... :p

Update 2: Ok so here is what I was working on, but I didn't post after I saw crazyinsomniac's results.

#!/usr/bin/perl -w use strict; use Chart::Plot; my $img = Chart::Plot->new(600,400); my @xdata = (1..30); my @ydata = qw{ 10 1 -1 22 33 1 6 7 4 8 9 34 112 -2 -12 33 22 33 1 6 7 22 33 1 6 7 66 -66 0 1 }; $img->setData (\@xdata, \@ydata, 'Point Dashedline Red'); $img->setGraphOptions ('horGraphOffset' => 75, 'vertGraphOffset' => 100, 'title' => 'Chady\'s XP Change for June', 'horAxisLabel' => 'Days', 'vertAxisLabel' => 'XP Change' ); print $img->draw();

results can be seen here.

Update 3: following crazy's suggestion here's a simple mix of bars and lines.. but no 3D bars yet :-/

#!/usr/bin/perl -w use strict; use Chart::Composite; my $img = Chart::Composite->new(600,400); my @data = qw{ 10 1 -1 22 33 1 6 7 4 8 9 34 112 -2 -12 33 22 33 1 6 7 22 33 1 6 7 66 -66 0 1 }; $img->add_dataset (1..30); $img->add_dataset (@data); $img->add_dataset (@data); $img->set ('legend' => 'none', 'title' => 'Chady\'s XP Plot', 'brush_size' => 2, 'pt_size' => 10, 'composite_info' => [ ['Bars', [1]], ['LinesPoints', [2]] ], 'y_label' => 'XP Change', 'colors' => {'y_label' => [0,0,255], 'dataset0' => [0,153,153], 'dataset1' => [0,0,127] } ); $img->png("chart.png");

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/

Replies are listed 'Best First'.
Re: Fortune Fame, Mirror Vain... but the memory remains....
by darrel3edndcom (Novice) on Jun 07, 2002 at 15:13 UTC
    Would it be completely insane to: 1. create a project on Sourceforge so we could all work on this project _together_ :-)

    2. have someone at PerlMonks send us the data dictionary and we could replicate that structure for our development

    --------------------

    I also like chicken.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (2)
As of 2024-03-19 04:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found