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/