add a script which uses this module to generate .chr files

1 files changed, 26 insertions, 0 deletions

diff --git a/bin/pnm2sprite b/bin/pnm2sprite
new file mode 100644
index 0000000..4f0dc33
--- /dev/null
+++ b/bin/pnm2sprite
@@ -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;
+}