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
34
35
36
37
38
|
use Chart::Lines;
print "1..1\n";
$g = Chart::Lines->new();
$g->add_dataset ('foo', 'bar', 'junk', 'ding', 'bat');
$g->add_dataset (-4, 3, -4, -5, -2);
$g->add_dataset (2, 10, -3, 8, 3);
$g->add_dataset (-10, 2, 4, -3, -3);
$g->add_dataset (7, -5, -3, 4, 7);
%hash = (
'legend_labels' => ['1st Quarter', '2nd Quarter','3rd Quarter', '4th Quarter'],
'y_axes' => 'both',
'title' => 'Lines Demo',
'grid_lines' => 'true',
'grid_lines' =>'true',
'legend' => 'left',
'legend_example_size' => 20,
'colors' => {
'text' => 'blue',
'misc' => 'blue',
'background' => 'grey',
'grid_lines' => 'light_blue',
'dataset0' => [220,0,0],
'dataset1' => [200,0,100],
'dataset2' => [150,50,175],
'dataset3' => [170,0,255],
},
);
$g->set (%hash);
$g->png ("samples/lines_6.png");
print "ok 1\n";
exit (0);
|
