Greg's font scripts

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@2272 a1c6a512-1295-4272-9138-f99709370657

2 files changed, 236 insertions, 0 deletions

diff --git a/tools/bdf2c b/tools/bdf2c
new file mode 100755
index 0000000000..ff3d5ed3b3
--- /dev/null
+++ b/tools/bdf2c
@@ -0,0 +1,197 @@
+#! /usr/bin/perl -w
+#
+# Convert BDF files to incore MWCFONT structure
+# Copyright (c) 2002 by Greg Haerr <greg@censoft.com>
+#
+# from The Microwindows Project (http://microwindows.org)
+#
+# modified on 09/10/02 by G Haerr
+#	- fixed DWIDTH 0 parsing
+#	- don't limit font size to 0x7e characters
+#	- changed offset data to unsigned long for large fonts
+#	- don't generate width table if fixed-width
+#	- added defaultchar to output
+#	- added bits_size member for loadable fonts
+# modified on 3/26/00 by G Haerr added ascent field, fixed $IMAGE_BITS
+# modified on 2/10/00 by K Harris to accept any size input character
+# modified by G Haerr from bdftobogl for 16 bit MWIMAGEBITS
+# originally from BOGL - Ben's Own Graphics Library <pfaffben@debian.org>.
+
+use POSIX;
+
+if ($#ARGV < 0) {
+    print "Usage: convbdf font.bdf > font.c\n";
+    exit -1;
+}
+
+##$LAST_CHAR = 0x7e;
+$IMAGE_BITS = 16;
+$IMAGE_NIBBLES = $IMAGE_BITS/4;
+$IMAGE_MASK = 0xffff;
+
+$file = $ARGV[0];
+
+$font = $file;
+$font =~ s/\.bdf//;
+$font =~ tr/a-zA-Z0-9_/_/cs;
+
+print "/* Generated by convbdf on ", substr(`date`, 0, -1), ". */\n";
+print "#include \"font.h\"\n\n";
+
+open BDF, "<$file" || die;
+while (<BDF>) {
+    chop;
+    $pixel_size = $1 if /^PIXEL_SIZE (\d+)$/;
+    $font_ascent = $1 if /^FONT_ASCENT (\d+)$/;
+    $font_descent = $1 if /^FONT_DESCENT (\d+)$/;
+    $font_name = $1 if /^FONT (.*)$/;
+    $default_char = $1 if /^DEFAULT_CHAR (\d+)$/;
+    ($fbbw, $fbbh, $fbbx, $fbby) = ($1, $2, $3, $4) if /^FONTBOUNDINGBOX (-?\d+) (-?\d+) (-?\d+) (-?\d+)/;
+    
+    last if /^CHARS /;
+}
+
+$font_width = $fbbw - $fbbx;
+undef $fbbw, undef $fbbh, undef $fbbx, undef $fbby;
+
+print "/* Font information:\n\n";
+print "   name: $font_name\n";
+print "   pixel size: $pixel_size\n" if defined $pixel_size;
+print "   ascent: $font_ascent\n";
+print "   descent: $font_descent\n";
+print "*/\n\n";
+
+print "/* Font character bitmap data. */\n";
+print "static MWIMAGEBITS ${font}_bits[] = {\n";
+
+$ch_height = $font_ascent + $font_descent;
+$ofs = 0;
+$maxwidth = 0;
+$firstchar = -1;
+$lastchar = -1;
+while (<BDF>) {
+    chop;
+    undef $encoding, undef $width, undef $bbx, undef $bby, undef $bbw, undef $bbh if /^STARTCHAR /;
+    $encoding = $1 if /^ENCODING (\d+)/;
+##	 last if defined $encoding && $encoding > $LAST_CHAR;
+    $width = $1 if /^DWIDTH (-?\d+)/;
+    	$width = $font_width if defined $width && $width <= 0;
+    ($bbw, $bbh, $bbx, $bby) = ($1, $2, $3, $4) if /^BBX (-?\d+) (-?\d+) (-?\d+) (-?\d+)/;
+
+   if (/^BITMAP$/) {
+		next if !defined $encoding;
+		$firstchar = $encoding if $firstchar < 0;
+		$lastchar = $encoding if $lastchar < $encoding;
+		$encoding_tab[$encoding] = $ofs;
+		$width -= $bbx, $bbx = 0 if $bbx < 0;
+		$width[$encoding] = $width;
+		$maxwidth = $width if $width > $maxwidth;
+		$ch_words  = int (($width+$IMAGE_BITS-1)/$IMAGE_BITS);
+		$ch_bits   = $ch_words*$IMAGE_BITS;
+		for (my $i = 0; $i < $ch_height; $i++) {
+			for (my $k = 0; $k < $ch_words; $k++) {
+	    		$bm[$i][$k] = 0;
+			}
+		}
+		for (my $i = 0; ; $i++) {
+	    	$_ = <BDF>;
+	    	chop;
+	    	last if /^ENDCHAR$/;
+		
+		   @hexnibbles = split //,$_;
+			for (my $k=0; $k<$ch_words; $k++) {
+			   $ndx = $k*$IMAGE_NIBBLES;
+				$padnibbles = @hexnibbles - $ndx;
+				last if $padnibbles <= 0; # if bbx pushes bits into next word
+												 # and no more bits from bdf file
+				$padnibbles = 0 if $padnibbles >= $IMAGE_NIBBLES;
+			   $value = hex join '',@hexnibbles[$ndx..($ndx+$IMAGE_NIBBLES-1-$padnibbles)];
+	   		$value = $value << ($padnibbles*$IMAGE_NIBBLES);	
+	   		$bm[$ch_height - $font_descent - $bby - $bbh + $i][$k] |= 
+						$value >> ($bbx);	
+				if ($bbx) {	# handle overflow into next image_word
+	   			$bm[$ch_height - $font_descent - $bby - $bbh + $i][$k+1] =
+						($value << ($IMAGE_BITS - $bbx)) & $IMAGE_MASK;	
+				}
+			}
+		}
+	
+###		printf "\n/* Character %c (0x%02x):\n", $encoding, $encoding;
+		printf "\n/* Character (0x%02x):\n", $encoding;
+		print "   bbw=$bbw, bbh=$bbh, bbx=$bbx, bby=$bby, width=$width\n";
+		print "   +", ("-" x $ch_bits), "+\n";
+		for (my $i = 0; $i < $ch_height; $i++) {
+			print "   |";
+			for (my $k = 0; $k < $ch_words; $k++) {
+	   		for (my $j = $IMAGE_BITS - 1; $j >= 0; $j--) {
+					print $bm[$i][$k] & (1 << $j) ? "*" : " ";
+	   		}
+			}
+	   	print "|\n";
+		}
+		print "   +", ("-" x $ch_bits), "+ */\n";
+	
+		for (my $i = 0; $i < $ch_height; $i++) {
+			for ($k=0; $k<$ch_words; $k++) {
+   			$ofs++;
+	   		printf "0x%04x, ", $bm[$i][$k];
+			}
+	   	printf "\n";
+		}
+   }
+}
+
+print "};\n\n";
+
+##print STDERR "Maximum character width=$maxwidth\n";
+
+print "/* Character->glyph mapping. */\n";
+print "static unsigned long ${font}_offset[] = {\n";
+for (my $i = $firstchar; $i <= $lastchar; $i++) {
+    my $char = $i;
+    my $ofs = $encoding_tab[$i];
+    $ofs = $encoding_tab[$default_char], $char = $default_char if !defined $ofs;
+### printf "  $ofs,\t/* %c (0x%02x) */\n", $char, $i;
+    printf "  $ofs,\t/* (0x%02x) */\n", $i;
+}
+print "};\n\n";
+
+$gen_width_table = 0;
+for (my $i = $firstchar; $i <= $lastchar; $i++) {
+    my $char = $i;
+    my $width = $width[$i];
+    $width = $width[$default_char], $char = $default_char if !defined $encoding_tab[$i];
+    $gen_width_table = 1 if $width != $maxwidth
+}
+
+if ($gen_width_table) {
+	print "/* Character width data. */\n";
+	print "static unsigned char ${font}_width[] = {\n";
+	for (my $i = $firstchar; $i <= $lastchar; $i++) {
+	    my $char = $i;
+	    my $width = $width[$i];
+	    $width = $width[$default_char], $char = $default_char if !defined $encoding_tab[$i];
+	### printf "  $width,\t/* %c (0x%02x) */\n", $char, $i;
+	    printf "  $width,\t/* (0x%02x) */\n", $i;
+	}
+	print "};\n\n";
+}
+
+$size = $lastchar - $firstchar + 1;
+
+print "/* Exported structure definition. */\n";
+print "MWCFONT font_${font} = {\n";
+print "  \"$font\",\n";
+print "  $maxwidth,\n";
+print "  $ch_height,\n";
+print "  $font_ascent,\n";
+print "  $firstchar,\n";
+print "  $size,\n";
+print "  ${font}_bits,\n";
+print "  ${font}_offset,\n";
+if ($gen_width_table) {
+	print "  ${font}_width,\n";
+} else { print "  0,  /* fixed width*/\n"; }
+print "  $default_char,\n";
+print "  sizeof(${font}_bits)/sizeof(MWIMAGEBITS),\n";
+print "};\n";
diff --git a/tools/bdf2fnt b/tools/bdf2fnt
new file mode 100755
index 0000000000..97b8292ba4
--- /dev/null
+++ b/tools/bdf2fnt
@@ -0,0 +1,39 @@
+#!/bin/bash
+#
+# bdf2fnt - shell script to convert a BDF file to RBF format
+#
+# usage: bdf2fnt bdffile   (don't use .bdf extension!)
+#
+# Example: bdf2fnt courB08
+#	creates ./courB08.fnt and /tmp/courB08.c
+#	the .fnt file can be renamed /system.fnt for loading
+#	the .c file can be moved to firmware dir to compile-in font
+#
+
+# convert from bdf to C source
+./bdf2c $1.bdf > /tmp/$1.c
+
+# compile writerbf with linked C source font
+gcc -DFONT=font_$1 -I../firmware -o /tmp/writerbf writerbf.c /tmp/$1.c
+
+# run writerbf, will write linked incore font to .rbf format
+/tmp/writerbf
+rm /tmp/writerbf
+
+# load .rbf font and display it for test
+gcc -DMAX_FONT_SIZE=500000 -o /tmp/loadrbf loadrbf.c
+/tmp/loadrbf $1.fnt > /tmp/$1.1
+rm /tmp/loadrbf
+
+# link .c font and diff with .fnt load for test
+gcc -DFONT=font_$1 -I../firmware -o /tmp/loadrbf loadrbf.c /tmp/$1.c
+/tmp/loadrbf > /tmp/$1.2
+rm /tmp/loadrbf
+
+#
+# we diff the output to ensure correctness
+diff /tmp/$1.1 /tmp/$1.2
+
+# clean up
+rm /tmp/$1.1 /tmp/$1.2
+#rm /tmp/$1.c