File tree 4 files changed +12
-0
lines changed
4 files changed +12
-0
lines changed Original file line number Diff line number Diff line change 1
1
# !/usr/local/bin/perl -n
2
2
3
+ # bdfimplode from the "GNU unifont" project
4
+ # http://czyborra.com/unifont/bdfimplode
5
+
3
6
if (/ ^ENCODING\s +(\d +)/ ) { printf (" %04X:" , $1 ); }
4
7
elsif (/ ^BITMAP/ ) { $BITMAP =1; }
5
8
elsif (/ ^ENDCHAR/ ) { $BITMAP =0; print " \n " ; }
Original file line number Diff line number Diff line change 1
1
# !/usr/local/bin/perl
2
2
3
+ # hex2bdf from the "GNU unifont" project
4
+ # http://czyborra.com/unifont/
5
+
3
6
while (<>) { $glyph {$1 } = $2 if / (....):(.+)\n / ; }
4
7
@chars = sort keys %glyph ; $[ = 1;
5
8
# dbmopen (%charname, "/usr/share/unicode/unidata/charname.db", 0);
Original file line number Diff line number Diff line change 1
1
# !/usr/local/bin/perl -p
2
2
3
+ # hexdraw from the "GNU unifont" project
4
+ # http://czyborra.com/unifont/hexdraw
5
+
3
6
sub unpack {
4
7
local ($_ ) = @_ ;
5
8
$_ = unpack (" B*" , pack (" H*" , $_ ));
Original file line number Diff line number Diff line change 1
1
# !/usr/local/bin/perl
2
2
3
+ # hexmerge from the "GNU unifont" project
4
+ # http://czyborra.com/unifont/hexmerge
5
+
3
6
while (<>)
4
7
{
5
8
$G {$1 }=$2 if / ^(....):(.+)\n / ;
You can’t perform that action at this time.
0 commit comments