diff options
author | B. Watson <urchlay@slackware.uk> | 2024-07-26 22:25:04 -0400 |
---|---|---|
committer | B. Watson <urchlay@slackware.uk> | 2024-07-26 22:25:04 -0400 |
commit | 1b5a2ec3a06abc75539d3f6e4b7ce9560567215f (patch) | |
tree | 01fcb319795a2e42a6ad103d52fa8c3a0317886b /fonts/mkpsf.pl | |
parent | f51238856539af6e367328aad2c6aef1fa010122 (diff) | |
download | bw-atari8-tools-1b5a2ec3a06abc75539d3f6e4b7ce9560567215f.tar.gz |
fonts: more work. trying to get the "no such glyph" to display in X.
Diffstat (limited to 'fonts/mkpsf.pl')
-rw-r--r-- | fonts/mkpsf.pl | 6 |
1 files changed, 4 insertions, 2 deletions
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); |