lib/fpdf/font/makefont/makefont.php

   1 <?php
   2 /*******************************************************************************
   3 * Utility to generate font definition files                                    *
   4 * Version: 1.13                                                                *
   5 * Date:    2004-12-31                                                          *
   6 *******************************************************************************/
   7
   8 function ReadMap($enc)
   9 {
  10     //Read a map file
  11     $file=dirname(__FILE__).'/'.strtolower($enc).'.map';
  12     $a=file($file);
  13     if(empty($a))
  14         die('<B>Error:</B> encoding not found: '.$enc);
  15     $cc2gn=array();
  16     foreach($a as $l)
  17     {
  18         if($l{0}=='!')
  19         {
  20             $e=preg_split('/[ \\t]+/',rtrim($l));
  21             $cc=hexdec(substr($e[0],1));
  22             $gn=$e[2];
  23             $cc2gn[$cc]=$gn;
  24         }
  25     }
  26     for($i=0;$i<=255;$i++)
  27     {
  28         if(!isset($cc2gn[$i]))
  29             $cc2gn[$i]='.notdef';
  30     }
  31     return $cc2gn;
  32 }
  33
  34 function ReadAFM($file,&$map)
  35 {
  36     //Read a font metric file
  37     $a=file($file);
  38     if(empty($a))
  39         die('File not found');
  40     $widths=array();
  41     $fm=array();
  42     $fix=array('Edot'=>'Edotaccent','edot'=>'edotaccent','Idot'=>'Idotaccent','Zdot'=>'Zdotaccent','zdot'=>'zdotaccent',
  43         'Odblacute'=>'Ohungarumlaut','odblacute'=>'ohungarumlaut','Udblacute'=>'Uhungarumlaut','udblacute'=>'uhungarumlaut',
  44         'Gcedilla'=>'Gcommaaccent','gcedilla'=>'gcommaaccent','Kcedilla'=>'Kcommaaccent','kcedilla'=>'kcommaaccent',
  45         'Lcedilla'=>'Lcommaaccent','lcedilla'=>'lcommaaccent','Ncedilla'=>'Ncommaaccent','ncedilla'=>'ncommaaccent',
  46         'Rcedilla'=>'Rcommaaccent','rcedilla'=>'rcommaaccent','Scedilla'=>'Scommaaccent','scedilla'=>'scommaaccent',
  47         'Tcedilla'=>'Tcommaaccent','tcedilla'=>'tcommaaccent','Dslash'=>'Dcroat','dslash'=>'dcroat','Dmacron'=>'Dcroat','dmacron'=>'dcroat',
  48         'combininggraveaccent'=>'gravecomb','combininghookabove'=>'hookabovecomb','combiningtildeaccent'=>'tildecomb',
  49         'combiningacuteaccent'=>'acutecomb','combiningdotbelow'=>'dotbelowcomb','dongsign'=>'dong');
  50     foreach($a as $l)
  51     {
  52         $e=explode(' ',rtrim($l));
  53         if(count($e)<2)
  54             continue;
  55         $code=$e[0];
  56         $param=$e[1];
  57         if($code=='C')
  58         {
  59             //Character metrics
  60             $cc=(int)$e[1];
  61             $w=$e[4];
  62             $gn=$e[7];
  63             if(substr($gn,-4)=='20AC')
  64                 $gn='Euro';
  65             if(isset($fix[$gn]))
  66             {
  67                 //Fix incorrect glyph name
  68                 foreach($map as $c=>$n)
  69                 {
  70                     if($n==$fix[$gn])
  71                         $map[$c]=$gn;
  72                 }
  73             }
  74             if(empty($map))
  75             {
  76                 //Symbolic font: use built-in encoding
  77                 $widths[$cc]=$w;
  78             }
  79             else
  80             {
  81                 $widths[$gn]=$w;
  82                 if($gn=='X')
  83                     $fm['CapXHeight']=$e[13];
  84             }
  85             if($gn=='.notdef')
  86                 $fm['MissingWidth']=$w;
  87         }
  88         elseif($code=='FontName')
  89             $fm['FontName']=$param;
  90         elseif($code=='Weight')
  91             $fm['Weight']=$param;
  92         elseif($code=='ItalicAngle')
  93             $fm['ItalicAngle']=(double)$param;
  94         elseif($code=='Ascender')
  95             $fm['Ascender']=(int)$param;
  96         elseif($code=='Descender')
  97             $fm['Descender']=(int)$param;
  98         elseif($code=='UnderlineThickness')
  99             $fm['UnderlineThickness']=(int)$param;
 100         elseif($code=='UnderlinePosition')
 101             $fm['UnderlinePosition']=(int)$param;
 102         elseif($code=='IsFixedPitch')
 103             $fm['IsFixedPitch']=($param=='true');
 104         elseif($code=='FontBBox')
 105             $fm['FontBBox']=array($e[1],$e[2],$e[3],$e[4]);
 106         elseif($code=='CapHeight')
 107             $fm['CapHeight']=(int)$param;
 108         elseif($code=='StdVW')
 109             $fm['StdVW']=(int)$param;
 110     }
 111     if(!isset($fm['FontName']))
 112         die('FontName not found');
 113     if(!empty($map))
 114     {
 115         if(!isset($widths['.notdef']))
 116             $widths['.notdef']=600;
 117         if(!isset($widths['Delta']) and isset($widths['increment']))
 118             $widths['Delta']=$widths['increment'];
 119         //Order widths according to map
 120         for($i=0;$i<=255;$i++)
 121         {
 122             if(!isset($widths[$map[$i]]))
 123             {
 124                 echo '<B>Warning:</B> character '.$map[$i].' is missing<BR>';
 125                 $widths[$i]=$widths['.notdef'];
 126             }
 127             else
 128                 $widths[$i]=$widths[$map[$i]];
 129         }
 130     }
 131     $fm['Widths']=$widths;
 132     return $fm;
 133 }
 134
 135 function MakeFontDescriptor($fm,$symbolic)
 136 {
 137     //Ascent
 138     $asc=(isset($fm['Ascender']) ? $fm['Ascender'] : 1000);
 139     $fd="array('Ascent'=>".$asc;
 140     //Descent
 141     $desc=(isset($fm['Descender']) ? $fm['Descender'] : -200);
 142     $fd.=",'Descent'=>".$desc;
 143     //CapHeight
 144     if(isset($fm['CapHeight']))
 145         $ch=$fm['CapHeight'];
 146     elseif(isset($fm['CapXHeight']))
 147         $ch=$fm['CapXHeight'];
 148     else
 149         $ch=$asc;
 150     $fd.=",'CapHeight'=>".$ch;
 151     //Flags
 152     $flags=0;
 153     if(isset($fm['IsFixedPitch']) and $fm['IsFixedPitch'])
 154         $flags+=1<<0;
 155     if($symbolic)
 156         $flags+=1<<2;
 157     if(!$symbolic)
 158         $flags+=1<<5;
 159     if(isset($fm['ItalicAngle']) and $fm['ItalicAngle']!=0)
 160         $flags+=1<<6;
 161     $fd.=",'Flags'=>".$flags;
 162     //FontBBox
 163     if(isset($fm['FontBBox']))
 164         $fbb=$fm['FontBBox'];
 165     else
 166         $fbb=array(0,$des-100,1000,$asc+100);
 167     $fd.=",'FontBBox'=>'[".$fbb[0].' '.$fbb[1].' '.$fbb[2].' '.$fbb[3]."]'";
 168     //ItalicAngle
 169     $ia=(isset($fm['ItalicAngle']) ? $fm['ItalicAngle'] : 0);
 170     $fd.=",'ItalicAngle'=>".$ia;
 171     //StemV
 172     if(isset($fm['StdVW']))
 173         $stemv=$fm['StdVW'];
 174     elseif(isset($fm['Weight']) and eregi('(bold|black)',$fm['Weight']))
 175         $stemv=120;
 176     else
 177         $stemv=70;
 178     $fd.=",'StemV'=>".$stemv;
 179     //MissingWidth
 180     if(isset($fm['MissingWidth']))
 181         $fd.=",'MissingWidth'=>".$fm['MissingWidth'];
 182     $fd.=')';
 183     return $fd;
 184 }
 185
 186 function MakeWidthArray($fm)
 187 {
 188     //Make character width array
 189     $s="array(\n\t";
 190     $cw=$fm['Widths'];
 191     for($i=0;$i<=255;$i++)
 192     {
 193         if(chr($i)=="'")
 194             $s.="'\\''";
 195         elseif(chr($i)=="\\")
 196             $s.="'\\\\'";
 197         elseif($i>=32 and $i<=126)
 198             $s.="'".chr($i)."'";
 199         else
 200             $s.="chr($i)";
 201         $s.='=>'.$fm['Widths'][$i];
 202         if($i<255)
 203             $s.=',';
 204         if(($i+1)%22==0)
 205             $s.="\n\t";
 206     }
 207     $s.=')';
 208     return $s;
 209 }
 210
 211 function MakeFontEncoding($map)
 212 {
 213     //Build differences from reference encoding
 214     $ref=ReadMap('cp1252');
 215     $s='';
 216     $last=0;
 217     for($i=32;$i<=255;$i++)
 218     {
 219         if($map[$i]!=$ref[$i])
 220         {
 221             if($i!=$last+1)
 222                 $s.=$i.' ';
 223             $last=$i;
 224             $s.='/'.$map[$i].' ';
 225         }
 226     }
 227     return rtrim($s);
 228 }
 229
 230 function SaveToFile($file,$s,$mode='t')
 231 {
 232     $f=fopen($file,'w'.$mode);
 233     if(!$f)
 234         die('Can\'t write to file '.$file);
 235     fwrite($f,$s,strlen($s));
 236     fclose($f);
 237 }
 238
 239 function ReadShort($f)
 240 {
 241     $a=unpack('n1n',fread($f,2));
 242     return $a['n'];
 243 }
 244
 245 function ReadLong($f)
 246 {
 247     $a=unpack('N1N',fread($f,4));
 248     return $a['N'];
 249 }
 250
 251 function CheckTTF($file)
 252 {
 253     //Check if font license allows embedding
 254     $f=fopen($file,'rb');
 255     if(!$f)
 256         die('<B>Error:</B> Can\'t open '.$file);
 257     //Extract number of tables
 258     fseek($f,4,SEEK_CUR);
 259     $nb=ReadShort($f);
 260     fseek($f,6,SEEK_CUR);
 261     //Seek OS/2 table
 262     $found=false;
 263     for($i=0;$i<$nb;$i++)
 264     {
 265         if(fread($f,4)=='OS/2')
 266         {
 267             $found=true;
 268             break;
 269         }
 270         fseek($f,12,SEEK_CUR);
 271     }
 272     if(!$found)
 273     {
 274         fclose($f);
 275         return;
 276     }
 277     fseek($f,4,SEEK_CUR);
 278     $offset=ReadLong($f);
 279     fseek($f,$offset,SEEK_SET);
 280     //Extract fsType flags
 281     fseek($f,8,SEEK_CUR);
 282     $fsType=ReadShort($f);
 283     $rl=($fsType & 0x02)!=0;
 284     $pp=($fsType & 0x04)!=0;
 285     $e=($fsType & 0x08)!=0;
 286     fclose($f);
 287     if($rl and !$pp and !$e)
 288         echo '<B>Warning:</B> font license does not allow embedding';
 289 }
 290
 291 /*******************************************************************************
 292 * $fontfile : chemin du fichier TTF (ou chaîne vide si pas d'incorporation)    *
 293 * $afmfile :  chemin du fichier AFM                                            *
 294 * $enc :      encodage (ou chaîne vide si la police est symbolique)            *
 295 * $patch :    patch optionnel pour l'encodage                                  *
 296 * $type :     type de la police si $fontfile est vide                          *
 297 *******************************************************************************/
 298 function MakeFont($fontfile,$afmfile,$enc='cp1252',$patch=array(),$type='TrueType')
 299 {
 300     //Generate a font definition file
 301     set_magic_quotes_runtime(0);
 302     ini_set('auto_detect_line_endings','1');
 303     if($enc)
 304     {
 305         $map=ReadMap($enc);
 306         foreach($patch as $cc=>$gn)
 307             $map[$cc]=$gn;
 308     }
 309     else
 310         $map=array();
 311     if(!file_exists($afmfile))
 312         die('<B>Error:</B> AFM file not found: '.$afmfile);
 313     $fm=ReadAFM($afmfile,$map);
 314     if($enc)
 315         $diff=MakeFontEncoding($map);
 316     else
 317         $diff='';
 318     $fd=MakeFontDescriptor($fm,empty($map));
 319     //Find font type
 320     if($fontfile)
 321     {
 322         $ext=strtolower(substr($fontfile,-3));
 323         if($ext=='ttf')
 324             $type='TrueType';
 325         elseif($ext=='pfb')
 326             $type='Type1';
 327         else
 328             die('<B>Error:</B> unrecognized font file extension: '.$ext);
 329     }
 330     else
 331     {
 332         if($type!='TrueType' and $type!='Type1')
 333             die('<B>Error:</B> incorrect font type: '.$type);
 334     }
 335     //Start generation
 336     $s='<?php'."\n";
 337     $s.='$type=\''.$type."';\n";
 338     $s.='$name=\''.$fm['FontName']."';\n";
 339     $s.='$desc='.$fd.";\n";
 340     if(!isset($fm['UnderlinePosition']))
 341         $fm['UnderlinePosition']=-100;
 342     if(!isset($fm['UnderlineThickness']))
 343         $fm['UnderlineThickness']=50;
 344     $s.='$up='.$fm['UnderlinePosition'].";\n";
 345     $s.='$ut='.$fm['UnderlineThickness'].";\n";
 346     $w=MakeWidthArray($fm);
 347     $s.='$cw='.$w.";\n";
 348     $s.='$enc=\''.$enc."';\n";
 349     $s.='$diff=\''.$diff."';\n";
 350     $basename=substr(basename($afmfile),0,-4);
 351     if($fontfile)
 352     {
 353         //Embedded font
 354         if(!file_exists($fontfile))
 355             die('<B>Error:</B> font file not found: '.$fontfile);
 356         if($type=='TrueType')
 357             CheckTTF($fontfile);
 358         $f=fopen($fontfile,'rb');
 359         if(!$f)
 360             die('<B>Error:</B> Can\'t open '.$fontfile);
 361         $file=fread($f,filesize($fontfile));
 362         fclose($f);
 363         if($type=='Type1')
 364         {
 365             //Find first two sections and discard third one
 366             $header=(ord($file{0})==128);
 367             if($header)
 368             {
 369                 //Strip first binary header
 370                 $file=substr($file,6);
 371             }
 372             $pos=strpos($file,'eexec');
 373             if(!$pos)
 374                 die('<B>Error:</B> font file does not seem to be valid Type1');
 375             $size1=$pos+6;
 376             if($header and ord($file{$size1})==128)
 377             {
 378                 //Strip second binary header
 379                 $file=substr($file,0,$size1).substr($file,$size1+6);
 380             }
 381             $pos=strpos($file,'00000000');
 382             if(!$pos)
 383                 die('<B>Error:</B> font file does not seem to be valid Type1');
 384             $size2=$pos-$size1;
 385             $file=substr($file,0,$size1+$size2);
 386         }
 387         if(function_exists('gzcompress'))
 388         {
 389             $cmp=$basename.'.z';
 390             SaveToFile($cmp,gzcompress($file),'b');
 391             $s.='$file=\''.$cmp."';\n";
 392             echo 'Font file compressed ('.$cmp.')<BR>';
 393         }
 394         else
 395         {
 396             $s.='$file=\''.basename($fontfile)."';\n";
 397             echo '<B>Notice:</B> font file could not be compressed (zlib extension not available)<BR>';
 398         }
 399         if($type=='Type1')
 400         {
 401             $s.='$size1='.$size1.";\n";
 402             $s.='$size2='.$size2.";\n";
 403         }
 404         else
 405             $s.='$originalsize='.filesize($fontfile).";\n";
 406     }
 407     else
 408     {
 409         //Not embedded font
 410         $s.='$file='."'';\n";
 411     }
 412     $s.="?>\n";
 413     SaveToFile($basename.'.php',$s);
 414     echo 'Font definition file generated ('.$basename.'.php'.')<BR>';
 415 }
 416 ?>