use Chart::Mountain;
use File::Spec;

print "1..2\n";

my @data = ( 
	["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
	[    3,    7,    8,    2,    4,  8.5,    2,     5,     9],
	[    4,    2,    5,    6,    3,  2.5,    3,     3,     4],
	[    7,    3,    2,    8,  8.5,    2,    9,     4,     5],
);

my @hex_colors = qw(0099FF 00CC00 FFCC33 FF0099 3333FF);
my @colors = map { [ map { hex($_) } unpack("a2 a2 a2", $_) ] } @hex_colors; 

my @patterns = ();
foreach (1..@data-1) { 
	open(PNG, '<'.File::Spec->catfile(File::Spec->curdir, 'patterns', "PATTERN$_.PNG")) || die "Can't load pattern $_";
	push(@patterns, GD::Image->newFromPng(\*PNG));
	close(PNG);
}

my @opts = (
	{},
	{
		'x_label' 		=> 'X Label',
		'y_label' 		=> 'Y label',
		'title' 		=> 'Mountain Chart',
		'grid_lines'	=> 'true',
		'colors'		=> { map { ( "dataset$_" => $colors[$_] ) } 0..@colors-1 },
	},
	{
		'x_label' 		=> 'X Label',
		'y_label' 		=> 'Y label',
		'title' 		=> 'Mountain Chart with Patterns',
		'grid_lines'	=> 'true',
		'colors'		=> { map { ( "dataset$_" => $colors[$_] ) } 0..@colors-1 },
		'patterns'		=> \@patterns,
	},
);

foreach my $i (1..@opts-1)
{
	my $newpath = File::Spec->catfile(File::Spec->curdir, 'samples', "mountain-$i.png");
	my $opts = $opts[$i];
	my $g = new Chart::Mountain( );
	$g->set( %$opts );
	my $Image = $g->png( $newpath, \@data );
	print "ok $i\n";
}


exit (0);