7 $sizes = <>; chomp $sizes;
8 $cols = <>; chomp $cols;
19 $sizes ne "90 256" and die;
20 $cols ne "255" and die;
21 (length $data) != 3 * 90 * 256 and die;
26 print "// GENERATED FILE DO NOT EDIT\n";
28 print "#include \"loader.h\"\n";
30 print "const u8 console_font_10x16x4[96*80] = {\n";
36 printf "\n\t// %x%x\n", $ch, $cl;
40 my $hor = $px + 10*($ch - 2);
41 my $ver = $py + 16*$cl;
42 my $wot = $hor + 90*$ver;
43 my $bytes = substr($data, 3*$wot, 3);
44 my $nyb = int ((ord $bytes) / 16);