| 1 | <?php
|
|---|
| 2 | //============================================================+
|
|---|
| 3 | // File name : makefont.php
|
|---|
| 4 | // Begin : 2004-12-31
|
|---|
| 5 | // Last Update : 2010-03-19
|
|---|
| 6 | // Version : 1.2.006
|
|---|
| 7 | // License : GNU LGPL (http://www.gnu.org/copyleft/lesser.html)
|
|---|
| 8 | // ----------------------------------------------------------------------------
|
|---|
| 9 | // Copyright (C) 2008 Nicola Asuni - Tecnick.com S.r.l.
|
|---|
| 10 | //
|
|---|
| 11 | // This program is free software: you can redistribute it and/or modify
|
|---|
| 12 | // it under the terms of the GNU Lesser General Public License as published by
|
|---|
| 13 | // the Free Software Foundation, either version 2.1 of the License, or
|
|---|
| 14 | // (at your option) any later version.
|
|---|
| 15 | //
|
|---|
| 16 | // This program is distributed in the hope that it will be useful,
|
|---|
| 17 | // but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|---|
| 18 | // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|---|
| 19 | // GNU Lesser General Public License for more details.
|
|---|
| 20 | //
|
|---|
| 21 | // You should have received a copy of the GNU Lesser General Public License
|
|---|
| 22 | // along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|---|
| 23 | //
|
|---|
| 24 | // See LICENSE.TXT file for more information.
|
|---|
| 25 | // ----------------------------------------------------------------------------
|
|---|
| 26 | //
|
|---|
| 27 | // Description : Utility to generate font definition files fot TCPDF
|
|---|
| 28 | //
|
|---|
| 29 | // Authors: Nicola Asuni, Olivier Plathey, Steven Wittens
|
|---|
| 30 | //
|
|---|
| 31 | // (c) Copyright:
|
|---|
| 32 | // Nicola Asuni
|
|---|
| 33 | // Tecnick.com S.r.l.
|
|---|
| 34 | // Via della Pace, 11
|
|---|
| 35 | // 09044 Quartucciu (CA)
|
|---|
| 36 | // ITALY
|
|---|
| 37 | // www.tecnick.com
|
|---|
| 38 | // info@tecnick.com
|
|---|
| 39 | //============================================================+
|
|---|
| 40 |
|
|---|
| 41 | /**
|
|---|
| 42 | * Utility to generate font definition files fot TCPDF.
|
|---|
| 43 | * @author Nicola Asuni, Olivier Plathey, Steven Wittens
|
|---|
| 44 | * @copyright 2004-2008 Nicola Asuni - Tecnick.com S.r.l (www.tecnick.com) Via Della Pace, 11 - 09044 - Quartucciu (CA) - ITALY - www.tecnick.com - info@tecnick.com
|
|---|
| 45 | * @package com.tecnick.tcpdf
|
|---|
| 46 | * @link http://www.tcpdf.org
|
|---|
| 47 | * @license http://www.gnu.org/copyleft/lesser.html LGPL
|
|---|
| 48 | */
|
|---|
| 49 |
|
|---|
| 50 | /**
|
|---|
| 51 | *
|
|---|
| 52 | * @param string $fontfile path to font file (TTF, OTF or PFB).
|
|---|
| 53 | * @param string $fmfile font metrics file (UFM or AFM).
|
|---|
| 54 | * @param boolean $embedded Set to false to not embed the font, true otherwise (default).
|
|---|
| 55 | * @param string $enc Name of the encoding table to use. Omit this parameter for TrueType Unicode, OpenType Unicode and symbolic fonts like Symbol or ZapfDingBats.
|
|---|
| 56 | * @param array $patch Optional modification of the encoding
|
|---|
| 57 | */
|
|---|
| 58 | function MakeFont($fontfile, $fmfile, $embedded=true, $enc='cp1252', $patch=array()) {
|
|---|
| 59 | //Generate a font definition file
|
|---|
| 60 | set_magic_quotes_runtime(0);
|
|---|
| 61 | ini_set('auto_detect_line_endings', '1');
|
|---|
| 62 | if (!file_exists($fontfile)) {
|
|---|
| 63 | die('Error: file not found: '.$fontfile);
|
|---|
| 64 | }
|
|---|
| 65 | if (!file_exists($fmfile)) {
|
|---|
| 66 | die('Error: file not found: '.$fmfile);
|
|---|
| 67 | }
|
|---|
| 68 | $cidtogidmap = '';
|
|---|
| 69 | $map = array();
|
|---|
| 70 | $diff = '';
|
|---|
| 71 | $dw = 0; // default width
|
|---|
| 72 | $ffext = strtolower(substr($fontfile, -3));
|
|---|
| 73 | $fmext = strtolower(substr($fmfile, -3));
|
|---|
| 74 | if ($fmext == 'afm') {
|
|---|
| 75 | if (($ffext == 'ttf') OR ($ffext == 'otf')) {
|
|---|
| 76 | $type = 'TrueType';
|
|---|
| 77 | } elseif ($ffext == 'pfb') {
|
|---|
| 78 | $type = 'Type1';
|
|---|
| 79 | } else {
|
|---|
| 80 | die('Error: unrecognized font file extension: '.$ffext);
|
|---|
| 81 | }
|
|---|
| 82 | if ($enc) {
|
|---|
| 83 | $map = ReadMap($enc);
|
|---|
| 84 | foreach ($patch as $cc => $gn) {
|
|---|
| 85 | $map[$cc] = $gn;
|
|---|
| 86 | }
|
|---|
| 87 | }
|
|---|
| 88 | $fm = ReadAFM($fmfile, $map);
|
|---|
| 89 | if (isset($widths['.notdef'])) {
|
|---|
| 90 | $dw = $widths['.notdef'];
|
|---|
| 91 | }
|
|---|
| 92 | if ($enc) {
|
|---|
| 93 | $diff = MakeFontEncoding($map);
|
|---|
| 94 | }
|
|---|
| 95 | $fd = MakeFontDescriptor($fm, empty($map));
|
|---|
| 96 | } elseif ($fmext == 'ufm') {
|
|---|
| 97 | $enc = '';
|
|---|
| 98 | if (($ffext == 'ttf') OR ($ffext == 'otf')) {
|
|---|
| 99 | $type = 'TrueTypeUnicode';
|
|---|
| 100 | } else {
|
|---|
| 101 | die('Error: not a TrueType font: '.$ffext);
|
|---|
| 102 | }
|
|---|
| 103 | $fm = ReadUFM($fmfile, $cidtogidmap);
|
|---|
| 104 | $dw = $fm['MissingWidth'];
|
|---|
| 105 | $fd = MakeFontDescriptor($fm, false);
|
|---|
| 106 | }
|
|---|
| 107 | //Start generation
|
|---|
| 108 | $s = '<?php'."\n";
|
|---|
| 109 | $s .= '$type=\''.$type."';\n";
|
|---|
| 110 | $s .= '$name=\''.$fm['FontName']."';\n";
|
|---|
| 111 | $s .= '$desc='.$fd.";\n";
|
|---|
| 112 | if (!isset($fm['UnderlinePosition'])) {
|
|---|
| 113 | $fm['UnderlinePosition'] = -100;
|
|---|
| 114 | }
|
|---|
| 115 | if (!isset($fm['UnderlineThickness'])) {
|
|---|
| 116 | $fm['UnderlineThickness'] = 50;
|
|---|
| 117 | }
|
|---|
| 118 | $s .= '$up='.$fm['UnderlinePosition'].";\n";
|
|---|
| 119 | $s .= '$ut='.$fm['UnderlineThickness'].";\n";
|
|---|
| 120 | if ($dw <= 0) {
|
|---|
| 121 | if (isset($fm['Widths'][32]) AND ($fm['Widths'][32] > 0)) {
|
|---|
| 122 | // assign default space width
|
|---|
| 123 | $dw = $fm['Widths'][32];
|
|---|
| 124 | } else {
|
|---|
| 125 | $dw = 600;
|
|---|
| 126 | }
|
|---|
| 127 | }
|
|---|
| 128 | $s .= '$dw='.$dw.";\n";
|
|---|
| 129 | $w = MakeWidthArray($fm);
|
|---|
| 130 | $s .= '$cw='.$w.";\n";
|
|---|
| 131 | $s .= '$enc=\''.$enc."';\n";
|
|---|
| 132 | $s .= '$diff=\''.$diff."';\n";
|
|---|
| 133 | $basename = substr(basename($fmfile), 0, -4);
|
|---|
| 134 | if ($embedded) {
|
|---|
| 135 | //Embedded font
|
|---|
| 136 | if (($type == 'TrueType') OR ($type == 'TrueTypeUnicode')) {
|
|---|
| 137 | CheckTTF($fontfile);
|
|---|
| 138 | }
|
|---|
| 139 | $f = fopen($fontfile,'rb');
|
|---|
| 140 | if (!$f) {
|
|---|
| 141 | die('Error: Unable to open '.$fontfile);
|
|---|
| 142 | }
|
|---|
| 143 | $file = fread($f, filesize($fontfile));
|
|---|
| 144 | fclose($f);
|
|---|
| 145 | if ($type == 'Type1') {
|
|---|
| 146 | //Find first two sections and discard third one
|
|---|
| 147 | $header = (ord($file{0}) == 128);
|
|---|
| 148 | if ($header) {
|
|---|
| 149 | //Strip first binary header
|
|---|
| 150 | $file = substr($file, 6);
|
|---|
| 151 | }
|
|---|
| 152 | $pos = strpos($file, 'eexec');
|
|---|
| 153 | if (!$pos) {
|
|---|
| 154 | die('Error: font file does not seem to be valid Type1');
|
|---|
| 155 | }
|
|---|
| 156 | $size1 = $pos + 6;
|
|---|
| 157 | if ($header AND (ord($file{$size1}) == 128)) {
|
|---|
| 158 | //Strip second binary header
|
|---|
| 159 | $file = substr($file, 0, $size1).substr($file, $size1+6);
|
|---|
| 160 | }
|
|---|
| 161 | $pos = strpos($file, '00000000');
|
|---|
| 162 | if (!$pos) {
|
|---|
| 163 | die('Error: font file does not seem to be valid Type1');
|
|---|
| 164 | }
|
|---|
| 165 | $size2 = $pos - $size1;
|
|---|
| 166 | $file = substr($file, 0, ($size1 + $size2));
|
|---|
| 167 | }
|
|---|
| 168 | $basename = strtolower($basename);
|
|---|
| 169 | if (function_exists('gzcompress')) {
|
|---|
| 170 | $cmp = $basename.'.z';
|
|---|
| 171 | SaveToFile($cmp, gzcompress($file, 9), 'b');
|
|---|
| 172 | $s .= '$file=\''.$cmp."';\n";
|
|---|
| 173 | print "Font file compressed (".$cmp.")\n";
|
|---|
| 174 | if (!empty($cidtogidmap)) {
|
|---|
| 175 | $cmp = $basename.'.ctg.z';
|
|---|
| 176 | SaveToFile($cmp, gzcompress($cidtogidmap, 9), 'b');
|
|---|
| 177 | print "CIDToGIDMap created and compressed (".$cmp.")\n";
|
|---|
| 178 | $s .= '$ctg=\''.$cmp."';\n";
|
|---|
| 179 | }
|
|---|
| 180 | } else {
|
|---|
| 181 | $s .= '$file=\''.basename($fontfile)."';\n";
|
|---|
| 182 | print "Notice: font file could not be compressed (zlib extension not available)\n";
|
|---|
| 183 | if (!empty($cidtogidmap)) {
|
|---|
| 184 | $cmp = $basename.'.ctg';
|
|---|
| 185 | $f = fopen($cmp, 'wb');
|
|---|
| 186 | fwrite($f, $cidtogidmap);
|
|---|
| 187 | fclose($f);
|
|---|
| 188 | print "CIDToGIDMap created (".$cmp.")\n";
|
|---|
| 189 | $s .= '$ctg=\''.$cmp."';\n";
|
|---|
| 190 | }
|
|---|
| 191 | }
|
|---|
| 192 | if($type == 'Type1') {
|
|---|
| 193 | $s .= '$size1='.$size1.";\n";
|
|---|
| 194 | $s .= '$size2='.$size2.";\n";
|
|---|
| 195 | } else {
|
|---|
| 196 | $s.='$originalsize='.filesize($fontfile).";\n";
|
|---|
| 197 | }
|
|---|
| 198 | } else {
|
|---|
| 199 | //Not embedded font
|
|---|
| 200 | $s .= '$file='."'';\n";
|
|---|
| 201 | }
|
|---|
| 202 | $s .= "?>";
|
|---|
| 203 | SaveToFile($basename.'.php',$s);
|
|---|
| 204 | print "Font definition file generated (".$basename.".php)\n";
|
|---|
| 205 | }
|
|---|
| 206 |
|
|---|
| 207 | /**
|
|---|
| 208 | * Read the specified encoding map.
|
|---|
| 209 | * @param string $enc map name (see /enc/ folder for valid names).
|
|---|
| 210 | */
|
|---|
| 211 | function ReadMap($enc) {
|
|---|
| 212 | //Read a map file
|
|---|
| 213 | $file = dirname(__FILE__).'/enc/'.strtolower($enc).'.map';
|
|---|
| 214 | $a = file($file);
|
|---|
| 215 | if (empty($a)) {
|
|---|
| 216 | die('Error: encoding not found: '.$enc);
|
|---|
| 217 | }
|
|---|
| 218 | $cc2gn = array();
|
|---|
| 219 | foreach ($a as $l) {
|
|---|
| 220 | if ($l{0} == '!') {
|
|---|
| 221 | $e = preg_split('/[ \\t]+/',rtrim($l));
|
|---|
| 222 | $cc = hexdec(substr($e[0],1));
|
|---|
| 223 | $gn = $e[2];
|
|---|
| 224 | $cc2gn[$cc] = $gn;
|
|---|
| 225 | }
|
|---|
| 226 | }
|
|---|
| 227 | for($i = 0; $i <= 255; $i++) {
|
|---|
| 228 | if(!isset($cc2gn[$i])) {
|
|---|
| 229 | $cc2gn[$i] = '.notdef';
|
|---|
| 230 | }
|
|---|
| 231 | }
|
|---|
| 232 | return $cc2gn;
|
|---|
| 233 | }
|
|---|
| 234 |
|
|---|
| 235 | /**
|
|---|
| 236 | * Read UFM file
|
|---|
| 237 | */
|
|---|
| 238 | function ReadUFM($file, &$cidtogidmap) {
|
|---|
| 239 | //Prepare empty CIDToGIDMap
|
|---|
| 240 | $cidtogidmap = str_pad('', (256 * 256 * 2), "\x00");
|
|---|
| 241 | //Read a font metric file
|
|---|
| 242 | $a = file($file);
|
|---|
| 243 | if (empty($a)) {
|
|---|
| 244 | die('File not found');
|
|---|
| 245 | }
|
|---|
| 246 | $widths = array();
|
|---|
| 247 | $fm = array();
|
|---|
| 248 | foreach($a as $l) {
|
|---|
| 249 | $e = explode(' ',chop($l));
|
|---|
| 250 | if(count($e) < 2) {
|
|---|
| 251 | continue;
|
|---|
| 252 | }
|
|---|
| 253 | $code = $e[0];
|
|---|
| 254 | $param = $e[1];
|
|---|
| 255 | if($code == 'U') {
|
|---|
| 256 | // U 827 ; WX 0 ; N squaresubnosp ; G 675 ;
|
|---|
| 257 | //Character metrics
|
|---|
| 258 | $cc = (int)$e[1];
|
|---|
| 259 | if ($cc != -1) {
|
|---|
| 260 | $gn = $e[7];
|
|---|
| 261 | $w = $e[4];
|
|---|
| 262 | $glyph = $e[10];
|
|---|
| 263 | $widths[$cc] = $w;
|
|---|
| 264 | if($cc == ord('X')) {
|
|---|
| 265 | $fm['CapXHeight'] = $e[13];
|
|---|
| 266 | }
|
|---|
| 267 | // Set GID
|
|---|
| 268 | if (($cc >= 0) AND ($cc < 0xFFFF) AND $glyph) {
|
|---|
| 269 | $cidtogidmap{($cc * 2)} = chr($glyph >> 8);
|
|---|
| 270 | $cidtogidmap{(($cc * 2) + 1)} = chr($glyph & 0xFF);
|
|---|
| 271 | }
|
|---|
| 272 | }
|
|---|
| 273 | if((isset($gn) AND ($gn == '.notdef')) AND (!isset($fm['MissingWidth']))) {
|
|---|
| 274 | $fm['MissingWidth'] = $w;
|
|---|
| 275 | }
|
|---|
| 276 | } elseif($code == 'FontName') {
|
|---|
| 277 | $fm['FontName'] = $param;
|
|---|
| 278 | } elseif($code == 'Weight') {
|
|---|
| 279 | $fm['Weight'] = $param;
|
|---|
| 280 | } elseif($code == 'ItalicAngle') {
|
|---|
| 281 | $fm['ItalicAngle'] = (double)$param;
|
|---|
| 282 | } elseif($code == 'Ascender') {
|
|---|
| 283 | $fm['Ascender'] = (int)$param;
|
|---|
| 284 | } elseif($code == 'Descender') {
|
|---|
| 285 | $fm['Descender'] = (int)$param;
|
|---|
| 286 | } elseif($code == 'UnderlineThickness') {
|
|---|
| 287 | $fm['UnderlineThickness'] = (int)$param;
|
|---|
| 288 | } elseif($code == 'UnderlinePosition') {
|
|---|
| 289 | $fm['UnderlinePosition'] = (int)$param;
|
|---|
| 290 | } elseif($code == 'IsFixedPitch') {
|
|---|
| 291 | $fm['IsFixedPitch'] = ($param == 'true');
|
|---|
| 292 | } elseif($code == 'FontBBox') {
|
|---|
| 293 | $fm['FontBBox'] = array($e[1], $e[2], $e[3], $e[4]);
|
|---|
| 294 | } elseif($code == 'CapHeight') {
|
|---|
| 295 | $fm['CapHeight'] = (int)$param;
|
|---|
| 296 | } elseif($code == 'StdVW') {
|
|---|
| 297 | $fm['StdVW'] = (int)$param;
|
|---|
| 298 | }
|
|---|
| 299 | }
|
|---|
| 300 | if(!isset($fm['MissingWidth'])) {
|
|---|
| 301 | $fm['MissingWidth'] = 600;
|
|---|
| 302 | }
|
|---|
| 303 | if(!isset($fm['FontName'])) {
|
|---|
| 304 | die('FontName not found');
|
|---|
| 305 | }
|
|---|
| 306 | $fm['Widths'] = $widths;
|
|---|
| 307 | return $fm;
|
|---|
| 308 | }
|
|---|
| 309 |
|
|---|
| 310 | /**
|
|---|
| 311 | * Read AFM file
|
|---|
| 312 | */
|
|---|
| 313 | function ReadAFM($file,&$map) {
|
|---|
| 314 | //Read a font metric file
|
|---|
| 315 | $a = file($file);
|
|---|
| 316 | if(empty($a)) {
|
|---|
| 317 | die('File not found');
|
|---|
| 318 | }
|
|---|
| 319 | $widths = array();
|
|---|
| 320 | $fm = array();
|
|---|
| 321 | $fix = array(
|
|---|
| 322 | 'Edot'=>'Edotaccent',
|
|---|
| 323 | 'edot'=>'edotaccent',
|
|---|
| 324 | 'Idot'=>'Idotaccent',
|
|---|
| 325 | 'Zdot'=>'Zdotaccent',
|
|---|
| 326 | 'zdot'=>'zdotaccent',
|
|---|
| 327 | 'Odblacute' => 'Ohungarumlaut',
|
|---|
| 328 | 'odblacute' => 'ohungarumlaut',
|
|---|
| 329 | 'Udblacute'=>'Uhungarumlaut',
|
|---|
| 330 | 'udblacute'=>'uhungarumlaut',
|
|---|
| 331 | 'Gcedilla'=>'Gcommaaccent'
|
|---|
| 332 | ,'gcedilla'=>'gcommaaccent',
|
|---|
| 333 | 'Kcedilla'=>'Kcommaaccent',
|
|---|
| 334 | 'kcedilla'=>'kcommaaccent',
|
|---|
| 335 | 'Lcedilla'=>'Lcommaaccent',
|
|---|
| 336 | 'lcedilla'=>'lcommaaccent',
|
|---|
| 337 | 'Ncedilla'=>'Ncommaaccent',
|
|---|
| 338 | 'ncedilla'=>'ncommaaccent',
|
|---|
| 339 | 'Rcedilla'=>'Rcommaaccent',
|
|---|
| 340 | 'rcedilla'=>'rcommaaccent',
|
|---|
| 341 | 'Scedilla'=>'Scommaaccent',
|
|---|
| 342 | 'scedilla'=>'scommaaccent',
|
|---|
| 343 | 'Tcedilla'=>'Tcommaaccent',
|
|---|
| 344 | 'tcedilla'=>'tcommaaccent',
|
|---|
| 345 | 'Dslash'=>'Dcroat',
|
|---|
| 346 | 'dslash'=>'dcroat',
|
|---|
| 347 | 'Dmacron'=>'Dcroat',
|
|---|
| 348 | 'dmacron'=>'dcroat',
|
|---|
| 349 | 'combininggraveaccent'=>'gravecomb',
|
|---|
| 350 | 'combininghookabove'=>'hookabovecomb',
|
|---|
| 351 | 'combiningtildeaccent'=>'tildecomb',
|
|---|
| 352 | 'combiningacuteaccent'=>'acutecomb',
|
|---|
| 353 | 'combiningdotbelow'=>'dotbelowcomb',
|
|---|
| 354 | 'dongsign'=>'dong'
|
|---|
| 355 | );
|
|---|
| 356 | foreach($a as $l) {
|
|---|
| 357 | $e = explode(' ', rtrim($l));
|
|---|
| 358 | if (count($e) < 2) {
|
|---|
| 359 | continue;
|
|---|
| 360 | }
|
|---|
| 361 | $code = $e[0];
|
|---|
| 362 | $param = $e[1];
|
|---|
| 363 | if ($code == 'C') {
|
|---|
| 364 | //Character metrics
|
|---|
| 365 | $cc = (int)$e[1];
|
|---|
| 366 | $w = $e[4];
|
|---|
| 367 | $gn = $e[7];
|
|---|
| 368 | if (substr($gn, -4) == '20AC') {
|
|---|
| 369 | $gn = 'Euro';
|
|---|
| 370 | }
|
|---|
| 371 | if (isset($fix[$gn])) {
|
|---|
| 372 | //Fix incorrect glyph name
|
|---|
| 373 | foreach ($map as $c => $n) {
|
|---|
| 374 | if ($n == $fix[$gn]) {
|
|---|
| 375 | $map[$c] = $gn;
|
|---|
| 376 | }
|
|---|
| 377 | }
|
|---|
| 378 | }
|
|---|
| 379 | if (empty($map)) {
|
|---|
| 380 | //Symbolic font: use built-in encoding
|
|---|
| 381 | $widths[$cc] = $w;
|
|---|
| 382 | } else {
|
|---|
| 383 | $widths[$gn] = $w;
|
|---|
| 384 | if($gn == 'X') {
|
|---|
| 385 | $fm['CapXHeight'] = $e[13];
|
|---|
| 386 | }
|
|---|
| 387 | }
|
|---|
| 388 | if($gn == '.notdef') {
|
|---|
| 389 | $fm['MissingWidth'] = $w;
|
|---|
| 390 | }
|
|---|
| 391 | } elseif($code == 'FontName') {
|
|---|
| 392 | $fm['FontName'] = $param;
|
|---|
| 393 | } elseif($code == 'Weight') {
|
|---|
| 394 | $fm['Weight'] = $param;
|
|---|
| 395 | } elseif($code == 'ItalicAngle') {
|
|---|
| 396 | $fm['ItalicAngle'] = (double)$param;
|
|---|
| 397 | } elseif($code == 'Ascender') {
|
|---|
| 398 | $fm['Ascender'] = (int)$param;
|
|---|
| 399 | } elseif($code == 'Descender') {
|
|---|
| 400 | $fm['Descender'] = (int)$param;
|
|---|
| 401 | } elseif($code == 'UnderlineThickness') {
|
|---|
| 402 | $fm['UnderlineThickness'] = (int)$param;
|
|---|
| 403 | } elseif($code == 'UnderlinePosition') {
|
|---|
| 404 | $fm['UnderlinePosition'] = (int)$param;
|
|---|
| 405 | } elseif($code == 'IsFixedPitch') {
|
|---|
| 406 | $fm['IsFixedPitch'] = ($param == 'true');
|
|---|
| 407 | } elseif($code == 'FontBBox') {
|
|---|
| 408 | $fm['FontBBox'] = array($e[1], $e[2], $e[3], $e[4]);
|
|---|
| 409 | } elseif($code == 'CapHeight') {
|
|---|
| 410 | $fm['CapHeight'] = (int)$param;
|
|---|
| 411 | } elseif($code == 'StdVW') {
|
|---|
| 412 | $fm['StdVW'] = (int)$param;
|
|---|
| 413 | }
|
|---|
| 414 | }
|
|---|
| 415 | if (!isset($fm['FontName'])) {
|
|---|
| 416 | die('FontName not found');
|
|---|
| 417 | }
|
|---|
| 418 | if (!empty($map)) {
|
|---|
| 419 | if (!isset($widths['.notdef'])) {
|
|---|
| 420 | $widths['.notdef'] = 600;
|
|---|
| 421 | }
|
|---|
| 422 | if (!isset($widths['Delta']) AND isset($widths['increment'])) {
|
|---|
| 423 | $widths['Delta'] = $widths['increment'];
|
|---|
| 424 | }
|
|---|
| 425 | //Order widths according to map
|
|---|
| 426 | for ($i = 0; $i <= 255; $i++) {
|
|---|
| 427 | if (!isset($widths[$map[$i]])) {
|
|---|
| 428 | print "Warning: character ".$map[$i]." is missing\n";
|
|---|
| 429 | $widths[$i] = $widths['.notdef'];
|
|---|
| 430 | } else {
|
|---|
| 431 | $widths[$i] = $widths[$map[$i]];
|
|---|
| 432 | }
|
|---|
| 433 | }
|
|---|
| 434 | }
|
|---|
| 435 | $fm['Widths'] = $widths;
|
|---|
| 436 | return $fm;
|
|---|
| 437 | }
|
|---|
| 438 |
|
|---|
| 439 | function MakeFontDescriptor($fm, $symbolic=false) {
|
|---|
| 440 | //Ascent
|
|---|
| 441 | $asc = (isset($fm['Ascender']) ? $fm['Ascender'] : 1000);
|
|---|
| 442 | $fd = "array('Ascent'=>".$asc;
|
|---|
| 443 | //Descent
|
|---|
| 444 | $desc = (isset($fm['Descender']) ? $fm['Descender'] : -200);
|
|---|
| 445 | $fd .= ",'Descent'=>".$desc;
|
|---|
| 446 | //CapHeight
|
|---|
| 447 | if (isset($fm['CapHeight'])) {
|
|---|
| 448 | $ch = $fm['CapHeight'];
|
|---|
| 449 | } elseif (isset($fm['CapXHeight'])) {
|
|---|
| 450 | $ch = $fm['CapXHeight'];
|
|---|
| 451 | } else {
|
|---|
| 452 | $ch = $asc;
|
|---|
| 453 | }
|
|---|
| 454 | $fd .= ",'CapHeight'=>".$ch;
|
|---|
| 455 | //Flags
|
|---|
| 456 | $flags = 0;
|
|---|
| 457 | if (isset($fm['IsFixedPitch']) AND $fm['IsFixedPitch']) {
|
|---|
| 458 | $flags += 1<<0;
|
|---|
| 459 | }
|
|---|
| 460 | if ($symbolic) {
|
|---|
| 461 | $flags += 1<<2;
|
|---|
| 462 | } else {
|
|---|
| 463 | $flags += 1<<5;
|
|---|
| 464 | }
|
|---|
| 465 | if (isset($fm['ItalicAngle']) AND ($fm['ItalicAngle'] != 0)) {
|
|---|
| 466 | $flags += 1<<6;
|
|---|
| 467 | }
|
|---|
| 468 | $fd .= ",'Flags'=>".$flags;
|
|---|
| 469 | //FontBBox
|
|---|
| 470 | if (isset($fm['FontBBox'])) {
|
|---|
| 471 | $fbb = $fm['FontBBox'];
|
|---|
| 472 | } else {
|
|---|
| 473 | $fbb = array(0, ($desc - 100), 1000, ($asc + 100));
|
|---|
| 474 | }
|
|---|
| 475 | $fd .= ",'FontBBox'=>'[".$fbb[0].' '.$fbb[1].' '.$fbb[2].' '.$fbb[3]."]'";
|
|---|
| 476 | //ItalicAngle
|
|---|
| 477 | $ia = (isset($fm['ItalicAngle']) ? $fm['ItalicAngle'] : 0);
|
|---|
| 478 | $fd .= ",'ItalicAngle'=>".$ia;
|
|---|
| 479 | //StemV
|
|---|
| 480 | if (isset($fm['StdVW'])) {
|
|---|
| 481 | $stemv = $fm['StdVW'];
|
|---|
| 482 | } elseif (isset($fm['Weight']) AND preg_match('/(bold|black)/i', $fm['Weight'])) {
|
|---|
| 483 | $stemv = 120;
|
|---|
| 484 | } else {
|
|---|
| 485 | $stemv = 70;
|
|---|
| 486 | }
|
|---|
| 487 | $fd .= ",'StemV'=>".$stemv;
|
|---|
| 488 | //MissingWidth
|
|---|
| 489 | if(isset($fm['MissingWidth'])) {
|
|---|
| 490 | $fd .= ",'MissingWidth'=>".$fm['MissingWidth'];
|
|---|
| 491 | }
|
|---|
| 492 | $fd .= ')';
|
|---|
| 493 | return $fd;
|
|---|
| 494 | }
|
|---|
| 495 |
|
|---|
| 496 | function MakeWidthArray($fm) {
|
|---|
| 497 | //Make character width array
|
|---|
| 498 | $s = 'array(';
|
|---|
| 499 | $cw = $fm['Widths'];
|
|---|
| 500 | $els = array();
|
|---|
| 501 | $c = 0;
|
|---|
| 502 | foreach ($cw as $i => $w) {
|
|---|
| 503 | if (is_numeric($i)) {
|
|---|
| 504 | $els[] = (((($c++)%10) == 0) ? "\n" : '').$i.'=>'.$w;
|
|---|
| 505 | }
|
|---|
| 506 | }
|
|---|
| 507 | $s .= implode(',', $els);
|
|---|
| 508 | $s .= ')';
|
|---|
| 509 | return $s;
|
|---|
| 510 | }
|
|---|
| 511 |
|
|---|
| 512 | function MakeFontEncoding($map) {
|
|---|
| 513 | //Build differences from reference encoding
|
|---|
| 514 | $ref = ReadMap('cp1252');
|
|---|
| 515 | $s = '';
|
|---|
| 516 | $last = 0;
|
|---|
| 517 | for ($i = 32; $i <= 255; $i++) {
|
|---|
| 518 | if ($map[$i] != $ref[$i]) {
|
|---|
| 519 | if ($i != $last+1) {
|
|---|
| 520 | $s .= $i.' ';
|
|---|
| 521 | }
|
|---|
| 522 | $last = $i;
|
|---|
| 523 | $s .= '/'.$map[$i].' ';
|
|---|
| 524 | }
|
|---|
| 525 | }
|
|---|
| 526 | return rtrim($s);
|
|---|
| 527 | }
|
|---|
| 528 |
|
|---|
| 529 | function SaveToFile($file, $s, $mode='t') {
|
|---|
| 530 | $f = fopen($file, 'w'.$mode);
|
|---|
| 531 | if(!$f) {
|
|---|
| 532 | die('Can\'t write to file '.$file);
|
|---|
| 533 | }
|
|---|
| 534 | fwrite($f, $s, strlen($s));
|
|---|
| 535 | fclose($f);
|
|---|
| 536 | }
|
|---|
| 537 |
|
|---|
| 538 | function ReadShort($f) {
|
|---|
| 539 | $a = unpack('n1n', fread($f, 2));
|
|---|
| 540 | return $a['n'];
|
|---|
| 541 | }
|
|---|
| 542 |
|
|---|
| 543 | function ReadLong($f) {
|
|---|
| 544 | $a = unpack('N1N', fread($f, 4));
|
|---|
| 545 | return $a['N'];
|
|---|
| 546 | }
|
|---|
| 547 |
|
|---|
| 548 | function CheckTTF($file) {
|
|---|
| 549 | //Check if font license allows embedding
|
|---|
| 550 | $f = fopen($file, 'rb');
|
|---|
| 551 | if (!$f) {
|
|---|
| 552 | die('Error: unable to open '.$file);
|
|---|
| 553 | }
|
|---|
| 554 | //Extract number of tables
|
|---|
| 555 | fseek($f, 4, SEEK_CUR);
|
|---|
| 556 | $nb = ReadShort($f);
|
|---|
| 557 | fseek($f, 6, SEEK_CUR);
|
|---|
| 558 | //Seek OS/2 table
|
|---|
| 559 | $found = false;
|
|---|
| 560 | for ($i = 0; $i < $nb; $i++) {
|
|---|
| 561 | if (fread($f, 4) == 'OS/2') {
|
|---|
| 562 | $found = true;
|
|---|
| 563 | break;
|
|---|
| 564 | }
|
|---|
| 565 | fseek($f, 12, SEEK_CUR);
|
|---|
| 566 | }
|
|---|
| 567 | if (!$found) {
|
|---|
| 568 | fclose($f);
|
|---|
| 569 | return;
|
|---|
| 570 | }
|
|---|
| 571 | fseek($f, 4, SEEK_CUR);
|
|---|
| 572 | $offset = ReadLong($f);
|
|---|
| 573 | fseek($f, $offset, SEEK_SET);
|
|---|
| 574 | //Extract fsType flags
|
|---|
| 575 | fseek($f, 8, SEEK_CUR);
|
|---|
| 576 | $fsType = ReadShort($f);
|
|---|
| 577 | $rl = ($fsType & 0x02) != 0;
|
|---|
| 578 | $pp = ($fsType & 0x04) != 0;
|
|---|
| 579 | $e = ($fsType & 0x08) != 0;
|
|---|
| 580 | fclose($f);
|
|---|
| 581 | if($rl AND (!$pp) AND (!$e)) {
|
|---|
| 582 | print "Warning: font license does not allow embedding\n";
|
|---|
| 583 | }
|
|---|
| 584 | }
|
|---|
| 585 |
|
|---|
| 586 | $arg = $GLOBALS['argv'];
|
|---|
| 587 | if (count($arg) >= 3) {
|
|---|
| 588 | ob_start();
|
|---|
| 589 | array_shift($arg);
|
|---|
| 590 | if (sizeof($arg) == 3) {
|
|---|
| 591 | $arg[3] = $arg[2];
|
|---|
| 592 | $arg[2] = true;
|
|---|
| 593 | } else {
|
|---|
| 594 | if (!isset($arg[2])) {
|
|---|
| 595 | $arg[2] = true;
|
|---|
| 596 | }
|
|---|
| 597 | if (!isset($arg[3])) {
|
|---|
| 598 | $arg[3] = 'cp1252';
|
|---|
| 599 | }
|
|---|
| 600 | }
|
|---|
| 601 | if (!isset($arg[4])) {
|
|---|
| 602 | $arg[4] = array();
|
|---|
| 603 | }
|
|---|
| 604 | MakeFont($arg[0], $arg[1], $arg[2], $arg[3], $arg[4]);
|
|---|
| 605 | $t = ob_get_clean();
|
|---|
| 606 | print preg_replace('!<BR( /)?>!i', "\n", $t);
|
|---|
| 607 | } else {
|
|---|
| 608 | print "Usage: makefont.php <ttf/otf/pfb file> <afm/ufm file> <encoding> <patch>\n";
|
|---|
| 609 | }
|
|---|
| 610 | ?>
|
|---|
