diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-10-08 17:26:28 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-10-08 17:26:28 -0400 |
commit | daa8c5eca5a9fac0747599061b0159007a2440dc (patch) | |
tree | c83048ee4bb68e9ff9d653731fff8f6cc95e92f0 /bin/pnm2sprite | |
parent | 3c4b248c80df103c4b94d77822b1a33ce772480c (diff) | |
download | games-nes-spritemaker-daa8c5eca5a9fac0747599061b0159007a2440dc.tar.gz games-nes-spritemaker-daa8c5eca5a9fac0747599061b0159007a2440dc.zip |
rename the script
Diffstat (limited to 'bin/pnm2sprite')
-rw-r--r-- | bin/pnm2sprite | 26 |
1 files changed, 0 insertions, 26 deletions
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; -} |