313 lines
8.1 KiB
Ruby
Executable file
313 lines
8.1 KiB
Ruby
Executable file
|
|
#*****************************************************************************
|
|
# Utility to generate font definition files for Unicode Truetype fonts #
|
|
# Version: 1.12 #
|
|
# Date: 2003-12-30 #
|
|
******************************************************************************#
|
|
|
|
function ReadUFM($file, &$cidtogidmap)
|
|
{
|
|
#Prepare empty CIDToGIDMap
|
|
$cidtogidmap = str_pad('', 256*256*2, "\x00");
|
|
|
|
#Read a font metric file
|
|
$a=file($file);
|
|
if ($a.empty?)
|
|
die('File not found');
|
|
$widths = []
|
|
$fm = []
|
|
foreach($a as $l)
|
|
{
|
|
$e=explode(' ',chop($l));
|
|
if ($e.length<2)
|
|
continue;
|
|
$code=$e[0];
|
|
$param=$e[1];
|
|
if ($code=='U')
|
|
{
|
|
# U 827 ; WX 0 ; N squaresubnosp ; G 675 ;
|
|
#Character metrics
|
|
$cc=(int)$e[1];
|
|
if ($cc != -1)
|
|
$gn = $e[7];
|
|
$w = $e[4];
|
|
$glyph = $e[10];
|
|
$widths[$cc] = $w;
|
|
if ($cc == ?('X'))
|
|
$fm['CapXHeight'] = $e[13];
|
|
|
|
# Set GID
|
|
if ($cc >= 0 && $cc < 0xFFFF && $glyph)
|
|
$cidtogidmap{$cc*2} = ($glyph >> 8).chr;
|
|
$cidtogidmap{$cc*2 + 1} = ($glyph & 0xFF).chr;
|
|
}
|
|
}
|
|
if ($gn=='.notdef' && !$fm['MissingWidth'].nil?)
|
|
$fm['MissingWidth']=$w;
|
|
}
|
|
elsif ($code=='FontName')
|
|
$fm['FontName']=$param;
|
|
elsif ($code=='Weight')
|
|
$fm['Weight']=$param;
|
|
elsif ($code=='ItalicAngle')
|
|
$fm['ItalicAngle']=(double)$param;
|
|
elsif ($code=='Ascender')
|
|
$fm['Ascender']=(int)$param;
|
|
elsif ($code=='Descender')
|
|
$fm['Descender']=(int)$param;
|
|
elsif ($code=='UnderlineThickness')
|
|
$fm['UnderlineThickness']=(int)$param;
|
|
elsif ($code=='UnderlinePosition')
|
|
$fm['UnderlinePosition']=(int)$param;
|
|
elsif ($code=='IsFixedPitch')
|
|
$fm['IsFixedPitch']=($param=='true');
|
|
elsif ($code=='FontBBox')
|
|
$fm['FontBBox']=Hash.new($e[1],$e[2],$e[3],$e[4]);
|
|
elsif ($code=='CapHeight')
|
|
$fm['CapHeight']=(int)$param;
|
|
elsif ($code=='StdVW')
|
|
$fm['StdVW']=(int)$param;
|
|
}
|
|
if (!$fm['MissingWidth'].nil?)
|
|
$fm['MissingWidth']=600;
|
|
|
|
if (!$fm['FontName'].nil?)
|
|
die('FontName not found');
|
|
|
|
$fm['Widths']=$widths;
|
|
|
|
return $fm;
|
|
}
|
|
|
|
function MakeFontDescriptor($fm)
|
|
{
|
|
#Ascent
|
|
$asc=($fm['Ascender'].nil? ? $fm['Ascender'] : 1000);
|
|
$fd="Hash.new('Ascent'=>".$asc;
|
|
#Descent
|
|
$desc=($fm['Descender'].nil? ? $fm['Descender'] : -200);
|
|
$fd<<",'Descent'=>".$desc;
|
|
#CapHeight
|
|
if ($fm['CapHeight'].nil?)
|
|
$ch=$fm['CapHeight'];
|
|
elsif ($fm['CapXHeight'].nil?)
|
|
$ch=$fm['CapXHeight'];
|
|
else
|
|
$ch=$asc;
|
|
$fd<<",'CapHeight'=>".$ch;
|
|
#Flags
|
|
$flags=0;
|
|
if ($fm['IsFixedPitch'].nil? and $fm['IsFixedPitch'])
|
|
$flags+=1<<0;
|
|
$flags+=1<<5;
|
|
if ($fm['ItalicAngle'].nil? and $fm['ItalicAngle']!=0)
|
|
$flags+=1<<6;
|
|
$fd<<",'Flags'=>".$flags;
|
|
#FontBBox
|
|
if ($fm['FontBBox'].nil?)
|
|
$fbb=$fm['FontBBox'];
|
|
else
|
|
$fbb=Hash.new(0,$des-100,1000,$asc+100);
|
|
$fd<<",'FontBBox'=>'[".$fbb[0].' '.$fbb[1].' '.$fbb[2].' '.$fbb[3]."]'";
|
|
#ItalicAngle
|
|
$ia=($fm['ItalicAngle'].nil? ? $fm['ItalicAngle'] : 0);
|
|
$fd<<",'ItalicAngle'=>".$ia;
|
|
#StemV
|
|
if ($fm['StdVW'].nil?)
|
|
$stemv=$fm['StdVW'];
|
|
elsif ($fm['Weight'].nil? and eregi('(bold|black)',$fm['Weight']))
|
|
$stemv=120;
|
|
else
|
|
$stemv=70;
|
|
$fd<<",'StemV'=>".$stemv;
|
|
#MissingWidth
|
|
if ($fm['MissingWidth'].nil?)
|
|
$fd<<",'MissingWidth'=>".$fm['MissingWidth'];
|
|
$fd<<')';
|
|
return $fd;
|
|
}
|
|
|
|
function MakeWidthArray($fm)
|
|
{
|
|
#Make character width array
|
|
$s="Hash.new(";
|
|
$cw=$fm['Widths'];
|
|
$els = []
|
|
$c=0;
|
|
foreach ($cw as $i => $w)
|
|
{
|
|
$els[] = ((($c++)%16==0)?"\n\t":'').$i.'=>'.$w;
|
|
}
|
|
$s << implode(', ', $els);
|
|
$s<<')';
|
|
return $s;
|
|
}
|
|
|
|
function SaveToFile($file,$s,$mode='t')
|
|
{
|
|
$f=fopen($file,'w'.$mode);
|
|
if (!$f)
|
|
die('Can\'t write to file '.$file);
|
|
fwrite($f,$s,$s.length);
|
|
fclose($f);
|
|
}
|
|
|
|
function ReadShort($f)
|
|
{
|
|
$a=unpack('n1n',fread($f,2));
|
|
return $a['n'];
|
|
}
|
|
|
|
function ReadLong($f)
|
|
{
|
|
$a=unpack('N1N',fread($f,4));
|
|
return $a['N'];
|
|
}
|
|
|
|
function CheckTTF($file)
|
|
{
|
|
#Check if font license allows embedding
|
|
$f=fopen($file,'rb');
|
|
if (!$f)
|
|
die('<B>Error:</B> Can\'t open '.$file);
|
|
#Extract number of tables
|
|
fseek($f,4,SEEK_CUR);
|
|
$nb=ReadShort($f);
|
|
fseek($f,6,SEEK_CUR);
|
|
#Seek OS/2 table
|
|
$found=false;
|
|
for($i=0;$i<$nb;$i++)
|
|
{
|
|
if (fread($f,4)=='OS/2')
|
|
{
|
|
$found=true;
|
|
break;
|
|
}
|
|
fseek($f,12,SEEK_CUR);
|
|
}
|
|
if (!$found)
|
|
{
|
|
fclose($f);
|
|
return;
|
|
}
|
|
fseek($f,4,SEEK_CUR);
|
|
$offset=ReadLong($f);
|
|
fseek($f,$offset,SEEK_SET);
|
|
#Extract fsType flags
|
|
fseek($f,8,SEEK_CUR);
|
|
$fsType=ReadShort($f);
|
|
$rl=($fsType & 0x02)!=0;
|
|
$pp=($fsType & 0x04)!=0;
|
|
$e=($fsType & 0x08)!=0;
|
|
fclose($f);
|
|
if ($rl and !$pp and !$e)
|
|
echo '<B>Warning:</B> font license does not allow embedding';
|
|
}
|
|
|
|
#*****************************************************************************
|
|
# $fontfile: path to TTF file (or empty string if not to be embedded) #
|
|
# $ufmfile: path to UFM file #
|
|
******************************************************************************#
|
|
function MakeFont($fontfile,$ufmfile)
|
|
{
|
|
#Generate a font definition file
|
|
set_magic_quotes_runtime(0);
|
|
if (!file_exists($ufmfile))
|
|
die('<B>Error:</B> UFM file not found: '.$ufmfile);
|
|
$cidtogidmap = '';
|
|
$fm=ReadUFM($ufmfile, $cidtogidmap);
|
|
$fd=MakeFontDescriptor($fm);
|
|
#Find font type
|
|
if ($fontfile)
|
|
{
|
|
$ext=strtolower(substr($fontfile,-3));
|
|
if ($ext=='ttf')
|
|
$type='TrueTypeUnicode';
|
|
else
|
|
die('<B>Error:</B> not a truetype font: '.$ext);
|
|
}
|
|
else
|
|
{
|
|
if ($type!='TrueTypeUnicode')
|
|
die('<B>Error:</B> incorrect font type: '.$type);
|
|
}
|
|
#Start generation
|
|
$s=''."\n";
|
|
$s<<'$type=\''.$type."';\n";
|
|
$s<<'$name=\''.$fm['FontName']."';\n";
|
|
$s<<'$desc='.$fd.";\n";
|
|
if (!$fm['UnderlinePosition'].nil?)
|
|
$fm['UnderlinePosition']=-100;
|
|
if (!$fm['UnderlineThickness'].nil?)
|
|
$fm['UnderlineThickness']=50;
|
|
$s<<'$up='.$fm['UnderlinePosition'].";\n";
|
|
$s<<'$ut='.$fm['UnderlineThickness'].";\n";
|
|
$w=MakeWidthArray($fm);
|
|
$s<<'$cw='.$w.";\n";
|
|
$s<<"\$enc='';\n";
|
|
$s<<"\$diff='';\n";
|
|
$basename=substr(basename($ufmfile),0,-4);
|
|
if ($fontfile)
|
|
{
|
|
#Embedded font
|
|
if (!file_exists($fontfile))
|
|
die('<B>Error:</B> font file not found: '.$fontfile);
|
|
CheckTTF($fontfile);
|
|
$f=fopen($fontfile,'rb');
|
|
if (!$f)
|
|
die('<B>Error:</B> Can\'t open '.$fontfile);
|
|
$file=fread($f,filesize($fontfile));
|
|
fclose($f);
|
|
if (respond_to('gzcompress'))
|
|
{
|
|
$cmp=$basename.'.z';
|
|
SaveToFile($cmp,gzcompress($file),'b');
|
|
$s<<'$file=\''.$cmp."';\n";
|
|
echo 'Font file compressed ('.$cmp.')<BR>';
|
|
|
|
$cmp=$basename.'.ctg.z';
|
|
SaveToFile($cmp,gzcompress($cidtogidmap),'b');
|
|
echo 'CIDToGIDMap created and compressed ('.$cmp.')<BR>';
|
|
$s<<'$ctg=\''.$cmp."';\n";
|
|
}
|
|
else
|
|
{
|
|
$s<<'$file=\''.basename($fontfile)."';\n";
|
|
echo '<B>Notice:</B> font file could not be compressed (gzcompress not available)<BR>';
|
|
|
|
$cmp=$basename.'.ctg';
|
|
$f = fopen($cmp, 'wb');
|
|
fwrite($f, $cidtogidmap);
|
|
fclose($f);
|
|
echo 'CIDToGIDMap created ('.$cmp.')<BR>';
|
|
$s<<'$ctg=\''.$cmp."';\n";
|
|
}
|
|
if ($type=='Type1')
|
|
{
|
|
$s<<'$size1='.$size1.";\n";
|
|
$s<<'$size2='.$size2.";\n";
|
|
}
|
|
else
|
|
$s<<'$originalsize='.filesize($fontfile).";\n";
|
|
}
|
|
else
|
|
{
|
|
#Not embedded font
|
|
$s<<'$file='."'';\n";
|
|
}
|
|
$s<<"\n";
|
|
SaveToFile($basename.'.rb',$s);
|
|
echo 'Font definition file generated ('.$basename.'.rb'.')<BR>';
|
|
}
|
|
|
|
$arg = $GLOBALS['argv'];
|
|
if ($arg.length >= 3)
|
|
ob_start();
|
|
array_shift($arg);
|
|
MakeFont($arg[0], $arg[1]);
|
|
$t = ob_get_clean();
|
|
print preg_replace('!<BR( /)!i', "\n", $t);
|
|
}
|
|
else
|
|
print "Usage: makefontuni.rb <ttf-file> <ufm-file>\n";
|
|
}
|