ctdo
/
crashtest-r0ket
16
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Enhance makefont.pl, for pixel-painted art ".xbdf"

This commit is contained in:
Stefan `Sec` Zehl 2011-07-05 15:23:19 +02:00
parent 9d23c476da
commit e3f8ab98c8
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tools/font/makefont.pl
View File

@ -29,12 +29,11 @@ $|=1;
my @charlist=(32..126,0x20ac); #,0x3044 # hiragana I my @charlist=(32..126,0x20ac); #,0x3044 # hiragana I
push @charlist,map {ord $_} qw(ä ö ü Ä Ö Ü ß); push @charlist,map {ord $_} qw(ä ö ü Ä Ö Ü ß);
### ###
### Runtime Options ### Runtime Options
### ###
my ($verbose,$raw); my ($verbose,$raw,$chars);
my $size=18; my $size=18;
my $font="ttf/Ubuntu-Regular.ttf"; my $font="ttf/Ubuntu-Regular.ttf";
@ -43,6 +42,7 @@ GetOptions ("size=i" => \$size, # numeric
"font=s" => \$font, # string "font=s" => \$font, # string
"verbose" => \$verbose, # flag "verbose" => \$verbose, # flag
"raw" => \$raw, # flag "raw" => \$raw, # flag
"chars=s" => \$chars, # list of chars
"help" => sub { "help" => sub {
print <<HELP; print <<HELP;
Uasge: makefont.pl [-r] [-v] [-f fontfile] [-s size] Uasge: makefont.pl [-r] [-v] [-f fontfile] [-s size]
@ -56,10 +56,14 @@ HELP
exit(-1);} exit(-1);}
); );
if($chars){
@charlist=map {ord $_} split(//,$chars);
};
my ($type); my ($type);
if($font=~/\.ttf/){ if($font=~/\.ttf/){
$type="ttf"; $type="ttf";
}elsif($font=~/\.bdf/){ }elsif($font=~/\.x?bdf/){
$type="bdf"; $type="bdf";
}else{ }else{
die "Can only do .ttf or .bdf fonts\n"; die "Can only do .ttf or .bdf fonts\n";
@ -526,7 +530,7 @@ sub init_bdf{
last if /^ENDPROPERTIES/; last if /^ENDPROPERTIES/;
}; };
$title.="-".$bb; $title.="-".$bb if($bb);
$fonts=$title; $fonts=$title;
$fonts=~s/[ -]//g; $fonts=~s/[ -]//g;
@ -536,6 +540,7 @@ sub init_bdf{
while(<$bdf>){ while(<$bdf>){
chomp; chomp;
/^ENDCHAR/ && do { /^ENDCHAR/ && do {
$bbh=$#bchar+1 if !$bbh;
warn "Char $ccode has strange height?\n" if ($#bchar+1 != $bbh); warn "Char $ccode has strange height?\n" if ($#bchar+1 != $bbh);
for (1..$bby){ for (1..$bby){
push @bchar,("0"x$bbw); push @bchar,("0"x$bbw);
@ -564,8 +569,18 @@ sub init_bdf{
@bchar=(); @bchar=();
}; };
if($inchar){ if($inchar){
my $x=unpack("B*",pack("H*",$_)); my $x;
$x=substr($x,0,$bbw); if($inchar==2){
$x=$_;
$x=~y/ ./0/;
$x=~y/xX\*/1/;
$x=~y/01//cd;
next if($x eq "");
$bbw=length($x) if !$bbw;
}else{
$x=unpack("B*",pack("H*",$_));
$x=substr($x,0,$bbw);
};
push @bchar,$x; push @bchar,$x;
# $x=~y/01/ */; # $x=~y/01/ */;
# print $x,"\n"; # print $x,"\n";
@ -573,6 +588,7 @@ sub init_bdf{
}; };
/^BITMAP/ && do {$inchar=1;}; /^BITMAP/ && do {$inchar=1;};
/^XBITMAP/ && do {$inchar=2;($bbw,$bbh,$bbx,$bby)=(0)x4;};
/^ENCODING (.*)/ && do {$ccode=$1; }; /^ENCODING (.*)/ && do {$ccode=$1; };
/^BBX (\d+) (\d+) (\d+) ([-\d]+)/ && do {$bbw=$1;$bbh=$2;$bbx=$3;$bby=$4;}; /^BBX (\d+) (\d+) (\d+) ([-\d]+)/ && do {$bbw=$1;$bbh=$2;$bbx=$3;$bby=$4;};
}; };