Image::XBin::Palette::Default - The default palette

	$pal = Image::XBin::Palette::Default->new;

package Image::XBin::Palette::Default;

use base qw( Image::XBin::Palette );

use strict;
use warnings;

our $VERSION = '0.06';

my $palette = [
	[ 0,   0,   0   ], # black
	[ 42,  0,   0   ], # red
	[ 0,   42,  0   ], # green
	[ 42,  21,  0   ], # yellow
	[ 0,   0,   42  ], # blue
	[ 42,  0,   42  ], # magenta
	[ 0,   42,  42  ], # cya
	[ 42,  42,  42  ], # white
	                   # bright
	[ 21,  21,  21  ], # black
	[ 63,  21,  21  ], # red
	[ 21,  63,  21  ], # green
	[ 63,  63,  21  ], # yellow
	[ 21,  21,  63  ], # blue
	[ 63,  21,  63  ], # magenta
	[ 21,  63,  63  ], # cyan
	[ 63,  63,  63  ]  # white
];

sub new {
	my $class = shift;
	my $self  = $class->SUPER::new;

	bless $self, $class;

	for( 0..@$palette ) {
		$self->set( $_, $palette->[ $_ ] );
	}

	return $self;
}

1;