4972 lines
115 KiB
PHP
4972 lines
115 KiB
PHP
|
<?php
|
|||
|
|
/**
|
|||
|
|
* Cpdf
|
|||
|
|
*
|
|||
|
|
* http://www.ros.co.nz/pdf
|
|||
|
|
*
|
|||
|
|
* A PHP class to provide the basic functionality to create a pdf document without
|
|||
|
|
* any requirement for additional modules.
|
|||
|
|
*
|
|||
|
|
* Note that they companion class CezPdf can be used to extend this class and dramatically
|
|||
|
|
* simplify the creation of documents.
|
|||
|
|
*
|
|||
|
|
* IMPORTANT NOTE
|
|||
|
|
* there is no warranty, implied or otherwise with this software.
|
|||
|
|
*
|
|||
|
|
* LICENCE
|
|||
|
|
* This code has been placed in the Public Domain for all to enjoy.
|
|||
|
|
*
|
|||
|
|
* @author Wayne Munro <pdf@ros.co.nz>
|
|||
|
|
* @version 009
|
|||
|
|
* @package Cpdf
|
|||
|
|
*/
|
|||
|
|
class Cpdf {
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the current number of pdf objects in the document
|
|||
|
|
*/
|
|||
|
|
public $numObj = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* this array contains all of the pdf objects, ready for final assembly
|
|||
|
|
*/
|
|||
|
|
public $objects = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the objectId (number within the objects array) of the document catalog
|
|||
|
|
*/
|
|||
|
|
public $catalogId;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* array carrying information about the fonts that the system currently knows about
|
|||
|
|
* used to ensure that a font is not loaded twice, among other things
|
|||
|
|
*/
|
|||
|
|
public $fonts = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* a record of the current font
|
|||
|
|
*/
|
|||
|
|
public $currentFont = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the current base font
|
|||
|
|
*/
|
|||
|
|
public $currentBaseFont = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the number of the current font within the font array
|
|||
|
|
*/
|
|||
|
|
public $currentFontNum = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
*
|
|||
|
|
*/
|
|||
|
|
public $currentNode;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* object number of the current page
|
|||
|
|
*/
|
|||
|
|
public $currentPage;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* object number of the currently active contents block
|
|||
|
|
*/
|
|||
|
|
public $currentContents;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* number of fonts within the system
|
|||
|
|
*/
|
|||
|
|
public $numFonts = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* Number of graphic state resources used
|
|||
|
|
*/
|
|||
|
|
private $numStates = 0;
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* current colour for fill operations, defaults to inactive value, all three components should be between 0 and 1 inclusive when active
|
|||
|
|
*/
|
|||
|
|
public $currentColour = array('r'=>-1, 'g'=>-1, 'b'=>-1);
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* current colour for stroke operations (lines etc.)
|
|||
|
|
*/
|
|||
|
|
public $currentStrokeColour = array('r'=>-1, 'g'=>-1, 'b'=>-1);
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* current style that lines are drawn in
|
|||
|
|
*/
|
|||
|
|
public $currentLineStyle = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* current line transparency (partial graphics state)
|
|||
|
|
*/
|
|||
|
|
public $currentLineTransparency = array("mode" => "Normal", "opacity" => 1.0);
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* current fill transparency (partial graphics state)
|
|||
|
|
*/
|
|||
|
|
public $currentFillTransparency = array("mode" => "Normal", "opacity" => 1.0);
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* an array which is used to save the state of the document, mainly the colours and styles
|
|||
|
|
* it is used to temporarily change to another state, the change back to what it was before
|
|||
|
|
*/
|
|||
|
|
public $stateStack = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* number of elements within the state stack
|
|||
|
|
*/
|
|||
|
|
public $nStateStack = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* number of page objects within the document
|
|||
|
|
*/
|
|||
|
|
public $numPages = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* object Id storage stack
|
|||
|
|
*/
|
|||
|
|
public $stack = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* number of elements within the object Id storage stack
|
|||
|
|
*/
|
|||
|
|
public $nStack = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* an array which contains information about the objects which are not firmly attached to pages
|
|||
|
|
* these have been added with the addObject function
|
|||
|
|
*/
|
|||
|
|
public $looseObjects = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* array contains infomation about how the loose objects are to be added to the document
|
|||
|
|
*/
|
|||
|
|
public $addLooseObjects = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the objectId of the information object for the document
|
|||
|
|
* this contains authorship, title etc.
|
|||
|
|
*/
|
|||
|
|
public $infoObject = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* number of images being tracked within the document
|
|||
|
|
*/
|
|||
|
|
public $numImages = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* an array containing options about the document
|
|||
|
|
* it defaults to turning on the compression of the objects
|
|||
|
|
*/
|
|||
|
|
public $options = array('compression'=>1);
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the objectId of the first page of the document
|
|||
|
|
*/
|
|||
|
|
public $firstPageId;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* used to track the last used value of the inter-word spacing, this is so that it is known
|
|||
|
|
* when the spacing is changed.
|
|||
|
|
*/
|
|||
|
|
public $wordSpaceAdjust = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the object Id of the procset object
|
|||
|
|
*/
|
|||
|
|
public $procsetObjectId;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* store the information about the relationship between font families
|
|||
|
|
* this used so that the code knows which font is the bold version of another font, etc.
|
|||
|
|
* the value of this array is initialised in the constuctor function.
|
|||
|
|
*/
|
|||
|
|
public $fontFamilies = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* track if the current font is bolded or italicised
|
|||
|
|
*/
|
|||
|
|
public $currentTextState = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* messages are stored here during processing, these can be selected afterwards to give some useful debug information
|
|||
|
|
*/
|
|||
|
|
public $messages = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the ancryption array for the document encryption is stored here
|
|||
|
|
*/
|
|||
|
|
public $arc4 = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the object Id of the encryption information
|
|||
|
|
*/
|
|||
|
|
public $arc4_objnum = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the file identifier, used to uniquely identify a pdf document
|
|||
|
|
*/
|
|||
|
|
public $fileIdentifier = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* a flag to say if a document is to be encrypted or not
|
|||
|
|
*/
|
|||
|
|
public $encrypted = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the ancryption key for the encryption of all the document content (structure is not encrypted)
|
|||
|
|
*/
|
|||
|
|
public $encryptionKey = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* array which forms a stack to keep track of nested callback functions
|
|||
|
|
*/
|
|||
|
|
public $callback = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the number of callback functions in the callback array
|
|||
|
|
*/
|
|||
|
|
public $nCallback = 0;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* store label->id pairs for named destinations, these will be used to replace internal links
|
|||
|
|
* done this way so that destinations can be defined after the location that links to them
|
|||
|
|
*/
|
|||
|
|
public $destinations = array();
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* store the stack for the transaction commands, each item in here is a record of the values of all the
|
|||
|
|
* publiciables within the class, so that the user can rollback at will (from each 'start' command)
|
|||
|
|
* note that this includes the objects array, so these can be large.
|
|||
|
|
*/
|
|||
|
|
public $checkpoint = '';
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* class constructor
|
|||
|
|
* this will start a new document
|
|||
|
|
* @var array array of 4 numbers, defining the bottom left and upper right corner of the page. first two are normally zero.
|
|||
|
|
*/
|
|||
|
|
function Cpdf ($pageSize = array(0, 0, 612, 792)) {
|
|||
|
|
|
|||
|
|
$this->newDocument($pageSize);
|
|||
|
|
|
|||
|
|
|
|||
|
|
// also initialize the font families that are known about already
|
|||
|
|
$this->setFontFamily('init');
|
|||
|
|
|
|||
|
|
// $this->fileIdentifier = md5('xxxxxxxx'.time());
|
|||
|
|
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* Document object methods (internal use only)
|
|||
|
|
*
|
|||
|
|
* There is about one object method for each type of object in the pdf document
|
|||
|
|
* Each function has the same call list ($id,$action,$options).
|
|||
|
|
* $id = the object ID of the object, or what it is to be if it is being created
|
|||
|
|
* $action = a string specifying the action to be performed, though ALL must support:
|
|||
|
|
* 'new' - create the object with the id $id
|
|||
|
|
* 'out' - produce the output for the pdf object
|
|||
|
|
* $options = optional, a string or array containing the various parameters for the object
|
|||
|
|
*
|
|||
|
|
* These, in conjunction with the output function are the ONLY way for output to be produced
|
|||
|
|
* within the pdf 'file'.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
*destination object, used to specify the location for the user to jump to, presently on opening
|
|||
|
|
*/
|
|||
|
|
function o_destination($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'destination', 'info'=>array());
|
|||
|
|
|
|||
|
|
$tmp = '';
|
|||
|
|
|
|||
|
|
switch ($options['type']) {
|
|||
|
|
|
|||
|
|
case 'XYZ':
|
|||
|
|
|
|||
|
|
case 'FitR':
|
|||
|
|
|
|||
|
|
$tmp = ' '.$options['p3'].$tmp;
|
|||
|
|
|
|||
|
|
case 'FitH':
|
|||
|
|
|
|||
|
|
case 'FitV':
|
|||
|
|
|
|||
|
|
case 'FitBH':
|
|||
|
|
|
|||
|
|
case 'FitBV':
|
|||
|
|
|
|||
|
|
$tmp = ' '.$options['p1'].' '.$options['p2'].$tmp;
|
|||
|
|
|
|||
|
|
case 'Fit':
|
|||
|
|
|
|||
|
|
case 'FitB':
|
|||
|
|
|
|||
|
|
$tmp = $options['type'].$tmp;
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['string'] = $tmp;
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['page'] = $options['page'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$tmp = $o['info'];
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n".'['.$tmp['page'].' 0 R /'.$tmp['string']."]\nendobj\n";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* set the viewer preferences
|
|||
|
|
*/
|
|||
|
|
function o_viewerPreferences($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'viewerPreferences', 'info'=>array());
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'add':
|
|||
|
|
|
|||
|
|
foreach($options as $k=>$v) {
|
|||
|
|
|
|||
|
|
switch ($k) {
|
|||
|
|
|
|||
|
|
case 'HideToolbar':
|
|||
|
|
|
|||
|
|
case 'HideMenubar':
|
|||
|
|
|
|||
|
|
case 'HideWindowUI':
|
|||
|
|
|
|||
|
|
case 'FitWindow':
|
|||
|
|
|
|||
|
|
case 'CenterWindow':
|
|||
|
|
|
|||
|
|
case 'NonFullScreenPageMode':
|
|||
|
|
|
|||
|
|
case 'Direction':
|
|||
|
|
|
|||
|
|
$o['info'][$k] = $v;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n".'<< ';
|
|||
|
|
|
|||
|
|
foreach($o['info'] as $k=>$v) {
|
|||
|
|
|
|||
|
|
$res.= "\n/".$k.' '.$v;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\n>>\n";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* define the document catalog, the overall controller for the document
|
|||
|
|
*/
|
|||
|
|
function o_catalog($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'catalog', 'info'=>array());
|
|||
|
|
|
|||
|
|
$this->catalogId = $id;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'outlines':
|
|||
|
|
|
|||
|
|
case 'pages':
|
|||
|
|
|
|||
|
|
case 'openHere':
|
|||
|
|
|
|||
|
|
$o['info'][$action] = $options;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'viewerPreferences':
|
|||
|
|
|
|||
|
|
if (!isset($o['info']['viewerPreferences'])) {
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_viewerPreferences($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
$o['info']['viewerPreferences'] = $this->numObj;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$vp = $o['info']['viewerPreferences'];
|
|||
|
|
|
|||
|
|
$this->o_viewerPreferences($vp, 'add', $options);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n".'<< /Type /Catalog';
|
|||
|
|
|
|||
|
|
foreach($o['info'] as $k=>$v) {
|
|||
|
|
|
|||
|
|
switch ($k) {
|
|||
|
|
|
|||
|
|
case 'outlines':
|
|||
|
|
|
|||
|
|
$res.= "\n".'/Outlines '.$v.' 0 R';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'pages':
|
|||
|
|
|
|||
|
|
$res.= "\n".'/Pages '.$v.' 0 R';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'viewerPreferences':
|
|||
|
|
|
|||
|
|
$res.= "\n".'/ViewerPreferences '.$o['info']['viewerPreferences'].' 0 R';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'openHere':
|
|||
|
|
|
|||
|
|
$res.= "\n".'/OpenAction '.$o['info']['openHere'].' 0 R';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= " >>\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* object which is a parent to the pages in the document
|
|||
|
|
*/
|
|||
|
|
function o_pages($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'pages', 'info'=>array());
|
|||
|
|
|
|||
|
|
$this->o_catalog($this->catalogId, 'pages', $id);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'page':
|
|||
|
|
|
|||
|
|
if (!is_array($options)) {
|
|||
|
|
|
|||
|
|
// then it will just be the id of the new page
|
|||
|
|
$o['info']['pages'][] = $options;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
// then it should be an array having 'id','rid','pos', where rid=the page to which this one will be placed relative
|
|||
|
|
// and pos is either 'before' or 'after', saying where this page will fit.
|
|||
|
|
if (isset($options['id']) && isset($options['rid']) && isset($options['pos'])) {
|
|||
|
|
|
|||
|
|
$i = array_search($options['rid'], $o['info']['pages']);
|
|||
|
|
|
|||
|
|
if (isset($o['info']['pages'][$i]) && $o['info']['pages'][$i] == $options['rid']) {
|
|||
|
|
|
|||
|
|
// then there is a match
|
|||
|
|
// make a space
|
|||
|
|
switch ($options['pos']) {
|
|||
|
|
|
|||
|
|
case 'before':
|
|||
|
|
|
|||
|
|
$k = $i;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'after':
|
|||
|
|
|
|||
|
|
$k = $i+1;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
default:
|
|||
|
|
|
|||
|
|
$k = -1;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($k >= 0) {
|
|||
|
|
|
|||
|
|
for ($j = count($o['info']['pages']) -1;$j >= $k;$j--) {
|
|||
|
|
|
|||
|
|
$o['info']['pages'][$j+1] = $o['info']['pages'][$j];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$o['info']['pages'][$k] = $options['id'];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'procset':
|
|||
|
|
|
|||
|
|
$o['info']['procset'] = $options;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'mediaBox':
|
|||
|
|
|
|||
|
|
$o['info']['mediaBox'] = $options;
|
|||
|
|
// which should be an array of 4 numbers
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'font':
|
|||
|
|
|
|||
|
|
$o['info']['fonts'][] = array('objNum'=>$options['objNum'], 'fontNum'=>$options['fontNum']);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
|
|||
|
|
case 'extGState':
|
|||
|
|
|
|||
|
|
$o['info']['extGStates'][] = array('objNum' => $options['objNum'], 'stateNum' => $options['stateNum']);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
|
|||
|
|
case 'xObject':
|
|||
|
|
|
|||
|
|
$o['info']['xObjects'][] = array('objNum'=>$options['objNum'], 'label'=>$options['label']);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
if (count($o['info']['pages'])) {
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Pages\n/Kids [";
|
|||
|
|
|
|||
|
|
foreach($o['info']['pages'] as $k=>$v) {
|
|||
|
|
|
|||
|
|
$res.= $v." 0 R\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "]\n/Count ".count($this->objects[$id]['info']['pages']);
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ( (isset($o['info']['fonts']) && count($o['info']['fonts'])) ||
|
|||
|
|
isset($o['info']['procset']) ||
|
|||
|
|
(isset($o['info']['extGStates']) && count($o['info']['extGStates']))) {
|
|||
|
|
|
|||
|
|
|
|||
|
|
$res.= "\n/Resources <<";
|
|||
|
|
|
|||
|
|
if (isset($o['info']['procset'])) {
|
|||
|
|
|
|||
|
|
$res.= "\n/ProcSet ".$o['info']['procset']." 0 R";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($o['info']['fonts']) && count($o['info']['fonts'])) {
|
|||
|
|
|
|||
|
|
$res.= "\n/Font << ";
|
|||
|
|
|
|||
|
|
foreach($o['info']['fonts'] as $finfo) {
|
|||
|
|
|
|||
|
|
$res.= "\n/F".$finfo['fontNum']." ".$finfo['objNum']." 0 R";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= " >>";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($o['info']['xObjects']) && count($o['info']['xObjects'])) {
|
|||
|
|
|
|||
|
|
$res.= "\n/XObject << ";
|
|||
|
|
|
|||
|
|
foreach($o['info']['xObjects'] as $finfo) {
|
|||
|
|
|
|||
|
|
$res.= "\n/".$finfo['label']." ".$finfo['objNum']." 0 R";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= " >>";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ( isset($o['info']['extGStates']) && count($o['info']['extGStates'])) {
|
|||
|
|
|
|||
|
|
$res.= "\n/ExtGState << ";
|
|||
|
|
|
|||
|
|
foreach ($o['info']['extGStates'] as $gstate) {
|
|||
|
|
|
|||
|
|
$res.= "\n/GS" . $gstate['stateNum'] . " " . $gstate['objNum'] . " 0 R";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= " >>";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$res.= "\n>>";
|
|||
|
|
|
|||
|
|
if (isset($o['info']['mediaBox'])) {
|
|||
|
|
|
|||
|
|
$tmp = $o['info']['mediaBox'];
|
|||
|
|
|
|||
|
|
$res.= "\n/MediaBox [".sprintf('%.3f', $tmp[0]) .' '.sprintf('%.3f', $tmp[1]) .' '.sprintf('%.3f', $tmp[2]) .' '.sprintf('%.3f', $tmp[3]) .']';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\n >>\nendobj";
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Pages\n/Count 0\n>>\nendobj";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* define the outlines in the doc, empty for now
|
|||
|
|
*/
|
|||
|
|
function o_outlines($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'outlines', 'info'=>array('outlines'=>array()));
|
|||
|
|
|
|||
|
|
$this->o_catalog($this->catalogId, 'outlines', $id);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'outline':
|
|||
|
|
|
|||
|
|
$o['info']['outlines'][] = $options;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
if (count($o['info']['outlines'])) {
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Outlines /Kids [";
|
|||
|
|
|
|||
|
|
foreach($o['info']['outlines'] as $k=>$v) {
|
|||
|
|
|
|||
|
|
$res.= $v." 0 R ";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "] /Count ".count($o['info']['outlines']) ." >>\nendobj";
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Outlines /Count 0 >>\nendobj";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* an object to hold the font description
|
|||
|
|
*/
|
|||
|
|
function o_font($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t' => 'font', 'info' => array('name' => $options['name'], 'SubType' => 'Type1'));
|
|||
|
|
|
|||
|
|
$fontNum = $this->numFonts;
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['fontNum'] = $fontNum;
|
|||
|
|
|
|||
|
|
// deal with the encoding and the differences
|
|||
|
|
if (isset($options['differences'])) {
|
|||
|
|
|
|||
|
|
// then we'll need an encoding dictionary
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_fontEncoding($this->numObj, 'new', $options);
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['encodingDictionary'] = $this->numObj;
|
|||
|
|
} else if (isset($options['encoding'])) {
|
|||
|
|
|
|||
|
|
// we can specify encoding here
|
|||
|
|
switch ($options['encoding']) {
|
|||
|
|
|
|||
|
|
case 'WinAnsiEncoding':
|
|||
|
|
|
|||
|
|
case 'MacRomanEncoding':
|
|||
|
|
|
|||
|
|
case 'MacExpertEncoding':
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['encoding'] = $options['encoding'];
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'none':
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
default:
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['encoding'] = 'WinAnsiEncoding';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['encoding'] = 'WinAnsiEncoding';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// also tell the pages node about the new font
|
|||
|
|
$this->o_pages($this->currentNode, 'font', array('fontNum' => $fontNum, 'objNum' => $id));
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
|
|||
|
|
case 'add':
|
|||
|
|
|
|||
|
|
foreach ($options as $k => $v) {
|
|||
|
|
|
|||
|
|
switch ($k) {
|
|||
|
|
|
|||
|
|
case 'BaseFont':
|
|||
|
|
|
|||
|
|
$o['info']['name'] = $v;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'FirstChar':
|
|||
|
|
|
|||
|
|
case 'LastChar':
|
|||
|
|
|
|||
|
|
case 'Widths':
|
|||
|
|
|
|||
|
|
case 'FontDescriptor':
|
|||
|
|
|
|||
|
|
case 'SubType':
|
|||
|
|
|
|||
|
|
$this->addMessage('o_font '.$k." : ".$v);
|
|||
|
|
|
|||
|
|
$o['info'][$k] = $v;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Font\n/Subtype /".$o['info']['SubType']."\n";
|
|||
|
|
|
|||
|
|
$res.= "/Name /F".$o['info']['fontNum']."\n";
|
|||
|
|
|
|||
|
|
$res.= "/BaseFont /".$o['info']['name']."\n";
|
|||
|
|
|
|||
|
|
if (isset($o['info']['encodingDictionary'])) {
|
|||
|
|
|
|||
|
|
// then place a reference to the dictionary
|
|||
|
|
$res.= "/Encoding ".$o['info']['encodingDictionary']." 0 R\n";
|
|||
|
|
} else if (isset($o['info']['encoding'])) {
|
|||
|
|
|
|||
|
|
// use the specified encoding
|
|||
|
|
$res.= "/Encoding /".$o['info']['encoding']."\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($o['info']['FirstChar'])) {
|
|||
|
|
|
|||
|
|
$res.= "/FirstChar ".$o['info']['FirstChar']."\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($o['info']['LastChar'])) {
|
|||
|
|
|
|||
|
|
$res.= "/LastChar ".$o['info']['LastChar']."\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($o['info']['Widths'])) {
|
|||
|
|
|
|||
|
|
$res.= "/Widths ".$o['info']['Widths']." 0 R\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($o['info']['FontDescriptor'])) {
|
|||
|
|
|
|||
|
|
$res.= "/FontDescriptor ".$o['info']['FontDescriptor']." 0 R\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= ">>\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* a font descriptor, needed for including additional fonts
|
|||
|
|
*/
|
|||
|
|
function o_fontDescriptor($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'fontDescriptor', 'info'=>$options);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /FontDescriptor\n";
|
|||
|
|
|
|||
|
|
foreach ($o['info'] as $label => $value) {
|
|||
|
|
|
|||
|
|
switch ($label) {
|
|||
|
|
|
|||
|
|
case 'Ascent':
|
|||
|
|
|
|||
|
|
case 'CapHeight':
|
|||
|
|
|
|||
|
|
case 'Descent':
|
|||
|
|
|
|||
|
|
case 'Flags':
|
|||
|
|
|
|||
|
|
case 'ItalicAngle':
|
|||
|
|
|
|||
|
|
case 'StemV':
|
|||
|
|
|
|||
|
|
case 'AvgWidth':
|
|||
|
|
|
|||
|
|
case 'Leading':
|
|||
|
|
|
|||
|
|
case 'MaxWidth':
|
|||
|
|
|
|||
|
|
case 'MissingWidth':
|
|||
|
|
|
|||
|
|
case 'StemH':
|
|||
|
|
|
|||
|
|
case 'XHeight':
|
|||
|
|
|
|||
|
|
case 'CharSet':
|
|||
|
|
|
|||
|
|
if (strlen($value)) {
|
|||
|
|
|
|||
|
|
$res.= '/'.$label.' '.$value."\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'FontFile':
|
|||
|
|
|
|||
|
|
case 'FontFile2':
|
|||
|
|
|
|||
|
|
case 'FontFile3':
|
|||
|
|
|
|||
|
|
$res.= '/'.$label.' '.$value." 0 R\n";
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'FontBBox':
|
|||
|
|
|
|||
|
|
$res.= '/'.$label.' ['.$value[0].' '.$value[1].' '.$value[2].' '.$value[3]."]\n";
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'FontName':
|
|||
|
|
|
|||
|
|
$res.= '/'.$label.' /'.$value."\n";
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= ">>\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the font encoding
|
|||
|
|
*/
|
|||
|
|
function o_fontEncoding($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
// the options array should contain 'differences' and maybe 'encoding'
|
|||
|
|
$this->objects[$id] = array('t'=>'fontEncoding', 'info'=>$options);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Encoding\n";
|
|||
|
|
|
|||
|
|
if (!isset($o['info']['encoding'])) {
|
|||
|
|
|
|||
|
|
$o['info']['encoding'] = 'WinAnsiEncoding';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($o['info']['encoding'] != 'none') {
|
|||
|
|
|
|||
|
|
$res.= "/BaseEncoding /".$o['info']['encoding']."\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "/Differences \n[";
|
|||
|
|
|
|||
|
|
$onum = -100;
|
|||
|
|
|
|||
|
|
foreach($o['info']['differences'] as $num=>$label) {
|
|||
|
|
|
|||
|
|
if ($num != $onum+1) {
|
|||
|
|
|
|||
|
|
// we cannot make use of consecutive numbering
|
|||
|
|
$res.= "\n".$num." /".$label;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$res.= " /".$label;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$onum = $num;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\n]\n>>\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the document procset, solves some problems with printing to old PS printers
|
|||
|
|
*/
|
|||
|
|
function o_procset($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'procset', 'info'=>array('PDF'=>1, 'Text'=>1));
|
|||
|
|
|
|||
|
|
$this->o_pages($this->currentNode, 'procset', $id);
|
|||
|
|
|
|||
|
|
$this->procsetObjectId = $id;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'add':
|
|||
|
|
|
|||
|
|
// this is to add new items to the procset list, despite the fact that this is considered
|
|||
|
|
// obselete, the items are required for printing to some postscript printers
|
|||
|
|
switch ($options) {
|
|||
|
|
|
|||
|
|
case 'ImageB':
|
|||
|
|
|
|||
|
|
case 'ImageC':
|
|||
|
|
|
|||
|
|
case 'ImageI':
|
|||
|
|
|
|||
|
|
$o['info'][$options] = 1;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n[";
|
|||
|
|
|
|||
|
|
foreach ($o['info'] as $label=>$val) {
|
|||
|
|
|
|||
|
|
$res.= '/'.$label.' ';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "]\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* define the document information
|
|||
|
|
*/
|
|||
|
|
function o_info($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->infoObject = $id;
|
|||
|
|
|
|||
|
|
$date = 'D:'.@date('Ymd');
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'info', 'info'=>array('Creator'=>'R and OS php pdf writer, http://www.ros.co.nz', 'CreationDate'=>$date));
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'Title':
|
|||
|
|
|
|||
|
|
case 'Author':
|
|||
|
|
|
|||
|
|
case 'Subject':
|
|||
|
|
|
|||
|
|
case 'Keywords':
|
|||
|
|
|
|||
|
|
case 'Creator':
|
|||
|
|
|
|||
|
|
case 'Producer':
|
|||
|
|
|
|||
|
|
case 'CreationDate':
|
|||
|
|
|
|||
|
|
case 'ModDate':
|
|||
|
|
|
|||
|
|
case 'Trapped':
|
|||
|
|
|
|||
|
|
$o['info'][$action] = $options;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
if ($this->encrypted) {
|
|||
|
|
|
|||
|
|
$this->encryptInit($id);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<<\n";
|
|||
|
|
|
|||
|
|
foreach ($o['info'] as $k=>$v) {
|
|||
|
|
|
|||
|
|
$res.= '/'.$k.' (';
|
|||
|
|
|
|||
|
|
if ($this->encrypted) {
|
|||
|
|
|
|||
|
|
$res.= $this->filterText($this->ARC4($v));
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$res.= $this->filterText($v);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= ")\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= ">>\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* an action object, used to link to URLS initially
|
|||
|
|
*/
|
|||
|
|
function o_action($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
if (is_array($options)) {
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'action', 'info'=>$options, 'type'=>$options['type']);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
// then assume a URI action
|
|||
|
|
$this->objects[$id] = array('t'=>'action', 'info'=>$options, 'type'=>'URI');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
if ($this->encrypted) {
|
|||
|
|
|
|||
|
|
$this->encryptInit($id);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Action";
|
|||
|
|
|
|||
|
|
switch ($o['type']) {
|
|||
|
|
|
|||
|
|
case 'ilink':
|
|||
|
|
|
|||
|
|
// there will be an 'label' setting, this is the name of the destination
|
|||
|
|
$res.= "\n/S /GoTo\n/D ".$this->destinations[(string)$o['info']['label']]." 0 R";
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'URI':
|
|||
|
|
|
|||
|
|
$res.= "\n/S /URI\n/URI (";
|
|||
|
|
|
|||
|
|
if ($this->encrypted) {
|
|||
|
|
|
|||
|
|
$res.= $this->filterText($this->ARC4($o['info']));
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$res.= $this->filterText($o['info']);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= ")";
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\n>>\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* an annotation object, this will add an annotation to the current page.
|
|||
|
|
* initially will support just link annotations
|
|||
|
|
*/
|
|||
|
|
function o_annotation($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
// add the annotation to the current page
|
|||
|
|
$pageId = $this->currentPage;
|
|||
|
|
|
|||
|
|
$this->o_page($pageId, 'annot', $id);
|
|||
|
|
|
|||
|
|
// and add the action object which is going to be required
|
|||
|
|
switch ($options['type']) {
|
|||
|
|
|
|||
|
|
case 'link':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'annotation', 'info'=>$options);
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_action($this->numObj, 'new', $options['url']);
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['actionId'] = $this->numObj;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'ilink':
|
|||
|
|
|
|||
|
|
// this is to a named internal link
|
|||
|
|
$label = $options['label'];
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'annotation', 'info'=>$options);
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_action($this->numObj, 'new', array('type'=>'ilink', 'label'=>$label));
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['actionId'] = $this->numObj;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Annot";
|
|||
|
|
|
|||
|
|
switch ($o['info']['type']) {
|
|||
|
|
|
|||
|
|
case 'link':
|
|||
|
|
|
|||
|
|
case 'ilink':
|
|||
|
|
|
|||
|
|
$res.= "\n/Subtype /Link";
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\n/A ".$o['info']['actionId']." 0 R";
|
|||
|
|
|
|||
|
|
$res.= "\n/Border [0 0 0]";
|
|||
|
|
|
|||
|
|
$res.= "\n/H /I";
|
|||
|
|
|
|||
|
|
$res.= "\n/Rect [ ";
|
|||
|
|
|
|||
|
|
foreach($o['info']['rect'] as $v) {
|
|||
|
|
|
|||
|
|
$res.= sprintf("%.4f ", $v);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "]";
|
|||
|
|
|
|||
|
|
$res.= "\n>>\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* a page object, it also creates a contents object to hold its contents
|
|||
|
|
*/
|
|||
|
|
function o_page($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->numPages++;
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'page', 'info'=>array('parent'=>$this->currentNode, 'pageNum'=>$this->numPages));
|
|||
|
|
|
|||
|
|
if (is_array($options)) {
|
|||
|
|
|
|||
|
|
// then this must be a page insertion, array shoudl contain 'rid','pos'=[before|after]
|
|||
|
|
$options['id'] = $id;
|
|||
|
|
|
|||
|
|
$this->o_pages($this->currentNode, 'page', $options);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->o_pages($this->currentNode, 'page', $id);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->currentPage = $id;
|
|||
|
|
|
|||
|
|
//make a contents object to go with this page
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_contents($this->numObj, 'new', $id);
|
|||
|
|
|
|||
|
|
$this->currentContents = $this->numObj;
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['contents'] = array();
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['contents'][] = $this->numObj;
|
|||
|
|
|
|||
|
|
$match = ($this->numPages%2 ? 'odd' : 'even');
|
|||
|
|
|
|||
|
|
foreach($this->addLooseObjects as $oId=>$target) {
|
|||
|
|
|
|||
|
|
if ($target == 'all' || $match == $target) {
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['contents'][] = $oId;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'content':
|
|||
|
|
|
|||
|
|
$o['info']['contents'][] = $options;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'annot':
|
|||
|
|
|
|||
|
|
// add an annotation to this page
|
|||
|
|
if (!isset($o['info']['annot'])) {
|
|||
|
|
|
|||
|
|
$o['info']['annot'] = array();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// $options should contain the id of the annotation dictionary
|
|||
|
|
$o['info']['annot'][] = $options;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<< /Type /Page";
|
|||
|
|
|
|||
|
|
$res.= "\n/Parent ".$o['info']['parent']." 0 R";
|
|||
|
|
|
|||
|
|
if (isset($o['info']['annot'])) {
|
|||
|
|
|
|||
|
|
$res.= "\n/Annots [";
|
|||
|
|
|
|||
|
|
foreach($o['info']['annot'] as $aId) {
|
|||
|
|
|
|||
|
|
$res.= " ".$aId." 0 R";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= " ]";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$count = count($o['info']['contents']);
|
|||
|
|
|
|||
|
|
if ($count == 1) {
|
|||
|
|
|
|||
|
|
$res.= "\n/Contents ".$o['info']['contents'][0]." 0 R";
|
|||
|
|
} else if ($count>1) {
|
|||
|
|
|
|||
|
|
$res.= "\n/Contents [\n";
|
|||
|
|
|
|||
|
|
// reverse the page contents so added objects are below normal content
|
|||
|
|
//foreach (array_reverse($o['info']['contents']) as $cId) {
|
|||
|
|
|
|||
|
|
// Back to normal now that I've got transparency working --Benj
|
|||
|
|
foreach ($o['info']['contents'] as $cId) {
|
|||
|
|
$res.= $cId." 0 R\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "]";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\n>>\nendobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* the contents objects hold all of the content which appears on pages
|
|||
|
|
*/
|
|||
|
|
function o_contents($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
$this->objects[$id] = array('t'=>'contents', 'c'=>'', 'info'=>array());
|
|||
|
|
|
|||
|
|
if (strlen($options) && intval($options)) {
|
|||
|
|
|
|||
|
|
// then this contents is the primary for a page
|
|||
|
|
$this->objects[$id]['onPage'] = $options;
|
|||
|
|
} else if ($options == 'raw') {
|
|||
|
|
|
|||
|
|
// then this page contains some other type of system object
|
|||
|
|
$this->objects[$id]['raw'] = 1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'add':
|
|||
|
|
|
|||
|
|
// add more options to the decleration
|
|||
|
|
foreach ($options as $k=>$v) {
|
|||
|
|
|
|||
|
|
$o['info'][$k] = $v;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$tmp = $o['c'];
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n";
|
|||
|
|
|
|||
|
|
if (isset($this->objects[$id]['raw'])) {
|
|||
|
|
|
|||
|
|
$res.= $tmp;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$res.= "<<";
|
|||
|
|
|
|||
|
|
if (function_exists('gzcompress') && $this->options['compression']) {
|
|||
|
|
|
|||
|
|
// then implement ZLIB based compression on this content stream
|
|||
|
|
$res.= " /Filter /FlateDecode";
|
|||
|
|
|
|||
|
|
$tmp = gzcompress($tmp, 6);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($this->encrypted) {
|
|||
|
|
|
|||
|
|
$this->encryptInit($id);
|
|||
|
|
|
|||
|
|
$tmp = $this->ARC4($tmp);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
foreach($o['info'] as $k=>$v) {
|
|||
|
|
|
|||
|
|
$res.= "\n/".$k.' '.$v;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\n/Length ".strlen($tmp) ." >>\nstream\n".$tmp."\nendstream";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\nendobj\n";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* an image object, will be an XObject in the document, includes description and data
|
|||
|
|
*/
|
|||
|
|
function o_image($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
// make the new object
|
|||
|
|
$this->objects[$id] = array('t'=>'image', 'data'=>&$options['data'], 'info'=>array());
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['Type'] = '/XObject';
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['Subtype'] = '/Image';
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['Width'] = $options['iw'];
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['Height'] = $options['ih'];
|
|||
|
|
|
|||
|
|
if (!isset($options['type']) || $options['type'] == 'jpg') {
|
|||
|
|
|
|||
|
|
if (!isset($options['channels'])) {
|
|||
|
|
|
|||
|
|
$options['channels'] = 3;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($options['channels']) {
|
|||
|
|
|
|||
|
|
case 1:
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['ColorSpace'] = '/DeviceGray';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
default:
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['ColorSpace'] = '/DeviceRGB';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['Filter'] = '/DCTDecode';
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['BitsPerComponent'] = 8;
|
|||
|
|
} else if ($options['type'] == 'png') {
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['Filter'] = '/FlateDecode';
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['DecodeParms'] = '<< /Predictor 15 /Colors '.$options['ncolor'].' /Columns '.$options['iw'].' /BitsPerComponent '.$options['bitsPerComponent'].'>>';
|
|||
|
|
if (strlen($options['pdata'])) {
|
|||
|
|
|
|||
|
|
$tmp = ' [ /Indexed /DeviceRGB '.(strlen($options['pdata']) /3-1) .' ';
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_contents($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
$this->objects[$this->numObj]['c'] = $options['pdata'];
|
|||
|
|
|
|||
|
|
$tmp.= $this->numObj.' 0 R';
|
|||
|
|
|
|||
|
|
$tmp.= ' ]';
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['ColorSpace'] = $tmp;
|
|||
|
|
|
|||
|
|
if (isset($options['transparency'])) {
|
|||
|
|
|
|||
|
|
switch ($options['transparency']['type']) {
|
|||
|
|
|
|||
|
|
case 'indexed':
|
|||
|
|
|
|||
|
|
$tmp = ' [ '.$options['transparency']['data'].' '.$options['transparency']['data'].'] ';
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['Mask'] = $tmp;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'color-key':
|
|||
|
|
$tmp = ' [ '.
|
|||
|
|
$options['transparency']['r'] . ' ' . $options['transparency']['r'] .
|
|||
|
|
$options['transparency']['g'] . ' ' . $options['transparency']['g'] .
|
|||
|
|
$options['transparency']['b'] . ' ' . $options['transparency']['b'] .
|
|||
|
|
' ] ';
|
|||
|
|
$this->objects[$id]['info']['Mask'] = $tmp;
|
|||
|
|
pre_r($tmp);
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
if (isset($options['transparency'])) {
|
|||
|
|
|
|||
|
|
switch ($options['transparency']['type']) {
|
|||
|
|
|
|||
|
|
case 'indexed':
|
|||
|
|
|
|||
|
|
$tmp = ' [ '.$options['transparency']['data'].' '.$options['transparency']['data'].'] ';
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['Mask'] = $tmp;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'color-key':
|
|||
|
|
$tmp = ' [ '.
|
|||
|
|
$options['transparency']['r'] . ' ' . $options['transparency']['r'] . ' ' .
|
|||
|
|
$options['transparency']['g'] . ' ' . $options['transparency']['g'] . ' ' .
|
|||
|
|
$options['transparency']['b'] . ' ' . $options['transparency']['b'] .
|
|||
|
|
' ] ';
|
|||
|
|
$this->objects[$id]['info']['Mask'] = $tmp;
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
$this->objects[$id]['info']['ColorSpace'] = '/'.$options['color'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['BitsPerComponent'] = $options['bitsPerComponent'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// assign it a place in the named resource dictionary as an external object, according to
|
|||
|
|
// the label passed in with it.
|
|||
|
|
$this->o_pages($this->currentNode, 'xObject', array('label'=>$options['label'], 'objNum'=>$id));
|
|||
|
|
|
|||
|
|
// also make sure that we have the right procset object for it.
|
|||
|
|
$this->o_procset($this->procsetObjectId, 'add', 'ImageC');
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$tmp = &$o['data'];
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<<";
|
|||
|
|
|
|||
|
|
foreach($o['info'] as $k=>$v) {
|
|||
|
|
|
|||
|
|
$res.= "\n/".$k.' '.$v;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($this->encrypted) {
|
|||
|
|
|
|||
|
|
$this->encryptInit($id);
|
|||
|
|
|
|||
|
|
$tmp = $this->ARC4($tmp);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.= "\n/Length ".strlen($tmp) ." >>\nstream\n".$tmp."\nendstream\nendobj\n";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* graphics state object
|
|||
|
|
*/
|
|||
|
|
function o_extGState($id, $action, $options = "") {
|
|||
|
|
|
|||
|
|
static $valid_params = array("LW", "LC", "LC", "LJ", "ML",
|
|||
|
|
"D", "RI", "OP", "op", "OPM",
|
|||
|
|
"Font", "BG", "BG2", "UCR",
|
|||
|
|
"TR", "TR2", "HT", "FL",
|
|||
|
|
"SM", "SA", "BM", "SMask",
|
|||
|
|
"CA", "ca", "AIS", "TK");
|
|||
|
|
|
|||
|
|
if ( $action != "new") {
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case "new":
|
|||
|
|
$this->objects[$id] = array('t' => 'extGState', 'info' => $options);
|
|||
|
|
|
|||
|
|
// Tell the pages about the new resource
|
|||
|
|
$this->numStates++;
|
|||
|
|
$this->o_pages($this->currentNode, 'extGState', array("objNum" => $id, "stateNum" => $this->numStates));
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
|
|||
|
|
case "out":
|
|||
|
|
$res =
|
|||
|
|
"\n" . $id . " 0 obj\n".
|
|||
|
|
"<< /Type /ExtGState\n";
|
|||
|
|
|
|||
|
|
foreach ($o["info"] as $parameter => $value) {
|
|||
|
|
if ( !in_array($parameter, $valid_params))
|
|||
|
|
continue;
|
|||
|
|
$res.= "/$parameter $value\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$res.=
|
|||
|
|
">>\n".
|
|||
|
|
"endobj";
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* encryption object.
|
|||
|
|
*/
|
|||
|
|
function o_encryption($id, $action, $options = '') {
|
|||
|
|
|
|||
|
|
if ($action != 'new') {
|
|||
|
|
|
|||
|
|
$o = & $this->objects[$id];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'new':
|
|||
|
|
|
|||
|
|
// make the new object
|
|||
|
|
$this->objects[$id] = array('t'=>'encryption', 'info'=>$options);
|
|||
|
|
|
|||
|
|
$this->arc4_objnum = $id;
|
|||
|
|
|
|||
|
|
// figure out the additional paramaters required
|
|||
|
|
$pad = chr(0x28) .chr(0xBF) .chr(0x4E) .chr(0x5E) .chr(0x4E) .chr(0x75) .chr(0x8A) .chr(0x41) .chr(0x64) .chr(0x00) .chr(0x4E) .chr(0x56) .chr(0xFF) .chr(0xFA) .chr(0x01) .chr(0x08) .chr(0x2E) .chr(0x2E) .chr(0x00) .chr(0xB6) .chr(0xD0) .chr(0x68) .chr(0x3E) .chr(0x80) .chr(0x2F) .chr(0x0C) .chr(0xA9) .chr(0xFE) .chr(0x64) .chr(0x53) .chr(0x69) .chr(0x7A);
|
|||
|
|
|
|||
|
|
$len = strlen($options['owner']);
|
|||
|
|
|
|||
|
|
if ($len>32) {
|
|||
|
|
|
|||
|
|
$owner = substr($options['owner'], 0, 32);
|
|||
|
|
} else if ($len<32) {
|
|||
|
|
|
|||
|
|
$owner = $options['owner'].substr($pad, 0, 32-$len);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$owner = $options['owner'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$len = strlen($options['user']);
|
|||
|
|
|
|||
|
|
if ($len>32) {
|
|||
|
|
|
|||
|
|
$user = substr($options['user'], 0, 32);
|
|||
|
|
} else if ($len<32) {
|
|||
|
|
|
|||
|
|
$user = $options['user'].substr($pad, 0, 32-$len);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$user = $options['user'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$tmp = $this->md5_16($owner);
|
|||
|
|
|
|||
|
|
$okey = substr($tmp, 0, 5);
|
|||
|
|
|
|||
|
|
$this->ARC4_init($okey);
|
|||
|
|
|
|||
|
|
$ovalue = $this->ARC4($user);
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['O'] = $ovalue;
|
|||
|
|
|
|||
|
|
// now make the u value, phew.
|
|||
|
|
$tmp = $this->md5_16($user.$ovalue.chr($options['p']) .chr(255) .chr(255) .chr(255) .$this->fileIdentifier);
|
|||
|
|
|
|||
|
|
$ukey = substr($tmp, 0, 5);
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->ARC4_init($ukey);
|
|||
|
|
|
|||
|
|
$this->encryptionKey = $ukey;
|
|||
|
|
|
|||
|
|
$this->encrypted = 1;
|
|||
|
|
|
|||
|
|
$uvalue = $this->ARC4($pad);
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->objects[$id]['info']['U'] = $uvalue;
|
|||
|
|
|
|||
|
|
$this->encryptionKey = $ukey;
|
|||
|
|
|
|||
|
|
|
|||
|
|
// initialize the arc4 array
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'out':
|
|||
|
|
|
|||
|
|
$res = "\n".$id." 0 obj\n<<";
|
|||
|
|
|
|||
|
|
$res.= "\n/Filter /Standard";
|
|||
|
|
|
|||
|
|
$res.= "\n/V 1";
|
|||
|
|
|
|||
|
|
$res.= "\n/R 2";
|
|||
|
|
|
|||
|
|
$res.= "\n/O (".$this->filterText($o['info']['O']) .')';
|
|||
|
|
|
|||
|
|
$res.= "\n/U (".$this->filterText($o['info']['U']) .')';
|
|||
|
|
|
|||
|
|
// and the p-value needs to be converted to account for the twos-complement approach
|
|||
|
|
$o['info']['p'] = (($o['info']['p']^255) +1) *-1;
|
|||
|
|
|
|||
|
|
$res.= "\n/P ".($o['info']['p']);
|
|||
|
|
|
|||
|
|
$res.= "\n>>\nendobj\n";
|
|||
|
|
|
|||
|
|
|
|||
|
|
return $res;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* ARC4 functions
|
|||
|
|
* A series of function to implement ARC4 encoding in PHP
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* calculate the 16 byte version of the 128 bit md5 digest of the string
|
|||
|
|
*/
|
|||
|
|
function md5_16($string) {
|
|||
|
|
|
|||
|
|
$tmp = md5($string);
|
|||
|
|
|
|||
|
|
$out = '';
|
|||
|
|
|
|||
|
|
for ($i = 0;$i <= 30;$i = $i+2) {
|
|||
|
|
|
|||
|
|
$out.= chr(hexdec(substr($tmp, $i, 2)));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return $out;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* initialize the encryption for processing a particular object
|
|||
|
|
*/
|
|||
|
|
function encryptInit($id) {
|
|||
|
|
|
|||
|
|
$tmp = $this->encryptionKey;
|
|||
|
|
|
|||
|
|
$hex = dechex($id);
|
|||
|
|
|
|||
|
|
if (strlen($hex) <6) {
|
|||
|
|
|
|||
|
|
$hex = substr('000000', 0, 6-strlen($hex)) .$hex;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$tmp.= chr(hexdec(substr($hex, 4, 2))) .chr(hexdec(substr($hex, 2, 2))) .chr(hexdec(substr($hex, 0, 2))) .chr(0) .chr(0);
|
|||
|
|
|
|||
|
|
$key = $this->md5_16($tmp);
|
|||
|
|
|
|||
|
|
$this->ARC4_init(substr($key, 0, 10));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* initialize the ARC4 encryption
|
|||
|
|
*/
|
|||
|
|
function ARC4_init($key = '') {
|
|||
|
|
|
|||
|
|
$this->arc4 = '';
|
|||
|
|
|
|||
|
|
// setup the control array
|
|||
|
|
if (strlen($key) == 0) {
|
|||
|
|
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$k = '';
|
|||
|
|
|
|||
|
|
while (strlen($k) <256) {
|
|||
|
|
|
|||
|
|
$k.= $key;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$k = substr($k, 0, 256);
|
|||
|
|
|
|||
|
|
for ($i = 0;$i<256;$i++) {
|
|||
|
|
|
|||
|
|
$this->arc4.= chr($i);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$j = 0;
|
|||
|
|
|
|||
|
|
for ($i = 0;$i<256;$i++) {
|
|||
|
|
|
|||
|
|
$t = $this->arc4[$i];
|
|||
|
|
|
|||
|
|
$j = ($j + ord($t) + ord($k[$i])) %256;
|
|||
|
|
|
|||
|
|
$this->arc4[$i] = $this->arc4[$j];
|
|||
|
|
|
|||
|
|
$this->arc4[$j] = $t;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* ARC4 encrypt a text string
|
|||
|
|
*/
|
|||
|
|
function ARC4($text) {
|
|||
|
|
|
|||
|
|
$len = strlen($text);
|
|||
|
|
|
|||
|
|
$a = 0;
|
|||
|
|
|
|||
|
|
$b = 0;
|
|||
|
|
|
|||
|
|
$c = $this->arc4;
|
|||
|
|
|
|||
|
|
$out = '';
|
|||
|
|
|
|||
|
|
for ($i = 0;$i<$len;$i++) {
|
|||
|
|
|
|||
|
|
$a = ($a+1) %256;
|
|||
|
|
|
|||
|
|
$t = $c[$a];
|
|||
|
|
|
|||
|
|
$b = ($b+ord($t)) %256;
|
|||
|
|
|
|||
|
|
$c[$a] = $c[$b];
|
|||
|
|
|
|||
|
|
$c[$b] = $t;
|
|||
|
|
|
|||
|
|
$k = ord($c[(ord($c[$a]) +ord($c[$b])) %256]);
|
|||
|
|
|
|||
|
|
$out.= chr(ord($text[$i]) ^ $k);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
return $out;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* functions which can be called to adjust or add to the document
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add a link in the document to an external URL
|
|||
|
|
*/
|
|||
|
|
function addLink($url, $x0, $y0, $x1, $y1) {
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$info = array('type'=>'link', 'url'=>$url, 'rect'=>array($x0, $y0, $x1, $y1));
|
|||
|
|
|
|||
|
|
$this->o_annotation($this->numObj, 'new', $info);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add a link in the document to an internal destination (ie. within the document)
|
|||
|
|
*/
|
|||
|
|
function addInternalLink($label, $x0, $y0, $x1, $y1) {
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$info = array('type'=>'ilink', 'label'=>$label, 'rect'=>array($x0, $y0, $x1, $y1));
|
|||
|
|
|
|||
|
|
$this->o_annotation($this->numObj, 'new', $info);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* set the encryption of the document
|
|||
|
|
* can be used to turn it on and/or set the passwords which it will have.
|
|||
|
|
* also the functions that the user will have are set here, such as print, modify, add
|
|||
|
|
*/
|
|||
|
|
function setEncryption($userPass = '', $ownerPass = '', $pc = array()) {
|
|||
|
|
|
|||
|
|
$p = bindec(11000000);
|
|||
|
|
|
|||
|
|
|
|||
|
|
$options = array(
|
|||
|
|
'print'=>4, 'modify'=>8, 'copy'=>16, 'add'=>32);
|
|||
|
|
|
|||
|
|
foreach($pc as $k=>$v) {
|
|||
|
|
|
|||
|
|
if ($v && isset($options[$k])) {
|
|||
|
|
|
|||
|
|
$p+= $options[$k];
|
|||
|
|
} else if (isset($options[$v])) {
|
|||
|
|
|
|||
|
|
$p+= $options[$v];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// implement encryption on the document
|
|||
|
|
if ($this->arc4_objnum == 0) {
|
|||
|
|
|
|||
|
|
// then the block does not exist already, add it.
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
if (strlen($ownerPass) == 0) {
|
|||
|
|
|
|||
|
|
$ownerPass = $userPass;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->o_encryption($this->numObj, 'new', array('user'=>$userPass, 'owner'=>$ownerPass, 'p'=>$p));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* should be used for internal checks, not implemented as yet
|
|||
|
|
*/
|
|||
|
|
function checkAllHere() {
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* return the pdf stream as a string returned from the function
|
|||
|
|
*/
|
|||
|
|
function output($debug = 0) {
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ($debug) {
|
|||
|
|
|
|||
|
|
// turn compression off
|
|||
|
|
$this->options['compression'] = 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ($this->arc4_objnum) {
|
|||
|
|
|
|||
|
|
$this->ARC4_init($this->encryptionKey);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->checkAllHere();
|
|||
|
|
|
|||
|
|
|
|||
|
|
$xref = array();
|
|||
|
|
|
|||
|
|
$content = "%PDF-1.3\n%<25><><EFBFBD><EFBFBD>\n";
|
|||
|
|
|
|||
|
|
// $content="%PDF-1.3\n";
|
|||
|
|
$pos = strlen($content);
|
|||
|
|
|
|||
|
|
foreach($this->objects as $k=>$v) {
|
|||
|
|
|
|||
|
|
$tmp = 'o_'.$v['t'];
|
|||
|
|
|
|||
|
|
$cont = $this->$tmp($k, 'out');
|
|||
|
|
|
|||
|
|
$content.= $cont;
|
|||
|
|
|
|||
|
|
$xref[] = $pos;
|
|||
|
|
|
|||
|
|
$pos+= strlen($cont);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$content.= "\nxref\n0 ".(count($xref) +1) ."\n0000000000 65535 f \n";
|
|||
|
|
|
|||
|
|
foreach($xref as $p) {
|
|||
|
|
|
|||
|
|
$content.= str_pad($p, 10, "0", STR_PAD_LEFT) . " 00000 n \n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$content.= "trailer\n<<\n/Size ".(count($xref) +1) ."\n/Root 1 0 R\n/Info ".$this->infoObject." 0 R\n";
|
|||
|
|
|
|||
|
|
// if encryption has been applied to this document then add the marker for this dictionary
|
|||
|
|
if ($this->arc4_objnum > 0) {
|
|||
|
|
|
|||
|
|
$content.= "/Encrypt ".$this->arc4_objnum." 0 R\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (strlen($this->fileIdentifier)) {
|
|||
|
|
|
|||
|
|
$content.= "/ID[<".$this->fileIdentifier."><".$this->fileIdentifier.">]\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$content.= ">>\nstartxref\n".$pos."\n%%EOF\n";
|
|||
|
|
|
|||
|
|
return $content;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* intialize a new document
|
|||
|
|
* if this is called on an existing document results may be unpredictable, but the existing document would be lost at minimum
|
|||
|
|
* this function is called automatically by the constructor function
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function newDocument($pageSize = array(0, 0, 612, 792)) {
|
|||
|
|
|
|||
|
|
$this->numObj = 0;
|
|||
|
|
|
|||
|
|
$this->objects = array();
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_catalog($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_outlines($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_pages($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->o_pages($this->numObj, 'mediaBox', $pageSize);
|
|||
|
|
|
|||
|
|
$this->currentNode = 3;
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_procset($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_info($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_page($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
|
|||
|
|
// need to store the first page id as there is no way to get it to the user during
|
|||
|
|
// startup
|
|||
|
|
$this->firstPageId = $this->currentContents;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* open the font file and return a php structure containing it.
|
|||
|
|
* first check if this one has been done before and saved in a form more suited to php
|
|||
|
|
* note that if a php serialized version does not exist it will try and make one, but will
|
|||
|
|
* require write access to the directory to do it... it is MUCH faster to have these serialized
|
|||
|
|
* files.
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function openFont($font) {
|
|||
|
|
|
|||
|
|
// assume that $font contains both the path and perhaps the extension to the file, split them
|
|||
|
|
$pos = strrpos($font, '/');
|
|||
|
|
|
|||
|
|
if ($pos === false) {
|
|||
|
|
|
|||
|
|
$dir = './';
|
|||
|
|
|
|||
|
|
$name = $font;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$dir = substr($font, 0, $pos+1);
|
|||
|
|
|
|||
|
|
$name = substr($font, $pos+1);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (substr($name, -4) == '.afm') {
|
|||
|
|
|
|||
|
|
$name = substr($name, 0, strlen($name) -4);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->addMessage('openFont: '.$font.' - '.$name);
|
|||
|
|
|
|||
|
|
if (file_exists($dir . 'php_' . $name . '.afm')) {
|
|||
|
|
|
|||
|
|
$this->addMessage('openFont: php file exists ' . $dir . 'php_' . $name.'.afm');
|
|||
|
|
|
|||
|
|
$tmp = file_get_contents($dir.'php_'.$name.'.afm');
|
|||
|
|
|
|||
|
|
eval($tmp);
|
|||
|
|
|
|||
|
|
if (!isset($this->fonts[$font]['_version_']) || $this->fonts[$font]['_version_']<1) {
|
|||
|
|
|
|||
|
|
// if the font file is old, then clear it out and prepare for re-creation
|
|||
|
|
$this->addMessage('openFont: clear out, make way for new version.');
|
|||
|
|
|
|||
|
|
unset($this->fonts[$font]);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (!isset($this->fonts[$font]) && file_exists($dir.$name.'.afm')) {
|
|||
|
|
|
|||
|
|
// then rebuild the php_<font>.afm file from the <font>.afm file
|
|||
|
|
$this->addMessage('openFont: build php file from '.$dir.$name.'.afm');
|
|||
|
|
|
|||
|
|
$data = array();
|
|||
|
|
|
|||
|
|
$file = file($dir.$name.'.afm');
|
|||
|
|
|
|||
|
|
foreach ($file as $rowA) {
|
|||
|
|
|
|||
|
|
$row = trim($rowA);
|
|||
|
|
|
|||
|
|
$pos = strpos($row, ' ');
|
|||
|
|
|
|||
|
|
if ($pos) {
|
|||
|
|
|
|||
|
|
// then there must be some keyword
|
|||
|
|
$key = substr($row, 0, $pos);
|
|||
|
|
|
|||
|
|
switch ($key) {
|
|||
|
|
|
|||
|
|
case 'FontName':
|
|||
|
|
|
|||
|
|
case 'FullName':
|
|||
|
|
|
|||
|
|
case 'FamilyName':
|
|||
|
|
|
|||
|
|
case 'Weight':
|
|||
|
|
|
|||
|
|
case 'ItalicAngle':
|
|||
|
|
|
|||
|
|
case 'IsFixedPitch':
|
|||
|
|
|
|||
|
|
case 'CharacterSet':
|
|||
|
|
|
|||
|
|
case 'UnderlinePosition':
|
|||
|
|
|
|||
|
|
case 'UnderlineThickness':
|
|||
|
|
|
|||
|
|
case 'Version':
|
|||
|
|
|
|||
|
|
case 'EncodingScheme':
|
|||
|
|
|
|||
|
|
case 'CapHeight':
|
|||
|
|
|
|||
|
|
case 'XHeight':
|
|||
|
|
|
|||
|
|
case 'Ascender':
|
|||
|
|
|
|||
|
|
case 'Descender':
|
|||
|
|
|
|||
|
|
case 'StdHW':
|
|||
|
|
|
|||
|
|
case 'StdVW':
|
|||
|
|
|
|||
|
|
case 'StartCharMetrics':
|
|||
|
|
|
|||
|
|
$data[$key] = trim(substr($row, $pos));
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'FontBBox':
|
|||
|
|
|
|||
|
|
$data[$key] = explode(' ', trim(substr($row, $pos)));
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'C':
|
|||
|
|
|
|||
|
|
//C 39 ; WX 222 ; N quoteright ; B 53 463 157 718 ;
|
|||
|
|
$bits = explode(';', trim($row));
|
|||
|
|
|
|||
|
|
$dtmp = array();
|
|||
|
|
|
|||
|
|
foreach($bits as $bit) {
|
|||
|
|
|
|||
|
|
$bits2 = explode(' ', trim($bit));
|
|||
|
|
|
|||
|
|
if (strlen($bits2[0])) {
|
|||
|
|
|
|||
|
|
if (count($bits2) >2) {
|
|||
|
|
|
|||
|
|
$dtmp[$bits2[0]] = array();
|
|||
|
|
|
|||
|
|
for ($i = 1;$i<count($bits2);$i++) {
|
|||
|
|
|
|||
|
|
$dtmp[$bits2[0]][] = $bits2[$i];
|
|||
|
|
}
|
|||
|
|
} else if (count($bits2) == 2) {
|
|||
|
|
|
|||
|
|
$dtmp[$bits2[0]] = $bits2[1];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($dtmp['C'] >= 0) {
|
|||
|
|
|
|||
|
|
$data['C'][$dtmp['C']] = $dtmp;
|
|||
|
|
|
|||
|
|
$data['C'][$dtmp['N']] = $dtmp;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$data['C'][$dtmp['N']] = $dtmp;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'KPX':
|
|||
|
|
|
|||
|
|
//KPX Adieresis yacute -40
|
|||
|
|
$bits = explode(' ', trim($row));
|
|||
|
|
|
|||
|
|
$data['KPX'][$bits[1]][$bits[2]] = $bits[3];
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$data['_version_'] = 1;
|
|||
|
|
|
|||
|
|
$this->fonts[$font] = $data;
|
|||
|
|
|
|||
|
|
file_put_contents($dir . 'php_' . $name . '.afm', '$this->fonts[$font]=' . var_export($data, true) . ';');
|
|||
|
|
} else if (!isset($this->fonts[$font])) {
|
|||
|
|
|
|||
|
|
$this->addMessage('openFont: no font file found');
|
|||
|
|
|
|||
|
|
// echo 'Font not Found '.$font;
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* if the font is not loaded then load it and make the required object
|
|||
|
|
* else just make it the current font
|
|||
|
|
* the encoding array can contain 'encoding'=> 'none','WinAnsiEncoding','MacRomanEncoding' or 'MacExpertEncoding'
|
|||
|
|
* note that encoding='none' will need to be used for symbolic fonts
|
|||
|
|
* and 'differences' => an array of mappings between numbers 0->255 and character names.
|
|||
|
|
*
|
|||
|
|
*/
|
|||
|
|
function selectFont($fontName, $encoding = '', $set = 1) {
|
|||
|
|
|
|||
|
|
if (!isset($this->fonts[$fontName])) {
|
|||
|
|
|
|||
|
|
// load the file
|
|||
|
|
$this->openFont($fontName);
|
|||
|
|
|
|||
|
|
if (isset($this->fonts[$fontName])) {
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->numFonts++;
|
|||
|
|
|
|||
|
|
//$this->numFonts = md5($fontName);
|
|||
|
|
$pos = strrpos($fontName, '/');
|
|||
|
|
|
|||
|
|
// $dir = substr($fontName,0,$pos+1);
|
|||
|
|
$name = substr($fontName, $pos+1);
|
|||
|
|
|
|||
|
|
if (substr($name, -4) == '.afm') {
|
|||
|
|
|
|||
|
|
$name = substr($name, 0, strlen($name) -4);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$options = array('name' => $name);
|
|||
|
|
|
|||
|
|
if (is_array($encoding)) {
|
|||
|
|
|
|||
|
|
// then encoding and differences might be set
|
|||
|
|
if (isset($encoding['encoding'])) {
|
|||
|
|
|
|||
|
|
$options['encoding'] = $encoding['encoding'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($encoding['differences'])) {
|
|||
|
|
|
|||
|
|
$options['differences'] = $encoding['differences'];
|
|||
|
|
}
|
|||
|
|
} else if (strlen($encoding)) {
|
|||
|
|
|
|||
|
|
// then perhaps only the encoding has been set
|
|||
|
|
$options['encoding'] = $encoding;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$fontObj = $this->numObj;
|
|||
|
|
|
|||
|
|
$this->o_font($this->numObj, 'new', $options);
|
|||
|
|
|
|||
|
|
$this->fonts[$fontName]['fontNum'] = $this->numFonts;
|
|||
|
|
|
|||
|
|
|
|||
|
|
// if this is a '.afm' font, and there is a '.pfa' file to go with it ( as there
|
|||
|
|
// should be for all non-basic fonts), then load it into an object and put the
|
|||
|
|
// references into the font object
|
|||
|
|
$basefile = substr($fontName, 0, strlen($fontName) -4);
|
|||
|
|
|
|||
|
|
if (file_exists($basefile.'.pfb')) {
|
|||
|
|
|
|||
|
|
$fbtype = 'pfb';
|
|||
|
|
} else if (file_exists($basefile.'.ttf')) {
|
|||
|
|
|
|||
|
|
$fbtype = 'ttf';
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$fbtype = '';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$fbfile = $basefile.'.'.$fbtype;
|
|||
|
|
|
|||
|
|
|
|||
|
|
// $pfbfile = substr($fontName,0,strlen($fontName)-4).'.pfb';
|
|||
|
|
// $ttffile = substr($fontName,0,strlen($fontName)-4).'.ttf';
|
|||
|
|
$this->addMessage('selectFont: checking for - '.$fbfile);
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (substr($fontName, -4) == '.afm' && strlen($fbtype)) {
|
|||
|
|
|
|||
|
|
$adobeFontName = $this->fonts[$fontName]['FontName'];
|
|||
|
|
|
|||
|
|
// $fontObj = $this->numObj;
|
|||
|
|
$this->addMessage('selectFont: adding font file - '.$fbfile.' - '.$adobeFontName);
|
|||
|
|
|
|||
|
|
// find the array of fond widths, and put that into an object.
|
|||
|
|
$firstChar = -1;
|
|||
|
|
|
|||
|
|
$lastChar = 0;
|
|||
|
|
|
|||
|
|
$widths = array();
|
|||
|
|
|
|||
|
|
foreach ($this->fonts[$fontName]['C'] as $num => $d) {
|
|||
|
|
|
|||
|
|
if (intval($num) >0 || $num == '0') {
|
|||
|
|
|
|||
|
|
if ($lastChar>0 && $num>$lastChar+1) {
|
|||
|
|
|
|||
|
|
for ($i = $lastChar+1;$i<$num;$i++) {
|
|||
|
|
|
|||
|
|
$widths[] = 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$widths[] = $d['WX'];
|
|||
|
|
|
|||
|
|
if ($firstChar == -1) {
|
|||
|
|
|
|||
|
|
$firstChar = $num;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$lastChar = $num;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// also need to adjust the widths for the differences array
|
|||
|
|
if (isset($options['differences'])) {
|
|||
|
|
|
|||
|
|
foreach($options['differences'] as $charNum => $charName) {
|
|||
|
|
|
|||
|
|
if ($charNum > $lastChar) {
|
|||
|
|
|
|||
|
|
for ($i = $lastChar + 1; $i <= $charNum; $i++) {
|
|||
|
|
|
|||
|
|
$widths[] = 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$lastChar = $charNum;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($this->fonts[$fontName]['C'][$charName])) {
|
|||
|
|
|
|||
|
|
$widths[$charNum-$firstChar] = $this->fonts[$fontName]['C'][$charName]['WX'];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->addMessage('selectFont: FirstChar = '.$firstChar);
|
|||
|
|
|
|||
|
|
$this->addMessage('selectFont: LastChar = '.$lastChar);
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_contents($this->numObj, 'new', 'raw');
|
|||
|
|
|
|||
|
|
$this->objects[$this->numObj]['c'].= '[';
|
|||
|
|
|
|||
|
|
foreach($widths as $width) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->numObj]['c'].= ' '.$width;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->objects[$this->numObj]['c'].= ' ]';
|
|||
|
|
|
|||
|
|
$widthid = $this->numObj;
|
|||
|
|
|
|||
|
|
|
|||
|
|
// load the pfb file, and put that into an object too.
|
|||
|
|
// note that pdf supports only binary format type 1 font files, though there is a
|
|||
|
|
// simple utility to convert them from pfa to pfb.
|
|||
|
|
$tmp = get_magic_quotes_runtime();
|
|||
|
|
|
|||
|
|
set_magic_quotes_runtime(0);
|
|||
|
|
|
|||
|
|
$data = file_get_contents($fbfile);
|
|||
|
|
|
|||
|
|
set_magic_quotes_runtime($tmp);
|
|||
|
|
|
|||
|
|
|
|||
|
|
// create the font descriptor
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$fontDescriptorId = $this->numObj;
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$pfbid = $this->numObj;
|
|||
|
|
|
|||
|
|
// determine flags (more than a little flakey, hopefully will not matter much)
|
|||
|
|
$flags = 0;
|
|||
|
|
|
|||
|
|
if ($this->fonts[$fontName]['ItalicAngle'] != 0) {
|
|||
|
|
$flags+= pow(2, 6);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($this->fonts[$fontName]['IsFixedPitch'] == 'true') {
|
|||
|
|
$flags+= 1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$flags+= pow(2, 5);
|
|||
|
|
// assume non-sybolic
|
|||
|
|
|
|||
|
|
$list = array('Ascent' => 'Ascender', 'CapHeight' => 'CapHeight', 'Descent' => 'Descender', 'FontBBox' => 'FontBBox', 'ItalicAngle' => 'ItalicAngle');
|
|||
|
|
|
|||
|
|
$fdopt = array(
|
|||
|
|
'Flags' => $flags, 'FontName' => $adobeFontName, 'StemV' => 100 // don't know what the value for this should be!
|
|||
|
|
);
|
|||
|
|
|
|||
|
|
foreach($list as $k => $v) {
|
|||
|
|
|
|||
|
|
if (isset($this->fonts[$fontName][$v])) {
|
|||
|
|
|
|||
|
|
$fdopt[$k] = $this->fonts[$fontName][$v];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ($fbtype == 'pfb') {
|
|||
|
|
|
|||
|
|
$fdopt['FontFile'] = $pfbid;
|
|||
|
|
} else if ($fbtype == 'ttf') {
|
|||
|
|
|
|||
|
|
$fdopt['FontFile2'] = $pfbid;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->o_fontDescriptor($fontDescriptorId, 'new', $fdopt);
|
|||
|
|
|
|||
|
|
|
|||
|
|
// embed the font program
|
|||
|
|
$this->o_contents($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
$this->objects[$pfbid]['c'].= $data;
|
|||
|
|
|
|||
|
|
// determine the cruicial lengths within this file
|
|||
|
|
if ($fbtype == 'pfb') {
|
|||
|
|
|
|||
|
|
$l1 = strpos($data, 'eexec') +6;
|
|||
|
|
|
|||
|
|
$l2 = strpos($data, '00000000') -$l1;
|
|||
|
|
|
|||
|
|
$l3 = strlen($data) -$l2-$l1;
|
|||
|
|
|
|||
|
|
$this->o_contents($this->numObj, 'add', array('Length1' => $l1, 'Length2' => $l2, 'Length3' => $l3));
|
|||
|
|
} else if ($fbtype == 'ttf') {
|
|||
|
|
|
|||
|
|
$l1 = strlen($data);
|
|||
|
|
|
|||
|
|
$this->o_contents($this->numObj, 'add', array('Length1' => $l1));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
// tell the font object about all this new stuff
|
|||
|
|
$tmp = array('BaseFont' => $adobeFontName, 'Widths' => $widthid, 'FirstChar' => $firstChar, 'LastChar' => $lastChar, 'FontDescriptor' => $fontDescriptorId);
|
|||
|
|
|
|||
|
|
if ($fbtype == 'ttf') {
|
|||
|
|
|
|||
|
|
$tmp['SubType'] = 'TrueType';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->addMessage('adding extra info to font.('.$fontObj.')');
|
|||
|
|
|
|||
|
|
foreach($tmp as $fk => $fv) {
|
|||
|
|
|
|||
|
|
$this->addMessage($fk." : ".$fv);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->o_font($fontObj, 'add', $tmp);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->addMessage('selectFont: pfb or ttf file not found, ok if this is one of the 14 standard fonts');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
// also set the differences here, note that this means that these will take effect only the
|
|||
|
|
//first time that a font is selected, else they are ignored
|
|||
|
|
if (isset($options['differences'])) {
|
|||
|
|
|
|||
|
|
$this->fonts[$fontName]['differences'] = $options['differences'];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($set && isset($this->fonts[$fontName])) {
|
|||
|
|
|
|||
|
|
// so if for some reason the font was not set in the last one then it will not be selected
|
|||
|
|
$this->currentBaseFont = $fontName;
|
|||
|
|
|
|||
|
|
// the next lines mean that if a new font is selected, then the current text state will be
|
|||
|
|
// applied to it as well.
|
|||
|
|
$this->currentFont = $this->currentBaseFont;
|
|||
|
|
|
|||
|
|
$this->currentFontNum = $this->fonts[$this->currentFont]['fontNum'];
|
|||
|
|
|
|||
|
|
//$this->setCurrentFont();
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return $this->currentFontNum;
|
|||
|
|
|
|||
|
|
//return $this->numObj;
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* sets up the current font, based on the font families, and the current text state
|
|||
|
|
* note that this system is quite flexible, a bold-italic font can be completely different to a
|
|||
|
|
* italic-bold font, and even bold-bold will have to be defined within the family to have meaning
|
|||
|
|
* This function is to be called whenever the currentTextState is changed, it will update
|
|||
|
|
* the currentFont setting to whatever the appropriatte family one is.
|
|||
|
|
* If the user calls selectFont themselves then that will reset the currentBaseFont, and the currentFont
|
|||
|
|
* This function will change the currentFont to whatever it should be, but will not change the
|
|||
|
|
* currentBaseFont.
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function setCurrentFont() {
|
|||
|
|
|
|||
|
|
// if (strlen($this->currentBaseFont) == 0){
|
|||
|
|
// // then assume an initial font
|
|||
|
|
// $this->selectFont('./fonts/Helvetica.afm');
|
|||
|
|
// }
|
|||
|
|
// $cf = substr($this->currentBaseFont,strrpos($this->currentBaseFont,'/')+1);
|
|||
|
|
// if (strlen($this->currentTextState)
|
|||
|
|
// && isset($this->fontFamilies[$cf])
|
|||
|
|
// && isset($this->fontFamilies[$cf][$this->currentTextState])){
|
|||
|
|
// // then we are in some state or another
|
|||
|
|
// // and this font has a family, and the current setting exists within it
|
|||
|
|
// // select the font, then return it
|
|||
|
|
// $nf = substr($this->currentBaseFont,0,strrpos($this->currentBaseFont,'/')+1).$this->fontFamilies[$cf][$this->currentTextState];
|
|||
|
|
// $this->selectFont($nf,'',0);
|
|||
|
|
// $this->currentFont = $nf;
|
|||
|
|
// $this->currentFontNum = $this->fonts[$nf]['fontNum'];
|
|||
|
|
// } else {
|
|||
|
|
// // the this font must not have the right family member for the current state
|
|||
|
|
// // simply assume the base font
|
|||
|
|
$this->currentFont = $this->currentBaseFont;
|
|||
|
|
|
|||
|
|
$this->currentFontNum = $this->fonts[$this->currentFont]['fontNum'];
|
|||
|
|
|
|||
|
|
// }
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* function for the user to find out what the ID is of the first page that was created during
|
|||
|
|
* startup - useful if they wish to add something to it later.
|
|||
|
|
*/
|
|||
|
|
function getFirstPageId() {
|
|||
|
|
|
|||
|
|
return $this->firstPageId;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add content to the currently active object
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function addContent($content) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= $content;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* sets the colour for fill operations
|
|||
|
|
*/
|
|||
|
|
function setColor($r, $g, $b, $force = 0) {
|
|||
|
|
|
|||
|
|
if ($r >= 0 && ($force || $r != $this->currentColour['r'] || $g != $this->currentColour['g'] || $b != $this->currentColour['b'])) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".sprintf('%.3f', $r) .' '.sprintf('%.3f', $g) .' '.sprintf('%.3f', $b) .' rg';
|
|||
|
|
|
|||
|
|
$this->currentColour = array('r' => $r, 'g' => $g, 'b' => $b);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* sets the colour for stroke operations
|
|||
|
|
*/
|
|||
|
|
function setStrokeColor($r, $g, $b, $force = 0) {
|
|||
|
|
|
|||
|
|
if ($r >= 0 && ($force || $r != $this->currentStrokeColour['r'] || $g != $this->currentStrokeColour['g'] || $b != $this->currentStrokeColour['b'])) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".sprintf('%.3f', $r) .' '.sprintf('%.3f', $g) .' '.sprintf('%.3f', $b) .' RG';
|
|||
|
|
|
|||
|
|
$this->currentStrokeColour = array('r' => $r, 'g' => $g, 'b' => $b);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* Set the graphics state for compositions
|
|||
|
|
*/
|
|||
|
|
function setGraphicsState($parameters) {
|
|||
|
|
|
|||
|
|
// Create a new graphics state object
|
|||
|
|
// FIXME: should actually keep track of states that have already been created...
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_extGState($this->numObj, 'new', $parameters);
|
|||
|
|
|
|||
|
|
$this->objects[ $this->currentContents ]['c'].= "\n/GS" . $this->numStates . " gs";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* Set current blend mode & opacity for lines.
|
|||
|
|
*
|
|||
|
|
* Valid blend modes are:
|
|||
|
|
*
|
|||
|
|
* Normal, Multiply, Screen, Overlay, Darken, Lighten,
|
|||
|
|
* ColorDogde, ColorBurn, HardLight, SoftLight, Difference,
|
|||
|
|
* Exclusion
|
|||
|
|
*
|
|||
|
|
* @param string $mode the blend mode to use
|
|||
|
|
* @param float $opacity 0.0 fully transparent, 1.0 fully opaque
|
|||
|
|
*/
|
|||
|
|
function setLineTransparency($mode, $opacity) {
|
|||
|
|
static $blend_modes = array("Normal", "Multiply", "Screen",
|
|||
|
|
"Overlay", "Darken", "Lighten",
|
|||
|
|
"ColorDogde", "ColorBurn", "HardLight",
|
|||
|
|
"SoftLight", "Difference", "Exclusion");
|
|||
|
|
|
|||
|
|
if ( !in_array($mode, $blend_modes) )
|
|||
|
|
$mode = "Normal";
|
|||
|
|
|
|||
|
|
// Only create a new graphics state if required
|
|||
|
|
if ( $mode == $this->currentLineTransparency["mode"] &&
|
|||
|
|
$opacity == $this->currentLineTransparency["opacity"] )
|
|||
|
|
return;
|
|||
|
|
|
|||
|
|
$options = array("BM" => "/$mode",
|
|||
|
|
"CA" => (float)$opacity);
|
|||
|
|
|
|||
|
|
$this->setGraphicsState($options);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* Set current blend mode & opacity for filled objects.
|
|||
|
|
*
|
|||
|
|
* Valid blend modes are:
|
|||
|
|
*
|
|||
|
|
* Normal, Multiply, Screen, Overlay, Darken, Lighten,
|
|||
|
|
* ColorDogde, ColorBurn, HardLight, SoftLight, Difference,
|
|||
|
|
* Exclusion
|
|||
|
|
*
|
|||
|
|
* @param string $mode the blend mode to use
|
|||
|
|
* @param float $opacity 0.0 fully transparent, 1.0 fully opaque
|
|||
|
|
*/
|
|||
|
|
function setFillTransparency($mode, $opacity) {
|
|||
|
|
static $blend_modes = array("Normal", "Multiply", "Screen",
|
|||
|
|
"Overlay", "Darken", "Lighten",
|
|||
|
|
"ColorDogde", "ColorBurn", "HardLight",
|
|||
|
|
"SoftLight", "Difference", "Exclusion");
|
|||
|
|
|
|||
|
|
if ( !in_array($mode, $blend_modes) )
|
|||
|
|
$mode = "Normal";
|
|||
|
|
|
|||
|
|
if ( $mode == $this->currentFillTransparency["mode"] &&
|
|||
|
|
$opacity == $this->currentFillTransparency["opacity"] )
|
|||
|
|
return;
|
|||
|
|
|
|||
|
|
$options = array("BM" => "/$mode",
|
|||
|
|
"ca" => (float)$opacity);
|
|||
|
|
|
|||
|
|
$this->setGraphicsState($options);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* draw a line from one set of coordinates to another
|
|||
|
|
*/
|
|||
|
|
function line($x1, $y1, $x2, $y2) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'] .=
|
|||
|
|
"\n".sprintf('%.3f', $x1) .' '.sprintf('%.3f', $y1) .' m '.sprintf('%.3f', $x2) .' '.sprintf('%.3f', $y2) .' l S';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* draw a bezier curve based on 4 control points
|
|||
|
|
*/
|
|||
|
|
function curve($x0, $y0, $x1, $y1, $x2, $y2, $x3, $y3) {
|
|||
|
|
|
|||
|
|
// in the current line style, draw a bezier curve from (x0,y0) to (x3,y3) using the other two points
|
|||
|
|
// as the control points for the curve.
|
|||
|
|
$this->objects[$this->currentContents]['c'] .=
|
|||
|
|
"\n".sprintf('%.3f', $x0) .' '.sprintf('%.3f', $y0) .' m '.sprintf('%.3f', $x1) .' '.sprintf('%.3f', $y1);
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'] .=
|
|||
|
|
' '.sprintf('%.3f', $x2) .' '.sprintf('%.3f', $y2) .' '.sprintf('%.3f', $x3) .' '.sprintf('%.3f', $y3) .' c S';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* draw a part of an ellipse
|
|||
|
|
*/
|
|||
|
|
function partEllipse($x0, $y0, $astart, $afinish, $r1, $r2 = 0, $angle = 0, $nSeg = 8) {
|
|||
|
|
|
|||
|
|
$this->ellipse($x0, $y0, $r1, $r2, $angle, $nSeg, $astart, $afinish, 0);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* draw a filled ellipse
|
|||
|
|
*/
|
|||
|
|
function filledEllipse($x0, $y0, $r1, $r2 = 0, $angle = 0, $nSeg = 8, $astart = 0, $afinish = 360) {
|
|||
|
|
|
|||
|
|
return $this->ellipse($x0, $y0, $r1, $r2 = 0, $angle, $nSeg, $astart, $afinish, 1, 1);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* draw an ellipse
|
|||
|
|
* note that the part and filled ellipse are just special cases of this function
|
|||
|
|
*
|
|||
|
|
* draws an ellipse in the current line style
|
|||
|
|
* centered at $x0,$y0, radii $r1,$r2
|
|||
|
|
* if $r2 is not set, then a circle is drawn
|
|||
|
|
* nSeg is not allowed to be less than 2, as this will simply draw a line (and will even draw a
|
|||
|
|
* pretty crappy shape at 2, as we are approximating with bezier curves.
|
|||
|
|
*/
|
|||
|
|
function ellipse($x0, $y0, $r1, $r2 = 0, $angle = 0, $nSeg = 8, $astart = 0, $afinish = 360, $close = 1, $fill = 0) {
|
|||
|
|
|
|||
|
|
if ($r1 == 0) {
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($r2 == 0) {
|
|||
|
|
$r2 = $r1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($nSeg < 2) {
|
|||
|
|
$nSeg = 2;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$astart = deg2rad((float)$astart);
|
|||
|
|
|
|||
|
|
$afinish = deg2rad((float)$afinish);
|
|||
|
|
|
|||
|
|
$totalAngle = $afinish-$astart;
|
|||
|
|
|
|||
|
|
|
|||
|
|
$dt = $totalAngle/$nSeg;
|
|||
|
|
|
|||
|
|
$dtm = $dt/3;
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ($angle != 0) {
|
|||
|
|
|
|||
|
|
$a = -1*deg2rad((float)$angle);
|
|||
|
|
|
|||
|
|
$tmp = "\n q ";
|
|||
|
|
$tmp .= sprintf('%.3f', cos($a)) .' '.sprintf('%.3f', (-1.0*sin($a))) .' '.sprintf('%.3f', sin($a)) .' '.sprintf('%.3f', cos($a)) .' ';
|
|||
|
|
$tmp .= sprintf('%.3f', $x0) .' '.sprintf('%.3f', $y0) .' cm';
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= $tmp;
|
|||
|
|
|
|||
|
|
$x0 = 0;
|
|||
|
|
$y0 = 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$t1 = $astart;
|
|||
|
|
$a0 = $x0 + $r1*cos($t1);
|
|||
|
|
$b0 = $y0 + $r2*sin($t1);
|
|||
|
|
$c0 = -$r1 * sin($t1);
|
|||
|
|
$d0 = $r2 * cos($t1);
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'] .= "\n".sprintf('%.3f', $a0) .' '.sprintf('%.3f', $b0) .' m ';
|
|||
|
|
|
|||
|
|
for ($i = 1; $i <= $nSeg; $i++) {
|
|||
|
|
|
|||
|
|
// draw this bit of the total curve
|
|||
|
|
$t1 = $i * $dt + $astart;
|
|||
|
|
|
|||
|
|
$a1 = $x0 + $r1 * cos($t1);
|
|||
|
|
|
|||
|
|
$b1 = $y0 + $r2 * sin($t1);
|
|||
|
|
|
|||
|
|
$c1 = -$r1 * sin($t1);
|
|||
|
|
|
|||
|
|
$d1 = $r2 * cos($t1);
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c']
|
|||
|
|
.= "\n".sprintf('%.3f', ($a0+$c0*$dtm)) .' '.sprintf('%.3f', ($b0 + $d0 * $dtm));
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'] .=
|
|||
|
|
' '.sprintf('%.3f', ($a1-$c1*$dtm)) .' '.sprintf('%.3f', ($b1-$d1*$dtm)) .' '.sprintf('%.3f', $a1) .' '.sprintf('%.3f', $b1) .' c';
|
|||
|
|
|
|||
|
|
$a0 = $a1;
|
|||
|
|
|
|||
|
|
$b0 = $b1;
|
|||
|
|
|
|||
|
|
$c0 = $c1;
|
|||
|
|
|
|||
|
|
$d0 = $d1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($fill) {
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' f';
|
|||
|
|
|
|||
|
|
} else if ($close) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' s';
|
|||
|
|
// small 's' signifies closing the path as well
|
|||
|
|
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' S';
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($angle != 0) {
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' Q';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* this sets the line drawing style.
|
|||
|
|
* width, is the thickness of the line in user units
|
|||
|
|
* cap is the type of cap to put on the line, values can be 'butt','round','square'
|
|||
|
|
* where the diffference between 'square' and 'butt' is that 'square' projects a flat end past the
|
|||
|
|
* end of the line.
|
|||
|
|
* join can be 'miter', 'round', 'bevel'
|
|||
|
|
* dash is an array which sets the dash pattern, is a series of length values, which are the lengths of the
|
|||
|
|
* on and off dashes.
|
|||
|
|
* (2) represents 2 on, 2 off, 2 on , 2 off ...
|
|||
|
|
* (2,1) is 2 on, 1 off, 2 on, 1 off.. etc
|
|||
|
|
* phase is a modifier on the dash pattern which is used to shift the point at which the pattern starts.
|
|||
|
|
*/
|
|||
|
|
function setLineStyle($width = 1, $cap = '', $join = '', $dash = '', $phase = 0) {
|
|||
|
|
|
|||
|
|
|
|||
|
|
// this is quite inefficient in that it sets all the parameters whenever 1 is changed, but will fix another day
|
|||
|
|
$string = '';
|
|||
|
|
|
|||
|
|
if ($width>0) {
|
|||
|
|
|
|||
|
|
$string.= $width.' w';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$ca = array('butt' => 0, 'round' => 1, 'square' => 2);
|
|||
|
|
|
|||
|
|
if (isset($ca[$cap])) {
|
|||
|
|
|
|||
|
|
$string.= ' '.$ca[$cap].' J';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$ja = array('miter' => 0, 'round' => 1, 'bevel' => 2);
|
|||
|
|
|
|||
|
|
if (isset($ja[$join])) {
|
|||
|
|
|
|||
|
|
$string.= ' '.$ja[$join].' j';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (is_array($dash)) {
|
|||
|
|
|
|||
|
|
$string.= ' [';
|
|||
|
|
|
|||
|
|
foreach ($dash as $len) {
|
|||
|
|
|
|||
|
|
$string.= ' '.$len;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$string.= ' ] '.$phase.' d';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->currentLineStyle = $string;
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".$string;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* draw a polygon, the syntax for this is similar to the GD polygon command
|
|||
|
|
*/
|
|||
|
|
function polygon($p, $np, $f = 0) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n";
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= sprintf('%.3f', $p[0]) .' '.sprintf('%.3f', $p[1]) .' m ';
|
|||
|
|
|
|||
|
|
for ($i = 2; $i < $np * 2; $i = $i + 2) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= sprintf('%.3f', $p[$i]) .' '.sprintf('%.3f', $p[$i+1]) .' l ';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($f == 1) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' f';
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' S';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* a filled rectangle, note that it is the width and height of the rectangle which are the secondary paramaters, not
|
|||
|
|
* the coordinates of the upper-right corner
|
|||
|
|
*/
|
|||
|
|
function filledRectangle($x1, $y1, $width, $height) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".sprintf('%.3f', $x1) .' '.sprintf('%.3f', $y1) .' '.sprintf('%.3f', $width) .' '.sprintf('%.3f', $height) .' re f';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* draw a rectangle, note that it is the width and height of the rectangle which are the secondary paramaters, not
|
|||
|
|
* the coordinates of the upper-right corner
|
|||
|
|
*/
|
|||
|
|
function rectangle($x1, $y1, $width, $height) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".sprintf('%.3f', $x1) .' '.sprintf('%.3f', $y1) .' '.sprintf('%.3f', $width) .' '.sprintf('%.3f', $height) .' re S';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add a new page to the document
|
|||
|
|
* this also makes the new page the current active object
|
|||
|
|
*/
|
|||
|
|
function newPage($insert = 0, $id = 0, $pos = 'after') {
|
|||
|
|
|
|||
|
|
|
|||
|
|
// if there is a state saved, then go up the stack closing them
|
|||
|
|
// then on the new page, re-open them with the right setings
|
|||
|
|
|
|||
|
|
if ($this->nStateStack) {
|
|||
|
|
|
|||
|
|
for ($i = $this->nStateStack;$i >= 1;$i--) {
|
|||
|
|
|
|||
|
|
$this->restoreState($i);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
if ($insert) {
|
|||
|
|
|
|||
|
|
// the id from the ezPdf class is the od of the contents of the page, not the page object itself
|
|||
|
|
// query that object to find the parent
|
|||
|
|
$rid = $this->objects[$id]['onPage'];
|
|||
|
|
|
|||
|
|
$opt = array('rid' => $rid, 'pos' => $pos);
|
|||
|
|
|
|||
|
|
$this->o_page($this->numObj, 'new', $opt);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->o_page($this->numObj, 'new');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// if there is a stack saved, then put that onto the page
|
|||
|
|
if ($this->nStateStack) {
|
|||
|
|
|
|||
|
|
for ($i = 1;$i <= $this->nStateStack;$i++) {
|
|||
|
|
|
|||
|
|
$this->saveState($i);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// and if there has been a stroke or fill colour set, then transfer them
|
|||
|
|
if ($this->currentColour['r'] >= 0) {
|
|||
|
|
|
|||
|
|
$this->setColor($this->currentColour['r'], $this->currentColour['g'], $this->currentColour['b'], 1);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($this->currentStrokeColour['r'] >= 0) {
|
|||
|
|
|
|||
|
|
$this->setStrokeColor($this->currentStrokeColour['r'], $this->currentStrokeColour['g'], $this->currentStrokeColour['b'], 1);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
// if there is a line style set, then put this in too
|
|||
|
|
if (strlen($this->currentLineStyle)) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".$this->currentLineStyle;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
// the call to the o_page object set currentContents to the present page, so this can be returned as the page id
|
|||
|
|
return $this->currentContents;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* output the pdf code, streaming it to the browser
|
|||
|
|
* the relevant headers are set so that hopefully the browser will recognise it
|
|||
|
|
*/
|
|||
|
|
function stream($options = '') {
|
|||
|
|
|
|||
|
|
// setting the options allows the adjustment of the headers
|
|||
|
|
// values at the moment are:
|
|||
|
|
// 'Content-Disposition' => 'filename' - sets the filename, though not too sure how well this will
|
|||
|
|
// work as in my trial the browser seems to use the filename of the php file with .pdf on the end
|
|||
|
|
// 'Accept-Ranges' => 1 or 0 - if this is not set to 1, then this header is not included, off by default
|
|||
|
|
// this header seems to have caused some problems despite tha fact that it is supposed to solve
|
|||
|
|
// them, so I am leaving it off by default.
|
|||
|
|
// 'compress' = > 1 or 0 - apply content stream compression, this is on (1) by default
|
|||
|
|
// 'Attachment' => 1 or 0 - if 1, force the browser to open a download dialog
|
|||
|
|
if (!is_array($options)) {
|
|||
|
|
|
|||
|
|
$options = array();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ( headers_sent())
|
|||
|
|
die("Unable to stream pdf: headers already sent");
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ( isset($options['compress']) && $options['compress'] == 0) {
|
|||
|
|
|
|||
|
|
$tmp = ltrim($this->output(1));
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$tmp = ltrim($this->output());
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
header("Cache-Control: private");
|
|||
|
|
|
|||
|
|
header("Content-type: application/pdf");
|
|||
|
|
|
|||
|
|
//header("Content-Length: " . strlen($tmp));
|
|||
|
|
$fileName = (isset($options['Content-Disposition']) ? $options['Content-Disposition'] : 'file.pdf');
|
|||
|
|
|
|||
|
|
if ( !isset($options["Attachment"]))
|
|||
|
|
$options["Attachment"] = true;
|
|||
|
|
|
|||
|
|
|
|||
|
|
$attachment = $options["Attachment"] ? "attachment" : "inline";
|
|||
|
|
|
|||
|
|
|
|||
|
|
header("Content-Disposition: $attachment; filename=\"$fileName\"");
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (isset($options['Accept-Ranges']) && $options['Accept-Ranges'] == 1) {
|
|||
|
|
|
|||
|
|
header("Accept-Ranges: " . strlen($tmp));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
echo $tmp;
|
|||
|
|
|
|||
|
|
flush();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* return the height in units of the current font in the given size
|
|||
|
|
*/
|
|||
|
|
function getFontHeight($size) {
|
|||
|
|
|
|||
|
|
if (!$this->numFonts) {
|
|||
|
|
|
|||
|
|
$this->selectFont('./fonts/Helvetica');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// for the current font, and the given size, what is the height of the font in user units
|
|||
|
|
$h = $this->fonts[$this->currentFont]['FontBBox'][3]-$this->fonts[$this->currentFont]['FontBBox'][1];
|
|||
|
|
|
|||
|
|
return $size*$h/1000;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* return the font decender, this will normally return a negative number
|
|||
|
|
* if you add this number to the baseline, you get the level of the bottom of the font
|
|||
|
|
* it is in the pdf user units
|
|||
|
|
*/
|
|||
|
|
function getFontDecender($size) {
|
|||
|
|
|
|||
|
|
// note that this will most likely return a negative value
|
|||
|
|
if (!$this->numFonts) {
|
|||
|
|
|
|||
|
|
$this->selectFont('./fonts/Helvetica');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$h = $this->fonts[$this->currentFont]['FontBBox'][1];
|
|||
|
|
|
|||
|
|
return $size*$h/1000;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* filter the text, this is applied to all text just before being inserted into the pdf document
|
|||
|
|
* it escapes the various things that need to be escaped, and so on
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function filterText($text) {
|
|||
|
|
|
|||
|
|
$search = array("\\", "(", ")", "<", ">", "'", """, "&");
|
|||
|
|
|
|||
|
|
$replace = array("\\\\", "\(", "\)", "<", ">", "\'", '"', "&");
|
|||
|
|
|
|||
|
|
$text = str_replace($search, $replace, $text);
|
|||
|
|
|
|||
|
|
|
|||
|
|
return $text;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* given a start position and information about how text is to be laid out, calculate where
|
|||
|
|
* on the page the text will end
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function PRVTgetTextPosition($x, $y, $angle, $size, $wa, $text) {
|
|||
|
|
|
|||
|
|
// given this information return an array containing x and y for the end position as elements 0 and 1
|
|||
|
|
$w = $this->getTextWidth($size, $text);
|
|||
|
|
|
|||
|
|
// need to adjust for the number of spaces in this text
|
|||
|
|
$words = explode(' ', $text);
|
|||
|
|
|
|||
|
|
$nspaces = count($words) -1;
|
|||
|
|
|
|||
|
|
$w+= $wa*$nspaces;
|
|||
|
|
|
|||
|
|
$a = deg2rad((float)$angle);
|
|||
|
|
|
|||
|
|
return array(cos($a) *$w+$x, -sin($a) *$w+$y);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* wrapper function for PRVTcheckTextDirective1
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function PRVTcheckTextDirective(&$text, $i, &$f) {
|
|||
|
|
|
|||
|
|
return 0;
|
|||
|
|
|
|||
|
|
$x = 0;
|
|||
|
|
|
|||
|
|
$y = 0;
|
|||
|
|
|
|||
|
|
return $this->PRVTcheckTextDirective1($text, $i, $f, 0, $x, $y);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* checks if the text stream contains a control directive
|
|||
|
|
* if so then makes some changes and returns the number of characters involved in the directive
|
|||
|
|
* this has been re-worked to include everything neccesary to fins the current writing point, so that
|
|||
|
|
* the location can be sent to the callback function if required
|
|||
|
|
* if the directive does not require a font change, then $f should be set to 0
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function PRVTcheckTextDirective1(&$text, $i, &$f, $final, &$x, &$y, $size = 0, $angle = 0, $wordSpaceAdjust = 0) {
|
|||
|
|
|
|||
|
|
return 0;
|
|||
|
|
|
|||
|
|
$directive = 0;
|
|||
|
|
|
|||
|
|
$j = $i;
|
|||
|
|
|
|||
|
|
if ($text[$j] == '<') {
|
|||
|
|
|
|||
|
|
$j++;
|
|||
|
|
|
|||
|
|
switch ($text[$j]) {
|
|||
|
|
|
|||
|
|
case '/':
|
|||
|
|
|
|||
|
|
$j++;
|
|||
|
|
|
|||
|
|
if (strlen($text) <= $j) {
|
|||
|
|
|
|||
|
|
return $directive;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
switch ($text[$j]) {
|
|||
|
|
|
|||
|
|
case 'b':
|
|||
|
|
|
|||
|
|
case 'i':
|
|||
|
|
|
|||
|
|
$j++;
|
|||
|
|
|
|||
|
|
if ($text[$j] == '>') {
|
|||
|
|
|
|||
|
|
$p = strrpos($this->currentTextState, $text[$j-1]);
|
|||
|
|
|
|||
|
|
if ($p !== false) {
|
|||
|
|
|
|||
|
|
// then there is one to remove
|
|||
|
|
$this->currentTextState = substr($this->currentTextState, 0, $p) .substr($this->currentTextState, $p+1);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$directive = $j-$i+1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'c':
|
|||
|
|
|
|||
|
|
// this this might be a callback function
|
|||
|
|
$j++;
|
|||
|
|
|
|||
|
|
$k = strpos($text, '>', $j);
|
|||
|
|
|
|||
|
|
if ($k !== false && $text[$j] == ':') {
|
|||
|
|
|
|||
|
|
// then this will be treated as a callback directive
|
|||
|
|
$directive = $k-$i+1;
|
|||
|
|
|
|||
|
|
$f = 0;
|
|||
|
|
|
|||
|
|
// split the remainder on colons to get the function name and the paramater
|
|||
|
|
$tmp = substr($text, $j+1, $k-$j-1);
|
|||
|
|
|
|||
|
|
$b1 = strpos($tmp, ':');
|
|||
|
|
|
|||
|
|
if ($b1 !== false) {
|
|||
|
|
|
|||
|
|
$func = substr($tmp, 0, $b1);
|
|||
|
|
|
|||
|
|
$parm = substr($tmp, $b1+1);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$func = $tmp;
|
|||
|
|
|
|||
|
|
$parm = '';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (!isset($func) || !strlen(trim($func))) {
|
|||
|
|
|
|||
|
|
$directive = 0;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
// only call the function if this is the final call
|
|||
|
|
if ($final) {
|
|||
|
|
|
|||
|
|
// need to assess the text position, calculate the text width to this point
|
|||
|
|
// can use getTextWidth to find the text width I think
|
|||
|
|
$tmp = $this->PRVTgetTextPosition($x, $y, $angle, $size, $wordSpaceAdjust, substr($text, 0, $i));
|
|||
|
|
|
|||
|
|
$info = array('x' => $tmp[0], 'y' => $tmp[1], 'angle' => $angle, 'status' => 'end', 'p' => $parm, 'nCallback' => $this->nCallback);
|
|||
|
|
|
|||
|
|
$x = $tmp[0];
|
|||
|
|
|
|||
|
|
$y = $tmp[1];
|
|||
|
|
|
|||
|
|
$ret = $this->$func($info);
|
|||
|
|
|
|||
|
|
if (is_array($ret)) {
|
|||
|
|
|
|||
|
|
// then the return from the callback function could set the position, to start with, later will do font colour, and font
|
|||
|
|
foreach($ret as $rk => $rv) {
|
|||
|
|
|
|||
|
|
switch ($rk) {
|
|||
|
|
|
|||
|
|
case 'x':
|
|||
|
|
|
|||
|
|
case 'y':
|
|||
|
|
|
|||
|
|
$$rk = $rv;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// also remove from to the stack
|
|||
|
|
// for simplicity, just take from the end, fix this another day
|
|||
|
|
$this->nCallback--;
|
|||
|
|
|
|||
|
|
if ($this->nCallback<0) {
|
|||
|
|
|
|||
|
|
$this->nCallBack = 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'b':
|
|||
|
|
|
|||
|
|
case 'i':
|
|||
|
|
|
|||
|
|
$j++;
|
|||
|
|
|
|||
|
|
if ($text[$j] == '>') {
|
|||
|
|
|
|||
|
|
$this->currentTextState.= $text[$j-1];
|
|||
|
|
|
|||
|
|
$directive = $j-$i+1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'C':
|
|||
|
|
|
|||
|
|
$noClose = 1;
|
|||
|
|
|
|||
|
|
case 'c':
|
|||
|
|
|
|||
|
|
// this this might be a callback function
|
|||
|
|
$j++;
|
|||
|
|
|
|||
|
|
$k = strpos($text, '>', $j);
|
|||
|
|
|
|||
|
|
if ($k !== false && $text[$j] == ':') {
|
|||
|
|
|
|||
|
|
// then this will be treated as a callback directive
|
|||
|
|
$directive = $k-$i+1;
|
|||
|
|
|
|||
|
|
$f = 0;
|
|||
|
|
|
|||
|
|
// split the remainder on colons to get the function name and the paramater
|
|||
|
|
// $bits = explode(':',substr($text,$j+1,$k-$j-1));
|
|||
|
|
$tmp = substr($text, $j+1, $k-$j-1);
|
|||
|
|
|
|||
|
|
$b1 = strpos($tmp, ':');
|
|||
|
|
|
|||
|
|
if ($b1 !== false) {
|
|||
|
|
|
|||
|
|
$func = substr($tmp, 0, $b1);
|
|||
|
|
|
|||
|
|
$parm = substr($tmp, $b1+1);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$func = $tmp;
|
|||
|
|
|
|||
|
|
$parm = '';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (!isset($func) || !strlen(trim($func))) {
|
|||
|
|
|
|||
|
|
$directive = 0;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
// only call the function if this is the final call, ie, the one actually doing printing, not measurement
|
|||
|
|
if ($final) {
|
|||
|
|
|
|||
|
|
// need to assess the text position, calculate the text width to this point
|
|||
|
|
// can use getTextWidth to find the text width I think
|
|||
|
|
// also add the text height and decender
|
|||
|
|
$tmp = $this->PRVTgetTextPosition($x, $y, $angle, $size, $wordSpaceAdjust, substr($text, 0, $i));
|
|||
|
|
|
|||
|
|
$info = array('x' => $tmp[0], 'y' => $tmp[1], 'angle' => $angle, 'status' => 'start', 'p' => $parm, 'f' => $func, 'height' => $this->getFontHeight($size), 'decender' => $this->getFontDecender($size));
|
|||
|
|
|
|||
|
|
$x = $tmp[0];
|
|||
|
|
|
|||
|
|
$y = $tmp[1];
|
|||
|
|
|
|||
|
|
if (!isset($noClose) || !$noClose) {
|
|||
|
|
|
|||
|
|
// only add to the stack if this is a small 'c', therefore is a start-stop pair
|
|||
|
|
$this->nCallback++;
|
|||
|
|
|
|||
|
|
$info['nCallback'] = $this->nCallback;
|
|||
|
|
|
|||
|
|
$this->callback[$this->nCallback] = $info;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$ret = $this->$func($info);
|
|||
|
|
|
|||
|
|
if (is_array($ret)) {
|
|||
|
|
|
|||
|
|
// then the return from the callback function could set the position, to start with, later will do font colour, and font
|
|||
|
|
foreach($ret as $rk => $rv) {
|
|||
|
|
|
|||
|
|
switch ($rk) {
|
|||
|
|
|
|||
|
|
case 'x':
|
|||
|
|
|
|||
|
|
case 'y':
|
|||
|
|
|
|||
|
|
$$rk = $rv;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return $directive;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add text to the document, at a specified location, size and angle on the page
|
|||
|
|
*/
|
|||
|
|
function addText($x, $y, $size, $text, $angle = 0, $wordSpaceAdjust = 0) {
|
|||
|
|
|
|||
|
|
if (!$this->numFonts) {
|
|||
|
|
$this->selectFont('./fonts/Helvetica');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
// if there are any open callbacks, then they should be called, to show the start of the line
|
|||
|
|
if ($this->nCallback>0) {
|
|||
|
|
|
|||
|
|
for ($i = $this->nCallback;$i>0;$i--) {
|
|||
|
|
|
|||
|
|
// call each function
|
|||
|
|
$info = array('x' => $x,
|
|||
|
|
'y' => $y,
|
|||
|
|
'angle' => $angle,
|
|||
|
|
'status' => 'sol',
|
|||
|
|
'p' => $this->callback[$i]['p'],
|
|||
|
|
'nCallback' => $this->callback[$i]['nCallback'],
|
|||
|
|
'height' => $this->callback[$i]['height'],
|
|||
|
|
'decender' => $this->callback[$i]['decender']);
|
|||
|
|
|
|||
|
|
$func = $this->callback[$i]['f'];
|
|||
|
|
|
|||
|
|
$this->$func($info);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($angle == 0) {
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".'BT '.sprintf('%.3f', $x) .' '.sprintf('%.3f', $y) .' Td';
|
|||
|
|
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$a = deg2rad((float)$angle);
|
|||
|
|
|
|||
|
|
$tmp = "\n".'BT ';
|
|||
|
|
|
|||
|
|
$tmp.= sprintf('%.3f', cos($a)) .' '.sprintf('%.3f', (-1.0*sin($a))) .' '.sprintf('%.3f', sin($a)) .' '.sprintf('%.3f', cos($a)) .' ';
|
|||
|
|
|
|||
|
|
$tmp.= sprintf('%.3f', $x) .' '.sprintf('%.3f', $y) .' Tm';
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= $tmp;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($wordSpaceAdjust != 0 || $wordSpaceAdjust != $this->wordSpaceAdjust) {
|
|||
|
|
|
|||
|
|
$this->wordSpaceAdjust = $wordSpaceAdjust;
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' '.sprintf('%.3f', $wordSpaceAdjust) .' Tw';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$len = strlen($text);
|
|||
|
|
|
|||
|
|
$start = 0;
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
for ($i = 0;$i<$len;$i++){
|
|||
|
|
$f = 1;
|
|||
|
|
$directive = 0; //$this->PRVTcheckTextDirective($text,$i,$f);
|
|||
|
|
if ($directive){
|
|||
|
|
// then we should write what we need to
|
|||
|
|
if ($i>$start){
|
|||
|
|
$part = substr($text,$start,$i-$start);
|
|||
|
|
$this->objects[$this->currentContents]['c'] .= ' /F'.$this->currentFontNum.' '.sprintf('%.1f',$size).' Tf ';
|
|||
|
|
$this->objects[$this->currentContents]['c'] .= ' ('.$this->filterText($part).') Tj';
|
|||
|
|
}
|
|||
|
|
if ($f){
|
|||
|
|
// then there was nothing drastic done here, restore the contents
|
|||
|
|
$this->setCurrentFont();
|
|||
|
|
} else {
|
|||
|
|
$this->objects[$this->currentContents]['c'] .= ' ET';
|
|||
|
|
$f = 1;
|
|||
|
|
$xp = $x;
|
|||
|
|
$yp = $y;
|
|||
|
|
$directive = 0; //$this->PRVTcheckTextDirective1($text,$i,$f,1,$xp,$yp,$size,$angle,$wordSpaceAdjust);
|
|||
|
|
|
|||
|
|
// restart the text object
|
|||
|
|
if ($angle == 0){
|
|||
|
|
$this->objects[$this->currentContents]['c'] .= "\n".'BT '.sprintf('%.3f',$xp).' '.sprintf('%.3f',$yp).' Td';
|
|||
|
|
} else {
|
|||
|
|
$a = deg2rad((float)$angle);
|
|||
|
|
$tmp = "\n".'BT ';
|
|||
|
|
$tmp .= sprintf('%.3f',cos($a)).' '.sprintf('%.3f',(-1.0*sin($a))).' '.sprintf('%.3f',sin($a)).' '.sprintf('%.3f',cos($a)).' ';
|
|||
|
|
$tmp .= sprintf('%.3f',$xp).' '.sprintf('%.3f',$yp).' Tm';
|
|||
|
|
$this->objects[$this->currentContents]['c'] .= $tmp;
|
|||
|
|
}
|
|||
|
|
if ($wordSpaceAdjust != 0 || $wordSpaceAdjust != $this->wordSpaceAdjust){
|
|||
|
|
$this->wordSpaceAdjust = $wordSpaceAdjust;
|
|||
|
|
$this->objects[$this->currentContents]['c'] .= ' '.sprintf('%.3f',$wordSpaceAdjust).' Tw';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
// and move the writing point to the next piece of text
|
|||
|
|
$i = $i+$directive-1;
|
|||
|
|
$start = $i+1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
*/
|
|||
|
|
if ($start < $len) {
|
|||
|
|
|
|||
|
|
$part = substr($text, $start);
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' /F'.$this->currentFontNum.' '.sprintf('%.1f', $size) .' Tf ';
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' ('.$this->filterText($part) .') Tj';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= ' ET';
|
|||
|
|
|
|||
|
|
|
|||
|
|
// if there are any open callbacks, then they should be called, to show the end of the line
|
|||
|
|
if ($this->nCallback>0) {
|
|||
|
|
|
|||
|
|
for ($i = $this->nCallback;$i>0;$i--) {
|
|||
|
|
|
|||
|
|
// call each function
|
|||
|
|
$tmp = $this->PRVTgetTextPosition($x, $y, $angle, $size, $wordSpaceAdjust, $text);
|
|||
|
|
|
|||
|
|
$info = array('x' => $tmp[0], 'y' => $tmp[1], 'angle' => $angle, 'status' => 'eol', 'p' => $this->callback[$i]['p'], 'nCallback' => $this->callback[$i]['nCallback'], 'height' => $this->callback[$i]['height'], 'decender' => $this->callback[$i]['decender']);
|
|||
|
|
|
|||
|
|
$func = $this->callback[$i]['f'];
|
|||
|
|
|
|||
|
|
$this->$func($info);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* calculate how wide a given text string will be on a page, at a given size.
|
|||
|
|
* this can be called externally, but is alse used by the other class functions
|
|||
|
|
*/
|
|||
|
|
function getTextWidth($size, $text, $spacing = 0) {
|
|||
|
|
|
|||
|
|
// this function should not change any of the settings, though it will need to
|
|||
|
|
// track any directives which change during calculation, so copy them at the start
|
|||
|
|
// and put them back at the end.
|
|||
|
|
$store_currentTextState = $this->currentTextState;
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (!$this->numFonts) {
|
|||
|
|
|
|||
|
|
$this->selectFont('./fonts/Helvetica');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
// converts a number or a float to a string so it can get the width
|
|||
|
|
$text = "$text";
|
|||
|
|
|
|||
|
|
|
|||
|
|
// hmm, this is where it all starts to get tricky - use the font information to
|
|||
|
|
// calculate the width of each character, add them up and convert to user units
|
|||
|
|
$w = 0;
|
|||
|
|
|
|||
|
|
$len = strlen($text);
|
|||
|
|
|
|||
|
|
$cf = $this->currentFont;
|
|||
|
|
|
|||
|
|
$space_scale = 1000 / $size;
|
|||
|
|
|
|||
|
|
for ($i = 0; $i < $len; $i++) {
|
|||
|
|
|
|||
|
|
// $f = 1;
|
|||
|
|
// $directive = 0; //$this->PRVTcheckTextDirective($text,$i,$f);
|
|||
|
|
// if ($directive){
|
|||
|
|
// if ($f){
|
|||
|
|
// $this->setCurrentFont();
|
|||
|
|
// $cf = $this->currentFont;
|
|||
|
|
// }
|
|||
|
|
// $i = $i+$directive-1;
|
|||
|
|
// } else {
|
|||
|
|
$char = ord($text{$i});
|
|||
|
|
|
|||
|
|
if ( isset($this->fonts[$cf]['differences'][$char])) {
|
|||
|
|
|
|||
|
|
|
|||
|
|
// then this character is being replaced by another
|
|||
|
|
$name = $this->fonts[$cf]['differences'][$char];
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ( isset($this->fonts[$cf]['C'][$name]['WX']))
|
|||
|
|
$w+= $this->fonts[$cf]['C'][$name]['WX'];
|
|||
|
|
} else if (isset($this->fonts[$cf]['C'][$char]['WX']))
|
|||
|
|
$w+= $this->fonts[$cf]['C'][$char]['WX'];
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ( $char == 32) // Space
|
|||
|
|
$w+= $spacing * $space_scale;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->currentTextState = $store_currentTextState;
|
|||
|
|
|
|||
|
|
$this->setCurrentFont();
|
|||
|
|
|
|||
|
|
|
|||
|
|
return $w*$size/1000;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* do a part of the calculation for sorting out the justification of the text
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function PRVTadjustWrapText($text, $actual, $width, &$x, &$adjust, $justification) {
|
|||
|
|
|
|||
|
|
switch ($justification) {
|
|||
|
|
|
|||
|
|
case 'left':
|
|||
|
|
|
|||
|
|
return;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'right':
|
|||
|
|
|
|||
|
|
$x+= $width-$actual;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'center':
|
|||
|
|
|
|||
|
|
case 'centre':
|
|||
|
|
|
|||
|
|
$x+= ($width-$actual) /2;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'full':
|
|||
|
|
|
|||
|
|
// count the number of words
|
|||
|
|
$words = explode(' ', $text);
|
|||
|
|
|
|||
|
|
$nspaces = count($words) -1;
|
|||
|
|
|
|||
|
|
if ($nspaces>0) {
|
|||
|
|
|
|||
|
|
$adjust = ($width-$actual) /$nspaces;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$adjust = 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add text to the page, but ensure that it fits within a certain width
|
|||
|
|
* if it does not fit then put in as much as possible, splitting at word boundaries
|
|||
|
|
* and return the remainder.
|
|||
|
|
* justification and angle can also be specified for the text
|
|||
|
|
*/
|
|||
|
|
function addTextWrap($x, $y, $width, $size, $text, $justification = 'left', $angle = 0, $test = 0) {
|
|||
|
|
|
|||
|
|
// this will display the text, and if it goes beyond the width $width, will backtrack to the
|
|||
|
|
// previous space or hyphen, and return the remainder of the text.
|
|||
|
|
|
|||
|
|
// $justification can be set to 'left','right','center','centre','full'
|
|||
|
|
|
|||
|
|
// need to store the initial text state, as this will change during the width calculation
|
|||
|
|
// but will need to be re-set before printing, so that the chars work out right
|
|||
|
|
$store_currentTextState = $this->currentTextState;
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (!$this->numFonts) {
|
|||
|
|
$this->selectFont('./fonts/Helvetica');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($width <= 0) {
|
|||
|
|
|
|||
|
|
// error, pretend it printed ok, otherwise risking a loop
|
|||
|
|
return '';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$w = 0;
|
|||
|
|
|
|||
|
|
$break = 0;
|
|||
|
|
|
|||
|
|
$breakWidth = 0;
|
|||
|
|
|
|||
|
|
$len = strlen($text);
|
|||
|
|
|
|||
|
|
$cf = $this->currentFont;
|
|||
|
|
|
|||
|
|
$tw = $width/$size*1000;
|
|||
|
|
|
|||
|
|
for ($i = 0;$i<$len;$i++) {
|
|||
|
|
|
|||
|
|
$f = 1;
|
|||
|
|
|
|||
|
|
$directive = 0;
|
|||
|
|
//$this->PRVTcheckTextDirective($text,$i,$f);
|
|||
|
|
if ($directive) {
|
|||
|
|
|
|||
|
|
if ($f) {
|
|||
|
|
|
|||
|
|
$this->setCurrentFont();
|
|||
|
|
|
|||
|
|
$cf = $this->currentFont;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$i = $i+$directive-1;
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$cOrd = ord($text[$i]);
|
|||
|
|
|
|||
|
|
if (isset($this->fonts[$cf]['differences'][$cOrd])) {
|
|||
|
|
|
|||
|
|
// then this character is being replaced by another
|
|||
|
|
$cOrd2 = $this->fonts[$cf]['differences'][$cOrd];
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$cOrd2 = $cOrd;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (isset($this->fonts[$cf]['C'][$cOrd2]['WX'])) {
|
|||
|
|
|
|||
|
|
$w+= $this->fonts[$cf]['C'][$cOrd2]['WX'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($w>$tw) {
|
|||
|
|
|
|||
|
|
// then we need to truncate this line
|
|||
|
|
if ($break>0) {
|
|||
|
|
|
|||
|
|
// then we have somewhere that we can split :)
|
|||
|
|
if ($text[$break] == ' ') {
|
|||
|
|
|
|||
|
|
$tmp = substr($text, 0, $break);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$tmp = substr($text, 0, $break+1);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$adjust = 0;
|
|||
|
|
|
|||
|
|
$this->PRVTadjustWrapText($tmp, $breakWidth, $width, $x, $adjust, $justification);
|
|||
|
|
|
|||
|
|
|
|||
|
|
// reset the text state
|
|||
|
|
$this->currentTextState = $store_currentTextState;
|
|||
|
|
|
|||
|
|
$this->setCurrentFont();
|
|||
|
|
|
|||
|
|
if (!$test) {
|
|||
|
|
|
|||
|
|
$this->addText($x, $y, $size, $tmp, $angle, $adjust);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return substr($text, $break+1);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
// just split before the current character
|
|||
|
|
$tmp = substr($text, 0, $i);
|
|||
|
|
|
|||
|
|
$adjust = 0;
|
|||
|
|
|
|||
|
|
$ctmp = ord($text[$i]);
|
|||
|
|
|
|||
|
|
if (isset($this->fonts[$cf]['differences'][$ctmp])) {
|
|||
|
|
|
|||
|
|
$ctmp = $this->fonts[$cf]['differences'][$ctmp];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$tmpw = ($w-$this->fonts[$cf]['C'][$ctmp]['WX']) *$size/1000;
|
|||
|
|
|
|||
|
|
$this->PRVTadjustWrapText($tmp, $tmpw, $width, $x, $adjust, $justification);
|
|||
|
|
|
|||
|
|
// reset the text state
|
|||
|
|
$this->currentTextState = $store_currentTextState;
|
|||
|
|
|
|||
|
|
$this->setCurrentFont();
|
|||
|
|
|
|||
|
|
if (!$test) {
|
|||
|
|
|
|||
|
|
$this->addText($x, $y, $size, $tmp, $angle, $adjust);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return substr($text, $i);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($text[$i] == '-') {
|
|||
|
|
|
|||
|
|
$break = $i;
|
|||
|
|
|
|||
|
|
$breakWidth = $w*$size/1000;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($text[$i] == ' ') {
|
|||
|
|
|
|||
|
|
$break = $i;
|
|||
|
|
|
|||
|
|
$ctmp = ord($text[$i]);
|
|||
|
|
|
|||
|
|
if (isset($this->fonts[$cf]['differences'][$ctmp])) {
|
|||
|
|
|
|||
|
|
$ctmp = $this->fonts[$cf]['differences'][$ctmp];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$breakWidth = ($w-$this->fonts[$cf]['C'][$ctmp]['WX']) *$size/1000;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// then there was no need to break this line
|
|||
|
|
if ($justification == 'full') {
|
|||
|
|
|
|||
|
|
$justification = 'left';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$adjust = 0;
|
|||
|
|
|
|||
|
|
$tmpw = $w*$size/1000;
|
|||
|
|
|
|||
|
|
$this->PRVTadjustWrapText($text, $tmpw, $width, $x, $adjust, $justification);
|
|||
|
|
|
|||
|
|
// reset the text state
|
|||
|
|
$this->currentTextState = $store_currentTextState;
|
|||
|
|
|
|||
|
|
$this->setCurrentFont();
|
|||
|
|
|
|||
|
|
if (!$test) {
|
|||
|
|
|
|||
|
|
$this->addText($x, $y, $size, $text, $angle, $adjust, $angle);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return '';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* this will be called at a new page to return the state to what it was on the
|
|||
|
|
* end of the previous page, before the stack was closed down
|
|||
|
|
* This is to get around not being able to have open 'q' across pages
|
|||
|
|
*
|
|||
|
|
*/
|
|||
|
|
function saveState($pageEnd = 0) {
|
|||
|
|
|
|||
|
|
if ($pageEnd) {
|
|||
|
|
|
|||
|
|
// this will be called at a new page to return the state to what it was on the
|
|||
|
|
// end of the previous page, before the stack was closed down
|
|||
|
|
// This is to get around not being able to have open 'q' across pages
|
|||
|
|
$opt = $this->stateStack[$pageEnd];
|
|||
|
|
// ok to use this as stack starts numbering at 1
|
|||
|
|
$this->setColor($opt['col']['r'], $opt['col']['g'], $opt['col']['b'], 1);
|
|||
|
|
|
|||
|
|
$this->setStrokeColor($opt['str']['r'], $opt['str']['g'], $opt['str']['b'], 1);
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".$opt['lin'];
|
|||
|
|
|
|||
|
|
// $this->currentLineStyle = $opt['lin'];
|
|||
|
|
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->nStateStack++;
|
|||
|
|
|
|||
|
|
$this->stateStack[$this->nStateStack] = array(
|
|||
|
|
'col' => $this->currentColour, 'str' => $this->currentStrokeColour, 'lin' => $this->currentLineStyle);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\nq";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* restore a previously saved state
|
|||
|
|
*/
|
|||
|
|
function restoreState($pageEnd = 0) {
|
|||
|
|
|
|||
|
|
if (!$pageEnd) {
|
|||
|
|
|
|||
|
|
$n = $this->nStateStack;
|
|||
|
|
|
|||
|
|
$this->currentColour = $this->stateStack[$n]['col'];
|
|||
|
|
|
|||
|
|
$this->currentStrokeColour = $this->stateStack[$n]['str'];
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".$this->stateStack[$n]['lin'];
|
|||
|
|
|
|||
|
|
$this->currentLineStyle = $this->stateStack[$n]['lin'];
|
|||
|
|
|
|||
|
|
unset($this->stateStack[$n]);
|
|||
|
|
|
|||
|
|
$this->nStateStack--;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\nQ";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* make a loose object, the output will go into this object, until it is closed, then will revert to
|
|||
|
|
* the current one.
|
|||
|
|
* this object will not appear until it is included within a page.
|
|||
|
|
* the function will return the object number
|
|||
|
|
*/
|
|||
|
|
function openObject() {
|
|||
|
|
|
|||
|
|
$this->nStack++;
|
|||
|
|
|
|||
|
|
$this->stack[$this->nStack] = array('c' => $this->currentContents, 'p' => $this->currentPage);
|
|||
|
|
|
|||
|
|
// add a new object of the content type, to hold the data flow
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_contents($this->numObj, 'new');
|
|||
|
|
|
|||
|
|
$this->currentContents = $this->numObj;
|
|||
|
|
|
|||
|
|
$this->looseObjects[$this->numObj] = 1;
|
|||
|
|
|
|||
|
|
|
|||
|
|
return $this->numObj;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* open an existing object for editing
|
|||
|
|
*/
|
|||
|
|
function reopenObject($id) {
|
|||
|
|
|
|||
|
|
$this->nStack++;
|
|||
|
|
|
|||
|
|
$this->stack[$this->nStack] = array('c' => $this->currentContents, 'p' => $this->currentPage);
|
|||
|
|
|
|||
|
|
$this->currentContents = $id;
|
|||
|
|
|
|||
|
|
// also if this object is the primary contents for a page, then set the current page to its parent
|
|||
|
|
if (isset($this->objects[$id]['onPage'])) {
|
|||
|
|
|
|||
|
|
$this->currentPage = $this->objects[$id]['onPage'];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* close an object
|
|||
|
|
*/
|
|||
|
|
function closeObject() {
|
|||
|
|
|
|||
|
|
// close the object, as long as there was one open in the first place, which will be indicated by
|
|||
|
|
// an objectId on the stack.
|
|||
|
|
if ($this->nStack>0) {
|
|||
|
|
|
|||
|
|
$this->currentContents = $this->stack[$this->nStack]['c'];
|
|||
|
|
|
|||
|
|
$this->currentPage = $this->stack[$this->nStack]['p'];
|
|||
|
|
|
|||
|
|
$this->nStack--;
|
|||
|
|
|
|||
|
|
// easier to probably not worry about removing the old entries, they will be overwritten
|
|||
|
|
// if there are new ones.
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* stop an object from appearing on pages from this point on
|
|||
|
|
*/
|
|||
|
|
function stopObject($id) {
|
|||
|
|
|
|||
|
|
// if an object has been appearing on pages up to now, then stop it, this page will
|
|||
|
|
// be the last one that could contian it.
|
|||
|
|
if (isset($this->addLooseObjects[$id])) {
|
|||
|
|
|
|||
|
|
$this->addLooseObjects[$id] = '';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* after an object has been created, it wil only show if it has been added, using this function.
|
|||
|
|
*/
|
|||
|
|
function addObject($id, $options = 'add') {
|
|||
|
|
|
|||
|
|
// add the specified object to the page
|
|||
|
|
if (isset($this->looseObjects[$id]) && $this->currentContents != $id) {
|
|||
|
|
|
|||
|
|
// then it is a valid object, and it is not being added to itself
|
|||
|
|
switch ($options) {
|
|||
|
|
|
|||
|
|
case 'all':
|
|||
|
|
|
|||
|
|
// then this object is to be added to this page (done in the next block) and
|
|||
|
|
// all future new pages.
|
|||
|
|
$this->addLooseObjects[$id] = 'all';
|
|||
|
|
|
|||
|
|
case 'add':
|
|||
|
|
|
|||
|
|
if (isset($this->objects[$this->currentContents]['onPage'])) {
|
|||
|
|
|
|||
|
|
// then the destination contents is the primary for the page
|
|||
|
|
// (though this object is actually added to that page)
|
|||
|
|
$this->o_page($this->objects[$this->currentContents]['onPage'], 'content', $id);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'even':
|
|||
|
|
|
|||
|
|
$this->addLooseObjects[$id] = 'even';
|
|||
|
|
|
|||
|
|
$pageObjectId = $this->objects[$this->currentContents]['onPage'];
|
|||
|
|
|
|||
|
|
if ($this->objects[$pageObjectId]['info']['pageNum']%2 == 0) {
|
|||
|
|
|
|||
|
|
$this->addObject($id);
|
|||
|
|
// hacky huh :)
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'odd':
|
|||
|
|
|
|||
|
|
$this->addLooseObjects[$id] = 'odd';
|
|||
|
|
|
|||
|
|
$pageObjectId = $this->objects[$this->currentContents]['onPage'];
|
|||
|
|
|
|||
|
|
if ($this->objects[$pageObjectId]['info']['pageNum']%2 == 1) {
|
|||
|
|
|
|||
|
|
$this->addObject($id);
|
|||
|
|
// hacky huh :)
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'next':
|
|||
|
|
|
|||
|
|
$this->addLooseObjects[$id] = 'all';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'nexteven':
|
|||
|
|
|
|||
|
|
$this->addLooseObjects[$id] = 'even';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'nextodd':
|
|||
|
|
|
|||
|
|
$this->addLooseObjects[$id] = 'odd';
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* return a storable representation of a specific object
|
|||
|
|
*/
|
|||
|
|
function serializeObject($id) {
|
|||
|
|
|
|||
|
|
if ( array_key_exists($id, $this->objects))
|
|||
|
|
return var_export($this->objects[$id], true);
|
|||
|
|
|
|||
|
|
|
|||
|
|
return null;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* restore an object from its stored representation. returns its new object id.
|
|||
|
|
*/
|
|||
|
|
function restoreSerializedObject($obj) {
|
|||
|
|
|
|||
|
|
|
|||
|
|
$obj_id = $this->openObject();
|
|||
|
|
|
|||
|
|
eval('$this->objects[$obj_id] = ' . $obj . ';');
|
|||
|
|
|
|||
|
|
$this->closeObject();
|
|||
|
|
|
|||
|
|
return $obj_id;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add content to the documents info object
|
|||
|
|
*/
|
|||
|
|
function addInfo($label, $value = 0) {
|
|||
|
|
|
|||
|
|
// this will only work if the label is one of the valid ones.
|
|||
|
|
// modify this so that arrays can be passed as well.
|
|||
|
|
// if $label is an array then assume that it is key => value pairs
|
|||
|
|
// else assume that they are both scalar, anything else will probably error
|
|||
|
|
if (is_array($label)) {
|
|||
|
|
|
|||
|
|
foreach ($label as $l => $v) {
|
|||
|
|
|
|||
|
|
$this->o_info($this->infoObject, $l, $v);
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->o_info($this->infoObject, $label, $value);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* set the viewer preferences of the document, it is up to the browser to obey these.
|
|||
|
|
*/
|
|||
|
|
function setPreferences($label, $value = 0) {
|
|||
|
|
|
|||
|
|
// this will only work if the label is one of the valid ones.
|
|||
|
|
if (is_array($label)) {
|
|||
|
|
|
|||
|
|
foreach ($label as $l => $v) {
|
|||
|
|
|
|||
|
|
$this->o_catalog($this->catalogId, 'viewerPreferences', array($l => $v));
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->o_catalog($this->catalogId, 'viewerPreferences', array($label => $value));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* extract an integer from a position in a byte stream
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function PRVT_getBytes(&$data, $pos, $num) {
|
|||
|
|
|
|||
|
|
// return the integer represented by $num bytes from $pos within $data
|
|||
|
|
$ret = 0;
|
|||
|
|
|
|||
|
|
for ($i = 0;$i<$num;$i++) {
|
|||
|
|
|
|||
|
|
$ret = $ret*256;
|
|||
|
|
|
|||
|
|
$ret+= ord($data[$pos+$i]);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return $ret;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add a PNG image into the document, from a file
|
|||
|
|
* this should work with remote files
|
|||
|
|
*/
|
|||
|
|
function addPngFromFile($file, $x, $y, $w = 0, $h = 0) {
|
|||
|
|
|
|||
|
|
// read in a png file, interpret it, then add to the system
|
|||
|
|
$error = 0;
|
|||
|
|
|
|||
|
|
$tmp = get_magic_quotes_runtime();
|
|||
|
|
|
|||
|
|
set_magic_quotes_runtime(0);
|
|||
|
|
|
|||
|
|
if ( ($data = file_get_contents($file)) === false) {
|
|||
|
|
|
|||
|
|
// $fp = @fopen($file,'rb');
|
|||
|
|
// if ($fp){
|
|||
|
|
// $data = '';
|
|||
|
|
// while(!feof($fp)){
|
|||
|
|
// $data .= fread($fp,1024);
|
|||
|
|
// }
|
|||
|
|
// fclose($fp);
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'trouble opening file: '.$file;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
set_magic_quotes_runtime($tmp);
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (!$error) {
|
|||
|
|
|
|||
|
|
$header = chr(137) .chr(80) .chr(78) .chr(71) .chr(13) .chr(10) .chr(26) .chr(10);
|
|||
|
|
|
|||
|
|
if (substr($data, 0, 8) != $header) {
|
|||
|
|
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'this file does not have a valid header';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (!$error) {
|
|||
|
|
|
|||
|
|
// set pointer
|
|||
|
|
$p = 8;
|
|||
|
|
|
|||
|
|
$len = strlen($data);
|
|||
|
|
|
|||
|
|
// cycle through the file, identifying chunks
|
|||
|
|
$haveHeader = 0;
|
|||
|
|
|
|||
|
|
$info = array();
|
|||
|
|
|
|||
|
|
$idata = '';
|
|||
|
|
|
|||
|
|
$pdata = '';
|
|||
|
|
|
|||
|
|
while ($p < $len) {
|
|||
|
|
|
|||
|
|
$chunkLen = $this->PRVT_getBytes($data, $p, 4);
|
|||
|
|
|
|||
|
|
$chunkType = substr($data, $p+4, 4);
|
|||
|
|
|
|||
|
|
// echo $chunkType.' - '.$chunkLen.'<br>';
|
|||
|
|
|
|||
|
|
switch ($chunkType) {
|
|||
|
|
|
|||
|
|
case 'IHDR':
|
|||
|
|
|
|||
|
|
// this is where all the file information comes from
|
|||
|
|
$info['width'] = $this->PRVT_getBytes($data, $p+8, 4);
|
|||
|
|
|
|||
|
|
$info['height'] = $this->PRVT_getBytes($data, $p+12, 4);
|
|||
|
|
|
|||
|
|
$info['bitDepth'] = ord($data[$p+16]);
|
|||
|
|
|
|||
|
|
$info['colorType'] = ord($data[$p+17]);
|
|||
|
|
|
|||
|
|
$info['compressionMethod'] = ord($data[$p+18]);
|
|||
|
|
|
|||
|
|
$info['filterMethod'] = ord($data[$p+19]);
|
|||
|
|
|
|||
|
|
$info['interlaceMethod'] = ord($data[$p+20]);
|
|||
|
|
|
|||
|
|
//print_r($info);
|
|||
|
|
$haveHeader = 1;
|
|||
|
|
|
|||
|
|
if ($info['compressionMethod'] != 0) {
|
|||
|
|
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'unsupported compression method';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($info['filterMethod'] != 0) {
|
|||
|
|
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'unsupported filter method';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'PLTE':
|
|||
|
|
|
|||
|
|
$pdata.= substr($data, $p+8, $chunkLen);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'IDAT':
|
|||
|
|
|
|||
|
|
$idata.= substr($data, $p+8, $chunkLen);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'tRNS':
|
|||
|
|
|
|||
|
|
//this chunk can only occur once and it must occur after the PLTE chunk and before IDAT chunk
|
|||
|
|
//print "tRNS found, color type = ".$info['colorType']."\n";
|
|||
|
|
$transparency = array();
|
|||
|
|
|
|||
|
|
if ($info['colorType'] == 3) {
|
|||
|
|
// indexed color, rbg
|
|||
|
|
/* corresponding to entries in the plte chunk
|
|||
|
|
Alpha for palette index 0: 1 byte
|
|||
|
|
Alpha for palette index 1: 1 byte
|
|||
|
|
...etc...
|
|||
|
|
*/
|
|||
|
|
// there will be one entry for each palette entry. up until the last non-opaque entry.
|
|||
|
|
// set up an array, stretching over all palette entries which will be o (opaque) or 1 (transparent)
|
|||
|
|
$transparency['type'] = 'indexed';
|
|||
|
|
|
|||
|
|
$numPalette = strlen($pdata) /3;
|
|||
|
|
|
|||
|
|
$trans = 0;
|
|||
|
|
|
|||
|
|
for ($i = $chunkLen;$i >= 0;$i--) {
|
|||
|
|
|
|||
|
|
if (ord($data[$p+8+$i]) == 0) {
|
|||
|
|
|
|||
|
|
$trans = $i;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$transparency['data'] = $trans;
|
|||
|
|
} elseif ($info['colorType'] == 0) {
|
|||
|
|
// grayscale
|
|||
|
|
/* corresponding to entries in the plte chunk
|
|||
|
|
Gray: 2 bytes, range 0 .. (2^bitdepth)-1
|
|||
|
|
*/
|
|||
|
|
// $transparency['grayscale'] = $this->PRVT_getBytes($data,$p+8,2); // g = grayscale
|
|||
|
|
$transparency['type'] = 'indexed';
|
|||
|
|
|
|||
|
|
$transparency['data'] = ord($data[$p+8+1]);
|
|||
|
|
} elseif ($info['colorType'] == 2) {
|
|||
|
|
// truecolor
|
|||
|
|
/* corresponding to entries in the plte chunk
|
|||
|
|
Red: 2 bytes, range 0 .. (2^bitdepth)-1
|
|||
|
|
Green: 2 bytes, range 0 .. (2^bitdepth)-1
|
|||
|
|
Blue: 2 bytes, range 0 .. (2^bitdepth)-1
|
|||
|
|
*/
|
|||
|
|
$transparency['r'] = $this->PRVT_getBytes($data, $p+8, 2);
|
|||
|
|
// r from truecolor
|
|||
|
|
$transparency['g'] = $this->PRVT_getBytes($data, $p+10, 2);
|
|||
|
|
// g from truecolor
|
|||
|
|
$transparency['b'] = $this->PRVT_getBytes($data, $p+12, 2);
|
|||
|
|
// b from truecolor
|
|||
|
|
|
|||
|
|
$transparency['type'] = 'color-key';
|
|||
|
|
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
//unsupported transparency type
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// KS End new code
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
default:
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$p+= $chunkLen+12;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (!$haveHeader) {
|
|||
|
|
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'information header is missing';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (isset($info['interlaceMethod']) && $info['interlaceMethod']) {
|
|||
|
|
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'There appears to be no support for interlaced images in pdf.';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (!$error && $info['bitDepth'] > 8) {
|
|||
|
|
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'only bit depth of 8 or less is supported';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (!$error) {
|
|||
|
|
|
|||
|
|
if ($info['colorType'] != 2 && $info['colorType'] != 0 && $info['colorType'] != 3) {
|
|||
|
|
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'transparancey alpha channel not supported, transparency only supported for palette images.';
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
switch ($info['colorType']) {
|
|||
|
|
|
|||
|
|
case 3:
|
|||
|
|
|
|||
|
|
$color = 'DeviceRGB';
|
|||
|
|
|
|||
|
|
$ncolor = 1;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 2:
|
|||
|
|
|
|||
|
|
$color = 'DeviceRGB';
|
|||
|
|
|
|||
|
|
$ncolor = 3;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 0:
|
|||
|
|
|
|||
|
|
$color = 'DeviceGray';
|
|||
|
|
|
|||
|
|
$ncolor = 1;
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($error) {
|
|||
|
|
|
|||
|
|
$this->addMessage('PNG error - ('.$file.') '.$errormsg);
|
|||
|
|
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($w == 0) {
|
|||
|
|
|
|||
|
|
$w = $h/$info['height']*$info['width'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($h == 0) {
|
|||
|
|
|
|||
|
|
$h = $w*$info['height']/$info['width'];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
//print_r($info);
|
|||
|
|
// so this image is ok... add it in.
|
|||
|
|
$this->numImages++;
|
|||
|
|
|
|||
|
|
$im = $this->numImages;
|
|||
|
|
|
|||
|
|
$label = 'I'.$im;
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
// $this->o_image($this->numObj,'new',array('label' => $label,'data' => $idata,'iw' => $w,'ih' => $h,'type' => 'png','ic' => $info['width']));
|
|||
|
|
$options = array('label' => $label, 'data' => $idata, 'bitsPerComponent' => $info['bitDepth'], 'pdata' => $pdata, 'iw' => $info['width'], 'ih' => $info['height'], 'type' => 'png', 'color' => $color, 'ncolor' => $ncolor);
|
|||
|
|
|
|||
|
|
if (isset($transparency)) {
|
|||
|
|
|
|||
|
|
$options['transparency'] = $transparency;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$this->o_image($this->numObj, 'new', $options);
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\nq";
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".sprintf('%.3f', $w) ." 0 0 ".sprintf('%.3f', $h) ." ".sprintf('%.3f', $x) ." ".sprintf('%.3f', $y) ." cm";
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n/".$label.' Do';
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\nQ";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add a JPEG image into the document, from a file
|
|||
|
|
*/
|
|||
|
|
function addJpegFromFile($img, $x, $y, $w = 0, $h = 0) {
|
|||
|
|
|
|||
|
|
// attempt to add a jpeg image straight from a file, using no GD commands
|
|||
|
|
// note that this function is unable to operate on a remote file.
|
|||
|
|
|
|||
|
|
if (!file_exists($img)) {
|
|||
|
|
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
$tmp = getimagesize($img);
|
|||
|
|
|
|||
|
|
$imageWidth = $tmp[0];
|
|||
|
|
|
|||
|
|
$imageHeight = $tmp[1];
|
|||
|
|
|
|||
|
|
|
|||
|
|
if (isset($tmp['channels'])) {
|
|||
|
|
|
|||
|
|
$channels = $tmp['channels'];
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$channels = 3;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ($w <= 0 && $h <= 0) {
|
|||
|
|
|
|||
|
|
$w = $imageWidth;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($w == 0) {
|
|||
|
|
|
|||
|
|
$w = $h/$imageHeight*$imageWidth;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($h == 0) {
|
|||
|
|
|
|||
|
|
$h = $w*$imageHeight/$imageWidth;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
//$fp = fopen($img,'rb');
|
|||
|
|
|
|||
|
|
$tmp = get_magic_quotes_runtime();
|
|||
|
|
|
|||
|
|
set_magic_quotes_runtime(0);
|
|||
|
|
|
|||
|
|
$data = file_get_contents($img);
|
|||
|
|
|
|||
|
|
//fread($fp,filesize($img));
|
|||
|
|
set_magic_quotes_runtime($tmp);
|
|||
|
|
|
|||
|
|
|
|||
|
|
//fclose($fp);
|
|||
|
|
|
|||
|
|
$this->addJpegImage_common($data, $x, $y, $w, $h, $imageWidth, $imageHeight, $channels);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* add an image into the document, from a GD object
|
|||
|
|
* this function is not all that reliable, and I would probably encourage people to use
|
|||
|
|
* the file based functions
|
|||
|
|
*/
|
|||
|
|
function addImage(&$img, $x, $y, $w = 0, $h = 0, $quality = 75) {
|
|||
|
|
|
|||
|
|
// add a new image into the current location, as an external object
|
|||
|
|
// add the image at $x,$y, and with width and height as defined by $w & $h
|
|||
|
|
|
|||
|
|
// note that this will only work with full colour images and makes them jpg images for display
|
|||
|
|
// later versions could present lossless image formats if there is interest.
|
|||
|
|
|
|||
|
|
// there seems to be some problem here in that images that have quality set above 75 do not appear
|
|||
|
|
// not too sure why this is, but in the meantime I have restricted this to 75.
|
|||
|
|
if ($quality>75) {
|
|||
|
|
|
|||
|
|
$quality = 75;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
// if the width or height are set to zero, then set the other one based on keeping the image
|
|||
|
|
// height/width ratio the same, if they are both zero, then give up :)
|
|||
|
|
$imageWidth = imagesx($img);
|
|||
|
|
|
|||
|
|
$imageHeight = imagesy($img);
|
|||
|
|
|
|||
|
|
|
|||
|
|
if ($w <= 0 && $h <= 0) {
|
|||
|
|
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($w == 0) {
|
|||
|
|
|
|||
|
|
$w = $h/$imageHeight*$imageWidth;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($h == 0) {
|
|||
|
|
|
|||
|
|
$h = $w*$imageHeight/$imageWidth;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
// gotta get the data out of the img..
|
|||
|
|
|
|||
|
|
// so I write to a temp file, and then read it back.. soo ugly, my apologies.
|
|||
|
|
$tmpDir = '/tmp';
|
|||
|
|
|
|||
|
|
$tmpName = tempnam($tmpDir, 'img');
|
|||
|
|
|
|||
|
|
imagejpeg($img, $tmpName, $quality);
|
|||
|
|
|
|||
|
|
//$fp = fopen($tmpName,'rb');
|
|||
|
|
|
|||
|
|
$tmp = get_magic_quotes_runtime();
|
|||
|
|
|
|||
|
|
set_magic_quotes_runtime(0);
|
|||
|
|
|
|||
|
|
if ( ($data = file_get_contents($tmpName)) === false) {
|
|||
|
|
|
|||
|
|
// $fp = @fopen($tmpName,'rb');
|
|||
|
|
// if ($fp){
|
|||
|
|
// $data = '';
|
|||
|
|
// while(!feof($fp)){
|
|||
|
|
// $data .= fread($fp,1024);
|
|||
|
|
// }
|
|||
|
|
// fclose($fp);
|
|||
|
|
$error = 1;
|
|||
|
|
|
|||
|
|
$errormsg = 'trouble opening file';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// $data = fread($fp,filesize($tmpName));
|
|||
|
|
set_magic_quotes_runtime($tmp);
|
|||
|
|
|
|||
|
|
// fclose($fp);
|
|||
|
|
unlink($tmpName);
|
|||
|
|
|
|||
|
|
$this->addJpegImage_common($data, $x, $y, $w, $h, $imageWidth, $imageHeight);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* common code used by the two JPEG adding functions
|
|||
|
|
*
|
|||
|
|
* @access private
|
|||
|
|
*/
|
|||
|
|
function addJpegImage_common(&$data, $x, $y, $w = 0, $h = 0, $imageWidth, $imageHeight, $channels = 3) {
|
|||
|
|
|
|||
|
|
// note that this function is not to be called externally
|
|||
|
|
// it is just the common code between the GD and the file options
|
|||
|
|
$this->numImages++;
|
|||
|
|
|
|||
|
|
$im = $this->numImages;
|
|||
|
|
|
|||
|
|
$label = 'I'.$im;
|
|||
|
|
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_image($this->numObj, 'new', array('label' => $label, 'data' => &$data, 'iw' => $imageWidth, 'ih' => $imageHeight, 'channels' => $channels));
|
|||
|
|
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\nq";
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n".sprintf('%.3f', $w) ." 0 0 ".sprintf('%.3f', $h) ." ".sprintf('%.3f', $x) ." ".sprintf('%.3f', $y) ." cm";
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\n/".$label.' Do';
|
|||
|
|
|
|||
|
|
$this->objects[$this->currentContents]['c'].= "\nQ";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* specify where the document should open when it first starts
|
|||
|
|
*/
|
|||
|
|
function openHere($style, $a = 0, $b = 0, $c = 0) {
|
|||
|
|
|
|||
|
|
// this function will open the document at a specified page, in a specified style
|
|||
|
|
// the values for style, and the required paramters are:
|
|||
|
|
// 'XYZ' left, top, zoom
|
|||
|
|
// 'Fit'
|
|||
|
|
// 'FitH' top
|
|||
|
|
// 'FitV' left
|
|||
|
|
// 'FitR' left,bottom,right
|
|||
|
|
// 'FitB'
|
|||
|
|
// 'FitBH' top
|
|||
|
|
// 'FitBV' left
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_destination($this->numObj, 'new', array('page' => $this->currentPage, 'type' => $style, 'p1' => $a, 'p2' => $b, 'p3' => $c));
|
|||
|
|
|
|||
|
|
$id = $this->catalogId;
|
|||
|
|
|
|||
|
|
$this->o_catalog($id, 'openHere', $this->numObj);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* create a labelled destination within the document
|
|||
|
|
*/
|
|||
|
|
function addDestination($label, $style, $a = 0, $b = 0, $c = 0) {
|
|||
|
|
|
|||
|
|
// associates the given label with the destination, it is done this way so that a destination can be specified after
|
|||
|
|
// it has been linked to
|
|||
|
|
// styles are the same as the 'openHere' function
|
|||
|
|
$this->numObj++;
|
|||
|
|
|
|||
|
|
$this->o_destination($this->numObj, 'new', array('page' => $this->currentPage, 'type' => $style, 'p1' => $a, 'p2' => $b, 'p3' => $c));
|
|||
|
|
|
|||
|
|
$id = $this->numObj;
|
|||
|
|
|
|||
|
|
// store the label->idf relationship, note that this means that labels can be used only once
|
|||
|
|
$this->destinations["$label"] = $id;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* define font families, this is used to initialize the font families for the default fonts
|
|||
|
|
* and for the user to add new ones for their fonts. The default bahavious can be overridden should
|
|||
|
|
* that be desired.
|
|||
|
|
*/
|
|||
|
|
function setFontFamily($family, $options = '') {
|
|||
|
|
|
|||
|
|
if (!is_array($options)) {
|
|||
|
|
|
|||
|
|
if ($family == 'init') {
|
|||
|
|
|
|||
|
|
// set the known family groups
|
|||
|
|
// these font families will be used to enable bold and italic markers to be included
|
|||
|
|
// within text streams. html forms will be used... <b></b> <i></i>
|
|||
|
|
$this->fontFamilies['Helvetica.afm'] =
|
|||
|
|
array('b' => 'Helvetica-Bold.afm',
|
|||
|
|
'i' => 'Helvetica-Oblique.afm',
|
|||
|
|
'bi' => 'Helvetica-BoldOblique.afm',
|
|||
|
|
'ib' => 'Helvetica-BoldOblique.afm');
|
|||
|
|
|
|||
|
|
$this->fontFamilies['Courier.afm'] =
|
|||
|
|
array('b' => 'Courier-Bold.afm',
|
|||
|
|
'i' => 'Courier-Oblique.afm',
|
|||
|
|
'bi' => 'Courier-BoldOblique.afm',
|
|||
|
|
'ib' => 'Courier-BoldOblique.afm');
|
|||
|
|
|
|||
|
|
$this->fontFamilies['Times-Roman.afm'] =
|
|||
|
|
array('b' => 'Times-Bold.afm',
|
|||
|
|
'i' => 'Times-Italic.afm',
|
|||
|
|
'bi' => 'Times-BoldItalic.afm',
|
|||
|
|
'ib' => 'Times-BoldItalic.afm');
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
// the user is trying to set a font family
|
|||
|
|
// note that this can also be used to set the base ones to something else
|
|||
|
|
if (strlen($family)) {
|
|||
|
|
|
|||
|
|
$this->fontFamilies[$family] = $options;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* used to add messages for use in debugging
|
|||
|
|
*/
|
|||
|
|
function addMessage($message) {
|
|||
|
|
|
|||
|
|
$this->messages.= $message."\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* a few functions which should allow the document to be treated transactionally.
|
|||
|
|
*/
|
|||
|
|
function transaction($action) {
|
|||
|
|
|
|||
|
|
switch ($action) {
|
|||
|
|
|
|||
|
|
case 'start':
|
|||
|
|
|
|||
|
|
// store all the data away into the checkpoint variable
|
|||
|
|
$data = get_object_vars($this);
|
|||
|
|
|
|||
|
|
$this->checkpoint = $data;
|
|||
|
|
|
|||
|
|
unset($data);
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'commit':
|
|||
|
|
|
|||
|
|
if (is_array($this->checkpoint) && isset($this->checkpoint['checkpoint'])) {
|
|||
|
|
|
|||
|
|
$tmp = $this->checkpoint['checkpoint'];
|
|||
|
|
|
|||
|
|
$this->checkpoint = $tmp;
|
|||
|
|
|
|||
|
|
unset($tmp);
|
|||
|
|
} else {
|
|||
|
|
|
|||
|
|
$this->checkpoint = '';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'rewind':
|
|||
|
|
|
|||
|
|
// do not destroy the current checkpoint, but move us back to the state then, so that we can try again
|
|||
|
|
if (is_array($this->checkpoint)) {
|
|||
|
|
|
|||
|
|
// can only abort if were inside a checkpoint
|
|||
|
|
$tmp = $this->checkpoint;
|
|||
|
|
|
|||
|
|
foreach ($tmp as $k => $v) {
|
|||
|
|
|
|||
|
|
if ($k != 'checkpoint') {
|
|||
|
|
|
|||
|
|
$this->$k = $v;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
unset($tmp);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case 'abort':
|
|||
|
|
|
|||
|
|
if (is_array($this->checkpoint)) {
|
|||
|
|
|
|||
|
|
// can only abort if were inside a checkpoint
|
|||
|
|
$tmp = $this->checkpoint;
|
|||
|
|
|
|||
|
|
foreach ($tmp as $k => $v) {
|
|||
|
|
|
|||
|
|
$this->$k = $v;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
unset($tmp);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
// end of class
|
|||
|
|
|
|||
|
|
?>
|