From daa8c5eca5a9fac0747599061b0159007a2440dc Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 8 Oct 2014 17:26:28 -0400 Subject: rename the script --- bin/pnm2chr | 26 ++++++++++++++++++++++++++ bin/pnm2sprite | 26 -------------------------- 2 files changed, 26 insertions(+), 26 deletions(-) create mode 100644 bin/pnm2chr delete mode 100644 bin/pnm2sprite diff --git a/bin/pnm2chr b/bin/pnm2chr new file mode 100644 index 0000000..4f0dc33 --- /dev/null +++ b/bin/pnm2chr @@ -0,0 +1,26 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use Games::NES::SpriteMaker 'image_to_sprite'; + +my $data; +if (@ARGV) { + $data = $ARGV[0]; +} +else { + $data = \(do { local $/; <> }); +} + +my $sprite_data = image_to_sprite($data); + +if (@ARGV) { + (my $outfile = $data) =~ s/\..*$/.chr/; + open my $fh, '>', $outfile + or die "Couldn't open $outfile for writing: $!"; + $fh->print($sprite_data); + $fh->close; +} +else { + print $sprite_data; +} diff --git a/bin/pnm2sprite b/bin/pnm2sprite deleted file mode 100644 index 4f0dc33..0000000 --- a/bin/pnm2sprite +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use Games::NES::SpriteMaker 'image_to_sprite'; - -my $data; -if (@ARGV) { - $data = $ARGV[0]; -} -else { - $data = \(do { local $/; <> }); -} - -my $sprite_data = image_to_sprite($data); - -if (@ARGV) { - (my $outfile = $data) =~ s/\..*$/.chr/; - open my $fh, '>', $outfile - or die "Couldn't open $outfile for writing: $!"; - $fh->print($sprite_data); - $fh->close; -} -else { - print $sprite_data; -} -- cgit v1.2.3-54-g00ecf