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

/**
 * @package Cpdf
 */
class Cpdf {

	/**
	 * the current number of pdf objects in the document
	 */
	var $numObj=0;
	/**
	 * this array contains all of the pdf objects, ready for final assembly
	 */
	var $objects = array();
	/**
	 * the objectId (number within the objects array) of the document catalog
	 */
	var $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
	 */
	var $fonts=array();
	/**
	 * a record of the current font
	 */
	var $currentFont='';
	/**
	 * the current base font
	 */
	var $currentBaseFont='';
	/**
	 * the number of the current font within the font array
	 */
	var $currentFontNum=0;
	/**
	 *
	 */
	var $currentNode;
	/**
	 * object number of the current page
	 */
	var $currentPage;
	/**
	 * object number of the currently active contents block
	 */
	var $currentContents;
	/**
	 * number of fonts within the system
	 */
	var $numFonts=0;
	/**
	 * current colour for fill operations, defaults to inactive value, all three components should be between 0 and 1 inclusive when active
	 */
	var $currentColour=array('r'=>-1,'g'=>-1,'b'=>-1);
	/**
	 * current colour for stroke operations (lines etc.)
	 */
	var $currentStrokeColour=array('r'=>-1,'g'=>-1,'b'=>-1);
	/**
	 * current style that lines are drawn in
	 */
	var $currentLineStyle='';
	/**
	 * 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
	 */
	var $stateStack = array();
	/**
	 * number of elements within the state stack
	 */
	var $nStateStack = 0;
	/**
	 * number of page objects within the document
	 */
	var $numPages=0;
	/**
	 * object Id storage stack
	 */
	var $stack=array();
	/**
	 * number of elements within the object Id storage stack
	 */
	var $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
	 */
	var $looseObjects=array();
	/**
	 * array contains infomation about how the loose objects are to be added to the document
	 */
	var $addLooseObjects=array();
	/**
	 * the objectId of the information object for the document
	 * this contains authorship, title etc.
	 */
	var $infoObject=0;
	/**
	 * number of images being tracked within the document
	 */
	var $numImages=0;
	/**
	 * an array containing options about the document
	 * it defaults to turning on the compression of the objects
	 */
	var $options=array('compression'=>1);
	/**
	 * the objectId of the first page of the document
	 */
	var $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.
	 */
	var $wordSpaceAdjust=0;
	/**
	 * the object Id of the procset object
	 */
	var $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.
	 */
	var $fontFamilies = array();
	/**
	 * track if the current font is bolded or italicised
	 */
	var $currentTextState = '';
	/**
	 * messages are stored here during processing, these can be selected afterwards to give some useful debug information
	 */
	var $messages='';
	/**
	 * the ancryption array for the document encryption is stored here
	 */
	var $arc4='';
	/**
	 * the object Id of the encryption information
	 */
	var $arc4_objnum=0;
	/**
	 * the file identifier, used to uniquely identify a pdf document
	 */
	var $fileIdentifier='';
	/**
	 * a flag to say if a document is to be encrypted or not
	 */
	var $encrypted=0;
	/**
	 * the ancryption key for the encryption of all the document content (structure is not encrypted)
	 */
	var $encryptionKey='';
	/**
	 * array which forms a stack to keep track of nested callback functions
	 */
	var $callback = array();
	/**
	 * the number of callback functions in the callback array
	 */
	var $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
	 */
	var $destinations = array();
	/**
	 * store the stack for the transaction commands, each item in here is a record of the values of all the
	 * variables 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.
	 */
	var $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 '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'])){
						$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.=" >>";
						}
						$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";
					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);
					}
					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;
							}
						}
					} else {
						$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;
		}
	}

	/**
	 * 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%����\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.=substr('0000000000',0,10-strlen($p)).$p." 00000 n \n";
		}
		$content.="\ntrailer\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($dir.'php_'.$name.'.afm');
			$this->fonts[$font]=unserialize($tmp[0]);
			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;
			$fp = fopen($dir.'php_'.$name.'.afm','w');
			fwrite($fp,serialize($data));
			fclose($fp);
		} 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++;
				$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.
					$fp = fopen($fbfile,'rb');
					$tmp = get_magic_quotes_runtime();
					set_magic_quotes_runtime(0);
					$data = fread($fp,filesize($fbfile));
					set_magic_quotes_runtime($tmp);
					fclose($fp);

					// 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 line means that if a new font is selected, then the current text state will be
			// applied to it as well.
			$this->setCurrentFont();
		}
		return $this->currentFontNum;
	}

	/**
	 * sets up the current font, based on the font families, and the current text state
	 * note that this system is quite flexible, a <b><i> font can be completely different to a
	 * </i></b> font, and even <b></b> 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);
		}
	}

	/**
	 * 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
		if (!is_array($options)){
			$options=array();
		}
		if ( isset($options['compress']) && $options['compress']==0){
			$tmp = $this->output(1);
		} else {
			$tmp = $this->output();
		}
		header("Content-type: application/pdf");
		header("Content-Length: ".strlen(ltrim($tmp)));
		$fileName = (isset($options['Content-Disposition'])?$options['Content-Disposition']:'file.pdf');
		header("Content-Disposition: inline; filename=".$fileName);
		if (isset($options['Accept-Ranges']) && $options['Accept-Ranges']==1){
			header("Accept-Ranges: ".strlen(ltrim($tmp)));
		}
		echo ltrim($tmp);
	}

	/**
	 * 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){
		$text = str_replace('\\','\\\\',$text);
		$text = str_replace('(','\(',$text);
		$text = str_replace(')','\)',$text);
		$text = str_replace('&lt;','<',$text);
		$text = str_replace('&gt;','>',$text);
		$text = str_replace('&#039;','\'',$text);
		$text = str_replace('&quot;','"',$text);
		$text = str_replace('&amp;','&',$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){
		$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){
		$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 = $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 = $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){
		// 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;
		for ($i=0;$i<$len;$i++){
			$f=1;
			$directive = $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'];
				}
			}
		}

		$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 = $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;
			}
		}
	}

	/**
	 * 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);
		$fp = @fopen($file,'rb');
		if ($fp){
			$data='';
			while(!feof($fp)){
				$data .= fread($fp,1024);
			}
			fclose($fp);
		} else {
			$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']."<BR>";
						$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

						} 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 = 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);
		$fp = @fopen($tmpName,'rb');
		if ($fp){
			$data='';
			while(!feof($fp)){
				$data .= fread($fp,1024);
			}
			fclose($fp);
		} else {
			$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

?>