[packages/unifont.git] / hex2bdf

#!/usr/bin/perl

while (<>) { $glyph{$1} = $2 if /(....):(.+)\n/; }
@chars = sort keys %glyph; $[ = 1;
# dbmopen (%charname, "/usr/share/unicode/unidata/charname.db", 0);

print "STARTFONT 2.1
FONT -gnu-unifont-medium-r-normal--16-160-75-75-c-80-iso10646-1
SIZE 16 75 75
FONTBOUNDINGBOX 16 16 0 -2
STARTPROPERTIES 3
FONT_ASCENT 14
FONT_DESCENT 2
DEFAULT_CHAR 32
ENDPROPERTIES
CHARS $#chars\n";

foreach $character (@chars)
{
	$encoding = hex($character); $glyph = $glyph{$character};
	$width = length ($glyph) > 32 ? 2 : 1;
	$dwidth = $width * 8; $swidth= $width * 500;
	$glyph =~ s/((..){$width})/\n$1/g;
	$character = "$character $charname"
	    if $charname = $charname{pack("n",hex($character))};

	print "STARTCHAR U+$character
ENCODING $encoding
SWIDTH $swidth 0
DWIDTH $dwidth 0
BBX $dwidth 16 0 -2
BITMAP $glyph
ENDCHAR\n";
}

print "ENDFONT\n";
Commit	Line	Data
5352f9fe	1	#!/usr/bin/perl
	2
	3	while (<>) { $glyph{$1} = $2 if /(....):(.+)\n/; }
	4	@chars = sort keys %glyph; $[ = 1;
	5	# dbmopen (%charname, "/usr/share/unicode/unidata/charname.db", 0);
	6
	7	print "STARTFONT 2.1
	8	FONT -gnu-unifont-medium-r-normal--16-160-75-75-c-80-iso10646-1
	9	SIZE 16 75 75
	10	FONTBOUNDINGBOX 16 16 0 -2
	11	STARTPROPERTIES 3
	12	FONT_ASCENT 14
	13	FONT_DESCENT 2
	14	DEFAULT_CHAR 32
	15	ENDPROPERTIES
	16	CHARS $#chars\n";
	17
	18	foreach $character (@chars)
	19	{
	20	$encoding = hex($character); $glyph = $glyph{$character};
	21	$width = length ($glyph) > 32 ? 2 : 1;
	22	$dwidth = $width * 8; $swidth= $width * 500;
	23	$glyph =~ s/((..){$width})/\n$1/g;
	24	$character = "$character $charname"
	25	if $charname = $charname{pack("n",hex($character))};
	26
	27	print "STARTCHAR U+$character
	28	ENCODING $encoding
	29	SWIDTH $swidth 0
	30	DWIDTH $dwidth 0
	31	BBX $dwidth 16 0 -2
	32	BITMAP $glyph
	33	ENDCHAR\n";
	34	}
	35
	36	print "ENDFONT\n";