class.pdf.php

Ir para a documentação deste ficheiro.

<?php
function __sprintf($fmt, $value)
{
    $r = sprintf($fmt, $value);
    return str_replace(',', '.', $r);
}
 
class Cpdf
{
 
    var $numObj = 0;
    var $objects = array(
        );
    var $catalogId;
    var $fonts = array(
        );
    var $currentFont = '';
    var $currentBaseFont = '';
    var $currentFontNum = 0;
    var $currentNode;
    var $currentPage;
    var $currentContents;
    var $numFonts = 0;
    var $currentColour = array('r' => -1, 'g' => -1, 'b' => -1);
    var $currentStrokeColour = array('r' => -1, 'g' => -1, 'b' => -1);
    var $currentLineStyle = '';
    var $stateStack = array(
        );
    var $nStateStack = 0;
    var $numPages = 0;
    var $stack = array(
        );
    var $nStack = 0;
    var $looseObjects = array(
        );
    var $addLooseObjects = array(
        );
    var $infoObject = 0;
    var $numImages = 0;
    var $options = array('compression' => 1);
    var $firstPageId;
    var $wordSpaceAdjust = 0;
    var $procsetObjectId;
    var $fontFamilies = array(
        );
    var $currentTextState = '';
    var $messages = '';
    var $arc4 = '';
    var $arc4_objnum = 0;
    var $fileIdentifier = '';
    var $encrypted = 0;
    var $encryptionKey = '';
    var $callback = array(
        );
    var $nCallback = 0;
    var $destinations = array(
        );
    var $checkpoint = '';
    var $fonts_path;
 
    function Cpdf($pageSize = array(0, 0, 612, 792))
    {
        self::__construct($pageSize);
    }
 
    function __construct($pageSize = array(0, 0, 612, 792))
    {
        $this->newDocument($pageSize);
 
        $this->SetFontsPath('./fonts');
        // also initialize the font families that are known about already
        $this->setFontFamily('init');
    //  $this->fileIdentifier = md5('xxxxxxxx'.time());
 
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
            }
    }
 
    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;
    }
 
    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));
    }
 
    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;
        }
    }
 
    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;
    }
 
    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);
    }
 
    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);
    }
 
    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));
        }
    }
 
    function checkAllHere()
    {
    }
 
    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;
    }
 
    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;
    }
 
    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;
        }
    }
 
    function selectFont($fontName, $encoding = '', $set = 1)
    {
        if (strpos($fontName, $this->fonts_path) === false)
            $fontName = $this->fonts_path . '/' . $fontName;
        //echo $fontName;
 
        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');
                    $data = fread($fp, filesize($fbfile));
                    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;
    }
 
    function setCurrentFont()
    {
        if (strlen($this->currentBaseFont) == 0)
        {
            // then assume an initial font
            $this->selectFont($this->fonts_path . '/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 getFirstPageId()
    {
        return $this->firstPageId;
    }
 
    function addContent($content)
    {
        $this->objects[$this->currentContents]['c'] .= $content;
    }
 
    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
                );
        }
    }
 
    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
                );
        }
    }
 
    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';
    }
 
    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';
    }
 
    function partEllipse($x0, $y0, $astart, $afinish, $r1, $r2 = 0, $angle = 0, $nSeg = 8)
    {
        $this->ellipse($x0, $y0, $r1, $r2, $angle, $nSeg, $astart, $afinish, 0);
    }
 
    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);
    }
 
    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';
        }
    }
 
    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;
    }
 
    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';
        }
    }
 
    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';
    }
 
    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';
    }
 
    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;
    }
 
    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);
    }
 
    function getFontHeight($size)
    {
        if (!$this->numFonts)
        {
            $this->selectFont($this->fonts_path . '/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;
    }
 
    function getFontDecender($size)
    {
        // note that this will most likely return a negative value
        if (!$this->numFonts)
        {
            $this->selectFont($this->fonts_path . '/Helvetica');
        }
 
        $h = $this->fonts[$this->currentFont]['FontBBox'][1];
        return $size * $h / 1000;
    }
 
    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;
    }
 
    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);
    }
 
    function PRVTcheckTextDirective(&$text, $i, &$f)
    {
        $x = 0;
        $y = 0;
        return $this->PRVTcheckTextDirective1($text, $i, $f, 0, $x, $y);
    }
 
    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;
    }
 
    function addText($x, $y, $size, $text, $angle = 0, $wordSpaceAdjust = 0)
    {
        if (!$this->numFonts)
        {
            $this->selectFont($this->fonts_path . '/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);
            }
        }
    }
 
    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($this->fonts_path . '/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;
    }
 
    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;
            }
    }
 
    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($this->fonts_path . '/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;
        //echo "text=$text    tmpw=$tmpw<br>";
        $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 '';
    }
 
    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";
    }
 
    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";
    }
 
    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;
    }
 
    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'];
        }
    }
 
    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.
        }
    }
 
    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] = '';
        }
    }
 
    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;
                }
        }
    }
 
    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);
        }
    }
 
    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));
        }
    }
 
    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;
    }
 
    function addPngFromFile($file, $x, $y, $w = 0, $h = 0)
    {
        // read in a png file, interpret it, then add to the system
        $error = 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;
        }
 
        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";
    }
 
    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');
 
        $data = fread($fp, filesize($img));
 
        fclose($fp);
 
        $this->addJpegImage_common($data, $x, $y, $w, $h, $imageWidth, $imageHeight, $channels);
    }
 
    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');
 
        $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));
 
        //  fclose($fp);
        unlink($tmpName);
        $this->addJpegImage_common($data, $x, $y, $w, $h, $imageWidth, $imageHeight);
    }
 
    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";
    }
 
    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);
    }
 
    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;
    }
 
    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;
            }
        }
    }
 
    function addMessage($message)
    {
        $this->messages .= $message . "\n";
    }
 
    /* PHP 4 
    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;
      }
    
    }
    */
    /* PHP 5 */
 
    function transaction($action)
    {
        switch ($action)
            {
            case 'start':
                // store all the data away into the checkpoint variable
                $this->checkpoint = clone $this;
 
                break;
 
            case 'commit':
                if (is_object($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_object($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_object($this->checkpoint))
                {
                    // can only abort if were inside a checkpoint
                    $tmp = $this->checkpoint;
 
                    foreach ($tmp as $k => $v)
                    {
                        $this->$k = $v;
                    }
 
                    unset($tmp);
                }
 
                break;
            }
    }
    
 
    function SetFontsPath($path)
    {
        $this->fonts_path = $path;
    }
} // end of class
?>