--- /dev/null
+#!/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;
--- /dev/null
+Package: xfonts-traditional
+Depends: xfonts-utils, pcf2bdf
+Description: Traditional fixed-with fonts for X
+ Provides "traditional" versions of fixed-width fonts.
+ .
+ These are a set of 6x13 fonts (including "fixed"), with foundry name
+ "trad" instead of "misc", with several glyphs replaced with earlier
+ versions from before Markus Kuhn's changes:
+ - balanced ` and '
+ - less tall [ ] ( ) { }
+ - centred *
+ - high ~
+ - traditional appearance of lower case a
+ .
+ These changes make the fonts compatible with the US-ASCII character
+ set. (UTF-8 is not compatible with ASCII in its usage of the
+ backquote and some other characters.) With these fonts, pre-2000
+ documents (including ASCII art and GNU manuals) will render
+ correctly.
+ .
+ Optionally, this package will edit your configuration to make the
+ default font "fixed" refer to the traditional font.
+ .
+ (This package does not actually contain the bulk of the font data;
+ rather, it automatically generates the required modified fonts for
+ each font you have installed.)