From 1c427dc0dce587c20170029d8709517ec752b10c Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Wed, 11 Aug 2010 20:43:04 +0200
Subject: [PATCH] pattern3_show.pl: Add useful debugging script

---
 pattern3_show.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 pattern3_show.pl

diff --git a/pattern3_show.pl b/pattern3_show.pl
new file mode 100755
index 0000000..525652c
--- /dev/null
+++ b/pattern3_show.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+# ./pattern3_show.pl PATNUM
+
+use warnings;
+no warnings "qw";
+use strict;
+
+my $pat = shift @ARGV;
+my @s = qw(. X O #);
+
+my @p = map { ($pat >> (2*$_)) & 3 } (0..7);
+splice @p, 4, 0, (0);
+for my $y (0..2) {
+	for my $x (reverse 0..2) {
+		print $s[$p[$x + $y*3]];
+	}
+	print "\n";
+}
-- 
2.11.4.GIT