use PNGgraph::bars;

print STDERR "Processing sample 1-6\n";

@data = (
    [ qw( 1st 2nd 3rd 4th 5th 6th 7th 8th 9th ) ],
    [    5,   12,undef,   33,   19,    8,    5,    15,    21],
    [   -6,   -5,   -9,   -8,  -11, -9.3,undef,    -9,   -12]
);
$my_graph = new PNGgraph::bars();

$my_graph->set(
    x_label => 'Day',
    y_label => 'AUD',
    title => 'Credits and Debits',
    y_max_value => 35,
    y_min_value => -15,
    y_tick_number => 10,
    y_label_skip => 2,
    overwrite => 1,
    dclrs => [ qw( green lred ) ],
    axislabelclr => 'black',
    legend_placement => 'RB',
    zero_axis_only => 0,
    y_number_format => \&y_format,
    x_label_position => 1/2,
);

my $refit = 4;

sub y_format
{
    my $value = shift;
    my $ret;

    if ($value >= 0)
    {
        $ret = sprintf("\$%3d", $value * $refit);
    }
    else
    {
        $ret = sprintf("-\$%3d", abs($value) * $refit);
    }
}

$my_graph->set_legend( 'credits', 'debets' );

$my_graph->plot_to_png( "sample16.png", \@data );

exit;

