#!/usr/bin/perl -w

BEGIN { unshift @INC, 'lib', '../lib'}
use strict;
use Chart::LinesPoints;
use Chart::Lines;
use File::Temp 0.19;
my $samples = File::Temp->newdir();

print "1..1\n";

my @bezugszeitraum = (
    '2004-06-13 00:00:00+00',
    '2004-06-14 00:00:00+00',
    '2004-06-15 00:00:00+00',
    '2004-06-16 00:00:00+00',
    '2004-06-17 00:00:00+00',
    '2004-06-18 00:00:00+00',
    '2004-06-19 00:00:00+00',
    '2004-06-20 00:00:00+00',
    '2004-06-21 00:00:00+00',
    '2004-06-22 00:00:00+00',
    '2004-06-23 00:00:00+00',
    '2004-06-24 00:00:00+00',
    '2004-06-25 00:00:00+00',
    '2004-06-26 00:00:00+00',
    '2004-06-27 00:00:00+00',
    '2004-06-28 00:00:00+00',
    '2004-06-29 00:00:00+00',
    '2004-06-30 00:00:00+00',
    '2004-07-01 00:00:00+00',
    '2004-07-02 00:00:00+00',
    '2004-07-03 00:00:00+00',
    '2004-07-04 00:00:00+00',
    '2004-07-05 00:00:00+00',
    '2004-07-06 00:00:00+00',
    '2004-07-07 00:00:00+00',
    '2004-07-08 00:00:00+00',
    '2004-07-09 00:00:00+00',
    '2004-07-10 00:00:00+00',
    '2004-07-11 00:00:00+00',
    '2004-07-12 00:00:00+00',
    '2004-07-13 00:00:00+00',
    '2004-07-14 00:00:00+00',
    '2004-07-15 00:00:00+00',
    '2004-07-16 00:00:00+00',
    '2004-07-17 00:00:00+00',
    '2004-07-18 00:00:00+00',
    '2004-07-19 00:00:00+00',
    '2004-07-20 00:00:00+00',
    '2004-07-21 00:00:00+00',
    '2004-07-22 00:00:00+00',
    '2004-07-23 00:00:00+00',
    '2004-07-24 00:00:00+00',
    '2004-07-25 00:00:00+00',
    '2004-07-26 00:00:00+00',
    '2004-07-27 00:00:00+00',
    '2004-07-28 00:00:00+00',
    '2004-07-29 00:00:00+00',
    '2004-07-30 00:00:00+00',
    '2004-07-31 00:00:00+00',
    '2004-08-01 00:00:00+00',
    '2004-08-02 00:00:00+00',
    '2004-08-03 00:00:00+00',
    '2004-08-04 00:00:00+00',
    '2004-08-05 00:00:00+00',
    '2004-08-06 00:00:00+00',
    '2004-08-07 00:00:00+00',
    '2004-08-08 00:00:00+00',
    '2004-08-09 00:00:00+00',
    '2004-08-10 00:00:00+00',
    '2004-08-11 00:00:00+00',
    '2004-08-12 00:00:00+00',
    '2004-08-13 00:00:00+00',
    '2004-08-14 00:00:00+00',
    '2004-08-15 00:00:00+00',
    '2004-08-16 00:00:00+00',
    '2004-08-17 00:00:00+00',
    '2004-08-18 00:00:00+00',
    '2004-08-19 00:00:00+00',
    '2004-08-20 00:00:00+00',
    '2004-08-21 00:00:00+00',
    '2004-08-22 00:00:00+00',
    '2004-08-23 00:00:00+00',
    '2004-08-24 00:00:00+00',
    '2004-08-25 00:00:00+00',
    '2004-08-26 00:00:00+00',
    '2004-08-27 00:00:00+00',
    '2004-08-28 00:00:00+00',
    '2004-08-29 00:00:00+00',
    '2004-08-30 00:00:00+00',
    '2004-08-31 00:00:00+00',
    '2004-09-01 00:00:00+00',
    '2004-09-02 00:00:00+00',
    '2004-09-03 00:00:00+00',
    '2004-09-04 00:00:00+00',
    '2004-09-05 00:00:00+00',
    '2004-09-06 00:00:00+00',
    '2004-09-07 00:00:00+00',
    '2004-09-08 00:00:00+00',
    '2004-09-09 00:00:00+00',
    '2004-09-10 00:00:00+00',
    '2004-09-11 00:00:00+00',
    '2004-09-12 00:00:00+00',
    '2004-09-13 00:00:00+00',
    '2004-09-14 00:00:00+00',
    '2004-09-15 00:00:00+00',
    '2004-09-16 00:00:00+00',
    '2004-09-17 00:00:00+00',
    '2004-09-18 00:00:00+00',
    '2004-09-19 00:00:00+00',
    '2004-09-20 00:00:00+00',
    '2004-09-21 00:00:00+00',
    '2004-09-22 00:00:00+00',
    '2004-09-23 00:00:00+00',
    '2004-09-24 00:00:00+00',
    '2004-09-25 00:00:00+00',
    '2004-09-26 00:00:00+00',
    '2004-09-27 00:00:00+00',
    '2004-09-28 00:00:00+00',
    '2004-09-29 00:00:00+00',
    '2004-09-30 00:00:00+00',
    '2004-10-01 00:00:00+00',
    '2004-10-02 00:00:00+00',
    '2004-10-03 00:00:00+00',
    '2004-10-04 00:00:00+00',
    '2004-10-05 00:00:00+00',
    '2004-10-06 00:00:00+00',
    '2004-10-07 00:00:00+00',
    '2004-10-08 00:00:00+00',
    '2004-10-09 00:00:00+00',
    '2004-10-10 00:00:00+00',
    '2004-10-11 00:00:00+00',
    '2004-10-12 00:00:00+00',
    '2004-10-13 00:00:00+00',
    '2004-10-14 00:00:00+00',
    '2004-10-15 00:00:00+00',
    '2004-10-16 00:00:00+00',
    '2004-10-17 00:00:00+00',
    '2004-10-18 00:00:00+00',
    '2004-10-19 00:00:00+00',
    '2004-10-20 00:00:00+00',
    '2004-10-21 00:00:00+00',
    '2004-10-22 00:00:00+00',
    '2004-10-23 00:00:00+00',
    '2004-10-24 00:00:00+00',
    '2004-10-25 00:00:00+00',
    '2004-10-26 00:00:00+00',
    '2004-10-27 00:00:00+00',
    '2004-10-28 00:00:00+00',
    '2004-10-29 00:00:00+00',
    '2004-10-30 00:00:00+00',
    '2004-10-31 00:00:00+00',
    '2004-11-01 00:00:00+00',
    '2004-11-02 00:00:00+00',
    '2004-11-03 00:00:00+00',
    '2004-11-04 00:00:00+00',
    '2004-11-05 00:00:00+00',
    '2004-11-06 00:00:00+00',
    '2004-11-07 00:00:00+00',
    '2004-11-08 00:00:00+00',
    '2004-11-09 00:00:00+00',
    '2004-11-10 00:00:00+00',
    '2004-11-11 00:00:00+00',
    '2004-11-12 00:00:00+00',
    '2004-11-13 00:00:00+00',
    '2004-11-14 00:00:00+00',
    '2004-11-15 00:00:00+00',
    '2004-11-16 00:00:00+00',
    '2004-11-17 00:00:00+00',
    '2004-11-18 00:00:00+00',
    '2004-11-19 00:00:00+00',
    '2004-11-20 00:00:00+00',
    '2004-11-21 00:00:00+00',
    '2004-11-22 00:00:00+00',
    '2004-11-23 00:00:00+00',
    '2004-11-24 00:00:00+00',
    '2004-11-25 00:00:00+00',
    '2004-11-26 00:00:00+00',
    '2004-11-27 00:00:00+00',
    '2004-11-28 00:00:00+00',
    '2004-11-29 00:00:00+00',
    '2004-11-30 00:00:00+00',
    '2004-12-01 00:00:00+00',
    '2004-12-02 00:00:00+00',
    '2004-12-03 00:00:00+00',
    '2004-12-04 00:00:00+00',
    '2004-12-05 00:00:00+00',
    '2004-12-06 00:00:00+00',
    '2004-12-07 00:00:00+00',
    '2004-12-08 00:00:00+00',
    '2004-12-09 00:00:00+00',
    '2004-12-10 00:00:00+00',
    '2004-12-11 00:00:00+00',
    '2004-12-12 00:00:00+00',
    '2004-12-13 00:00:00+00',
    '2004-12-14 00:00:00+00',
    '2004-12-15 00:00:00+00',
    '2004-12-16 00:00:00+00',
    '2004-12-17 00:00:00+00',
    '2004-12-18 00:00:00+00',
    '2004-12-19 00:00:00+00',
    '2004-12-20 00:00:00+00',
    '2004-12-21 00:00:00+00',
    '2004-12-22 00:00:00+00',
    '2004-12-23 00:00:00+00',
    '2004-12-24 00:00:00+00',
    '2004-12-25 00:00:00+00',
    '2004-12-26 00:00:00+00',
    '2004-12-27 00:00:00+00',
    '2004-12-28 00:00:00+00',
    '2004-12-29 00:00:00+00',
    '2004-12-30 00:00:00+00',
    '2004-12-31 00:00:00+00',
    '2005-01-01 00:00:00+00',
    '2005-01-02 00:00:00+00',
    '2005-01-03 00:00:00+00',
    '2005-01-04 00:00:00+00',
    '2005-01-05 00:00:00+00',
    '2005-01-06 00:00:00+00',
    '2005-01-07 00:00:00+00',
    '2005-01-08 00:00:00+00',
    '2005-01-09 00:00:00+00',
    '2005-01-10 00:00:00+00',
    '2005-01-11 00:00:00+00',
    '2005-01-12 00:00:00+00',
    '2005-01-13 00:00:00+00',
    '2005-01-17 00:00:00+00',
    '2005-01-18 00:00:00+00',
    '2005-01-25 00:00:00+00',
    '2005-01-26 00:00:00+00',
    '2005-01-28 00:00:00+00',
    '2005-01-29 00:00:00+00',
    '2005-01-31 00:00:00+00',
    '2005-02-08 00:00:00+00',
    '2005-02-09 00:00:00+00',
    '2005-02-10 00:00:00+00',
    '2005-02-11 00:00:00+00',
    '2005-02-12 00:00:00+00',
    '2005-02-13 00:00:00+00',
    '2005-02-14 00:00:00+00',
    '2005-02-15 00:00:00+00',
    '2005-02-16 00:00:00+00',
    '2005-02-17 00:00:00+00',
    '2005-02-18 00:00:00+00',
    '2005-02-19 00:00:00+00',
    '2005-02-20 00:00:00+00',
    '2005-02-21 00:00:00+00',
    '2005-02-22 00:00:00+00',
    '2005-02-23 00:00:00+00',
    '2005-02-24 00:00:00+00',
    '2005-02-25 00:00:00+00',
    '2005-02-26 00:00:00+00',
    '2005-02-27 00:00:00+00',
    '2005-02-28 00:00:00+00',
    '2005-03-01 00:00:00+00',
    '2005-03-02 00:00:00+00',
    '2005-03-03 00:00:00+00',
    '2005-03-04 00:00:00+00',
    '2005-03-05 00:00:00+00',
    '2005-03-06 00:00:00+00',
    '2005-03-07 00:00:00+00',
    '2005-03-08 00:00:00+00',
    '2005-03-09 00:00:00+00',
    '2005-03-10 00:00:00+00',
    '2005-03-11 00:00:00+00',
    '2005-03-12 00:00:00+00',
    '2005-03-13 00:00:00+00',
    '2005-03-14 00:00:00+00',
    '2005-03-15 00:00:00+00',
    '2005-03-16 00:00:00+00',
    '2005-03-17 00:00:00+00',
    '2005-03-18 00:00:00+00',
    '2005-03-19 00:00:00+00',
    '2005-03-20 00:00:00+00',
    '2005-03-21 00:00:00+00',
    '2005-03-22 00:00:00+00',
    '2005-03-23 00:00:00+00',
    '2005-03-24 00:00:00+00',
    '2005-03-25 00:00:00+00',
    '2005-03-26 00:00:00+00',
    '2005-03-27 00:00:00+00',
    '2005-03-28 00:00:00+00',
    '2005-03-29 00:00:00+00',
    '2005-03-30 00:00:00+00',
    '2005-03-31 00:00:00+00',
    '2005-04-01 00:00:00+00',
    '2005-04-02 00:00:00+00',
    '2005-04-03 00:00:00+00',
    '2005-04-04 00:00:00+00',
    '2005-04-05 00:00:00+00',
    '2005-04-06 00:00:00+00',
    '2005-04-07 00:00:00+00',
    '2005-04-08 00:00:00+00',
    '2005-04-09 00:00:00+00',
    '2005-04-10 00:00:00+00',
    '2005-04-11 00:00:00+00',
    '2005-04-12 00:00:00+00',
    '2005-04-13 00:00:00+00',
    '2005-04-14 00:00:00+00',
    '2005-04-15 00:00:00+00',
    '2005-04-16 00:00:00+00',
    '2005-04-17 00:00:00+00',
    '2005-04-18 00:00:00+00',
    '2005-04-19 00:00:00+00',
    '2005-04-20 00:00:00+00',
    '2005-04-21 00:00:00+00',
    '2005-04-22 00:00:00+00',
    '2005-04-23 00:00:00+00',
    '2005-04-24 00:00:00+00',
    '2005-04-25 00:00:00+00',
    '2005-04-26 00:00:00+00',
    '2005-04-27 00:00:00+00',
    '2005-04-28 00:00:00+00',
    '2005-04-29 00:00:00+00',
    '2005-04-30 00:00:00+00',
    '2005-05-01 00:00:00+00',
    '2005-05-02 00:00:00+00',
    '2005-05-03 00:00:00+00',
    '2005-05-04 00:00:00+00',
    '2005-05-05 00:00:00+00',
    '2005-05-06 00:00:00+00',
    '2005-05-07 00:00:00+00',
    '2005-05-08 00:00:00+00',
    '2005-05-09 00:00:00+00',
    '2005-05-10 00:00:00+00',
    '2005-05-11 00:00:00+00',
    '2005-05-12 00:00:00+00',
    '2005-05-13 00:00:00+00',
    '2005-05-14 00:00:00+00',
    '2005-05-15 00:00:00+00',
    '2005-05-16 00:00:00+00',
    '2005-05-17 00:00:00+00',
    '2005-05-18 00:00:00+00',
    '2005-05-19 00:00:00+00',
    '2005-05-20 00:00:00+00',
    '2005-05-21 00:00:00+00',
    '2005-05-22 00:00:00+00',
    '2005-05-23 00:00:00+00',
    '2005-05-24 00:00:00+00',
    '2005-05-25 00:00:00+00',
    '2005-05-26 00:00:00+00',
    '2005-05-27 00:00:00+00',
    '2005-05-28 00:00:00+00',
    '2005-05-29 00:00:00+00',
    '2005-05-30 00:00:00+00',
    '2005-05-31 00:00:00+00',
    '2005-06-01 00:00:00+00',
    '2005-06-02 00:00:00+00',
    '2005-06-03 00:00:00+00',
    '2005-06-04 00:00:00+00',
    '2005-06-05 00:00:00+00',
    '2005-06-06 00:00:00+00',
);
my @obsepoch = (
    81.8670764502497, 42.4188998589563, 100,              99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    100,              99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.6528982992017,
    100,              99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              99.6180555555556, 100,
    100,              100,              100,              100,              100,              99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652777777778,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.7223186393613, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9306037473976, 99.9306037473976, 99.9652898299202, 99.7570288094412, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202,
    99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9306037473976, 99.9306037473976,
    99.9306037473976, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9306037473976, 99.9306037473976,
    99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9306037473976,
    94.5176960444136, 100,              98.125,           100,              100,              100,
    100,              100,              99.4444444444444, 100,              100,              100,
    100,              100,              100,              100,              100,              100,
    99.9652777777778, 100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    99.6180555555556, 100,              100,              100,              100,              100,
    100,              100,              100,              99.6527777777778, 100,              100,
    100,              100,              100,              100,              94.9494949494949, 100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              99.965241571081,  99.930483142162,  99.860966284324,  99.8262078554049,
    99.7914494264859, 99.7566063977747, 99.6870653685674, 99.6175243393602, 99.547983310153,  99.4784422809458,
    99.3741307371349, 99.5138888888889, 100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,              100,
    100,              100,              100,              100,              100,
);

my $g = Chart::LinesPoints->new( 700, 450 );

#my  $g = Chart::Lines->new(700,450);

$g->add_dataset(@bezugszeitraum);
$g->add_dataset(@obsepoch);

$g->set( 'x_ticks'         => 'vertical' );
$g->set( 'x_label'         => ' Time' );
$g->set( 'y_label'         => 'actual_nr_of_obsepoch / possible_nr' );
$g->set( 'legend'          => 'none' );
$g->set( 'precision'       => 0 );
$g->set( 'title'           => 'DRES' );
$g->set( 'grey_background' => 'false' );
$g->set( 'max_val'         => '100' );
$g->set( 'min_val'         => '80' );
$g->set( 'pt_size'         => '20' );
$g->set( 'brush_size'      => '4' );
$g->set( 'skip_x_ticks'    => '50' );

$g->png("$samples/linespoints_6.png");
print "ok 1\n\n";