The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Gadabout

SYNOPSIS

Gadabout is a reimplementation and improvement on the software called Vagrant which was written for PHP.

EXAMPLES

Line Graphs

  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');

Pie Charts

  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');

COPYRIGHT

OmniTI Computer Consulting, Inc. Copyright (c) 2003

AUTHOR

Ben Martin <bmartin@omniti.com>

Theo Schlossnagle <jesus@omniti.com>

OmniTI Computer Consulting, Inc.