#!C:\Perl\bin\perl.exe 

=head1 NAME 

ans2png - Convert ansi files to png

=head1 SYNOPSIS

    % ans2png [-t] [-f font.fnt] [-p My::Palette] [file.ans] > file.png

=head1 DESCRIPTION

This is a simple command-line tool to help you convert
ansi files to png images. Use the -t switch to create a
thumbnail. Use the -f switch to specify a GD font to use.
Use -p to specify a custom palette class. Omitting the
filename (or using '-') will force it to convert from
STDIN.

=cut

use strict;
use warnings;

use Image::ANSI;
use Getopt::Std;
use Pod::Usage;

our $VERSION = '0.01';

my %options;
getopts( 'tf:p:', \%options );

my $file = shift;

my $ansi;
if( !$file or $file eq '-' ) {
	$ansi = Image::ANSI->new( handle => \*STDIN );
}
else {
	$ansi = Image::ANSI->new( file => $file );
}

binmode STDOUT;

my %png = (
	mode    => $options{ t } ? 'thumbnail' : 'full',
	font    => $options{ f } || undef,
	palette => $options{ p } || undef
);

print $ansi->as_png( %png );

=head1 AUTHOR

=over 4 

=item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>

=back

=head1 COPYRIGHT AND LICENSE

Copyright 2004-2009 by Brian Cassidy

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. 

=cut