a2d/res/convert_font.pl

78 lines
1.5 KiB
Perl
Raw Normal View History

2017-09-28 02:41:40 +00:00
#!/usr/bin/env perl
# Input: HCRG-style Font (768 bytes)
2018-01-29 05:18:00 +00:00
# Output: MGTK font definition
2017-09-28 02:41:40 +00:00
# Usage: perl convert.pl < font_data > font.inc
use strict;
use warnings;
$SIG{__WARN__} = sub { die @_ };
my @chars;
my $NCCS = 32;
my $NCHARS = 128;
# Fill in control characters
for (my $i = 0; $i < $NCCS; ++$i) {
$chars[$i] = "\x00" x 8;
}
for (my $i = 0; $i < $NCHARS - $NCCS; ++$i) {
read(STDIN, $chars[$i + $NCCS], 8);
}
my @out;
push @out, 0x00;
push @out, 0x7f;
push @out, 8; # height
# widths
for (my $i = 0; $i < $NCHARS; ++$i) {
my @bytes = map { ord($_) & 0x7f } split('', $chars[$i]);
my $bits = 0;
for (my $b = 0; $b < 8; ++$b) {
$bits = $bits | $bytes[$b];
}
#while ($bits && (($bits & 0x1) == 0)) {
# $bits = $bits >> 1;
# for (my $b = 0; $b < 8; ++$b) {
# $bytes[$b] = $bytes[$b] >> 1;
# }
#}
$chars[$i] = join('', map { chr } @bytes);
my $w =
$bits >= (1<<6) ? 7 :
$bits >= (1<<5) ? 6 :
$bits >= (1<<4) ? 5 :
$bits >= (1<<3) ? 4 :
$bits >= (1<<2) ? 3 :
$bits >= (1<<1) ? 2 : 1;
$w = 7;
push @out, $w;
}
# bits
for (my $b = 0; $b < 8; ++$b) {
for (my $i = 0; $i < $NCHARS; ++$i) {
#print $i, " - ", length($chars[$i]), "\n";
push @out, ord(substr($chars[$i], $b, 1));
}
}
# output for ca65
while (scalar @out) {
my @chunk = splice(@out, 0, 8);
@chunk = map { sprintf('$%02x', $_) } @chunk;
print " .byte " . join(',', @chunk) . "\n";
}