Luis Amell / RA8875

This is the David Smart RA8875 Library with mods for working with FRDM-K64F

Fonts/FontMods.h@201:1119f1e9f4e4, 2020-05-03 (annotated)

Committer:
lamell
Date:
Sun May 03 10:16:02 2020 -0400
Revision:
201:1119f1e9f4e4
Parent:
196:56820026701b 
Slight modifications to the library. Mainly to make the speed faster and also changing some parameters from private to public.

Who changed what in which revision?

UserRevisionLine numberNew contents of line
WiredHome 159:dee976689d08 1 // This file contains a perl script used to modify the mikroe generated fonts.
WiredHome 159:dee976689d08 2 //
WiredHome 167:8aa3fb2a5a31 3 // Do not "include" this file into your project - just copy everything from
WiredHome 160:43f3d90fc491 4 // the #if to the #endif and put it into a .pl file on your local PC to
WiredHome 167:8aa3fb2a5a31 5 // run it (this script requires that you have Perl installed).
WiredHome 159:dee976689d08 6 #if 0
WiredHome 192:cc14d391b412 7
WiredHome 192:cc14d391b412 8 # ParseMikroeFont.pl
WiredHome 159:dee976689d08 9 #
WiredHome 192:cc14d391b412 10 # Parse and Modify Mikroe Font File and make a few strategic changes
WiredHome 159:dee976689d08 11 #
WiredHome 196:56820026701b 12 # @copyright Copyright © 2012-2020 by Smartware Computing, all rights reserved.
WiredHome 159:dee976689d08 13 #
WiredHome 159:dee976689d08 14 use strict;
WiredHome 159:dee976689d08 15 use warnings;
WiredHome 159:dee976689d08 16 use POSIX;
WiredHome 159:dee976689d08 17
WiredHome 159:dee976689d08 18 my @HelpInfo = (
WiredHome 159:dee976689d08 19 " ",
WiredHome 159:dee976689d08 20 "This script modifies a font file which was generated with a tool by ",
WiredHome 159:dee976689d08 21 "MikroElektronika - GLD Font Creator. ",
WiredHome 159:dee976689d08 22 " ",
WiredHome 159:dee976689d08 23 "That tool creates the font data set for an embedded system from a Windows ",
WiredHome 159:dee976689d08 24 "True Type font. The user is encouraged to ensure that the font used is ",
WiredHome 167:8aa3fb2a5a31 25 "properly licensed, or drawn from a source that does not have a license ",
WiredHome 159:dee976689d08 26 "restriction. ",
WiredHome 159:dee976689d08 27 " ",
WiredHome 159:dee976689d08 28 "This script will read and then modify the file for a few specific purposes:",
WiredHome 167:8aa3fb2a5a31 29 " * <space> character is redefined to set the width to 1/4 the height, ",
WiredHome 167:8aa3fb2a5a31 30 " because the normal behavior sets it much too narrow. ",
WiredHome 167:8aa3fb2a5a31 31 " * '0' - '9' characters are redefined to set the width equal to the width ",
WiredHome 167:8aa3fb2a5a31 32 " of the widest digit, or to the user override value. ",
WiredHome 159:dee976689d08 33 " ",
WiredHome 159:dee976689d08 34 "And just because it can, it then improves upon the documentation in the ",
WiredHome 159:dee976689d08 35 "resulting data structure. ",
WiredHome 159:dee976689d08 36 " ",
WiredHome 159:dee976689d08 37 "This script was created by Smartware Computing, and is provided 'as is' ",
WiredHome 161:0215d0eec1a4 38 "with no warranty or suitability of fitness for any purpose. Anyone may use ",
WiredHome 161:0215d0eec1a4 39 "or modify it subject to the agreement that: ",
WiredHome 159:dee976689d08 40 " * The Smartware copyright statement remains intact. ",
WiredHome 161:0215d0eec1a4 41 " * Modifications for derivative use are clearly stated in this header. ",
WiredHome 159:dee976689d08 42 " ",
WiredHome 159:dee976689d08 43 "Modifications from the original: ",
WiredHome 159:dee976689d08 44 " * none. ",
WiredHome 159:dee976689d08 45 " ",
WiredHome 159:dee976689d08 46 );
WiredHome 159:dee976689d08 47
WiredHome 159:dee976689d08 48
WiredHome 159:dee976689d08 49 my $FixFile = 1; # Fix the file with planned changes
WiredHome 159:dee976689d08 50 my $Details = 1; # Emit more detailed information
WiredHome 159:dee976689d08 51 my $Debug = 0; # 0=None, 1=Some, 2=Detailed
WiredHome 159:dee976689d08 52
WiredHome 159:dee976689d08 53 my $DigitWidth = 0; # can be set on the command line, or it uses width('0')
WiredHome 159:dee976689d08 54 my $ff = ""; # FontFile
WiredHome 159:dee976689d08 55 my $of = ""; # Output File - otherwise stdout
WiredHome 159:dee976689d08 56 my $OH; # Handle to the output file
WiredHome 159:dee976689d08 57
WiredHome 161:0215d0eec1a4 58 my $prg = $0;
WiredHome 161:0215d0eec1a4 59 $prg =~ s/.*[\\\/]//;
WiredHome 161:0215d0eec1a4 60 $prg =~ s/\.pl//i;
WiredHome 161:0215d0eec1a4 61 my $args = join(" ", @ARGV);
WiredHome 161:0215d0eec1a4 62
WiredHome 159:dee976689d08 63 if (!@ARGV) {
WiredHome 159:dee976689d08 64 ShowHelp();
WiredHome 159:dee976689d08 65 exit;
WiredHome 159:dee976689d08 66 }
WiredHome 159:dee976689d08 67 foreach (@ARGV) {
WiredHome 159:dee976689d08 68 if (/-0=(\d+)/) {
WiredHome 159:dee976689d08 69 $DigitWidth = $1;
WiredHome 159:dee976689d08 70 } elsif (/-d=(\d+)/) {
WiredHome 159:dee976689d08 71 $Debug = $1;
WiredHome 159:dee976689d08 72 } elsif ($ff eq "") {
WiredHome 159:dee976689d08 73 $ff = $_;
WiredHome 159:dee976689d08 74 } elsif ($of eq "") {
WiredHome 159:dee976689d08 75 $of = $_;
WiredHome 159:dee976689d08 76 } else {
WiredHome 159:dee976689d08 77 ShowHelp();
WiredHome 159:dee976689d08 78 exit;
WiredHome 159:dee976689d08 79 }
WiredHome 159:dee976689d08 80 }
WiredHome 159:dee976689d08 81 if (! -e $ff) {
WiredHome 159:dee976689d08 82 printf("Can't read $ff\n");
WiredHome 159:dee976689d08 83 ShowHelp();
WiredHome 159:dee976689d08 84 exit;
WiredHome 159:dee976689d08 85 }
WiredHome 159:dee976689d08 86 if (! -T $ff) {
WiredHome 159:dee976689d08 87 printf("File $ff isn't text.\n");
WiredHome 159:dee976689d08 88 ShowHelp();
WiredHome 159:dee976689d08 89 exit;
WiredHome 159:dee976689d08 90 }
WiredHome 159:dee976689d08 91 if ($of ne "") {
WiredHome 159:dee976689d08 92 open($OH, ">$of") || die("Can't write to $of");
WiredHome 159:dee976689d08 93 select($OH);
WiredHome 159:dee976689d08 94 }
WiredHome 159:dee976689d08 95
WiredHome 159:dee976689d08 96 my @data = (); # Raw byte stream from the source file
WiredHome 159:dee976689d08 97 my @FileTop;
WiredHome 161:0215d0eec1a4 98 my $FontDeclaration;
WiredHome 159:dee976689d08 99 my @FileBot;
WiredHome 159:dee976689d08 100 my %charData; # charData{$char}{width}, {$char}{data}
WiredHome 159:dee976689d08 101
WiredHome 159:dee976689d08 102 ImportFontFile();
WiredHome 159:dee976689d08 103 DumpRawData() if ($Debug >= 2);
WiredHome 159:dee976689d08 104
WiredHome 159:dee976689d08 105 my $unk_0 = GetValueAt_Size_(0,1);
WiredHome 159:dee976689d08 106 my $unk_1 = GetValueAt_Size_(1,1);
WiredHome 159:dee976689d08 107
WiredHome 159:dee976689d08 108 my $firstChar = GetValueAt_Size_(2,2);
WiredHome 159:dee976689d08 109 my $lastChar = GetValueAt_Size_(4,2);
WiredHome 159:dee976689d08 110 my $fontHeight = GetValueAt_Size_(6,1);
WiredHome 159:dee976689d08 111 my $unk_2 = GetValueAt_Size_(7,1);
WiredHome 159:dee976689d08 112
WiredHome 161:0215d0eec1a4 113 printf("// Char Range [%4X - %4X]\n", $firstChar, $lastChar) if ($Debug);
WiredHome 159:dee976689d08 114
WiredHome 159:dee976689d08 115 for (my $char = $firstChar; $char <= $lastChar; $char++) {
WiredHome 159:dee976689d08 116 my $offsetToChar = 8 + 4 * ($char - $firstChar);
WiredHome 159:dee976689d08 117 my $charWidth = GetValueAt_Size_($offsetToChar,1);
WiredHome 159:dee976689d08 118 my $charDataNdx = GetValueAt_Size_($offsetToChar + 1, 2);
WiredHome 159:dee976689d08 119 $charData{$char}{width} = $charWidth;
WiredHome 159:dee976689d08 120 my $count = (floor(($charWidth+7)/8));
WiredHome 159:dee976689d08 121 @{$charData{$char}{data}} = GetByteArrayAt_Size_($charDataNdx, $count * $fontHeight);
WiredHome 159:dee976689d08 122 }
WiredHome 159:dee976689d08 123
WiredHome 159:dee976689d08 124 ShowFonts() if ($Debug >= 2); # Before Modifications
WiredHome 161:0215d0eec1a4 125 FixChars() if ($FixFile);
WiredHome 161:0215d0eec1a4 126 ShowFonts() if ($Debug); # After Modifications
WiredHome 161:0215d0eec1a4 127 EmitFile();
WiredHome 161:0215d0eec1a4 128 if ($of ne "") {
WiredHome 161:0215d0eec1a4 129 select(STDOUT);
WiredHome 161:0215d0eec1a4 130 close($OH);
WiredHome 161:0215d0eec1a4 131 }
WiredHome 161:0215d0eec1a4 132 exit;
WiredHome 161:0215d0eec1a4 133
WiredHome 161:0215d0eec1a4 134 #########################################################################
WiredHome 161:0215d0eec1a4 135
WiredHome 161:0215d0eec1a4 136 sub FixChars {
WiredHome 159:dee976689d08 137 my @newDat;
WiredHome 159:dee976689d08 138 my $char;
WiredHome 159:dee976689d08 139 my $charWidth;
WiredHome 159:dee976689d08 140 my $BytesWide;
WiredHome 159:dee976689d08 141
WiredHome 159:dee976689d08 142 #
WiredHome 161:0215d0eec1a4 143 # * <space> character is redefined to set the width to 1/4 the height.
WiredHome 159:dee976689d08 144 #
WiredHome 159:dee976689d08 145 $char = 0x20; # Fix <space>
WiredHome 161:0215d0eec1a4 146 $charWidth = floor($fontHeight/4);
WiredHome 159:dee976689d08 147 $charData{$char}{width} = $charWidth;
WiredHome 159:dee976689d08 148 $BytesWide = floor($charWidth/8);
WiredHome 159:dee976689d08 149 for (my $i=0; $i<($BytesWide*$fontHeight); $i++) {
WiredHome 159:dee976689d08 150 $charData{$char}{data}[$i] = 0x00;
WiredHome 159:dee976689d08 151 }
WiredHome 159:dee976689d08 152
WiredHome 159:dee976689d08 153 #
WiredHome 161:0215d0eec1a4 154 # * '0' - '9' characters are redefined to set the width equal to width('0')
WiredHome 161:0215d0eec1a4 155 # or to the user override value.
WiredHome 159:dee976689d08 156 #
WiredHome 159:dee976689d08 157 if ($DigitWidth > 0) {
WiredHome 159:dee976689d08 158 $charWidth = $DigitWidth; # User override option
WiredHome 159:dee976689d08 159 } else {
WiredHome 161:0215d0eec1a4 160 $charWidth = DigitMaxWidth(); # Set it to the width of the widest digit
WiredHome 159:dee976689d08 161 }
WiredHome 159:dee976689d08 162 $BytesWide = floor(($charWidth+7)/8);
WiredHome 159:dee976689d08 163 #printf("Set Width = $charWidth, BytesWide = $BytesWide, Height = $fontHeight\n");
WiredHome 159:dee976689d08 164 for ($char = 0x30; $char <= 0x39; $char++) {
WiredHome 159:dee976689d08 165 for (my $h=0; $h<$fontHeight; $h++) {
WiredHome 159:dee976689d08 166 for (my $w=0; $w<$BytesWide; $w++) {
WiredHome 159:dee976689d08 167 my $pDst = $h * $BytesWide + $w;
WiredHome 159:dee976689d08 168 if ($w < ceil($charData{$char}{width}/8)) {
WiredHome 159:dee976689d08 169 my $pSrc = $h * floor(($charData{$char}{width}+7)/8) + $w;
WiredHome 159:dee976689d08 170 $newDat[$pDst] = $charData{$char}{data}[$pSrc];
WiredHome 159:dee976689d08 171 } else {
WiredHome 159:dee976689d08 172 $newDat[$pDst] = 0x00;
WiredHome 159:dee976689d08 173 }
WiredHome 159:dee976689d08 174 }
WiredHome 159:dee976689d08 175 }
WiredHome 159:dee976689d08 176 $charData{$char}{width} = $charWidth;
WiredHome 159:dee976689d08 177 for (my $i=0; $i<($fontHeight * $BytesWide); $i++) {
WiredHome 159:dee976689d08 178 $charData{$char}{data}[$i] = $newDat[$i];
WiredHome 159:dee976689d08 179 }
WiredHome 159:dee976689d08 180 #RenderChar($char);
WiredHome 159:dee976689d08 181 #<stdin>;
WiredHome 159:dee976689d08 182 }
WiredHome 159:dee976689d08 183 }
WiredHome 159:dee976689d08 184
WiredHome 161:0215d0eec1a4 185 sub DigitMaxWidth {
WiredHome 161:0215d0eec1a4 186 my $max = 0;
WiredHome 161:0215d0eec1a4 187 for (my $char=0x30; $char <= 0x39; $char++) {
WiredHome 161:0215d0eec1a4 188 $max = $charData{$char}{width} if ($max < $charData{$char}{width});
WiredHome 159:dee976689d08 189 }
WiredHome 161:0215d0eec1a4 190 return $max;
WiredHome 159:dee976689d08 191 }
WiredHome 159:dee976689d08 192
WiredHome 161:0215d0eec1a4 193 sub ImportFontFile {
WiredHome 161:0215d0eec1a4 194 # 0 = scanning
WiredHome 161:0215d0eec1a4 195 # 1 = after '{'
WiredHome 161:0215d0eec1a4 196 # 2 = found '}'
WiredHome 161:0215d0eec1a4 197 my $state = 0;
WiredHome 159:dee976689d08 198
WiredHome 159:dee976689d08 199 open(FH, "<$ff") || die("Can't open $ff");
WiredHome 159:dee976689d08 200 while (<FH>) {
WiredHome 159:dee976689d08 201 my $rec = $_;
WiredHome 159:dee976689d08 202 chomp $rec;
WiredHome 159:dee976689d08 203 if ($state == 0) {
WiredHome 159:dee976689d08 204 if ($rec =~ /^const .*{/) {
WiredHome 161:0215d0eec1a4 205 $FontDeclaration = $rec;
WiredHome 161:0215d0eec1a4 206 $state = 1;
WiredHome 159:dee976689d08 207 } else {
WiredHome 159:dee976689d08 208 push @FileTop, $rec;
WiredHome 159:dee976689d08 209 }
WiredHome 159:dee976689d08 210 } elsif ($state == 1) {
WiredHome 159:dee976689d08 211 if ($rec =~ /};/) {
WiredHome 159:dee976689d08 212 $rec =~ s/^ +(.*)$/$1/ if ($Details);
WiredHome 159:dee976689d08 213 push @FileBot, $rec;
WiredHome 159:dee976689d08 214 $state = 2;
WiredHome 159:dee976689d08 215 } else {
WiredHome 159:dee976689d08 216 $rec =~ s/( +)/ /g;
WiredHome 159:dee976689d08 217 next if ($rec =~ /^ *$/);
WiredHome 159:dee976689d08 218 $rec =~ s# +//.*##;
WiredHome 159:dee976689d08 219 $rec =~ s/^ +(.*)$/$1/;
WiredHome 159:dee976689d08 220 $rec =~ s/^(.*),$/$1/;
WiredHome 159:dee976689d08 221 $rec =~ s/0x//g;
WiredHome 159:dee976689d08 222 push @data, split(",", $rec);
WiredHome 159:dee976689d08 223 }
WiredHome 159:dee976689d08 224 } elsif ($state == 2) {
WiredHome 159:dee976689d08 225 push @FileBot, $rec;
WiredHome 159:dee976689d08 226 }
WiredHome 159:dee976689d08 227 }
WiredHome 159:dee976689d08 228 close FH;
WiredHome 159:dee976689d08 229 }
WiredHome 159:dee976689d08 230
WiredHome 159:dee976689d08 231
WiredHome 159:dee976689d08 232 sub ShowHelp {
WiredHome 159:dee976689d08 233 print "\n\n$prg\n\n";
WiredHome 159:dee976689d08 234 foreach (@HelpInfo) {
WiredHome 159:dee976689d08 235 print " $_\n";
WiredHome 159:dee976689d08 236 }
WiredHome 159:dee976689d08 237 print <<EOM;
WiredHome 159:dee976689d08 238 $prg <MikroeFontFile> [Options] [<OptionalNewFile>]
WiredHome 159:dee976689d08 239
WiredHome 159:dee976689d08 240 Process the MikreFontFile, optionally generating a new file.
WiredHome 159:dee976689d08 241
WiredHome 159:dee976689d08 242 Options:
WiredHome 159:dee976689d08 243 -0=xx Set Digit '0' - '9' width to xx
WiredHome 159:dee976689d08 244 -d=x Set Debug Level 0=None, 1=Some, 2=More
WiredHome 159:dee976689d08 245
WiredHome 159:dee976689d08 246 EOM
WiredHome 159:dee976689d08 247 }
WiredHome 159:dee976689d08 248
WiredHome 159:dee976689d08 249 sub ShowFonts {
WiredHome 159:dee976689d08 250 for (my $char = $firstChar; $char <= $lastChar; $char++) {
WiredHome 159:dee976689d08 251 my $charWidth = $charData{$char}{width};
WiredHome 161:0215d0eec1a4 252 printf("\n// === %d (0x%2X) === w:%d, h:%d\n", $char, $char, $charWidth, $fontHeight);
WiredHome 159:dee976689d08 253 RenderChar($char);
WiredHome 159:dee976689d08 254 }
WiredHome 159:dee976689d08 255 }
WiredHome 159:dee976689d08 256
WiredHome 159:dee976689d08 257 sub EmitFile {
WiredHome 159:dee976689d08 258 if ($Details) {
WiredHome 159:dee976689d08 259 foreach (@HelpInfo) {
WiredHome 159:dee976689d08 260 print "// $_\n";
WiredHome 161:0215d0eec1a4 261 }
WiredHome 161:0215d0eec1a4 262 print "// Script Activation:\n";
WiredHome 161:0215d0eec1a4 263 printf("// %s %s\n", $prg, $args);
WiredHome 161:0215d0eec1a4 264 print "\n";
WiredHome 159:dee976689d08 265 }
WiredHome 159:dee976689d08 266
WiredHome 159:dee976689d08 267 print join("\n", @FileTop) . "\n"; # Mikroe header
WiredHome 161:0215d0eec1a4 268 printf("%s\n", $FontDeclaration);
WiredHome 159:dee976689d08 269 printf(" // Font Info\n") if ($Details);
WiredHome 159:dee976689d08 270 printf(" 0x%02X, // Unknown #1\n", $unk_0);
WiredHome 159:dee976689d08 271 printf(" 0x%02X, // Unknown #2\n", $unk_1);
WiredHome 159:dee976689d08 272 printf(" %s, // FirstChar\n", HexStream($firstChar,2));
WiredHome 159:dee976689d08 273 printf(" %s, // LastChar\n", HexStream($lastChar,2));
WiredHome 159:dee976689d08 274 printf(" %s, // FontHeight\n", HexStream($fontHeight,1));
WiredHome 159:dee976689d08 275 printf(" 0x%02X, // Unknown #3\n", $unk_2);
WiredHome 159:dee976689d08 276
WiredHome 159:dee976689d08 277 printf(" // Directory of Chars [Width] [Offset-L] [Offset-M] [Offset-H]\n") if ($Details);
WiredHome 159:dee976689d08 278 my $offsetToChar = 8 + 4 * ($lastChar - $firstChar + 1);
WiredHome 159:dee976689d08 279 for (my $char = $firstChar; $char <= $lastChar; $char++) {
WiredHome 159:dee976689d08 280 my $charWidth = $charData{$char}{width};
WiredHome 159:dee976689d08 281 my $charByteCount = floor(($charWidth+7)/8) * $fontHeight;
WiredHome 159:dee976689d08 282 my $asc = ($char >= 0x20 && $char < 0x7F) ? chr($char) : "<non-printable>";
WiredHome 159:dee976689d08 283 $asc = "\\\\" if ($char == 0x5C);
WiredHome 159:dee976689d08 284 my $details = ($Details) ? sprintf(" // 0x%02X '%s' ", $char, $asc) : "";
WiredHome 159:dee976689d08 285 printf(" 0x%02X,%s,0x%02X,%s\n",
WiredHome 159:dee976689d08 286 $charWidth, HexStream($offsetToChar,2), 0,
WiredHome 159:dee976689d08 287 $details
WiredHome 159:dee976689d08 288 );
WiredHome 159:dee976689d08 289 $offsetToChar += $charByteCount;
WiredHome 159:dee976689d08 290 }
WiredHome 159:dee976689d08 291 printf(" // Chars Bitstream\n") if ($Details);
WiredHome 159:dee976689d08 292 for (my $char = $firstChar; $char <= $lastChar; $char++) {
WiredHome 159:dee976689d08 293 my $charWidth = $charData{$char}{width};
WiredHome 159:dee976689d08 294 my $charByteCount = floor(($charWidth+7)/8) * $fontHeight;
WiredHome 159:dee976689d08 295 my $asc = ($char >= 0x20 && $char < 0x7F) ? chr($char) : "<non-printable>";
WiredHome 159:dee976689d08 296 $asc = "\\\\" if ($char == 0x5C);
WiredHome 159:dee976689d08 297 my $string = GetSomeHexBytes($char, 0, 8 * $charByteCount);
WiredHome 159:dee976689d08 298 printf(" %s%s // 0x%02X '%s'\n",
WiredHome 159:dee976689d08 299 $string,
WiredHome 159:dee976689d08 300 ($char != $lastChar) ? "," : "",
WiredHome 159:dee976689d08 301 $char, $asc
WiredHome 159:dee976689d08 302 );
WiredHome 159:dee976689d08 303 }
WiredHome 159:dee976689d08 304 print join("\n", @FileBot);
WiredHome 159:dee976689d08 305 }
WiredHome 159:dee976689d08 306
WiredHome 159:dee976689d08 307 sub DumpRawData {
WiredHome 159:dee976689d08 308 my $i;
WiredHome 161:0215d0eec1a4 309 print "// ";
WiredHome 159:dee976689d08 310 for ($i=0; $i<=$#data; $i++) {
WiredHome 159:dee976689d08 311 printf("%02X ", hex($data[$i]));
WiredHome 161:0215d0eec1a4 312 print "\n// " if ($i % 16 == 15);
WiredHome 159:dee976689d08 313 }
WiredHome 159:dee976689d08 314 print "\n";
WiredHome 159:dee976689d08 315 }
WiredHome 159:dee976689d08 316
WiredHome 159:dee976689d08 317
WiredHome 159:dee976689d08 318 sub HexStream {
WiredHome 159:dee976689d08 319 my ($value, $len) = @_;
WiredHome 159:dee976689d08 320 my @parts;
WiredHome 159:dee976689d08 321 while ($len--) {
WiredHome 159:dee976689d08 322 push @parts, sprintf("0x%02X", $value & 0xFF);
WiredHome 159:dee976689d08 323 $value >>= 8;
WiredHome 159:dee976689d08 324 }
WiredHome 159:dee976689d08 325 return join(",", @parts);
WiredHome 159:dee976689d08 326 }
WiredHome 159:dee976689d08 327
WiredHome 159:dee976689d08 328 sub RenderChar {
WiredHome 159:dee976689d08 329 my ($char) = shift;
WiredHome 159:dee976689d08 330 my $h = $fontHeight;
WiredHome 159:dee976689d08 331 my $w = $charData{$char}{width};
WiredHome 159:dee976689d08 332
WiredHome 159:dee976689d08 333 PrintChar($char,$w,$h,@{$charData{$char}{data}});
WiredHome 159:dee976689d08 334 }
WiredHome 159:dee976689d08 335
WiredHome 159:dee976689d08 336 sub PrintChar {
WiredHome 159:dee976689d08 337 my ($char,$w,$h,@datablock) = @_;
WiredHome 159:dee976689d08 338
WiredHome 161:0215d0eec1a4 339 printf("// +%s+ \n// ", '-' x $w);
WiredHome 159:dee976689d08 340 my $row = 0;
WiredHome 159:dee976689d08 341 my $boolStream = 0;
WiredHome 159:dee976689d08 342 while ($h--) {
WiredHome 159:dee976689d08 343 my $pixels = $w;
WiredHome 159:dee976689d08 344 my $bitmask = 0x01;
WiredHome 159:dee976689d08 345 my $rowStream = $boolStream;
WiredHome 159:dee976689d08 346 printf("%02X |", $row++);
WiredHome 159:dee976689d08 347 my $tail = "";
WiredHome 159:dee976689d08 348 while ($pixels) {
WiredHome 159:dee976689d08 349 my $byte;
WiredHome 159:dee976689d08 350 $datablock[$rowStream] = 0 if (!defined($datablock[$rowStream]));
WiredHome 159:dee976689d08 351 $byte = $datablock[$rowStream];
WiredHome 159:dee976689d08 352 printf("%s", ($byte & $bitmask) ? "*" : " ");
WiredHome 159:dee976689d08 353 $bitmask <<= 1;
WiredHome 159:dee976689d08 354 if ($pixels > 1 && ($bitmask & 0xFF) == 0) {
WiredHome 159:dee976689d08 355 $bitmask = 0x01;
WiredHome 159:dee976689d08 356 $rowStream++;
WiredHome 159:dee976689d08 357 }
WiredHome 159:dee976689d08 358 $pixels--;
WiredHome 159:dee976689d08 359 }
WiredHome 161:0215d0eec1a4 360 printf("| %s\n// ", $tail);
WiredHome 159:dee976689d08 361 $boolStream += ($rowStream - $boolStream + 1);
WiredHome 159:dee976689d08 362 }
WiredHome 159:dee976689d08 363 printf(" +%s+\n", '-' x $w);
WiredHome 159:dee976689d08 364 }
WiredHome 159:dee976689d08 365
WiredHome 159:dee976689d08 366
WiredHome 159:dee976689d08 367 sub GetSomeHexBytes {
WiredHome 159:dee976689d08 368 my ($char, $offSet, $w) = @_;
WiredHome 159:dee976689d08 369 my @out;
WiredHome 159:dee976689d08 370 my $x = 0;
WiredHome 159:dee976689d08 371
WiredHome 159:dee976689d08 372 $w = floor(($w+7)/8);
WiredHome 159:dee976689d08 373 while ($w--) {
WiredHome 159:dee976689d08 374 my $c = 0;
WiredHome 159:dee976689d08 375 $c = $charData{$char}{data}[$offSet + $x++] if (defined($charData{$char}{data}[$offSet + $x]));
WiredHome 159:dee976689d08 376 push @out, sprintf("0x%02X", $c);
WiredHome 159:dee976689d08 377 }
WiredHome 159:dee976689d08 378 return join(",", @out);
WiredHome 159:dee976689d08 379 }
WiredHome 159:dee976689d08 380
WiredHome 159:dee976689d08 381 sub GetSomeBytes {
WiredHome 159:dee976689d08 382 my ($char, $offSet, $w) = @_;
WiredHome 159:dee976689d08 383 my $string = "";
WiredHome 159:dee976689d08 384 my $x = 0;
WiredHome 159:dee976689d08 385
WiredHome 159:dee976689d08 386 $w = floor(($w+7)/8);
WiredHome 159:dee976689d08 387 while ($w--) {
WiredHome 159:dee976689d08 388 $string .= sprintf("%02X ", $charData{$char}{data}[$offSet + $x++]);
WiredHome 159:dee976689d08 389 }
WiredHome 159:dee976689d08 390 return $string;
WiredHome 159:dee976689d08 391 }
WiredHome 159:dee976689d08 392
WiredHome 159:dee976689d08 393 sub GetValueAt_Size_ {
WiredHome 159:dee976689d08 394 my ($offset, $size) = @_;
WiredHome 159:dee976689d08 395 my $value = 0;
WiredHome 159:dee976689d08 396 while ($size--) {
WiredHome 159:dee976689d08 397 $value = ($value << 8) | hex($data[$offset + $size]);
WiredHome 159:dee976689d08 398 }
WiredHome 159:dee976689d08 399 return $value;
WiredHome 159:dee976689d08 400 }
WiredHome 159:dee976689d08 401
WiredHome 159:dee976689d08 402 sub GetValueFromArray_At_Size_ {
WiredHome 159:dee976689d08 403 my ($offset, $size, $ary) = @_;
WiredHome 159:dee976689d08 404 my $value = 0;
WiredHome 159:dee976689d08 405 while ($size--) {
WiredHome 159:dee976689d08 406 $value = ($value << 8) | hex($$ary[$offset + $size]);
WiredHome 159:dee976689d08 407 }
WiredHome 159:dee976689d08 408 return $value;
WiredHome 159:dee976689d08 409 }
WiredHome 159:dee976689d08 410
WiredHome 159:dee976689d08 411 sub GetByteArrayAt_Size_ {
WiredHome 159:dee976689d08 412 my ($offset, $size) = @_;
WiredHome 159:dee976689d08 413 my @bytes;
WiredHome 159:dee976689d08 414 while ($size--) {
WiredHome 159:dee976689d08 415 push @bytes, hex($data[$offset++]);
WiredHome 159:dee976689d08 416 }
WiredHome 159:dee976689d08 417 return @bytes;
WiredHome 159:dee976689d08 418 }
WiredHome 159:dee976689d08 419
WiredHome 159:dee976689d08 420 sub GetByteSreamAt_Size_ {
WiredHome 159:dee976689d08 421 my ($offset, $size) = @_;
WiredHome 159:dee976689d08 422 my $value = "";
WiredHome 159:dee976689d08 423 while ($size--) {
WiredHome 159:dee976689d08 424 $value .= sprintf("%02X ", hex($data[$offset++]));
WiredHome 159:dee976689d08 425 }
WiredHome 159:dee976689d08 426 return $value;
WiredHome 159:dee976689d08 427 }
WiredHome 159:dee976689d08 428
WiredHome 192:cc14d391b412 429
WiredHome 192:cc14d391b412 430
WiredHome 159:dee976689d08 431 #endif