#!/usr/bin/perl -w

use Chart::Bars;
use strict;

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,   7662,  7580,  7671,  8064,  8664,  6343,  5518,  6257,  5391,  5401,  6002);
 

$g->add_dataset(@data);
$g->add_dataset(@data1);
 
my @legend_keys  = ( "Actual ","Goal" );
 
$g->set(
           colors              => {
                                       dataset0   => [25,220,147],
                                   },
            graph_border       => 0,
            grey_background    => 'false',
            grid_lines         => 'true',
         #   integer_ticks_only => 'true',
            legend             => 'none',
         #   min_val            => 0,
	 #   include_zero       =>  'true',
            png_border         => 4,
            precision          => 1,
            skip_int_ticks     => 1000,
            spaced_bars        => 'true',
            text_space         => 3,
            title              => "Tickets",
            title_font         => GD::Font->Giant,
            transparent        => 'false',
            x_ticks            => 'vertical',
            y_axes             => 'both',
            y_label            => '# Tickets',
        #    max_val            => 9000,
            );

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

exit (0);