diff options
Diffstat (limited to 'x11-fonts/gnu-unifont/files/hex2bdf')
-rw-r--r-- | x11-fonts/gnu-unifont/files/hex2bdf | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/x11-fonts/gnu-unifont/files/hex2bdf b/x11-fonts/gnu-unifont/files/hex2bdf deleted file mode 100644 index 6663786c2bf6..000000000000 --- a/x11-fonts/gnu-unifont/files/hex2bdf +++ /dev/null @@ -1,36 +0,0 @@ -#!/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"; |