From 3c4b248c80df103c4b94d77822b1a33ce772480c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 8 Oct 2014 17:24:02 -0400
Subject: add a script which uses this module to generate .chr files

---
 bin/pnm2sprite | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 bin/pnm2sprite

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;
+}
-- 
cgit v1.2.3-54-g00ecf