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
|
#!usr/bin/perl -w
use Chart::Composite;
print "1..1\n";
$g = Chart::Composite->new( 750, 600 );
$g->add_dataset( 1, 2, 3 );
$g->add_dataset( 10, 20, 30 );
$g->add_dataset( 15, 25, 32 );
$g->add_dataset( 7, 24, 23 );
$g->add_dataset( 0.1, 0.5, 0.9 );
$g->set(
'title' => 'Composite Chart Test 2',
'composite_info' => [ [ 'Bars', [ 1, 2 ] ], [ 'LinesPoints', [ 3, 4 ] ] ],
'include_zero' => 'true',
);
$g->png("samples/composite_4.png");
print "ok 1\n";
exit(0);
|
