From 1b5a2ec3a06abc75539d3f6e4b7ce9560567215f Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Fri, 26 Jul 2024 22:25:04 -0400
Subject: fonts: more work. trying to get the "no such glyph" to display in X.

---
 fonts/mkpsf.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'fonts/mkpsf.pl')

diff --git a/fonts/mkpsf.pl b/fonts/mkpsf.pl
index 06e79a4..8166c8a 100644
--- a/fonts/mkpsf.pl
+++ b/fonts/mkpsf.pl
@@ -109,6 +109,7 @@ sub read_rom {
 # and 0x241b aka SYMBOL FOR ESCAPE).
 sub setup_map {
 	our @map = (
+			0x0000,
 			0x2665, # 0x00
 			0x2523, # 0x01
 			0x2503, # 0x02
@@ -434,7 +435,8 @@ setup_map();
 @scale3 = ();
 
 #$raw = read_rom("atarixl.rom", 0x2000, 128);
-$raw = read_rom("atarixl.rom", 0x2200, 32);
+$raw = read_rom("char0.raw", 0, 1);
+$raw .= read_rom("atarixl.rom", 0x2200, 32);
 $raw .= read_rom("atarixl.rom", 0x2000, 32);
 $raw .= read_rom("atarixl.rom", 0x2100, 32);
 $raw .= read_rom("atarixl.rom", 0x2300, 32);
@@ -524,7 +526,7 @@ sub mkfonts {
 	close $fh;
 
 	system("txt2psf $fontname-$px.txt $fontname-$px.psf");
-	system("perl dupglyphs.pl $fontname-$px.txt | txt2psf | psf2bdf --iso10646 --fontname=$fontname-$px | perl ./fixbdf.pl $px > $fontname-$px.bdf");
+	system("perl dupglyphs.pl $fontname-$px.txt | txt2psf | psf2bdf --defchar=0 --iso10646 --fontname=$fontname-$px | perl ./fixbdf.pl $px > $fontname-$px.bdf");
 }
 
 mkfonts(8, \@scale1, 1);
-- 
cgit v1.2.3