From 1989c02b763a04d0f941114056f11bb96bdb2550 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Wed, 5 May 2021 01:50:12 -0400
Subject: Finally fix damaged ship gfx

---
 block2hex.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 block2hex.pl

(limited to 'block2hex.pl')

diff --git a/block2hex.pl b/block2hex.pl
new file mode 100644
index 0000000..c1e44f0
--- /dev/null
+++ b/block2hex.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+while(<>) {
+	chomp;
+	#$was = $_;
+	s/$/ / while length($_) < 8;
+	s/X/1/g;
+	s/ /0/g;
+	#warn "was '$was', now '$_'\n";
+	push @out, sprintf("0x%02x", eval "0b$_");
+}
+
+print join(", ", @out) . "\n";
-- 
cgit v1.2.3