GD::Graph

use GD::Graph::lines;
require 'save.pl';

print STDERR "Processing sample52\n";

@data = (
[ qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) ],
[ reverse(4, 3, 5, 6, 3, 1.5, -1, -3, -4, -6, -7, -8)],
[ (4, 3, 5, 6, 3, 1.5, -1, -3, -4, -6, -7, -8)],
[ (2, 2, 2, 5, 5, 4.5,1.5, 2, 3, 5, 4, 3)],
);

$my_graph = new GD::Graph::lines();

$my_graph->set(
x_label => 'Month',
y_label => 'Measure of success',
title => 'A Simple Line Graph',

y_max_value => 8,
y_min_value => -8,
y_tick_number => 16,
y_label_skip => 2,
box_axis => 0,
line_width => 3,
zero_axis_only => 1,
x_label_position => 1,
y_label_position => 1,

x_label_skip => 3,
x_tick_offset => 2,

transparent => 0,
);

$my_graph->set_legend("Us", "Them", "Others");
$my_graph->plot(\@data);
save_chart($my_graph, 'sample52');