diff options
Diffstat (limited to 'font/mkfont.pl')
| -rw-r--r-- | font/mkfont.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/font/mkfont.pl b/font/mkfont.pl index 20c5ece..ae52dda 100644 --- a/font/mkfont.pl +++ b/font/mkfont.pl @@ -16,6 +16,16 @@ read($in, $X2300, 256); # ASCII 96=127 # ASCII 0 is a blank glyph substr($X2200, 0, 8) = "\x00" x 8; +# ASCII 1-26 are inverse letters instead of ATASCII control graphics. +for($i = 1; $i < 27; $i++) { + my $old = substr($X2100, $i * 8, 8); + my $p = 0; + for(split "", $old) { + my $new = ~ord($_); + substr($X2200, $i * 8 + $p++, 1) = chr($new); + } +} + $font = $X2200 . $X2000 . $X2100 . $X2300; while(<DATA>) { |