<?php

/**

* Cpdf

*

* http://www.ros.co.nz/pdf

*

* A PHP class to provide the basic functionality to create a pdf document without

* any requirement for additional modules.

*

* Note that they companion class CezPdf can be used to extend this class and dramatically

* simplify the creation of documents.

*

* IMPORTANT NOTE

* there is no warranty, implied or otherwise with this software.

* 

* LICENCE

* This code has been placed in the Public Domain for all to enjoy.

*

* @author		Wayne Munro <pdf@ros.co.nz>

* @version 	009

* @package	Cpdf

*/

class Cpdf {



/**

* the current number of pdf objects in the document

*/

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



?>