Add font licence to output, deal better with font names.

Add some meta informatiou to bottom of C file (including compression ratio)
+ some cleanup
This commit is contained in:
Stefan `Sec` Zehl 2011-05-16 11:47:45 +02:00
parent ed83a35379
commit c3436f19c4
1 changed files with 65 additions and 17 deletions

View File

@ -17,7 +17,7 @@ for(32..126){
# Runtime Options # Runtime Options
my ($verbose,$raw); my ($verbose,$raw);
my $size=17; my $size=18;
my $font="../ttf/Ubuntu-Regular.ttf"; my $font="../ttf/Ubuntu-Regular.ttf";
@ -39,15 +39,16 @@ my $origsize;
my $c1size; my $c1size;
my $c2size; my $c2size;
my $title=getfontname($font); my ($title,$licence)=getfontname($font);
die "Couldn't get font name?" if !defined $title; die "Couldn't get font name?" if !defined $title;
$title.=" ${size}pt"; $title.=" ${size}pt";
my $fonts=$title; my $fonts=$title;
$fonts=~s/ //g; $fonts=~s/[ -]//g;
$fonts=~s/Bitstream//; $fonts=~s/Bitstream//;
$fonts=~s/Sans//; $fonts=~s/Sans//;
$fonts=~s/Regular//;
my $file=$fonts; my $file=$fonts;
$file=~s/pt$//; $file=~s/pt$//;
@ -105,16 +106,21 @@ print "Removed ",$top-$bounds[7],"px at top\n";
print "Removed ",$my-$bottom,"px at bottom\n"; print "Removed ",$my-$bottom,"px at bottom\n";
print "Chars are ",$bottom-$top+1,"px ($byte bytes) high\n"; print "Chars are ",$bottom-$top+1,"px ($byte bytes) high\n";
#print "x: $bounds[6] - $bounds[2]\n";
#print "y: $bounds[7] - $bounds[3]\n";
open (C,">",$file.".c")||die; open (C,">",$file.".c")||die;
open (H,">",$file.".h")||die; if(defined $licence){
$licence=~s/\n/\n * /g;
$licence="\n/* ".$licence."\n */";
}else{
$licence="";
};
print C <<EOF print C <<EOF
#include "$file.h" #include "$file.h"
/* Font data for $title */ /* Font data for $title */
$licence
/* This file created by makefont.pl by Sec <sec@42.org> */
/* Bitmaps */ /* Bitmaps */
const uint8_t ${fonts}Bitmaps[] = { const uint8_t ${fonts}Bitmaps[] = {
@ -196,7 +202,9 @@ for (1..length$charlist){
# Generate C source # Generate C source
if($raw){ if($raw){
$c2size-=scalar(@enc);
@enc=(255,$preblank,$postblank,@raw); @enc=(255,$preblank,$postblank,@raw);
$c2size+=scalar(@enc);
my @out=@enc; my @out=@enc;
printf C " 0x%02x, %2d, %2d, /* rawmode, preblank, postblank */\n", printf C " 0x%02x, %2d, %2d, /* rawmode, preblank, postblank */\n",
(shift@out), (shift@out), (shift@out); (shift@out), (shift@out), (shift@out);
@ -258,20 +266,32 @@ const struct FONT_DEF Font_$fonts = {
}; };
",1,$pxsize,$first,$last,"${fonts}Bitmaps","${fonts}Lengths"; ",1,$pxsize,$first,$last,"${fonts}Bitmaps","${fonts}Lengths";
printf C "\n";
printf C "/* Font metadata: \n";
printf C " * Name: %s\n", $title;
printf C " * Height: %d px (%d bytes)\n", $bottom-$top+1,$byte;
printf C " * Maximum width: %d px\n",$maxsz;
printf C " * Storage size: %d bytes (compressed by %2d%%)\n",
$c2size,(1-$c2size/$origsize)*100;
printf C " */\n";
close(C);
open (H,">",$file.".h")||die;
print H <<EOF; print H <<EOF;
#include "fonts.h" #include "fonts.h"
extern const struct FONT_DEF Font_$fonts; extern const struct FONT_DEF Font_$fonts;
EOF EOF
close(C);
close(H); close(H);
print "\ndone.\n\n"; print "\ndone.\n" if($verbose);
print "\n";
print "Original size: $origsize\n"; print "Original size: $origsize\n";
print "Simple compression: $c1size\n"; print "Simple compression: $c1size\n";
print "PK compression: $c2size\n"; print "PK compression: $c2size\n";
print "Maximum character size: $byte*$maxsz bytes\n"; print "Maximum character size is: $byte*$maxsz bytes\n";
exit(0); exit(0);
@ -430,6 +450,7 @@ sub getfontname {
my $file = shift; my $file = shift;
use constant SEEK_SET => 0; use constant SEEK_SET => 0;
use Encode qw(decode); use Encode qw(decode);
my @font;
open (my $fh,"<",$file) || die "Can't open $font: $!"; open (my $fh,"<",$file) || die "Can't open $font: $!";
@ -456,14 +477,41 @@ sub getfontname {
if($enc==1){ if($enc==1){
$str=decode("UCS-2",$str); $str=decode("UCS-2",$str);
}; };
# 0: Copyright, 1: Name, ... # 0 Copyright notice
if ($id == 4){ # 1 Font Family name.
return $str; # 2 Font Subfamily name.
}; # 3 Unique font identifier.
# 4 Full font name.
# 5 Version string.
# 6 Postscript name for the font.
# 7 Trademark
# 8 Manufacturer Name.
# 9 Designer.
# 10 Description.
# 11 URL Vendor.
# 12 URL Designer.
# 13 License description
# 14 License information URL.
$font[$id]=$str;
# print "- $str\n"; # print "- $str\n";
}; };
last; last;
}; };
}; };
return undef; my($fontname,$licence);
$fontname=$font[1];
if(defined $font[2]){
$fontname.=" ".$font[2];
}elsif (defined $font[4]){
$fontname=$font[4];
};
$licence=$font[0]."\n";
$licence.="\n".$font[13]."\n" if defined $font[13];
$licence.="\nSee also: ".$font[14]."\n" if defined $font[14];
if(wantarray()){
return ($fontname,$licence);
}else{
return $fontname;
};
}; };