Gadabout
Gadabout is a reimplementation and improvement on the software called Vagrant which was written for PHP.
my $graph = new Gadabout; $graph->InitGraph(500,500); $graph->AddFontPath('/usr/local/share/fonts/ttf')); $graph->SetFont('arial/8'); $graph->SetTitle('Example Graph'); $graph->SetSubTitle('subtitle goes here'); $graph->SetxTitle('x axis'); $graph->SetyTitle('Trig Functions'); $graph->SetAxis2Title('Polynomial'); $graph->{use_axis2} = 1; my $data1 = $graph->AddData(\@x,\@y1,"log((x^(x/10))+1)*sin(x/15)"); my $data3 = $graph->AddData(\@x3,\@y3,"30cos(x/10)"); my $data2 = $graph->AddData(\@x,\@y2, "((((x-50)/10)^3)-(3*(((x-50)/10)^2))+(.4x))"); $graph->DrawGrid('gray'); $graph->LineGraph($data1,"green"); $graph->ScatterGraph($data2,'circle','translucent-blue'); $graph->VBarGraph($data3,"translucent-red"); $graph->DrawAxis(); $graph->ShowGraph('out.png');
my %pieData; my @names = ('Cat A', 'Cat B', 'Cat C', Cat D'); my @data = ( 12345, 23413, 2314, 8000); my @radmods = ( 20, 0, 0, 40); $pieData{name} = \@name; $pieData{data} = \@data; $pieData{radMod} = \@radmods; $pieData{title} = 'Sample Graph'; my $graph = new Gadabout; $graph->InitGraph(500,200); $graph->AddFontPath('/usr/local/share/fonts/ttf')); $graph->SetFont('arial/8'); $graph->PieChart(\%pieData); $graph->ShowGraph('output.png');
OmniTI Computer Consulting, Inc. Copyright (c) 2003
Ben Martin <bmartin@omniti.com>
Theo Schlossnagle <jesus@omniti.com>
OmniTI Computer Consulting, Inc.
To install Gadabout, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Gadabout
CPAN shell
perl -MCPAN -e shell install Gadabout
For more information on module installation, please visit the detailed CPAN module installation guide.