#!/usr/bin/perl -w

use Chart::Bars;
use strict;
use POSIX;

my $a;


$a = 10**(-12);            

print "1..1\n";

my $g = Chart::Bars->new(580,300);

my @data = (200202, 200203,200204,200205,200206,200207,200208,200209,200210,200211,200212,200301);
my @data1 =(  6626*$a,   -790*$a,  7580*$a,  7671*$a,  8764*$a,  8664*$a,  6343*$a,  5518*$a, 
           6257*$a,  5391*$a,  5401*$a,  6002*$a);
 
#my @data1 =(6626,-790,7580,7671,8764,8664,6343,5518,6257,5391,5401,6002);


$g->add_dataset(@data);
$g->add_dataset(@data1);
 
$g->set(
           colors              => {
                                       dataset0   => [25,220,147],
                                   },
            graph_border       => 0,
            grey_background    => 'false',
            grid_lines         => 'true',
            include_zero       => 'true',
            legend             => 'none',
            png_border         => 4,
            precision          => 9,
	    spaced_bars        => 'true',
            text_space         => 3,
            title              => "Tickets",
            title_font         => GD::Font->Giant,
            transparent        => 'false',
            x_ticks            => 'vertical',
            y_axes             => 'both',
            y_label            => '# Tickets',
            x_label            => 'Date',
            );


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

exit (0);