diff options
| author | B. Watson <urchlay@slackware.uk> | 2026-03-15 23:53:00 -0400 |
|---|---|---|
| committer | B. Watson <urchlay@slackware.uk> | 2026-03-15 23:53:00 -0400 |
| commit | 4dc184acea0b5ff67b5c7641ed0c65e821d2d166 (patch) | |
| tree | e68950eff3c2ccaad00df2bdf14e5d952442b0f1 /font/mkfont.pl | |
| parent | dcaeb55644d95464c5e609dd999515a2b4d30b24 (diff) | |
| download | fujinet-chat-4dc184acea0b5ff67b5c7641ed0c65e821d2d166.tar.gz | |
Redefine ATASCII graphics 1-27 as inverse uppercase letters.
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>) { |