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
39
40
41
42
43
44
45
46
|
#!/usr/bin/perl -w
use strict;
use Chart::LinesPoints;
print "1..1\n";
my $g = Chart::LinesPoints->new (700, 350);
my @bezugszeitraum = ('2005-04-02','2005-04-03','2005-04-04','2005-04-05',
'2005-04-06','2005-04-07','2005-04-08','2005-04-09',
'2005-04-10','2005-04-11','2005-04-12','2005-04-13',
'2005-04-14','2005-04-15','2005-04-16','2005-04-17',
'2005-04-18','2005-04-19','2005-04-20','2005-04-21',
'2005-04-22','2005-04-23','2005-04-24','2005-04-25');
my @clock_reset = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
#my @clock_reset = (10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10);
$g-> add_dataset ( @bezugszeitraum );
$g-> add_dataset ( @clock_reset );
$g-> set ('x_ticks' => 'vertical');
$g-> set ('x_label' => ' Time');
$g-> set ('y_label' => 'Number of clock resets');
$g-> set ('legend' => 'none');
$g-> set ('precision' => 1 );
$g-> set ('title' => 'AURI');
$g-> set ('sub_title' => '2005-04-01 - 2005-04-25');
# $g-> set ('title_font' => 'gdGiantFont');
# $g-> set ('sub_title_font' => 'gdMediumBoldFont');
$g-> set ('grey_background' => 'false');
# $g-> set ('include_zero' => 'true');
# $g-> set ('min_val' => '0');
$g-> set ('pt_size' => '10');
$g-> set ('brush_size' => '4');
# $g-> set ('skip_x_ticks' => $skip_x);
# $g-> set ('integer_ticks_only' => 'true');
$g-> png ("samples/linespoints_4.png");
print "ok 1\n\n";
|
