/**
* Object constructor
*
* @param \Zend\Pdf\BinaryParser\Font\OpenType\AbstractOpenType $fontParser Font parser object containing OpenType file.
* @throws \Zend\Pdf\Exception
*/
public function __construct(OpenTypeFontParser\AbstractOpenType $fontParser)
{
parent::__construct();
$fontParser->parse();
/* Object properties */
$this->_fontNames = $fontParser->names;
$this->_isBold = $fontParser->isBold;
$this->_isItalic = $fontParser->isItalic;
$this->_isMonospaced = $fontParser->isMonospaced;
$this->_underlinePosition = $fontParser->underlinePosition;
$this->_underlineThickness = $fontParser->underlineThickness;
$this->_strikePosition = $fontParser->strikePosition;
$this->_strikeThickness = $fontParser->strikeThickness;
$this->_unitsPerEm = $fontParser->unitsPerEm;
$this->_ascent = $fontParser->ascent;
$this->_descent = $fontParser->descent;
$this->_lineGap = $fontParser->lineGap;
$this->_glyphWidths = $fontParser->glyphWidths;
$this->_missingGlyphWidth = $this->_glyphWidths[0];
$this->_cmap = $fontParser->cmap;
/* Resource dictionary */
$baseFont = $this->getFontName(Pdf\Font::NAME_POSTSCRIPT, 'en', 'UTF-8');
$this->_resource->BaseFont = new InternalType\NameObject($baseFont);
$this->_resource->FirstChar = new InternalType\NumericObject(0);
$this->_resource->LastChar = new InternalType\NumericObject(count($this->_glyphWidths) - 1);
/* Now convert the scalar glyph widths to \Zend\Pdf\InternalType\NumericObect objects.
*/
$pdfWidths = array();
foreach ($this->_glyphWidths as $width) {
$pdfWidths[] = new InternalType\NumericObject($this->toEmSpace($width));
}
/* Create the \Zend\Pdf\InternalType\ArrayObject object and add it to the font's
* object factory and resource dictionary.
*/
$widthsArrayElement = new InternalType\ArrayObject($pdfWidths);
$widthsObject = $this->_objectFactory->newObject($widthsArrayElement);
$this->_resource->Widths = $widthsObject;
}
/**
* Reads and parses the TrueType font data from the file on disk.
*/
public function parse()
{
if ($this->_isParsed) {
return;
}
parent::parse();
/* There is nothing additional to parse for TrueType fonts at this time.
*/
$this->_isParsed = true;
}
/**
* Object constructor
*
* @param \Zend\PDF\BinaryParser\Font\OpenType\AbstractOpenType $fontParser Font parser object
* containing OpenType file.
* @param integer $embeddingOptions Options for font embedding.
* @throws \Zend\PDF\Exception
*/
public function __construct(PDF\BinaryParser\Font\OpenType\AbstractOpenType $fontParser)
{
parent::__construct();
$fontParser->parse();
/* Object properties */
$this->_fontNames = $fontParser->names;
$this->_isBold = $fontParser->isBold;
$this->_isItalic = $fontParser->isItalic;
$this->_isMonospaced = $fontParser->isMonospaced;
$this->_underlinePosition = $fontParser->underlinePosition;
$this->_underlineThickness = $fontParser->underlineThickness;
$this->_strikePosition = $fontParser->strikePosition;
$this->_strikeThickness = $fontParser->strikeThickness;
$this->_unitsPerEm = $fontParser->unitsPerEm;
$this->_ascent = $fontParser->ascent;
$this->_descent = $fontParser->descent;
$this->_lineGap = $fontParser->lineGap;
$this->_cmap = $fontParser->cmap;
/* Resource dictionary */
$baseFont = $this->getFontName(PDF\Font::NAME_POSTSCRIPT, 'en', 'UTF-8');
$this->_resource->BaseFont = new InternalType\NameObject($baseFont);
/**
* Prepare widths array.
*/
/* Constract characters widths array using font CMap and glyphs widths array */
$glyphWidths = $fontParser->glyphWidths;
$charGlyphs = $this->_cmap->getCoveredCharactersGlyphs();
$charWidths = array();
foreach ($charGlyphs as $charCode => $glyph) {
$charWidths[$charCode] = $glyphWidths[$glyph];
}
$this->_charWidths = $charWidths;
$this->_missingCharWidth = $glyphWidths[0];
/* Width array optimization. Step1: extract default value */
$widthFrequencies = array_count_values($charWidths);
$defaultWidth = null;
$defaultWidthFrequency = -1;
foreach ($widthFrequencies as $width => $frequency) {
if ($frequency > $defaultWidthFrequency) {
$defaultWidth = $width;
$defaultWidthFrequency = $frequency;
}
}
// Store default value in the font dictionary
$this->_resource->DW = new InternalType\NumericObject($this->toEmSpace($defaultWidth));
// Remove characters which corresponds to default width from the widths array
$defWidthChars = array_keys($charWidths, $defaultWidth);
foreach ($defWidthChars as $charCode) {
unset($charWidths[$charCode]);
}
// Order cheracter widths aray by character codes
ksort($charWidths, SORT_NUMERIC);
/* Width array optimization. Step2: Compact character codes sequences */
$lastCharCode = -1;
$widthsSequences = array();
foreach ($charWidths as $charCode => $width) {
if ($lastCharCode == -1) {
$charCodesSequense = array();
$sequenceStartCode = $charCode;
} else {
if ($charCode != $lastCharCode + 1) {
// New chracters sequence detected
$widthsSequences[$sequenceStartCode] = $charCodesSequense;
$charCodesSequense = array();
$sequenceStartCode = $charCode;
}
}
$charCodesSequense[] = $width;
$lastCharCode = $charCode;
}
// Save last sequence, if widths array is not empty (it may happens for monospaced fonts)
if (count($charWidths) != 0) {
$widthsSequences[$sequenceStartCode] = $charCodesSequense;
}
$pdfCharsWidths = array();
foreach ($widthsSequences as $startCode => $widthsSequence) {
/* Width array optimization. Step3: Compact widths sequences */
$pdfWidths = array();
$lastWidth = -1;
$widthsInSequence = 0;
foreach ($widthsSequence as $width) {
if ($lastWidth != $width) {
// New width is detected
if ($widthsInSequence != 0) {
// Previous width value was a part of the widths sequence. Save it as 'c_1st c_last w'.
$pdfCharsWidths[] = new InternalType\NumericObject($startCode);
// First character code
$pdfCharsWidths[] = new InternalType\NumericObject($startCode + $widthsInSequence - 1);
// Last character code
$pdfCharsWidths[] = new InternalType\NumericObject($this->toEmSpace($lastWidth));
// Width
// Reset widths sequence
$startCode = $startCode + $widthsInSequence;
$widthsInSequence = 0;
}
// Collect new width
$pdfWidths[] = new InternalType\NumericObject($this->toEmSpace($width));
$lastWidth = $width;
} else {
// Width is equal to previous
if (count($pdfWidths) != 0) {
// We already have some widths collected
// So, we've just detected new widths sequence
// Remove last element from widths list, since it's a part of widths sequence
array_pop($pdfWidths);
// and write the rest if it's not empty
if (count($pdfWidths) != 0) {
// Save it as 'c_1st [w1 w2 ... wn]'.
$pdfCharsWidths[] = new InternalType\NumericObject($startCode);
// First character code
$pdfCharsWidths[] = new InternalType\ArrayObject($pdfWidths);
// Widths array
// Reset widths collection
$startCode += count($pdfWidths);
$pdfWidths = array();
}
$widthsInSequence = 2;
} else {
// Continue widths sequence
$widthsInSequence++;
}
}
}
// Check if we have widths collection or widths sequence to wite it down
if (count($pdfWidths) != 0) {
// We have some widths collected
// Save it as 'c_1st [w1 w2 ... wn]'.
$pdfCharsWidths[] = new InternalType\NumericObject($startCode);
// First character code
$pdfCharsWidths[] = new InternalType\ArrayObject($pdfWidths);
// Widths array
} else {
if ($widthsInSequence != 0) {
// We have widths sequence
// Save it as 'c_1st c_last w'.
$pdfCharsWidths[] = new InternalType\NumericObject($startCode);
// First character code
$pdfCharsWidths[] = new InternalType\NumericObject($startCode + $widthsInSequence - 1);
// Last character code
$pdfCharsWidths[] = new InternalType\NumericObject($this->toEmSpace($lastWidth));
// Width
}
}
}
/* Create the \Zend\PDF\InternalType\ArrayObject object and add it to the font's
* object factory and resource dictionary.
*/
$widthsArrayElement = new InternalType\ArrayObject($pdfCharsWidths);
$widthsObject = $this->_objectFactory->newObject($widthsArrayElement);
$this->_resource->W = $widthsObject;
/* CIDSystemInfo dictionary */
$cidSystemInfo = new InternalType\DictionaryObject();
$cidSystemInfo->Registry = new InternalType\StringObject('Adobe');
$cidSystemInfo->Ordering = new InternalType\StringObject('UCS');
$cidSystemInfo->Supplement = new InternalType\NumericObject(0);
$cidSystemInfoObject = $this->_objectFactory->newObject($cidSystemInfo);
$this->_resource->CIDSystemInfo = $cidSystemInfoObject;
}
/**
* Object constructor
*
* The $embeddingOptions parameter allows you to set certain flags related
* to font embedding. You may combine options by OR-ing them together. See
* the EMBED_ constants defined in {@link \Zend\Pdf\Font} for the list of
* available options and their descriptions.
*
* Note that it is not requried that fonts be embedded within the PDF file
* to use them. If the recipient of the PDF has the font installed on their
* computer, they will see the correct fonts in the document. If they don't,
* the PDF viewer will substitute or synthesize a replacement.
*
*
* @param \Zend\Pdf\Resource\Font\AbstractFont $font Font
* @param \Zend\Pdf\BinaryParser\Font\OpenType\AbstractOpenType $fontParser Font parser object containing parsed TrueType file.
* @param integer $embeddingOptions Options for font embedding.
* @return \Zend\Pdf\InternalType\DictionaryObject
* @throws \Zend\Pdf\Exception
*/
static public function factory(AbstractFont $font,
OpenTypeFontParser\AbstractOpenType $fontParser,
$embeddingOptions)
{
/* The font descriptor object contains the rest of the font metrics and
* the information about the embedded font program (if applicible).
*/
$fontDescriptor = new InternalType\DictionaryObject();
$fontDescriptor->Type = new InternalType\NameObject('FontDescriptor');
$fontDescriptor->FontName = new InternalType\NameObject($font->getResource()->BaseFont->value);
/* The font flags value is a bitfield that describes the stylistic
* attributes of the font. We will set as many of the bits as can be
* determined from the font parser.
*/
$flags = 0;
if ($fontParser->isMonospaced) { // bit 1: FixedPitch
$flags |= 1 << 0;
}
if ($fontParser->isSerifFont) { // bit 2: Serif
$flags |= 1 << 1;
}
if (! $fontParser->isAdobeLatinSubset) { // bit 3: Symbolic
$flags |= 1 << 2;
}
if ($fontParser->isScriptFont) { // bit 4: Script
$flags |= 1 << 3;
}
if ($fontParser->isAdobeLatinSubset) { // bit 6: Nonsymbolic
$flags |= 1 << 5;
}
if ($fontParser->isItalic) { // bit 7: Italic
$flags |= 1 << 6;
}
// bits 17-19: AllCap, SmallCap, ForceBold; not available
$fontDescriptor->Flags = new InternalType\NumericObject($flags);
$fontBBox = array(new InternalType\NumericObject($font->toEmSpace($fontParser->xMin)),
new InternalType\NumericObject($font->toEmSpace($fontParser->yMin)),
new InternalType\NumericObject($font->toEmSpace($fontParser->xMax)),
new InternalType\NumericObject($font->toEmSpace($fontParser->yMax)));
$fontDescriptor->FontBBox = new InternalType\ArrayObject($fontBBox);
$fontDescriptor->ItalicAngle = new InternalType\NumericObject($fontParser->italicAngle);
$fontDescriptor->Ascent = new InternalType\NumericObject($font->toEmSpace($fontParser->ascent));
$fontDescriptor->Descent = new InternalType\NumericObject($font->toEmSpace($fontParser->descent));
$fontDescriptor->CapHeight = new InternalType\NumericObject($fontParser->capitalHeight);
/**
* The vertical stem width is not yet extracted from the OpenType font
* file. For now, record zero which is interpreted as 'unknown'.
* @todo Calculate value for StemV.
*/
$fontDescriptor->StemV = new InternalType\NumericObject(0);
$fontDescriptor->MissingWidth = new InternalType\NumericObject($fontParser->glyphWidths[0]);
/* Set up font embedding. This is where the actual font program itself
* is embedded within the PDF document.
*
* Note that it is not requried that fonts be embedded within the PDF
* document to use them. If the recipient of the PDF has the font
* installed on their computer, they will see the correct fonts in the
* document. If they don't, the PDF viewer will substitute or synthesize
* a replacement.
*
* There are several guidelines for font embedding:
*
* First, the developer might specifically request not to embed the font.
*/
if (!($embeddingOptions & Pdf\Font::EMBED_DONT_EMBED)) {
/* Second, the font author may have set copyright bits that prohibit
* the font program from being embedded. Yes this is controversial,
* but it's the rules:
* http://partners.adobe.com/public/developer/en/acrobat/sdk/FontPolicies.pdf
*
* To keep the developer in the loop, and to prevent surprising bug
* reports of "your PDF doesn't have the right fonts," throw an
* exception if the font cannot be embedded.
*/
if (! $fontParser->isEmbeddable) {
/* This exception may be suppressed if the developer decides that
* it's not a big deal that the font program can't be embedded.
*/
if (!($embeddingOptions & Pdf\Font::EMBED_SUPPRESS_EMBED_EXCEPTION)) {
$message = 'This font cannot be embedded in the PDF document. If you would like to use '
. 'it anyway, you must pass \Zend\Pdf\Font::EMBED_SUPPRESS_EMBED_EXCEPTION '
. 'in the $options parameter of the font constructor.';
throw new Exception\DomainException($message);
}
} else {
/* Otherwise, the default behavior is to embed all custom fonts.
*/
/* This section will change soon to a stream object data
* provider model so that we don't have to keep a copy of the
* entire font in memory.
*
* We also cannot build font subsetting until the data provider
* model is in place.
*/
$fontFile = $fontParser->getDataSource()->readAllBytes();
$fontFileObject = $font->getFactory()->newStreamObject($fontFile);
$fontFileObject->dictionary->Length1 = new InternalType\NumericObject(strlen($fontFile));
if (!($embeddingOptions & Pdf\Font::EMBED_DONT_COMPRESS)) {
/* Compress the font file using Flate. This generally cuts file
* sizes by about half!
*/
$fontFileObject->dictionary->Filter = new InternalType\NameObject('FlateDecode');
}
// Type1 fonts are not implemented now
// if ($fontParser instanceof OpenTypeFontParser\Type1) {
// $fontDescriptor->FontFile = $fontFileObject;
// } else
if ($fontParser instanceof OpenTypeFontParser\TrueType) {
$fontDescriptor->FontFile2 = $fontFileObject;
} else {
$fontDescriptor->FontFile3 = $fontFileObject;
}
}
}
return $fontDescriptor;
}
