aboutsummaryrefslogtreecommitdiff
path: root/fonts/mkpsf.pl
diff options
context:
space:
mode:
authorB. Watson <urchlay@slackware.uk>2024-07-26 22:25:04 -0400
committerB. Watson <urchlay@slackware.uk>2024-07-26 22:25:04 -0400
commit1b5a2ec3a06abc75539d3f6e4b7ce9560567215f (patch)
tree01fcb319795a2e42a6ad103d52fa8c3a0317886b /fonts/mkpsf.pl
parentf51238856539af6e367328aad2c6aef1fa010122 (diff)
downloadbw-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.pl6
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);