wip

[xfonts-traditional] / bdf-filter

diff --git a/bdf-filter b/bdf-filter
deleted file mode 100644 (file)
index a4e6220..0000000
--- a/bdf-filter
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-our $state='begin';
-our ($w,$h,$xo,$yo,$y,$bitmap,$glyph);
-
-while (<>) {
-    if ($state eq 'bitmap' && $y==$h) {
-       $state='idle';
-    }
-    if ($state eq 'bitmap') {
-       m/^([0-9a-fA-F]+)\s+$/ or die $y;
-       length($1) == (($w+7 >> 3) << 1) or die "$1 $w";
-       $glyph .= "$1;";
-    }
-    if ($state eq 'begin' && m/^FOUNDRY\s+\"Misc\"\s+/i) {
-         s/misc/Trad/i;
-         $state='idle';
-    }
-      if ($state eq 'idle' && m/^STARTCHAR\s/) {
-         $state='startchar';
-         $w=undef;
-      }
-      if ($state eq 'startchar') {
-         if (m/^BBX\s+(\+?\d+)\s+(\+?\d+)\s+([-+]?\d+)\s+([-+]?\d+)\s+$/) {
-             ($w,$h,$xo,$yo) = ($1,$2,$3,$4);
-         }
-         if (m/^BITMAP\s+$/) {
-             die unless defined $w;
-             $y=0;
-             $glyph='';
-             $state='bitmap';
-         }
-      }
-             
-
-         if ($inchar) {
-         if (
-             $inchar
-
-      next unless $foundry;