#!/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";