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 | ?>
|
---|