#!/usr/bin/perl -w

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

my $a;
$a = 10**(-30);

print "1..1\n";

my $g = Chart::Bars->new( 600, 400 );

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);

my @legend_keys = ( "Actual ", "Goal" );

$g->set(
    colors          => { dataset0 => [ 25, 220, 147 ], },
    graph_border    => 0,
    grey_background => 'false',
    grid_lines      => 'true',
    include_zero    => 'true',

    #  integer_ticks_only => 'true',
    legend     => 'none',
    png_border => 4,

    #    precision          => 27,
    #    skip_int_ticks     => 1.0e-27,
    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_8.png");
print "ok 1\n";

exit(0);