1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use GIFgraph::lines;
print STDERR "Processing sample 5-2\n";
# The reverse is in here, because I thought the falling line was
# depressing, but I was too lazy to retype the data set
@data = (
[ qw( Jan Feb Mar Apr May Jun Jul Aug Sep ) ],
[ reverse(4, 3, 5, 6, 3, 1.5, -1, -3, -4)]
);
$my_graph = new GIFgraph::lines();
$my_graph->set(
x_label => 'Month',
y_label => 'Measure of success',
title => 'A Simple Line Graph',
y_max_value => 8,
y_min_value => -6,
y_tick_number => 14,
y_label_skip => 2,
box_axis => 0,
line_width => 3,
zero_axis_only => 1,
x_label_position => 1,
y_label_position => 1,
);
$my_graph->plot_to_gif( "sample52.gif", \@data );
exit;
|
