From: Ben Harris <bjh21@cam.ac.uk>
Date: Wed, 30 Sep 2009 10:00:33 +0000 (+0100)
Subject: I think ttxt.pl is an obsolete experiment, so remove it.
X-Git-Tag: bedstead-000.900~54
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=c779892ffe7b356550548268cd5176934cc19e35;p=bedstead.git

I think ttxt.pl is an obsolete experiment, so remove it.
---

diff --git a/ttxt.pl b/ttxt.pl
deleted file mode 100644
index 60df406..0000000
--- a/ttxt.pl
+++ /dev/null
@@ -1,40 +0,0 @@
-#! /usr/bin/perl
-
-$ylimit = 6; $xlimit = 8;
-
-@pixel = (
-	  [ 0, 0, 0, 1, 0, 0 ],
-	  [ 0, 0, 1, 0, 1, 0 ],
-	  [ 0, 1, 0, 0, 0, 1 ],
-	  [ 0, 1, 0, 0, 0, 1 ],
-	  [ 0, 1, 0, 0, 0, 1 ],
-	  [ 0, 0, 1, 0, 1, 0 ],
-	  [ 0, 0, 0, 1, 0, 0 ],
-	  [ 0, 0, 0, 0, 0, 0 ],
-	  );
-
-@augment = ( [], [], [], [], [], [], [] );
-
-for ($x = 0; $x < $xlimit - 1; $x++) {
-    for ($y = 0; $y < $ylimit - 1; $y++) {
-	if ($pixel[$x][$y] == $pixel[$x+1][$y+1] &&
-	    $pixel[$x][$y] != $pixel[$x+1][$y] &&
-	    $pixel[$x][$y+1] == $pixel[$x+1][$y]) {
-	    $augment[$x][$y] = 1;
-	}
-    }
-}
-
-for ($x = 0; $x < $xlimit; $x++) {
-    for ($y = 0; $y < $ylimit; $y++) {
-	print "gsave $x $y translate\n";
-	print "[ ";
-	print $augment[$x-1][$y-1] ? "true " : "false ";
-	print $augment[$x][$y-1] ? "true " : "false ";
-	print $augment[$x][$y] ? "true " : "false ";
-	print $augment[$x-1][$y] ? "true " : "false ";
-	print "] ";
-	print $pixel[$x][$y] ? "blackpixel\n" : "whitepixel\n";
-	print "grestore\n";
-    }
-}