#!/usr/bin/perl -w

use strict;
use Chart::Composite;

my $img = Chart::Composite->new(600,400);
my @data = qw{
            10  1   -1  22  33  1   6   7   4   8
            9  34  112 -2  -12 33  22  33  1   6
            7  22  33  1   6   7   66  -66 0   1 };

$img->add_dataset (1..30);
$img->add_dataset (@data);
$img->add_dataset (@data);

$img->set ('legend' => 'none',
	 'title' => 'Chady\'s XP Plot',
	 'brush_size' => 2,
	 'pt_size' => 10,
	 'composite_info' => [ ['Bars', [1]],
	 		       ['LinesPoints', [2]] ],
	'y_label' => 'XP Change',
	'colors' => {'y_label' => [0,0,255],  
	'dataset0' => [0,153,153], 'dataset1' => [0,0,127]
		}
	);

$img->png("chart.png");