| | "); //remove all unsupported tags
//replace carriage returns, newlines and tabs
$repTable = array("\t" => " ", "\n" => " ", "\r" => " ", "\0" => " ", "\x0B" => " ", "\\" => "\\\\");
$html = strtr($html, $repTable);
$pattern = '/(<[^>]+>)/Uu';
$a = preg_split($pattern, $html, -1, PREG_SPLIT_DELIM_CAPTURE | PREG_SPLIT_NO_EMPTY); //explodes the string
if ((empty($this->lasth))OR ($reseth)) {
//set row height
$this->lasth = $this->FontSize * $this->cell_height_ratio;
}
// count elements
$maxel = count($a);
$key = 0;
while($key < $maxel) {
$element = $a[$key];
$cfill = (count($this->bgtag) > 0);
$wfill = ($fill OR $cfill);
if($this->tdbegin) {
// we are inside an HTML cell | or |
// find the corresponding closing tag
$closetag = "".$this->tdbegin.">";
$nesting = 0; // account for nested tables
$i = $key + 1;
while ($i < $maxel) {
if (substr($a[$i],0,3) == "<".$this->tdbegin."") {
$nesting++;
} elseif (strtolower($a[$i]) == $closetag) {
if ($nesting > 0) {
$nesting--;
} else {
break;
}
}
$element .= $a[$i];
$i++;
$key++;
}
$this->tdbegin = false; // this must be fixed for nesting tables
// output multicell in HTML mode
$this->MultiCell(($this->tdcolspan * $this->tdwidth), $this->tdheight, $element, $this->tableborder, $this->tdalign, 0, 0, '', '', true, 0, true);
} elseif (!preg_match($pattern, $element)) {
// the current element is not an HTML tag
//Text
if($this->HREF) {
// HTML Link
$this->addHtmlLink($this->HREF, $element, $wfill);
} else {
$ctmpmargin = $this->cMargin;
if(!$cell) {
$this->cMargin = 0;
}
$this->Write($this->lasth, stripslashes($this->unhtmlentities($element)), '', $wfill, '', false, 0);
$this->cMargin = $ctmpmargin;
}
} else {
// the current element is an HTML tag
$element = substr($element, 1, -1);
if($element{0}=='/') {
// closing html tag
$this->closedHTMLTagHandler(strtolower(substr($element, 1)));
} else {
//Extract attributes
// get tag name
preg_match('/([a-zA-Z0-9]*)/', $element, $tag);
$tag = strtolower($tag[0]);
// get attributes
preg_match_all('/([^=\s]*)=["\']?([^"\']*)["\']?/', $element, $attr_array, PREG_PATTERN_ORDER);
$attr = array(); // reset attribute array
while(list($id, $name) = each($attr_array[1])) {
$attr[strtolower($name)] = $attr_array[2][$id];
}
$this->openHTMLTagHandler($tag, $attr, $fill);
}
}
$key++;
}
if ($ln) {
$this->Ln($this->lasth);
}
}
/**
* Prints a cell (rectangular area) with optional borders, background color and html text string.
* The upper-left corner of the cell corresponds to the current position. After the call, the current position moves to the right or to the next line.
* If automatic page breaking is enabled and the cell goes beyond the limit, a page break is done before outputting.
* @param float $w Cell width. If 0, the cell extends up to the right margin.
* @param float $h Cell minimum height. The cell extends automatically if needed.
* @param float $x upper-left corner X coordinate
* @param float $y upper-left corner Y coordinate
* @param string $html html text to print. Default value: empty string.
* @param mixed $border Indicates if borders must be drawn around the cell. The value can be either a number:- 0: no border (default)
- 1: frame
or a string containing some or all of the following characters (in any order):- L: left
- T: top
- R: right
- B: bottom
* @param int $ln Indicates where the current position should go after the call. Possible values are:- 0: to the right (or left for RTL language)
- 1: to the beginning of the next line
- 2: below
Putting 1 is equivalent to putting 0 and calling Ln() just after. Default value: 0.
* @param int $fill Indicates if the cell background must be painted (1) or transparent (0). Default value: 0.
* @param boolean $reseth if true reset the last cell height (default true).
* @uses MultiCell()
* @see Multicell(), writeHTML(), Cell()
*/
function writeHTMLCell($w, $h, $x, $y, $html='', $border=0, $ln=0, $fill=0, $reseth=true) {
return $this->MultiCell($w, $h, $html, $border, '', $fill, $ln, $x, $y, $reseth, 0, true);
}
/**
* Process opening tags.
* @param string $tag tag name (in uppercase)
* @param string $attr tag attribute (in uppercase)
* @param int $fill Indicates if the cell background must be painted (1) or transparent (0). Default value: 0.
* @access protected
*/
function openHTMLTagHandler($tag, $attr, $fill=0) {
// check for text direction attribute
if (isset($attr['dir'])) {
$this->tmprtl = $attr['dir']=='rtl' ? 'R' : 'L';
} else {
$this->tmprtl = false;
}
if (($tag != 'br') AND ($tag != 'hr') AND ($tag != 'img') ) {
// set foreground color attribute
if (isset($attr['color']) AND $attr['color']!='') {
$col = $this->convertHTMLColorToDec($attr['color']);
} else {
$col = end($this->fgcolor);
}
$this->SetTextColorArray($col, true);
// set background color attribute
if ((isset($attr['bgcolor'])) AND ($attr['bgcolor'] != '')) {
$col = $this->convertHTMLColorToDec($attr['bgcolor']);
array_push($this->bgtag, count($this->bgcolor));
} else {
$col = end($this->bgcolor);
}
$this->SetFillColorArray($col, true);
}
//Opening tag
switch($tag) {
case 'table': {
if ((isset($attr['border'])) AND ($attr['border'] != '')) {
$this->tableborder = $attr['border'];
} else {
$this->tableborder = 0;
}
break;
}
case 'tr': {
break;
}
case 'td':
case 'th': {
$this->tdbegin = $tag;
if ((isset($attr['width'])) AND ($attr['width'] != '')) {
$this->tdwidth = ($attr['width']/4);
} else {
$this->tdwidth = (($this->w - $this->lMargin - $this->rMargin) / $this->default_table_columns);
}
if ((isset($attr['height'])) AND ($attr['height'] != '')) {
$this->tdheight=($attr['height'] / $this->k);
} else {
$this->tdheight = $this->lasth;
}
if ((isset($attr['align'])) AND ($attr['align'] != '')) {
switch ($attr['align']) {
case 'center': {
$this->tdalign = "C";
break;
}
case 'right': {
$this->tdalign = "R";
break;
}
default:
case 'left': {
$this->tdalign = "L";
break;
}
}
} else {
if($this->rtl) {
$this->tdalign = "R";
} else {
$this->tdalign = "L";
}
}
if ((isset($attr['colspan'])) AND (is_numeric($attr['colspan']))) {
$this->tdcolspan = intval($attr['colspan']);
} else {
$this->tdcolspan = 1;
}
// write a void cell
$cfill = (count($this->bgtag) > 0);
$cell_start_x = $this->x;
$cell_start_y = $this->y;
$this->Cell(($this->tdcolspan * $this->tdwidth), $this->tdheight, '', $this->tableborder, '', $this->tdalign, $cfill);
// restore the cursor at the previous position
$this->x = $cell_start_x;
$this->y = $cell_start_y;
break;
}
case 'hr': {
$this->Ln();
if ((isset($attr['width'])) AND ($attr['width'] != '')) {
$hrWidth = $attr['width'];
} else {
$hrWidth = $this->w - $this->lMargin - $this->rMargin;
}
$x = $this->GetX();
$y = $this->GetY();
$this->GetLineWidth();
$prevlinewidth = $this->SetLineWidth(0.2);
$this->Line($x, $y, $x + $hrWidth, $y);
$this->SetLineWidth($prevlinewidth);
$this->Ln();
break;
}
case 'strong': {
$this->setStyle('b', true);
break;
}
case 'em': {
$this->setStyle('i', true);
break;
}
case 'b':
case 'i':
case 'u': {
$this->setStyle($tag, true);
break;
}
case 'del': {
$this->setStyle('d', true);
break;
}
case 'a': {
$this->HREF = $attr['href'];
break;
}
case 'img': {
if(isset($attr['src'])) {
// replace relative path with real server path
if ($attr['src'][0] == '/') {
$attr['src'] = $_SERVER['DOCUMENT_ROOT'].$attr['src'];
}
$attr['src'] = str_replace(K_PATH_URL, K_PATH_MAIN, $attr['src']);
if(!isset($attr['width'])) {
$attr['width'] = 0;
}
if(!isset($attr['height'])) {
$attr['height'] = 0;
}
if(!isset($attr['align'])) {
$align = 'N';
} else {
switch($attr['align']) {
case 'top':{
$align = 'T';
break;
}
case 'middle':{
$align = 'M';
break;
}
case 'bottom':{
$align = 'B';
break;
}
default:{
$align = 'N';
break;
}
}
}
$this->Image($attr['src'], $this->GetX(),$this->GetY(), $this->pixelsToUnits($attr['width']), $this->pixelsToUnits($attr['height']), '', '', $align);
}
break;
}
case 'dl': {
$this->listnum++;
break;
}
case 'dt': {
$this->Ln();
break;
}
case 'dd': {
if ($this->rtl) {
$this->rMargin += $this->listindent;
} else {
$this->lMargin += $this->listindent;
}
$this->Ln();
break;
}
case 'ul':
case 'ol': {
$this->listnum++;
if ($tag == "ol") {
$this->listordered[$this->listnum] = true;
} else {
$this->listordered[$this->listnum] = false;
}
$this->listcount[$this->listnum] = 0;
if ($this->rtl) {
$this->rMargin += $this->listindent;
} else {
$this->lMargin += $this->listindent;
}
break;
}
case 'li': {
$this->Ln();
if($tag == 'li') {
if ($this->listordered[$this->listnum]) {
if (isset($attr['value'])) {
$this->listcount[$this->listnum] = intval($attr['value']);
}
$this->listcount[$this->listnum]++;
if ($this->rtl) {
$this->lispacer = ".".($this->listcount[$this->listnum]);
} else {
$this->lispacer = ($this->listcount[$this->listnum]).".";
}
} else {
//unordered list symbol
$this->lispacer = "-";
}
} else {
$this->lispacer = "";
}
$tmpx = $this->x;
$lspace = $this->GetStringWidth($this->lispacer." ");
if ($this->rtl) {
$this->x += $lspace;
} else {
$this->x -= $lspace;
}
$this->Write($this->lasth, $this->lispacer, '', $fill, '', false, 0);
$this->x = $tmpx;
break;
}
case 'blockquote':
case 'br': {
$this->Ln();
break;
}
case 'p': {
$this->Ln();
$this->Ln();
break;
}
case 'sup': {
$currentFontSize = $this->FontSize;
$this->tempfontsize = $this->FontSizePt;
$this->SetFontSize($this->FontSizePt * K_SMALL_RATIO);
$this->SetXY($this->GetX(), $this->GetY() - (($currentFontSize - $this->FontSize)*(K_SMALL_RATIO)));
break;
}
case 'sub': {
$currentFontSize = $this->FontSize;
$this->tempfontsize = $this->FontSizePt;
$this->SetFontSize($this->FontSizePt * K_SMALL_RATIO);
$this->SetXY($this->GetX(), $this->GetY() + (($currentFontSize - $this->FontSize)*(K_SMALL_RATIO)));
break;
}
case 'small': {
$currentFontSize = $this->FontSize;
$this->tempfontsize = $this->FontSizePt;
$this->SetFontSize($this->FontSizePt * K_SMALL_RATIO);
$this->SetXY($this->GetX(), $this->GetY() + (($currentFontSize - $this->FontSize)/3));
break;
}
case 'font': {
if (isset($attr['face'])) {
$fontslist = split(",", strtolower($attr['face']));
foreach($fontslist as $font) {
$font = trim($font);
if(in_array($font, $this->fontlist)){
$this->SetFont($font);
$this->issetfont = true;
break;
}
}
}
if (isset($attr['size'])) {
$headsize = intval($attr['size']);
} else {
$headsize = 0;
}
$currentFontSize = $this->FontSize;
$this->tempfontsize = $this->FontSizePt;
$this->SetFontSize($this->FontSizePt + $headsize);
$this->lasth = $this->FontSize * $this->cell_height_ratio;
break;
}
case 'h1':
case 'h2':
case 'h3':
case 'h4':
case 'h5':
case 'h6': {
$headsize = (4 - substr($tag, 1)) * 2;
$currentFontSize = $this->FontSize;
$this->tempfontsize = $this->FontSizePt;
$this->SetFontSize($this->FontSizePt + $headsize);
$this->setStyle('b', true);
$this->lasth = $this->FontSize * $this->cell_height_ratio;
break;
}
}
}
/**
* Process closing tags.
* @param string $tag tag name (in uppercase)
* @access protected
*/
function closedHTMLTagHandler($tag) {
// restore foreground color
$nfg = count($this->fgcolor);
if ($nfg > 1) {
array_pop($this->fgcolor);
$this->SetTextColorArray($this->fgcolor[$nfg-2], false);
}
//restore background color
$nbg = count($this->bgcolor);
if ($nbg > 1) {
array_pop($this->bgcolor);
if (end($this->bgtag) == ($nbg-1)) {
array_pop($this->bgtag);
}
$this->SetFillColorArray(array($this->bgcolor[$nbg-2]['R'], $this->bgcolor[$nbg-2]['G'], $this->bgcolor[$nbg-2]['B']), false);
}
//Closing tag
switch($tag) {
case 'td':
case 'th': {
$this->tdbegin = false;
$this->tdwidth = 0;
$this->tdheight = 0;
if($this->rtl) {
$this->tdalign = "R";
} else {
$this->tdalign = "L";
}
break;
}
case 'tr': {
$this->Ln();
break;
}
case 'table': {
$this->tableborder = 0;
break;
}
case 'strong': {
$this->setStyle('b', false);
break;
}
case 'em': {
$this->setStyle('i', false);
break;
}
case 'b':
case 'i':
case 'u': {
$this->setStyle($tag, false);
break;
}
case 'del': {
$this->setStyle('d', false);
break;
}
case 'a': {
$this->HREF = '';
break;
}
case 'sup': {
$currentFontSize = $this->FontSize;
$this->SetFontSize($this->tempfontsize);
$this->tempfontsize = $this->FontSizePt;
$this->SetXY($this->GetX(), $this->GetY() - (($currentFontSize - $this->FontSize)*(K_SMALL_RATIO)));
break;
}
case 'sub': {
$currentFontSize = $this->FontSize;
$this->SetFontSize($this->tempfontsize);
$this->tempfontsize = $this->FontSizePt;
$this->SetXY($this->GetX(), $this->GetY() + (($currentFontSize - $this->FontSize)*(K_SMALL_RATIO)));
break;
}
case 'small': {
$currentFontSize = $this->FontSize;
$this->SetFontSize($this->tempfontsize);
$this->tempfontsize = $this->FontSizePt;
$this->SetXY($this->GetX(), $this->GetY() - (($this->FontSize - $currentFontSize)/3));
break;
}
case 'font': {
if ($this->issetfont) {
$this->FontFamily = $this->prevFontFamily;
$this->FontStyle = $this->prevFontStyle;
$this->SetFont($this->FontFamily);
$this->issetfont = false;
}
$currentFontSize = $this->FontSize;
$this->SetFontSize($this->tempfontsize);
$this->tempfontsize = $this->FontSizePt;
$this->lasth = $this->FontSize * $this->cell_height_ratio;
break;
}
case 'p': {
$this->Ln();
$this->Ln();
break;
}
case 'dl': {
$this->listnum--;
if ($this->listnum <= 0) {
$this->listnum = 0;
$this->Ln();
$this->Ln();
}
break;
}
case 'dt': {
$this->lispacer = "";
break;
}
case 'dd': {
$this->lispacer = "";
if ($this->rtl) {
$this->rMargin -= $this->listindent;
} else {
$this->lMargin -= $this->listindent;
}
break;
}
case 'ul':
case 'ol': {
$this->listnum--;
$this->lispacer = "";
if ($this->rtl) {
$this->rMargin -= $this->listindent;
} else {
$this->lMargin -= $this->listindent;
}
if ($this->listnum <= 0) {
$this->listnum = 0;
$this->Ln();
$this->Ln();
}
break;
}
case 'li': {
$this->lispacer = "";
break;
}
case 'h1':
case 'h2':
case 'h3':
case 'h4':
case 'h5':
case 'h6': {
$currentFontSize = $this->FontSize;
$this->SetFontSize($this->tempfontsize);
$this->tempfontsize = $this->FontSizePt;
$this->setStyle('b', false);
$this->Ln();
$this->lasth = $this->FontSize * $this->cell_height_ratio;
break;
}
default : {
break;
}
}
$this->tmprtl = false;
}
/**
* Sets font style.
* @param string $tag tag name in lowercase. Supported tags are:
* - b : bold text
* - i : italic
* - u : underlined
* - lt : line-through
* @param boolean $enable
* @access protected
*/
function setStyle($tag, $enable) {
//Modify style and select corresponding font
$this->$tag += ($enable ? 1 : -1);
$style = '';
foreach(array('b', 'i', 'u', 'd') as $s) {
if($this->$s > 0) {
$style .= $s;
}
}
$this->SetFont('', $style);
}
/**
* Output anchor link.
* @param string $url link URL
* @param string $name link name
* @param int $fill Indicates if the cell background must be painted (1) or transparent (0). Default value: 0.
* @access public
*/
function addHtmlLink($url, $name, $fill=0) {
$prevcolor = end($this->fgcolor);
$this->SetTextColor(0, 0, 255, false);
$this->setStyle('u', true);
$this->Write($this->lasth, $name, $url, $fill, '', false, 0);
$this->setStyle('u', false);
$this->SetTextColorArray($prevcolor, false);
}
/**
* Returns an associative array (keys: R,G,B) from an html color name or a six-digit or three-digit hexadecimal color representation (i.e. #3FE5AA or #7FF).
* @param string $color html color
* @return array
* @access protected
*/
function convertHTMLColorToDec($color="#000000") {
// set default color to be returned in case of error
$returncolor = array ('R' => 0, 'G' => 0, 'B' => 0);
if(empty($color)) {
return $returncolor;
}
if (substr($color, 0, 1) != "#") {
// decode color name
require_once(dirname(__FILE__).'/htmlcolors.php');
if (isset($webcolor[strtolower($color)])) {
$color_code = $webcolor[strtolower($color)];
} else {
return $returncolor;
}
} else {
$color_code = substr($color, 1);
}
switch (strlen($color_code)) {
case 3: {
// three-digit hexadecimal representation
$r = substr($color_code, 0, 1);
$g = substr($color_code, 1, 1);
$b = substr($color_code, 2, 1);
$returncolor['R'] = hexdec($r.$r);
$returncolor['G'] = hexdec($g.$g);
$returncolor['B'] = hexdec($b.$b);
break;
}
case 6: {
// six-digit hexadecimal representation
$returncolor['R'] = hexdec(substr($color_code, 0, 2));
$returncolor['G'] = hexdec(substr($color_code, 2, 2));
$returncolor['B'] = hexdec(substr($color_code, 4, 2));
break;
}
}
return $returncolor;
}
/**
* Converts pixels to Units.
* @param int $px pixels
* @return float millimeters
* @access public
*/
function pixelsToUnits($px){
return $px / $this->k;
}
/**
* Reverse function for htmlentities.
* Convert entities in UTF-8.
* @param $text_to_convert Text to convert.
* @return string converted
*/
function unhtmlentities($text_to_convert) {
if (file_exists(dirname(__FILE__).'/html_entity_decode_php4.php')) {
// we are using PHP 4 version
if (!$this->isunicode) {
return html_entity_decode($text_to_convert);
}
require_once(dirname(__FILE__).'/html_entity_decode_php4.php');
return html_entity_decode_php4($text_to_convert);
}
return html_entity_decode($text_to_convert, ENT_QUOTES, $this->encoding);
}
// ENCRYPTION METHODS ----------------------------------
// SINCE 2.0.000 (2008-01-02)
/**
* Compute encryption key depending on object number where the encrypted data is stored
* @param int $n object number
* @since 2.0.000 (2008-01-02)
*/
function _objectkey($n) {
return substr($this->_md5_16($this->encryption_key.pack('VXxx',$n)),0,10);
}
/**
* Put encryption on PDF document.
* @since 2.0.000 (2008-01-02)
*/
function _putencryption() {
$this->_out('/Filter /Standard');
$this->_out('/V 1');
$this->_out('/R 2');
$this->_out('/O ('.$this->_escape($this->Ovalue).')');
$this->_out('/U ('.$this->_escape($this->Uvalue).')');
$this->_out('/P '.$this->Pvalue);
}
/**
* Returns the input text exrypted using RC4 algorithm and the specified key.
* RC4 is the standard encryption algorithm used in PDF format
* @param string $key encryption key
* @param String $text input text to be encrypted
* @return String encrypted text
* @since 2.0.000 (2008-01-02)
* @author Klemen Vodopivec
*/
function _RC4($key, $text) {
if ($this->last_rc4_key != $key) {
$k = str_repeat($key, 256/strlen($key)+1);
$rc4 = range(0,255);
$j = 0;
for ($i=0; $i < 256; $i++) {
$t = $rc4[$i];
$j = ($j + $t + ord($k{$i})) % 256;
$rc4[$i] = $rc4[$j];
$rc4[$j] = $t;
}
$this->last_rc4_key = $key;
$this->last_rc4_key_c = $rc4;
} else {
$rc4 = $this->last_rc4_key_c;
}
$len = strlen($text);
$a = 0;
$b = 0;
$out = '';
for ($i=0; $i < $len; $i++) {
$a = ($a + 1) % 256;
$t = $rc4[$a];
$b = ($b + $t) % 256;
$rc4[$a] = $rc4[$b];
$rc4[$b] = $t;
$k = $rc4[($rc4[$a] + $rc4[$b]) % 256];
$out .= chr(ord($text{$i}) ^ $k);
}
return $out;
}
/**
* Encrypts a string using MD5 and returns it's value as a binary string.
* @param string $str input string
* @return String MD5 encrypted binary string
* @since 2.0.000 (2008-01-02)
* @author Klemen Vodopivec
*/
function _md5_16($str) {
return pack('H*',md5($str));
}
/**
* Compute O value (used for RC4 encryption)
* @param String $user_pass user password
* @param String $owner_pass user password
* @return String O value
* @since 2.0.000 (2008-01-02)
* @author Klemen Vodopivec
*/
function _Ovalue($user_pass, $owner_pass) {
$tmp = $this->_md5_16($owner_pass);
$owner_RC4_key = substr($tmp,0,5);
return $this->_RC4($owner_RC4_key, $user_pass);
}
/**
* Compute U value (used for RC4 encryption)
* @return String U value
* @since 2.0.000 (2008-01-02)
* @author Klemen Vodopivec
*/
function _Uvalue() {
return $this->_RC4($this->encryption_key, $this->padding);
}
/**
* Compute encryption key
* @param String $user_pass user password
* @param String $owner_pass user password
* @param String $protection protection type
* @since 2.0.000 (2008-01-02)
* @author Klemen Vodopivec
*/
function _generateencryptionkey($user_pass, $owner_pass, $protection) {
// Pad passwords
$user_pass = substr($user_pass.$this->padding,0,32);
$owner_pass = substr($owner_pass.$this->padding,0,32);
// Compute O value
$this->Ovalue = $this->_Ovalue($user_pass, $owner_pass);
// Compute encyption key
$tmp = $this->_md5_16($user_pass.$this->Ovalue.chr($protection)."\xFF\xFF\xFF");
$this->encryption_key = substr($tmp,0,5);
// Compute U value
$this->Uvalue = $this->_Uvalue();
// Compute P value
$this->Pvalue = -(($protection^255)+1);
}
/**
* Set document protection
* The permission array is composed of values taken from the following ones:
* - copy: copy text and images to the clipboard
* - print: print the document
* - modify: modify it (except for annotations and forms)
* - annot-forms: add annotations and forms
* Remark: the protection against modification is for people who have the full Acrobat product.
* If you don't set any password, the document will open as usual. If you set a user password, the PDF viewer will ask for it before displaying the document. The master password, if different from the user one, can be used to get full access.
* Note: protecting a document requires to encrypt it, which increases the processing time a lot. This can cause a PHP time-out in some cases, especially if the document contains images or fonts.
* @param Array $permissions the set of permissions. Empty by default (only viewing is allowed). (print, modify, copy, annot-forms)
* @param String $user_pass user password. Empty by default.
* @param String $owner_pass owner password. If not specified, a random value is used.
* @since 2.0.000 (2008-01-02)
* @author Klemen Vodopivec
*/
function SetProtection($permissions=array(), $user_pass='', $owner_pass=null) {
$options = array('print' => 4, 'modify' => 8, 'copy' => 16, 'annot-forms' => 32);
$protection = 192;
foreach($permissions as $permission) {
if (!isset($options[$permission])) {
$this->Error('Incorrect permission: '.$permission);
}
$protection += $options[$permission];
}
if ($owner_pass === null) {
$owner_pass = uniqid(rand());
}
$this->encrypted = true;
$this->_generateencryptionkey($user_pass, $owner_pass, $protection);
}
// END OF ENCRYPTION FUNCTIONS -------------------------
// START TRANSFORMATIONS SECTION -----------------------
// authors: Moritz Wagner, Andreas Wurmser, Nicola Asuni
/**
* Starts a 2D tranformation saving current graphic state.
* This function must be called before scaling, mirroring, translation, rotation and skewing.
* Use StartTransform() before, and StopTransform() after the transformations to restore the normal behavior.
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function StartTransform() {
$this->_out('q');
}
/**
* Stops a 2D tranformation restoring previous graphic state.
* This function must be called after scaling, mirroring, translation, rotation and skewing.
* Use StartTransform() before, and StopTransform() after the transformations to restore the normal behavior.
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function StopTransform() {
$this->_out('Q');
}
/**
* Horizontal Scaling.
* @param float $s_x scaling factor for width as percent. 0 is not allowed.
* @param int $x abscissa of the scaling center. Default is current x position
* @param int $y ordinate of the scaling center. Default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function ScaleX($s_x, $x='', $y=''){
$this->Scale($s_x, 100, $x, $y);
}
/**
* Vertical Scaling.
* @param float $s_y scaling factor for height as percent. 0 is not allowed.
* @param int $x abscissa of the scaling center. Default is current x position
* @param int $y ordinate of the scaling center. Default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function ScaleY($s_y, $x='', $y=''){
$this->Scale(100, $s_y, $x, $y);
}
/**
* Vertical and horizontal proportional Scaling.
* @param float $s scaling factor for width and height as percent. 0 is not allowed.
* @param int $x abscissa of the scaling center. Default is current x position
* @param int $y ordinate of the scaling center. Default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function ScaleXY($s, $x='', $y=''){
$this->Scale($s, $s, $x, $y);
}
/**
* Vertical and horizontal non-proportional Scaling.
* @param float $s_x scaling factor for width as percent. 0 is not allowed.
* @param float $s_y scaling factor for height as percent. 0 is not allowed.
* @param int $x abscissa of the scaling center. Default is current x position
* @param int $y ordinate of the scaling center. Default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function Scale($s_x, $s_y, $x='', $y=''){
if($x === '') {
$x=$this->x;
}
if($y === '') {
$y=$this->y;
}
if($this->rtl) {
$x = $this->w - $x;
}
if(($s_x == 0) OR ($s_y == 0)) {
$this->Error('Please use values unequal to zero for Scaling');
}
$y = ($this->h - $y) * $this->k;
$x *= $this->k;
//calculate elements of transformation matrix
$s_x /= 100;
$s_y /= 100;
$tm[0] = $s_x;
$tm[1] = 0;
$tm[2] = 0;
$tm[3] = $s_y;
$tm[4] = $x * (1 - $s_x);
$tm[5] = $y * (1 - $s_y);
//scale the coordinate system
$this->Transform($tm);
}
/**
* Horizontal Mirroring.
* @param int $x abscissa of the point. Default is current x position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function MirrorH($x=''){
$this->Scale(-100, 100, $x);
}
/**
* Verical Mirroring.
* @param int $y ordinate of the point. Default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function MirrorV($y=''){
$this->Scale(100, -100, '', $y);
}
/**
* Point reflection mirroring.
* @param int $x abscissa of the point. Default is current x position
* @param int $y ordinate of the point. Default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function MirrorP($x='',$y=''){
$this->Scale(-100, -100, $x, $y);
}
/**
* Reflection against a straight line through point (x, y) with the gradient angle (angle).
* @param float $angle gradient angle of the straight line. Default is 0 (horizontal line).
* @param int $x abscissa of the point. Default is current x position
* @param int $y ordinate of the point. Default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function MirrorL($angle=0, $x='',$y=''){
$this->Scale(-100, 100, $x, $y);
$this->Rotate(-2*($angle-90), $x, $y);
}
/**
* Translate graphic object horizontally.
* @param int $t_x movement to the right
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function TranslateX($t_x){
$this->Translate($t_x, 0);
}
/**
* Translate graphic object vertically.
* @param int $t_y movement to the bottom
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function TranslateY($t_y){
$this->Translate(0, $t_y);
}
/**
* Translate graphic object horizontally and vertically.
* @param int $t_x movement to the right
* @param int $t_y movement to the bottom
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function Translate($t_x, $t_y){
if($this->rtl) {
$t_x = -$t_x;
}
//calculate elements of transformation matrix
$tm[0] = 1;
$tm[1] = 0;
$tm[2] = 0;
$tm[3] = 1;
$tm[4] = $t_x * $this->k;
$tm[5] = -$t_y * $this->k;
//translate the coordinate system
$this->Transform($tm);
}
/**
* Rotate object.
* @param float $angle angle in degrees for counter-clockwise rotation
* @param int $x abscissa of the rotation center. Default is current x position
* @param int $y ordinate of the rotation center. Default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function Rotate($angle, $x='', $y=''){
if($x === '') {
$x=$this->x;
}
if($y === '') {
$y=$this->y;
}
if($this->rtl) {
$x = $this->w - $x;
$angle = -$angle;
}
$y = ($this->h - $y) * $this->k;
$x *= $this->k;
//calculate elements of transformation matrix
$tm[0] = cos(deg2rad($angle));
$tm[1] = sin(deg2rad($angle));
$tm[2] = -$tm[1];
$tm[3] = $tm[0];
$tm[4] = $x + $tm[1] * $y - $tm[0] * $x;
$tm[5] = $y - $tm[0] * $y - $tm[1] * $x;
//rotate the coordinate system around ($x,$y)
$this->Transform($tm);
}
/**
* Skew horizontally.
* @param float $angle_x angle in degrees between -90 (skew to the left) and 90 (skew to the right)
* @param int $x abscissa of the skewing center. default is current x position
* @param int $y ordinate of the skewing center. default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function SkewX($angle_x, $x='', $y=''){
$this->Skew($angle_x, 0, $x, $y);
}
/**
* Skew vertically.
* @param float $angle_y angle in degrees between -90 (skew to the bottom) and 90 (skew to the top)
* @param int $x abscissa of the skewing center. default is current x position
* @param int $y ordinate of the skewing center. default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function SkewY($angle_y, $x='', $y=''){
$this->Skew(0, $angle_y, $x, $y);
}
/**
* Skew.
* @param float $angle_x angle in degrees between -90 (skew to the left) and 90 (skew to the right)
* @param float $angle_y angle in degrees between -90 (skew to the bottom) and 90 (skew to the top)
* @param int $x abscissa of the skewing center. default is current x position
* @param int $y ordinate of the skewing center. default is current y position
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function Skew($angle_x, $angle_y, $x='', $y=''){
if($x === '') {
$x = $this->x;
}
if($y === '') {
$y = $this->y;
}
if($this->rtl) {
$x = $this->w - $x;
$angle_x = -$angle_x;
}
if(($angle_x <= -90) OR ($angle_x >= 90) OR ($angle_y <= -90) OR ($angle_y >= 90)) {
$this->Error('Please use values between -90 and +90 degrees for Skewing.');
}
$x *= $this->k;
$y = ($this->h - $y) * $this->k;
//calculate elements of transformation matrix
$tm[0] = 1;
$tm[1] = tan(deg2rad($angle_y));
$tm[2] = tan(deg2rad($angle_x));
$tm[3] = 1;
$tm[4] = -$tm[2] * $y;
$tm[5] = -$tm[1] * $x;
//skew the coordinate system
$this->Transform($tm);
}
/**
* Apply graphic transformations.
* @since 2.1.000 (2008-01-07)
* @see StartTransform(), StopTransform()
*/
function Transform($tm){
$this->_out(sprintf('%.3f %.3f %.3f %.3f %.3f %.3f cm', $tm[0], $tm[1], $tm[2], $tm[3], $tm[4], $tm[5]));
}
// END TRANSFORMATIONS SECTION -------------------------
// START GRAPHIC FUNCTIONS SECTION ---------------------
// The following section is based on the code provided by David Hernandez Sanz
/**
* Defines the line width. By default, the value equals 0.2 mm. The method can be called before the first page is created and the value is retained from page to page.
* @param float $width The width.
* @since 1.0
* @see Line(), Rect(), Cell(), MultiCell()
*/
function SetLineWidth($width) {
//Set line width
$this->LineWidth = $width;
if($this->page>0) {
$this->_out(sprintf('%.2f w', $width*$this->k));
}
}
/**
* Returns the current the line width.
* @return int Line width
* @since 2.1.000 (2008-01-07)
* @see Line(), SetLineWidth()
*/
function GetLineWidth() {
return $this->LineWidth;
}
/**
* Set line style.
* @param array $style Line style. Array with keys among the following:
*
* - width (float): Width of the line in user units.
* - cap (string): Type of cap to put on the line. Possible values are:
* butt, round, square. The difference between "square" and "butt" is that
* "square" projects a flat end past the end of the line.
* - join (string): Type of join. Possible values are: miter, round,
* bevel.
* - dash (mixed): Dash pattern. Is 0 (without dash) or string with
* series of length values, which are the lengths of the on and off dashes.
* For example: "2" represents 2 on, 2 off, 2 on, 2 off, ...; "2,1" is 2 on,
* 1 off, 2 on, 1 off, ...
* - phase (integer): Modifier on the dash pattern which is used to shift
* the point at which the pattern starts.
* - color (array): Draw color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K).
*
* @access public
* @since 2.1.000 (2008-01-08)
*/
function SetLineStyle($style) {
extract($style);
if (isset($width)) {
$width_prev = $this->LineWidth;
$this->SetLineWidth($width);
$this->LineWidth = $width_prev;
}
if (isset($cap)) {
$ca = array("butt" => 0, "round"=> 1, "square" => 2);
if (isset($ca[$cap])) {
$this->_out($ca[$cap] . " J");
}
}
if (isset($join)) {
$ja = array("miter" => 0, "round" => 1, "bevel" => 2);
if (isset($ja[$join])) {
$this->_out($ja[$join] . " j");
}
}
if (isset($dash)) {
$dash_string = "";
if ($dash) {
if (ereg("^.+,", $dash)) {
$tab = explode(",", $dash);
} else {
$tab = array($dash);
}
$dash_string = "";
foreach ($tab as $i => $v) {
if ($i) {
$dash_string .= " ";
}
$dash_string .= sprintf("%.2f", $v);
}
}
if (!isset($phase) OR !$dash) {
$phase = 0;
}
$this->_out(sprintf("[%s] %.2f d", $dash_string, $phase));
}
if (isset($color)) {
$this->SetDrawColorArray($color);
}
}
/*
* Set a draw point.
* @param float $x Abscissa of point.
* @param float $y Ordinate of point.
* @access protected
* @since 2.1.000 (2008-01-08)
*/
function _outPoint($x, $y) {
if($this->rtl) {
$x = $this->w - $x;
}
$this->_out(sprintf("%.2f %.2f m", $x * $this->k, ($this->h - $y) * $this->k));
}
/*
* Draws a line from last draw point.
* @param float $x Abscissa of end point.
* @param float $y Ordinate of end point.
* @access protected
* @since 2.1.000 (2008-01-08)
*/
function _outLine($x, $y) {
if($this->rtl) {
$x = $this->w - $x;
}
$this->_out(sprintf("%.2f %.2f l", $x * $this->k, ($this->h - $y) * $this->k));
}
/**
* Draws a rectangle.
* @param float $x Abscissa of upper-left corner (or upper-right corner for RTL language).
* @param float $y Ordinate of upper-left corner (or upper-right corner for RTL language).
* @param float $w Width.
* @param float $h Height.
* @param string $op options
* @access protected
* @since 2.1.000 (2008-01-08)
*/
function _outRect($x, $y, $w, $h, $op) {
if($this->rtl) {
$x = $this->w - $x - $w;
}
$this->_out(sprintf('%.2f %.2f %.2f %.2f re %s', $x*$this->k, ($this->h-$y)*$this->k, $w*$this->k, -$h*$this->k, $op));
}
/*
* Draws a Bezier curve from last draw point.
* The Bezier curve is a tangent to the line between the control points at either end of the curve.
* @param float $x1 Abscissa of control point 1.
* @param float $y1 Ordinate of control point 1.
* @param float $x2 Abscissa of control point 2.
* @param float $y2 Ordinate of control point 2.
* @param float $x3 Abscissa of end point.
* @param float $y3 Ordinate of end point.
* @access protected
* @since 2.1.000 (2008-01-08)
*/
function _outCurve($x1, $y1, $x2, $y2, $x3, $y3) {
if($this->rtl) {
$x1 = $this->w - $x1;
$x2 = $this->w - $x2;
$x3 = $this->w - $x3;
}
$this->_out(sprintf("%.2f %.2f %.2f %.2f %.2f %.2f c", $x1 * $this->k, ($this->h - $y1) * $this->k, $x2 * $this->k, ($this->h - $y2) * $this->k, $x3 * $this->k, ($this->h - $y3) * $this->k));
}
/**
* Draws a line between two points.
* @param float $x1 Abscissa of first point.
* @param float $y1 Ordinate of first point.
* @param float $x2 Abscissa of second point.
* @param float $y2 Ordinate of second point.
* @param array $style Line style. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @access public
* @since 1.0
* @see SetLineWidth(), SetDrawColor(), SetLineStyle()
*/
function Line($x1, $y1, $x2, $y2, $style=array()) {
if ($style) {
$this->SetLineStyle($style);
}
$this->_outPoint($x1, $y1);
$this->_outLine($x2, $y2);
$this->_out(" S");
}
/**
* Draws a rectangle.
* @param float $x Abscissa of upper-left corner (or upper-right corner for RTL language).
* @param float $y Ordinate of upper-left corner (or upper-right corner for RTL language).
* @param float $w Width.
* @param float $h Height.
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $border_style Border style of rectangle. Array with keys among the following:
*
* - all: Line style of all borders. Array like for {@link SetLineStyle SetLineStyle}.
* - L, T, R, B or combinations: Line style of left, top, right or bottom border. Array like for {@link SetLineStyle SetLineStyle}.
*
* If a key is not present or is null, not draws the border. Default value: default line style (empty array).
* @param array $border_style Border style of rectangle. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @param array $fill_color Fill color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K). Default value: default color (empty array).
* @access public
* @since 1.0
* @see SetLineStyle()
*/
function Rect($x, $y, $w, $h, $style='', $border_style=array(), $fill_color=array()) {
if (!(false === strpos($style, "F")) AND isset($fill_color)) {
$this->SetFillColorArray($fill_color, false);
}
switch ($style) {
case "F": {
$op = 'f';
$border_style = array();
$this->_outRect($x, $y, $w, $h, $op);
break;
}
case "DF":
case "FD": {
if ((!$border_style) OR (isset($border_style["all"]))) {
$op = 'B';
if (isset($border_style["all"])) {
$this->SetLineStyle($border_style["all"]);
$border_style = array();
}
} else {
$op = 'f';
}
$this->_outRect($x, $y, $w, $h, $op);
break;
}
default: {
$op = 'S';
if ((!$border_style) OR (isset($border_style["all"]))) {
if (isset($border_style["all"]) AND $border_style["all"]) {
$this->SetLineStyle($border_style["all"]);
$border_style = array();
}
$this->_outRect($x, $y, $w, $h, $op);
}
break;
}
}
if ($border_style) {
$border_style2 = array();
foreach ($border_style as $line => $value) {
$lenght = strlen($line);
for ($i = 0; $i < $lenght; $i++) {
$border_style2[$line[$i]] = $value;
}
}
$border_style = $border_style2;
if (isset($border_style["L"]) AND $border_style["L"]) {
$this->Line($x, $y, $x, $y + $h, $border_style["L"]);
}
if (isset($border_style["T"]) AND $border_style["T"]) {
$this->Line($x, $y, $x + $w, $y, $border_style["T"]);
}
if (isset($border_style["R"]) AND $border_style["R"]) {
$this->Line($x + $w, $y, $x + $w, $y + $h, $border_style["R"]);
}
if (isset($border_style["B"]) AND $border_style["B"]) {
$this->Line($x, $y + $h, $x + $w, $y + $h, $border_style["B"]);
}
}
}
/**
* Draws a Bezier curve.
* The Bezier curve is a tangent to the line between the control points at
* either end of the curve.
* @param float $x0 Abscissa of start point.
* @param float $y0 Ordinate of start point.
* @param float $x1 Abscissa of control point 1.
* @param float $y1 Ordinate of control point 1.
* @param float $x2 Abscissa of control point 2.
* @param float $y2 Ordinate of control point 2.
* @param float $x3 Abscissa of end point.
* @param float $y3 Ordinate of end point.
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $line_style Line style of curve. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @param array $fill_color Fill color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K). Default value: default color (empty array).
* @access public
* @see SetLineStyle()
* @since 2.1.000 (2008-01-08)
*/
function Curve($x0, $y0, $x1, $y1, $x2, $y2, $x3, $y3, $style="", $line_style=array(), $fill_color=array()) {
if (!(false === strpos($style, "F")) AND isset($fill_color)) {
$this->SetFillColorArray($fill_color, false);
}
switch ($style) {
case "F": {
$op = "f";
$line_style = array();
break;
}
case "FD":
case "DF": {
$op = "B";
break;
}
default: {
$op = "S";
break;
}
}
if ($line_style) {
$this->SetLineStyle($line_style);
}
$this->_outPoint($x0, $y0);
$this->_outCurve($x1, $y1, $x2, $y2, $x3, $y3);
$this->_out($op);
}
/**
* Draws a poly-Bezier curve.
* Each Bezier curve segment is a tangent to the line between the control points at
* either end of the curve.
* @param float $x0 Abscissa of start point.
* @param float $y0 Ordinate of start point.
* @param float $segments An array of bezier descriptions. Format: array(x1, y1, x2, y2, x3, y3).
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $line_style Line style of curve. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @param array $fill_color Fill color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K). Default value: default color (empty array).
* @access public
* @see SetLineStyle()
* @since 3.0008 (2008-05-12)
*/
function Polycurve($x0, $y0, $segments, $style="", $line_style=array(), $fill_color=array()) {
if (!(false === strpos($style, "F")) AND isset($fill_color)) {
$this->SetFillColorArray($fill_color, false);
}
switch ($style) {
case "F": {
$op = "f";
$line_style = array();
break;
}
case "FD":
case "DF": {
$op = "B";
break;
}
default: {
$op = "S";
break;
}
}
if ($line_style) {
$this->SetLineStyle($line_style);
}
$this->_outPoint($x0, $y0);
foreach ($segments as $segment) {
list($x1, $y1, $x2, $y2, $x3, $y3) = $segment;
$this->_outCurve($x1, $y1, $x2, $y2, $x3, $y3);
}
$this->_out($op);
}
/**
* Draws an ellipse.
* An ellipse is formed from n Bezier curves.
* @param float $x0 Abscissa of center point.
* @param float $y0 Ordinate of center point.
* @param float $rx Horizontal radius.
* @param float $ry Vertical radius (if ry = 0 then is a circle, see {@link Circle Circle}). Default value: 0.
* @param float $angle: Angle oriented (anti-clockwise). Default value: 0.
* @param float $astart: Angle start of draw line. Default value: 0.
* @param float $afinish: Angle finish of draw line. Default value: 360.
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
* - C: Draw close.
*
* @param array $line_style Line style of ellipse. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @param array $fill_color Fill color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K). Default value: default color (empty array).
* @param integer $nc Number of curves used in ellipse. Default value: 8.
* @access public
* @since 2.1.000 (2008-01-08)
*/
function Ellipse($x0, $y0, $rx, $ry=0, $angle=0, $astart=0, $afinish=360, $style="", $line_style=array(), $fill_color=array(), $nc=8) {
if ($angle) {
$this->StartTransform();
$this->Rotate($angle, $x0, $y0);
$this->Ellipse($x0, $y0, $rx, $ry, 0, $astart, $afinish, $style, $line_style, $fill_color, $nc);
$this->StopTransform();
return;
}
if ($rx) {
if (!(false === strpos($style, "F")) AND isset($fill_color)) {
$this->SetFillColorArray($fill_color, false);
}
switch ($style) {
case "F": {
$op = "f";
$line_style = array();
break;
}
case "FD":
case "DF": {
$op = "B";
break;
}
case "C": {
$op = "s"; // Small "s" signifies closing the path as well
break;
}
default: {
$op = "S";
break;
}
}
if ($line_style) {
$this->SetLineStyle($line_style);
}
if (!$ry) {
$ry = $rx;
}
$rx *= $this->k;
$ry *= $this->k;
if ($nc < 2){
$nc = 2;
}
$astart = deg2rad((float) $astart);
$afinish = deg2rad((float) $afinish);
$total_angle = $afinish - $astart;
$dt = $total_angle / $nc;
$dtm = $dt / 3;
$x0 *= $this->k;
$y0 = ($this->h - $y0) * $this->k;
$t1 = $astart;
$a0 = $x0 + ($rx * cos($t1));
$b0 = $y0 + ($ry * sin($t1));
$c0 = -$rx * sin($t1);
$d0 = $ry * cos($t1);
$this->_outPoint($a0 / $this->k, $this->h - ($b0 / $this->k));
for ($i = 1; $i <= $nc; $i++) {
// Draw this bit of the total curve
$t1 = ($i * $dt) + $astart;
$a1 = $x0 + ($rx * cos($t1));
$b1 = $y0 + ($ry * sin($t1));
$c1 = -$rx * sin($t1);
$d1 = $ry * cos($t1);
$this->_outCurve(($a0 + ($c0 * $dtm)) / $this->k, $this->h - (($b0 + ($d0 * $dtm)) / $this->k), ($a1 - ($c1 * $dtm)) / $this->k, $this->h - (($b1 - ($d1 * $dtm)) / $this->k), $a1 / $this->k, $this->h - ($b1 / $this->k));
$a0 = $a1;
$b0 = $b1;
$c0 = $c1;
$d0 = $d1;
}
$this->_out($op);
}
}
/**
* Draws a circle.
* A circle is formed from n Bezier curves.
* @param float $x0 Abscissa of center point.
* @param float $y0 Ordinate of center point.
* @param float $r Radius.
* @param float $astart: Angle start of draw line. Default value: 0.
* @param float $afinish: Angle finish of draw line. Default value: 360.
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
* - C: Draw close.
*
* @param array $line_style Line style of circle. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @param array $fill_color Fill color. Format: array(red, green, blue). Default value: default color (empty array).
* @param integer $nc Number of curves used in circle. Default value: 8.
* @access public
* @since 2.1.000 (2008-01-08)
*/
function Circle($x0, $y0, $r, $astart=0, $afinish=360, $style="", $line_style=array(), $fill_color=array(), $nc=8) {
$this->Ellipse($x0, $y0, $r, 0, 0, $astart, $afinish, $style, $line_style, $fill_color, $nc);
}
/**
* Draws a polygon.
* @param array $p Points 0 to ($np - 1). Array with values (x0, y0, x1, y1,..., x(np-1), y(np - 1))
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $line_style Line style of polygon. Array with keys among the following:
*
* - all: Line style of all lines. Array like for {@link SetLineStyle SetLineStyle}.
* - 0 to ($np - 1): Line style of each line. Array like for {@link SetLineStyle SetLineStyle}.
*
* If a key is not present or is null, not draws the line. Default value is default line style (empty array).
* @param array $fill_color Fill color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K). Default value: default color (empty array).
* @access public
* @since 2.1.000 (2008-01-08)
*/
function Polygon($p, $style="", $line_style=array(), $fill_color=array()) {
$np = count($p) / 2;
if (!(false === strpos($style, "F")) AND isset($fill_color)) {
$this->SetFillColorArray($fill_color, false);
}
switch ($style) {
case "F": {
$line_style = array();
$op = "f";
break;
}
case "FD":
case "DF": {
$op = "B";
break;
}
default: {
$op = "S";
break;
}
}
$draw = true;
if ($line_style) {
if (isset($line_style["all"])) {
$this->SetLineStyle($line_style["all"]);
} else { // 0 .. (np - 1), op = {B, S}
$draw = false;
if ("B" == $op) {
$op = "f";
$this->_outPoint($p[0], $p[1]);
for ($i = 2; $i < ($np * 2); $i = $i + 2) {
$this->_outLine($p[$i], $p[$i + 1]);
}
$this->_outLine($p[0], $p[1]);
$this->_out($op);
}
$p[($np * 2)] = $p[0];
$p[(($np * 2) + 1)] = $p[1];
for ($i = 0; $i < $np; $i++) {
if (isset($line_style[$i]) AND ($line_style[$i] != 0)) {
$this->Line($p[($i * 2)], $p[(($i * 2) + 1)], $p[(($i * 2) + 2)], $p[(($i * 2) + 3)], $line_style[$i]);
}
}
}
}
if ($draw) {
$this->_outPoint($p[0], $p[1]);
for ($i = 2; $i < ($np * 2); $i = $i + 2) {
$this->_outLine($p[$i], $p[$i + 1]);
}
$this->_outLine($p[0], $p[1]);
$this->_out($op);
}
}
/**
* Draws a regular polygon.
* @param float $x0 Abscissa of center point.
* @param float $y0 Ordinate of center point.
* @param float $r: Radius of inscribed circle.
* @param integer $ns Number of sides.
* @param float $angle Angle oriented (anti-clockwise). Default value: 0.
* @param boolean $draw_circle Draw inscribed circle or not. Default value: false.
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $line_style Line style of polygon sides. Array with keys among the following:
*
* - all: Line style of all sides. Array like for {@link SetLineStyle SetLineStyle}.
* - 0 to ($ns - 1): Line style of each side. Array like for {@link SetLineStyle SetLineStyle}.
*
* If a key is not present or is null, not draws the side. Default value is default line style (empty array).
* @param array $fill_color Fill color. Format: array(red, green, blue). Default value: default color (empty array).
* @param string $circle_style Style of rendering of inscribed circle (if draws). Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $circle_outLine_style Line style of inscribed circle (if draws). Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @param array $circle_fill_color Fill color of inscribed circle (if draws). Format: array(red, green, blue). Default value: default color (empty array).
* @access public
* @since 2.1.000 (2008-01-08)
*/
function RegularPolygon($x0, $y0, $r, $ns, $angle=0, $draw_circle=false, $style="", $line_style=array(), $fill_color=array(), $circle_style="", $circle_outLine_style=array(), $circle_fill_color=array()) {
if (3 > $ns) {
$ns = 3;
}
if ($draw_circle) {
$this->Circle($x0, $y0, $r, 0, 360, $circle_style, $circle_outLine_style, $circle_fill_color);
}
$p = array();
for ($i = 0; $i < $ns; $i++) {
$a = $angle + ($i * 360 / $ns);
$a_rad = deg2rad((float) $a);
$p[] = $x0 + ($r * sin($a_rad));
$p[] = $y0 + ($r * cos($a_rad));
}
$this->Polygon($p, $style, $line_style, $fill_color);
}
/**
* Draws a star polygon
* @param float $x0 Abscissa of center point.
* @param float $y0 Ordinate of center point.
* @param float $r Radius of inscribed circle.
* @param integer $nv Number of vertices.
* @param integer $ng Number of gap (if ($ng % $nv = 1) then is a regular polygon).
* @param float $angle: Angle oriented (anti-clockwise). Default value: 0.
* @param boolean $draw_circle: Draw inscribed circle or not. Default value is false.
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $line_style Line style of polygon sides. Array with keys among the following:
*
* - all: Line style of all sides. Array like for
* {@link SetLineStyle SetLineStyle}.
* - 0 to (n - 1): Line style of each side. Array like for {@link SetLineStyle SetLineStyle}.
*
* If a key is not present or is null, not draws the side. Default value is default line style (empty array).
* @param array $fill_color Fill color. Format: array(red, green, blue). Default value: default color (empty array).
* @param string $circle_style Style of rendering of inscribed circle (if draws). Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $circle_outLine_style Line style of inscribed circle (if draws). Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @param array $circle_fill_color Fill color of inscribed circle (if draws). Format: array(red, green, blue). Default value: default color (empty array).
* @access public
* @since 2.1.000 (2008-01-08)
*/
function StarPolygon($x0, $y0, $r, $nv, $ng, $angle=0, $draw_circle=false, $style="", $line_style=array(), $fill_color=array(), $circle_style="", $circle_outLine_style=array(), $circle_fill_color=array()) {
if (2 > $nv) {
$nv = 2;
}
if ($draw_circle) {
$this->Circle($x0, $y0, $r, 0, 360, $circle_style, $circle_outLine_style, $circle_fill_color);
}
$p2 = array();
$visited = array();
for ($i = 0; $i < $nv; $i++) {
$a = $angle + ($i * 360 / $nv);
$a_rad = deg2rad((float) $a);
$p2[] = $x0 + ($r * sin($a_rad));
$p2[] = $y0 + ($r * cos($a_rad));
$visited[] = false;
}
$p = array();
$i = 0;
do {
$p[] = $p2[$i * 2];
$p[] = $p2[($i * 2) + 1];
$visited[$i] = true;
$i += $ng;
$i %= $nv;
} while (!$visited[$i]);
$this->Polygon($p, $style, $line_style, $fill_color);
}
/**
* Draws a rounded rectangle.
* @param float $x Abscissa of upper-left corner.
* @param float $y Ordinate of upper-left corner.
* @param float $w Width.
* @param float $h Height.
* @param float $r Radius of the rounded corners.
* @param string $round_corner Draws rounded corner or not. String with a 0 (not rounded i-corner) or 1 (rounded i-corner) in i-position. Positions are, in order and begin to 0: top left, top right, bottom right and bottom left. Default value: all rounded corner ("1111").
* @param string $style Style of rendering. Possible values are:
*
* - D or empty string: Draw (default).
* - F: Fill.
* - DF or FD: Draw and fill.
*
* @param array $border_style Border style of rectangle. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
* @param array $fill_color Fill color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K). Default value: default color (empty array).
* @access public
* @since 2.1.000 (2008-01-08)
*/
function RoundedRect($x, $y, $w, $h, $r, $round_corner="1111", $style="", $border_style=array(), $fill_color=array()) {
if ("0000" == $round_corner) { // Not rounded
$this->Rect($x, $y, $w, $h, $style, $border_style, $fill_color);
} else { // Rounded
if (!(false === strpos($style, "F")) AND isset($fill_color)) {
$this->SetFillColorArray($fill_color, false);
}
switch ($style) {
case "F": {
$border_style = array();
$op = "f";
break;
}
case "FD":
case "DF": {
$op = "B";
break;
}
default: {
$op = "S";
break;
}
}
if ($border_style) {
$this->SetLineStyle($border_style);
}
$MyArc = 4 / 3 * (sqrt(2) - 1);
$this->_outPoint($x + $r, $y);
$xc = $x + $w - $r;
$yc = $y + $r;
$this->_outLine($xc, $y);
if ($round_corner[0]) {
$this->_outCurve($xc + ($r * $MyArc), $yc - $r, $xc + $r, $yc - ($r * $MyArc), $xc + $r, $yc);
} else {
$this->_outLine($x + $w, $y);
}
$xc = $x + $w - $r;
$yc = $y + $h - $r;
$this->_outLine($x + $w, $yc);
if ($round_corner[1]) {
$this->_outCurve($xc + $r, $yc + ($r * $MyArc), $xc + ($r * $MyArc), $yc + $r, $xc, $yc + $r);
} else {
$this->_outLine($x + $w, $y + $h);
}
$xc = $x + $r;
$yc = $y + $h - $r;
$this->_outLine($xc, $y + $h);
if ($round_corner[2]) {
$this->_outCurve($xc - ($r * $MyArc), $yc + $r, $xc - $r, $yc + ($r * $MyArc), $xc - $r, $yc);
} else {
$this->_outLine($x, $y + $h);
}
$xc = $x + $r;
$yc = $y + $r;
$this->_outLine($x, $yc);
if ($round_corner[3]) {
$this->_outCurve($xc - $r, $yc - ($r * $MyArc), $xc - ($r * $MyArc), $yc - $r, $xc, $yc - $r);
} else {
$this->_outLine($x, $y);
$this->_outLine($x + $r, $y);
}
$this->_out($op);
}
}
// END GRAPHIC FUNCTIONS SECTION -----------------------
// BIDIRECTIONAL TEXT SECTION --------------------------
/**
* Reverse the RLT substrings using the Bidirectional Algorithm (http://unicode.org/reports/tr9/).
* @param string $str string to manipulate.
* @param bool $forcertl if 'R' forces RTL, if 'L' forces LTR
* @return string
* @author Nicola Asuni
* @since 2.1.000 (2008-01-08)
*/
function utf8StrRev($str, $setbom=false, $forcertl=false) {
return $this->arrUTF8ToUTF16BE($this->utf8Bidi($this->UTF8StringToArray($str), $forcertl), $setbom);
}
/**
* Reverse the RLT substrings using the Bidirectional Algorithm (http://unicode.org/reports/tr9/).
* @param array $ta array of characters composing the string.
* @param bool $forcertl if 'R' forces RTL, if 'L' forces LTR
* @return string
* @author Nicola Asuni
* @since 2.4.000 (2008-03-06)
*/
function utf8Bidi($ta, $forcertl=false) {
global $unicode, $unicode_mirror, $unicode_arlet, $laa_array, $diacritics;
require_once(dirname(__FILE__).'/unicode_data.php');
// paragraph embedding level
$pel = 0;
// max level
$maxlevel = 0;
// create string from array
$str = $this->UTF8ArrSubString($ta);
// check if string contains arabic text
if (preg_match(K_RE_PATTERN_ARABIC, $str)) {
$arabic = true;
} else {
$arabic = false;
}
// check if string contains RTL text
if (!($forcertl OR $arabic OR preg_match(K_RE_PATTERN_RTL, $str))) {
return $ta;
}
// get number of chars
$numchars = count($ta);
if ($forcertl == 'R') {
$pel = 1;
} elseif ($forcertl == 'L') {
$pel = 0;
} else {
// P2. In each paragraph, find the first character of type L, AL, or R.
// P3. If a character is found in P2 and it is of type AL or R, then set the paragraph embedding level to one; otherwise, set it to zero.
for ($i=0; $i < $numchars; $i++) {
$type = $unicode[$ta[$i]];
if ($type == 'L') {
$pel = 0;
break;
} elseif (($type == 'AL') OR ($type == 'R')) {
$pel = 1;
break;
}
}
}
// Current Embedding Level
$cel = $pel;
// directional override status
$dos = 'N';
$remember = array();
// start-of-level-run
$sor = $pel % 2 ? 'R' : 'L';
$eor = $sor;
//$levels = array(array('level' => $cel, 'sor' => $sor, 'eor' => '', 'chars' => array()));
//$current_level = &$levels[count( $levels )-1];
// Array of characters data
$chardata = Array();
// X1. Begin by setting the current embedding level to the paragraph embedding level. Set the directional override status to neutral. Process each character iteratively, applying rules X2 through X9. Only embedding levels from 0 to 61 are valid in this phase.
// In the resolution of levels in rules I1 and I2, the maximum embedding level of 62 can be reached.
for ($i=0; $i < $numchars; $i++) {
if ($ta[$i] == K_RLE) {
// X2. With each RLE, compute the least greater odd embedding level.
// a. If this new level would be valid, then this embedding code is valid. Remember (push) the current embedding level and override status. Reset the current level to this new level, and reset the override status to neutral.
// b. If the new level would not be valid, then this code is invalid. Do not change the current level or override status.
$next_level = $cel + ($cel % 2) + 1;
if ($next_level < 62) {
$remember[] = array('num' => K_RLE, 'cel' => $cel, 'dos' => $dos);
$cel = $next_level;
$dos = 'N';
$sor = $eor;
$eor = $cel % 2 ? 'R' : 'L';
}
} elseif ($ta[$i] == K_LRE) {
// X3. With each LRE, compute the least greater even embedding level.
// a. If this new level would be valid, then this embedding code is valid. Remember (push) the current embedding level and override status. Reset the current level to this new level, and reset the override status to neutral.
// b. If the new level would not be valid, then this code is invalid. Do not change the current level or override status.
$next_level = $cel + 2 - ($cel % 2);
if ( $next_level < 62 ) {
$remember[] = array('num' => K_LRE, 'cel' => $cel, 'dos' => $dos);
$cel = $next_level;
$dos = 'N';
$sor = $eor;
$eor = $cel % 2 ? 'R' : 'L';
}
} elseif ($ta[$i] == K_RLO) {
// X4. With each RLO, compute the least greater odd embedding level.
// a. If this new level would be valid, then this embedding code is valid. Remember (push) the current embedding level and override status. Reset the current level to this new level, and reset the override status to right-to-left.
// b. If the new level would not be valid, then this code is invalid. Do not change the current level or override status.
$next_level = $cel + ($cel % 2) + 1;
if ($next_level < 62) {
$remember[] = array('num' => K_RLO, 'cel' => $cel, 'dos' => $dos);
$cel = $next_level;
$dos = 'R';
$sor = $eor;
$eor = $cel % 2 ? 'R' : 'L';
}
} elseif ($ta[$i] == K_LRO) {
// X5. With each LRO, compute the least greater even embedding level.
// a. If this new level would be valid, then this embedding code is valid. Remember (push) the current embedding level and override status. Reset the current level to this new level, and reset the override status to left-to-right.
// b. If the new level would not be valid, then this code is invalid. Do not change the current level or override status.
$next_level = $cel + 2 - ($cel % 2);
if ( $next_level < 62 ) {
$remember[] = array('num' => K_LRO, 'cel' => $cel, 'dos' => $dos);
$cel = $next_level;
$dos = 'L';
$sor = $eor;
$eor = $cel % 2 ? 'R' : 'L';
}
} elseif ($ta[$i] == K_PDF) {
// X7. With each PDF, determine the matching embedding or override code. If there was a valid matching code, restore (pop) the last remembered (pushed) embedding level and directional override.
if (count($remember)) {
$last = count($remember ) - 1;
if (($remember[$last]['num'] == K_RLE) OR
($remember[$last]['num'] == K_LRE) OR
($remember[$last]['num'] == K_RLO) OR
($remember[$last]['num'] == K_LRO)) {
$match = array_pop($remember);
$cel = $match['cel'];
$dos = $match['dos'];
$sor = $eor;
$eor = ($cel > $match['cel'] ? $cel : $match['cel']) % 2 ? 'R' : 'L';
}
}
} elseif (($ta[$i] != K_RLE) AND
($ta[$i] != K_LRE) AND
($ta[$i] != K_RLO) AND
($ta[$i] != K_LRO) AND
($ta[$i] != K_PDF)) {
// X6. For all types besides RLE, LRE, RLO, LRO, and PDF:
// a. Set the level of the current character to the current embedding level.
// b. Whenever the directional override status is not neutral, reset the current character type to the directional override status.
if ($dos != 'N') {
$chardir = $dos;
} else {
$chardir = $unicode[$ta[$i]];
}
// stores string characters and other information
$chardata[] = array('char' => $ta[$i], 'level' => $cel, 'type' => $chardir, 'sor' => $sor, 'eor' => $eor);
}
} // end for each char
// X8. All explicit directional embeddings and overrides are completely terminated at the end of each paragraph. Paragraph separators are not included in the embedding.
// X9. Remove all RLE, LRE, RLO, LRO, PDF, and BN codes.
// X10. The remaining rules are applied to each run of characters at the same level. For each run, determine the start-of-level-run (sor) and end-of-level-run (eor) type, either L or R. This depends on the higher of the two levels on either side of the boundary (at the start or end of the paragraph, the level of the “other” run is the base embedding level). If the higher level is odd, the type is R; otherwise, it is L.
// 3.3.3 Resolving Weak Types
// Weak types are now resolved one level run at a time. At level run boundaries where the type of the character on the other side of the boundary is required, the type assigned to sor or eor is used.
// Nonspacing marks are now resolved based on the previous characters.
$numchars = count($chardata);
// W1. Examine each nonspacing mark (NSM) in the level run, and change the type of the NSM to the type of the previous character. If the NSM is at the start of the level run, it will get the type of sor.
$prevlevel = -1; // track level changes
$levcount = 0; // counts consecutive chars at the same level
for ($i=0; $i < $numchars; $i++) {
if ($chardata[$i]['type'] == 'NSM') {
if ($levcount) {
$chardata[$i]['type'] = $chardata[$i]['sor'];
} elseif ($i > 0) {
$chardata[$i]['type'] = $chardata[($i-1)]['type'];
}
}
if ($chardata[$i]['level'] != $prevlevel) {
$levcount = 0;
} else {
$levcount++;
}
$prevlevel = $chardata[$i]['level'];
}
// W2. Search backward from each instance of a European number until the first strong type (R, L, AL, or sor) is found. If an AL is found, change the type of the European number to Arabic number.
$prevlevel = -1;
$levcount = 0;
for ($i=0; $i < $numchars; $i++) {
if ($chardata[$i]['char'] == 'EN') {
for ($j=$levcount; $j >= 0; $j--) {
if ($chardata[$j]['type'] == 'AL') {
$chardata[$i]['type'] = 'AN';
} elseif (($chardata[$j]['type'] == 'L') OR ($chardata[$j]['type'] == 'R')) {
break;
}
}
}
if ($chardata[$i]['level'] != $prevlevel) {
$levcount = 0;
} else {
$levcount++;
}
$prevlevel = $chardata[$i]['level'];
}
// W3. Change all ALs to R.
for ($i=0; $i < $numchars; $i++) {
if ($chardata[$i]['type'] == 'AL') {
$chardata[$i]['type'] = 'R';
}
}
// W4. A single European separator between two European numbers changes to a European number. A single common separator between two numbers of the same type changes to that type.
$prevlevel = -1;
$levcount = 0;
for ($i=0; $i < $numchars; $i++) {
if (($levcount > 0) AND (($i+1) < $numchars) AND ($chardata[($i+1)]['level'] == $prevlevel)) {
if (($chardata[$i]['type'] == 'ES') AND ($chardata[($i-1)]['type'] == 'EN') AND ($chardata[($i+1)]['type'] == 'EN')) {
$chardata[$i]['type'] = 'EN';
} elseif (($chardata[$i]['type'] == 'CS') AND ($chardata[($i-1)]['type'] == 'EN') AND ($chardata[($i+1)]['type'] == 'EN')) {
$chardata[$i]['type'] = 'EN';
} elseif (($chardata[$i]['type'] == 'CS') AND ($chardata[($i-1)]['type'] == 'AN') AND ($chardata[($i+1)]['type'] == 'AN')) {
$chardata[$i]['type'] = 'AN';
}
}
if ($chardata[$i]['level'] != $prevlevel) {
$levcount = 0;
} else {
$levcount++;
}
$prevlevel = $chardata[$i]['level'];
}
// W5. A sequence of European terminators adjacent to European numbers changes to all European numbers.
$prevlevel = -1;
$levcount = 0;
for ($i=0; $i < $numchars; $i++) {
if($chardata[$i]['type'] == 'ET') {
if (($levcount > 0) AND ($chardata[($i-1)]['type'] == 'EN')) {
$chardata[$i]['type'] = 'EN';
} else {
$j = $i+1;
while (($j < $numchars) AND ($chardata[$j]['level'] == $prevlevel)) {
if ($chardata[$j]['type'] == 'EN') {
$chardata[$i]['type'] = 'EN';
break;
} elseif ($chardata[$j]['type'] != 'ET') {
break;
}
$j++;
}
}
}
if ($chardata[$i]['level'] != $prevlevel) {
$levcount = 0;
} else {
$levcount++;
}
$prevlevel = $chardata[$i]['level'];
}
// W6. Otherwise, separators and terminators change to Other Neutral.
$prevlevel = -1;
$levcount = 0;
for ($i=0; $i < $numchars; $i++) {
if (($chardata[$i]['type'] == 'ET') OR ($chardata[$i]['type'] == 'ES') OR ($chardata[$i]['type'] == 'CS')) {
$chardata[$i]['type'] = 'ON';
}
if ($chardata[$i]['level'] != $prevlevel) {
$levcount = 0;
} else {
$levcount++;
}
$prevlevel = $chardata[$i]['level'];
}
//W7. Search backward from each instance of a European number until the first strong type (R, L, or sor) is found. If an L is found, then change the type of the European number to L.
$prevlevel = -1;
$levcount = 0;
for ($i=0; $i < $numchars; $i++) {
if ($chardata[$i]['char'] == 'EN') {
for ($j=$levcount; $j >= 0; $j--) {
if ($chardata[$j]['type'] == 'L') {
$chardata[$i]['type'] = 'L';
} elseif ($chardata[$j]['type'] == 'R') {
break;
}
}
}
if ($chardata[$i]['level'] != $prevlevel) {
$levcount = 0;
} else {
$levcount++;
}
$prevlevel = $chardata[$i]['level'];
}
// N1. A sequence of neutrals takes the direction of the surrounding strong text if the text on both sides has the same direction. European and Arabic numbers act as if they were R in terms of their influence on neutrals. Start-of-level-run (sor) and end-of-level-run (eor) are used at level run boundaries.
$prevlevel = -1;
$levcount = 0;
for ($i=0; $i < $numchars; $i++) {
if (($levcount > 0) AND (($i+1) < $numchars) AND ($chardata[($i+1)]['level'] == $prevlevel)) {
if (($chardata[$i]['type'] == 'N') AND ($chardata[($i-1)]['type'] == 'L') AND ($chardata[($i+1)]['type'] == 'L')) {
$chardata[$i]['type'] = 'L';
} elseif (($chardata[$i]['type'] == 'N') AND
(($chardata[($i-1)]['type'] == 'R') OR ($chardata[($i-1)]['type'] == 'EN') OR ($chardata[($i-1)]['type'] == 'AN')) AND
(($chardata[($i+1)]['type'] == 'R') OR ($chardata[($i+1)]['type'] == 'EN') OR ($chardata[($i+1)]['type'] == 'AN'))) {
$chardata[$i]['type'] = 'R';
} elseif ($chardata[$i]['type'] == 'N') {
// N2. Any remaining neutrals take the embedding direction
$chardata[$i]['type'] = $chardata[$i]['sor'];
}
} elseif (($levcount == 0) AND (($i+1) < $numchars) AND ($chardata[($i+1)]['level'] == $prevlevel)) {
// first char
if (($chardata[$i]['type'] == 'N') AND ($chardata[$i]['sor'] == 'L') AND ($chardata[($i+1)]['type'] == 'L')) {
$chardata[$i]['type'] = 'L';
} elseif (($chardata[$i]['type'] == 'N') AND
(($chardata[$i]['sor'] == 'R') OR ($chardata[$i]['sor'] == 'EN') OR ($chardata[$i]['sor'] == 'AN')) AND
(($chardata[($i+1)]['type'] == 'R') OR ($chardata[($i+1)]['type'] == 'EN') OR ($chardata[($i+1)]['type'] == 'AN'))) {
$chardata[$i]['type'] = 'R';
} elseif ($chardata[$i]['type'] == 'N') {
// N2. Any remaining neutrals take the embedding direction
$chardata[$i]['type'] = $chardata[$i]['sor'];
}
} elseif (($levcount > 0) AND ((($i+1) == $numchars) OR (($i+1) < $numchars) AND ($chardata[($i+1)]['level'] != $prevlevel))) {
//last char
if (($chardata[$i]['type'] == 'N') AND ($chardata[($i-1)]['type'] == 'L') AND ($chardata[$i]['eor'] == 'L')) {
$chardata[$i]['type'] = 'L';
} elseif (($chardata[$i]['type'] == 'N') AND
(($chardata[($i-1)]['type'] == 'R') OR ($chardata[($i-1)]['type'] == 'EN') OR ($chardata[($i-1)]['type'] == 'AN')) AND
(($chardata[$i]['eor'] == 'R') OR ($chardata[$i]['eor'] == 'EN') OR ($chardata[$i]['eor'] == 'AN'))) {
$chardata[$i]['type'] = 'R';
} elseif ($chardata[$i]['type'] == 'N') {
// N2. Any remaining neutrals take the embedding direction
$chardata[$i]['type'] = $chardata[$i]['sor'];
}
} elseif ($chardata[$i]['type'] == 'N') {
// N2. Any remaining neutrals take the embedding direction
$chardata[$i]['type'] = $chardata[$i]['sor'];
}
if ($chardata[$i]['level'] != $prevlevel) {
$levcount = 0;
} else {
$levcount++;
}
$prevlevel = $chardata[$i]['level'];
}
// I1. For all characters with an even (left-to-right) embedding direction, those of type R go up one level and those of type AN or EN go up two levels.
// I2. For all characters with an odd (right-to-left) embedding direction, those of type L, EN or AN go up one level.
for ($i=0; $i < $numchars; $i++) {
$odd = $chardata[$i]['level'] % 2;
if ($odd) {
if (($chardata[$i]['type'] == 'L') OR ($chardata[$i]['type'] == 'AN') OR ($chardata[$i]['type'] == 'EN')){
$chardata[$i]['level'] += 1;
}
} else {
if ($chardata[$i]['type'] == 'R') {
$chardata[$i]['level'] += 1;
} elseif (($chardata[$i]['type'] == 'AN') OR ($chardata[$i]['type'] == 'EN')){
$chardata[$i]['level'] += 2;
}
}
$maxlevel = max($chardata[$i]['level'],$maxlevel);
}
// L1. On each line, reset the embedding level of the following characters to the paragraph embedding level:
// 1. Segment separators,
// 2. Paragraph separators,
// 3. Any sequence of whitespace characters preceding a segment separator or paragraph separator, and
// 4. Any sequence of white space characters at the end of the line.
for ($i=0; $i < $numchars; $i++) {
if (($chardata[$i]['type'] == 'B') OR ($chardata[$i]['type'] == 'S')) {
$chardata[$i]['level'] = $pel;
} elseif ($chardata[$i]['type'] == 'WS') {
$j = $i+1;
while ($j < $numchars) {
if ((($chardata[$j]['type'] == 'B') OR ($chardata[$j]['type'] == 'S')) OR
(($j == ($numchars-1)) AND ($chardata[$j]['type'] == 'WS'))) {
$chardata[$i]['level'] = $pel;;
break;
} elseif ($chardata[$j]['type'] != 'WS') {
break;
}
$j++;
}
}
}
// Arabic Shaping
// Cursively connected scripts, such as Arabic or Syriac, require the selection of positional character shapes that depend on adjacent characters. Shaping is logically applied after the Bidirectional Algorithm is used and is limited to characters within the same directional run.
if ($arabic) {
$endedletter = array(1569,1570,1571,1572,1573,1575,1577,1583,1584,1585,1586,1608,1688);
$alfletter = array(1570,1571,1573,1575);
$chardata2 = $chardata;
$laaletter = false;
$charAL = array();
$x = 0;
for ($i=0; $i < $numchars; $i++) {
if (($unicode[$chardata[$i]['char']] == 'AL') OR ($chardata[$i]['char'] == 32)) {
$charAL[$x] = $chardata[$i];
$charAL[$x]['i'] = $i;
$chardata[$i]['x'] = $x;
$x++;
}
}
$numAL = $x;
for ($i=0; $i < $numchars; $i++) {
$thischar = $chardata[$i];
if ($i > 0) {
$prevchar = $chardata[($i-1)];
} else {
$prevchar = false;
}
if (($i+1) < $numchars) {
$nextchar = $chardata[($i+1)];
} else {
$nextchar = false;
}
if ($unicode[$thischar['char']] == 'AL') {
$x = $thischar['x'];
if ($x > 0) {
$prevchar = $charAL[($x-1)];
} else {
$prevchar = false;
}
if (($x+1) < $numAL) {
$nextchar = $charAL[($x+1)];
} else {
$nextchar = false;
}
// if laa letter
if (($prevchar !== false) AND ($prevchar['char'] == 1604) AND (in_array($thischar['char'], $alfletter))) {
$arabicarr = $laa_array;
$laaletter = true;
if ($x > 1) {
$prevchar = $charAL[($x-2)];
} else {
$prevchar = false;
}
} else {
$arabicarr = $unicode_arlet;
$laaletter = false;
}
if (($prevchar !== false) AND ($nextchar !== false) AND
(($unicode[$prevchar['char']] == 'AL') OR ($unicode[$prevchar['char']] == 'NSM')) AND
(($unicode[$nextchar['char']] == 'AL') OR ($unicode[$nextchar['char']] == 'NSM')) AND
($prevchar['type'] == $thischar['type']) AND
($nextchar['type'] == $thischar['type']) AND
($nextchar['char'] != 1567)) {
if (in_array($prevchar['char'], $endedletter)) {
if (isset($arabicarr[$thischar['char']][2])) {
// initial
$chardata2[$i]['char'] = $arabicarr[$thischar['char']][2];
}
} else {
if (isset($arabicarr[$thischar['char']][3])) {
// medial
$chardata2[$i]['char'] = $arabicarr[$thischar['char']][3];
}
}
} elseif (($nextchar !== false) AND
(($unicode[$nextchar['char']] == 'AL') OR ($unicode[$nextchar['char']] == 'NSM')) AND
($nextchar['type'] == $thischar['type']) AND
($nextchar['char'] != 1567)) {
if (isset($arabicarr[$chardata[$i]['char']][2])) {
// initial
$chardata2[$i]['char'] = $arabicarr[$thischar['char']][2];
}
} elseif ((($prevchar !== false) AND
(($unicode[$prevchar['char']] == 'AL') OR ($unicode[$prevchar['char']] == 'NSM')) AND
($prevchar['type'] == $thischar['type'])) OR
(($nextchar !== false) AND ($nextchar['char'] == 1567))) {
// final
if (($i > 1) AND ($thischar['char'] == 1607) AND
($chardata[$i-1]['char'] == 1604) AND
($chardata[$i-2]['char'] == 1604)) {
//Allah Word
// mark characters to delete with false
$chardata2[$i-2]['char'] = false;
$chardata2[$i-1]['char'] = false;
$chardata2[$i]['char'] = 65010;
} else {
if (($prevchar !== false) AND in_array($prevchar['char'], $endedletter)) {
if (isset($arabicarr[$thischar['char']][0])) {
// isolated
$chardata2[$i]['char'] = $arabicarr[$thischar['char']][0];
}
} else {
if (isset($arabicarr[$thischar['char']][1])) {
// final
$chardata2[$i]['char'] = $arabicarr[$thischar['char']][1];
}
}
}
} elseif (isset($arabicarr[$thischar['char']][0])) {
// isolated
$chardata2[$i]['char'] = $arabicarr[$thischar['char']][0];
}
// if laa letter
if($laaletter) {
// mark characters to delete with false
$chardata2[($charAL[($x-1)]['i'])]['char'] = false;
}
} // end if AL (Arabic Letter)
} // end for each char
/*
* Combining characters that can occur with Shadda (0651 HEX, 1617 DEC) are placed in UE586-UE594.
* Putting the combining mark and shadda in the same glyph allows us to avoid the two marks overlapping each other in an illegible manner.
*/
$cw = &$this->CurrentFont['cw'];
for ($i=0; $i < ($numchars-1); $i++) {
if (($chardata2[$i]['char'] == 1617) AND (isset($diacritics[($chardata2[$i+1]['char'])]))) {
// check if the subtitution font is defined on current font
if (isset($cw[($diacritics[($chardata2[$i+1]['char'])])])) {
$chardata2[$i]['char'] = false;
$chardata2[$i+1]['char'] = $diacritics[($chardata2[$i+1]['char'])];
}
}
}
// remove marked characters
foreach($chardata2 as $key => $value) {
if ($value['char'] === false) {
unset($chardata2[$key]);
}
}
$chardata = array_values($chardata2);
$numchars = count($chardata);
unset($chardata2);
unset($arabicarr);
unset($laaletter);
unset($charAL);
}
// L2. From the highest level found in the text to the lowest odd level on each line, including intermediate levels not actually present in the text, reverse any contiguous sequence of characters that are at that level or higher.
for ($j=$maxlevel; $j > 0; $j--) {
$ordarray = Array();
$revarr = Array();
$onlevel = false;
for ($i=0; $i < $numchars; $i++) {
if ($chardata[$i]['level'] >= $j) {
$onlevel = true;
if (isset($unicode_mirror[$chardata[$i]['char']])) {
// L4. A character is depicted by a mirrored glyph if and only if (a) the resolved directionality of that character is R, and (b) the Bidi_Mirrored property value of that character is true.
$chardata[$i]['char'] = $unicode_mirror[$chardata[$i]['char']];
}
$revarr[] = $chardata[$i];
} else {
if($onlevel) {
$revarr = array_reverse($revarr);
$ordarray = array_merge($ordarray, $revarr);
$revarr = Array();
$onlevel = false;
}
$ordarray[] = $chardata[$i];
}
}
if($onlevel) {
$revarr = array_reverse($revarr);
$ordarray = array_merge($ordarray, $revarr);
}
$chardata = $ordarray;
}
$ordarray = array();
for ($i=0; $i < $numchars; $i++) {
$ordarray[] = $chardata[$i]['char'];
}
return $ordarray;
}
// END OF BIDIRECTIONAL TEXT SECTION -------------------
/*
* Adds a bookmark.
* @param string $txt bookmark description.
* @param int $level bookmark level.
* @param float $y Ordinate of the boorkmark position (default = -1 = current position).
* @access public
* @author Olivier Plathey, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function Bookmark($txt, $level=0, $y=-1) {
if($y == -1) {
$y = $this->GetY();
}
$this->outlines[] = array('t' => $txt, 'l' => $level, 'y' => $y, 'p' => $this->PageNo());
}
/*
* Create a bookmark PDF string.
* @access protected
* @author Olivier Plathey, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function _putbookmarks() {
$nb = count($this->outlines);
if($nb == 0) {
return;
}
$lru = array();
$level = 0;
foreach($this->outlines as $i => $o) {
if($o['l'] > 0) {
$parent = $lru[($o['l'] - 1)];
//Set parent and last pointers
$this->outlines[$i]['parent'] = $parent;
$this->outlines[$parent]['last'] = $i;
if($o['l'] > $level) {
//Level increasing: set first pointer
$this->outlines[$parent]['first'] = $i;
}
} else {
$this->outlines[$i]['parent'] = $nb;
}
if(($o['l'] <= $level) AND ($i > 0)) {
//Set prev and next pointers
$prev = $lru[$o['l']];
$this->outlines[$prev]['next'] = $i;
$this->outlines[$i]['prev'] = $prev;
}
$lru[$o['l']] = $i;
$level = $o['l'];
}
//Outline items
$n = $this->n + 1;
foreach($this->outlines as $i => $o) {
$this->_newobj();
$this->_out('<_textstring($o['t']));
$this->_out('/Parent '.($n+$o['parent']).' 0 R');
if(isset($o['prev']))
$this->_out('/Prev '.($n+$o['prev']).' 0 R');
if(isset($o['next']))
$this->_out('/Next '.($n+$o['next']).' 0 R');
if(isset($o['first']))
$this->_out('/First '.($n+$o['first']).' 0 R');
if(isset($o['last']))
$this->_out('/Last '.($n+$o['last']).' 0 R');
$this->_out(sprintf('/Dest [%d 0 R /XYZ 0 %.2f null]', 1+2*$o['p'], ($this->h-$o['y'])*$this->k));
$this->_out('/Count 0>>');
$this->_out('endobj');
}
//Outline root
$this->_newobj();
$this->OutlineRoot=$this->n;
$this->_out('<_out('/Last '.($n+$lru[0]).' 0 R>>');
$this->_out('endobj');
}
// --- JAVASCRIPT - FORMS ------------------------------
/*
* Adds a javascript
* @access public
* @author Johannes Güntert, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function IncludeJS($script) {
$this->javascript .= $script;
}
/*
* Create a javascript PDF string.
* @access protected
* @author Johannes Güntert, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function _putjavascript() {
if (empty($this->javascript)) {
return;
}
$this->_newobj();
$this->n_js = $this->n;
$this->_out('<<');
$this->_out('/Names [(EmbeddedJS) '.($this->n + 1).' 0 R ]');
$this->_out('>>');
$this->_out('endobj');
$this->_newobj();
$this->_out('<<');
$this->_out('/S /JavaScript');
$this->_out('/JS '.$this->_textstring($this->javascript));
$this->_out('>>');
$this->_out('endobj');
}
/*
* Convert color to javascript color.
* @param string $color color name or #RRGGBB
* @access protected
* @author Denis Van Nuffelen, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function _JScolor($color) {
static $aColors = array('transparent', 'black', 'white', 'red', 'green', 'blue', 'cyan', 'magenta', 'yellow', 'dkGray', 'gray', 'ltGray');
if(substr($color,0,1) == '#') {
return sprintf("['RGB',%.3f,%.3f,%.3f]", hexdec(substr($color,1,2))/255, hexdec(substr($color,3,2))/255, hexdec(substr($color,5,2))/255);
}
if(!in_array($color,$aColors)) {
$this->Error('Invalid color: '.$color);
}
return 'color.'.$color;
}
/*
* Adds a javascript form field.
* @param string $type field type
* @param string $name field name
* @param int $x horizontal position
* @param int $y vertical position
* @param int $w width
* @param int $h height
* @param array $prop array of properties. Possible values are (http://www.adobe.com/devnet/acrobat/pdfs/js_developer_guide.pdf): - rect: Position and size of field on page.
- borderStyle: Rectangle border appearance.
- strokeColor: Color of bounding rectangle.
- lineWidth: Width of the edge of the surrounding rectangle.
- rotation: Rotation of field in 90-degree increments.
- fillColor: Background color of field (gray, transparent, RGB, or CMYK).
- userName: Short description of field that appears on mouse-over.
- readonly: Whether the user may change the field contents.
- doNotScroll: Whether text fields may scroll.
- display: Whether visible or hidden on screen or in print.
- textFont: Text font.
- textColor: Text color.
- textSize: Text size.
- richText: Rich text.
- richValue: Text.
- comb: Text comb format.
- multiline: Text multiline.
- charLimit: Text limit to number of characters.
- fileSelect: Text file selection format.
- password: Text password format.
- alignment: Text layout in text fields.
- buttonAlignX: X alignment of icon on button face.
- buttonAlignY: Y alignment of icon on button face.
- buttonFitBounds: Relative scaling of an icon to fit inside a button face.
- buttonScaleHow: Relative scaling of an icon to fit inside a button face.
- buttonScaleWhen: Relative scaling of an icon to fit inside a button face.
- highlight: Appearance of a button when pushed.
- style: Glyph style for checkbox and radio buttons.
- numItems: Number of items in a combo box or list box.
- editable: Whether the user can type in a combo box.
- multipleSelection: Whether multiple list box items may be selected.
* @access protected
* @author Denis Van Nuffelen, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function _addfield($type, $name, $x, $y, $w, $h, $prop) {
$k = $this->k;
$this->javascript .= sprintf("f".$name."=this.addField('%s','%s',%d,[%.2f,%.2f,%.2f,%.2f]);", $name, $type, $this->PageNo()-1, $x*$k, ($this->h-$y)*$k+1, ($x+$w)*$k, ($this->h-$y-$h)*$k+1)."\n";
$this->javascript .= "f".$name.".textSize=".$this->FontSizePt.";\n";
while(list($key, $val) = each($prop)) {
if (strcmp(substr($key,-5),"Color") == 0) {
$val = $this->_JScolor($val);
} else {
$val = "'".$val."'";
}
$this->javascript .= "f".$name.".".$key."=".$val.";\n";
}
$this->x += $w;
}
/*
* Creates a text field
* @param string $name field name
* @param int $w width
* @param int $h height
* @param string $prop properties. The value property allows to set the initial value. The multiline property allows to define the field as multiline. Possible values are (http://www.adobe.com/devnet/acrobat/pdfs/js_developer_guide.pdf): - rect: Position and size of field on page.
- borderStyle: Rectangle border appearance.
- strokeColor: Color of bounding rectangle.
- lineWidth: Width of the edge of the surrounding rectangle.
- rotation: Rotation of field in 90-degree increments.
- fillColor: Background color of field (gray, transparent, RGB, or CMYK).
- userName: Short description of field that appears on mouse-over.
- readonly: Whether the user may change the field contents.
- doNotScroll: Whether text fields may scroll.
- display: Whether visible or hidden on screen or in print.
- textFont: Text font.
- textColor: Text color.
- textSize: Text size.
- richText: Rich text.
- richValue: Text.
- comb: Text comb format.
- multiline: Text multiline.
- charLimit: Text limit to number of characters.
- fileSelect: Text file selection format.
- password: Text password format.
- alignment: Text layout in text fields.
- buttonAlignX: X alignment of icon on button face.
- buttonAlignY: Y alignment of icon on button face.
- buttonFitBounds: Relative scaling of an icon to fit inside a button face.
- buttonScaleHow: Relative scaling of an icon to fit inside a button face.
- buttonScaleWhen: Relative scaling of an icon to fit inside a button face.
- highlight: Appearance of a button when pushed.
- style: Glyph style for checkbox and radio buttons.
- numItems: Number of items in a combo box or list box.
- editable: Whether the user can type in a combo box.
- multipleSelection: Whether multiple list box items may be selected.
* @access public
* @author Denis Van Nuffelen, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function TextField($name, $w, $h, $prop=array()) {
$this->_addfield('text', $name, $this->x, $this->y, $w, $h, $prop);
}
/*
* Creates a RadioButton field
* @param string $name field name
* @param int $w width
* @param string $prop properties. Possible values are (http://www.adobe.com/devnet/acrobat/pdfs/js_developer_guide.pdf): - rect: Position and size of field on page.
- borderStyle: Rectangle border appearance.
- strokeColor: Color of bounding rectangle.
- lineWidth: Width of the edge of the surrounding rectangle.
- rotation: Rotation of field in 90-degree increments.
- fillColor: Background color of field (gray, transparent, RGB, or CMYK).
- userName: Short description of field that appears on mouse-over.
- readonly: Whether the user may change the field contents.
- doNotScroll: Whether text fields may scroll.
- display: Whether visible or hidden on screen or in print.
- textFont: Text font.
- textColor: Text color.
- textSize: Text size.
- richText: Rich text.
- richValue: Text.
- comb: Text comb format.
- multiline: Text multiline.
- charLimit: Text limit to number of characters.
- fileSelect: Text file selection format.
- password: Text password format.
- alignment: Text layout in text fields.
- buttonAlignX: X alignment of icon on button face.
- buttonAlignY: Y alignment of icon on button face.
- buttonFitBounds: Relative scaling of an icon to fit inside a button face.
- buttonScaleHow: Relative scaling of an icon to fit inside a button face.
- buttonScaleWhen: Relative scaling of an icon to fit inside a button face.
- highlight: Appearance of a button when pushed.
- style: Glyph style for checkbox and radio buttons.
- numItems: Number of items in a combo box or list box.
- editable: Whether the user can type in a combo box.
- multipleSelection: Whether multiple list box items may be selected.
* @access public
* @author Nicola Asuni
* @since 2.2.003 (2008-03-03)
*/
function RadioButton($name, $w, $prop=array()) {
if(!isset($prop['strokeColor'])) {
$prop['strokeColor']='black';
}
$this->_addfield('radiobutton', $name, $this->x, $this->y, $w, $w, $prop);
}
/*
* Creates a List-box field
* @param string $name field name
* @param int $w width
* @param int $h height
* @param array $values array containing the list of values.
* @param string $prop properties. Possible values are (http://www.adobe.com/devnet/acrobat/pdfs/js_developer_guide.pdf): - rect: Position and size of field on page.
- borderStyle: Rectangle border appearance.
- strokeColor: Color of bounding rectangle.
- lineWidth: Width of the edge of the surrounding rectangle.
- rotation: Rotation of field in 90-degree increments.
- fillColor: Background color of field (gray, transparent, RGB, or CMYK).
- userName: Short description of field that appears on mouse-over.
- readonly: Whether the user may change the field contents.
- doNotScroll: Whether text fields may scroll.
- display: Whether visible or hidden on screen or in print.
- textFont: Text font.
- textColor: Text color.
- textSize: Text size.
- richText: Rich text.
- richValue: Text.
- comb: Text comb format.
- multiline: Text multiline.
- charLimit: Text limit to number of characters.
- fileSelect: Text file selection format.
- password: Text password format.
- alignment: Text layout in text fields.
- buttonAlignX: X alignment of icon on button face.
- buttonAlignY: Y alignment of icon on button face.
- buttonFitBounds: Relative scaling of an icon to fit inside a button face.
- buttonScaleHow: Relative scaling of an icon to fit inside a button face.
- buttonScaleWhen: Relative scaling of an icon to fit inside a button face.
- highlight: Appearance of a button when pushed.
- style: Glyph style for checkbox and radio buttons.
- numItems: Number of items in a combo box or list box.
- editable: Whether the user can type in a combo box.
- multipleSelection: Whether multiple list box items may be selected.
* @access public
* @author Nicola Asuni
* @since 2.2.003 (2008-03-03)
*/
function ListBox($name, $w, $h, $values, $prop=array()) {
if(!isset($prop['strokeColor'])) {
$prop['strokeColor'] = 'ltGray';
}
$this->_addfield('listbox', $name, $this->x, $this->y, $w, $h, $prop);
$s = '';
foreach($values as $value) {
$s .= "'".addslashes($value)."',";
}
$this->javascript .= "f".$name.".setItems([".substr($s,0,-1)."]);\n";
}
/*
* Creates a Combo-box field
* @param string $name field name
* @param int $w width
* @param int $h height
* @param array $values array containing the list of values.
* @param string $prop properties. Possible values are (http://www.adobe.com/devnet/acrobat/pdfs/js_developer_guide.pdf): - rect: Position and size of field on page.
- borderStyle: Rectangle border appearance.
- strokeColor: Color of bounding rectangle.
- lineWidth: Width of the edge of the surrounding rectangle.
- rotation: Rotation of field in 90-degree increments.
- fillColor: Background color of field (gray, transparent, RGB, or CMYK).
- userName: Short description of field that appears on mouse-over.
- readonly: Whether the user may change the field contents.
- doNotScroll: Whether text fields may scroll.
- display: Whether visible or hidden on screen or in print.
- textFont: Text font.
- textColor: Text color.
- textSize: Text size.
- richText: Rich text.
- richValue: Text.
- comb: Text comb format.
- multiline: Text multiline.
- charLimit: Text limit to number of characters.
- fileSelect: Text file selection format.
- password: Text password format.
- alignment: Text layout in text fields.
- buttonAlignX: X alignment of icon on button face.
- buttonAlignY: Y alignment of icon on button face.
- buttonFitBounds: Relative scaling of an icon to fit inside a button face.
- buttonScaleHow: Relative scaling of an icon to fit inside a button face.
- buttonScaleWhen: Relative scaling of an icon to fit inside a button face.
- highlight: Appearance of a button when pushed.
- style: Glyph style for checkbox and radio buttons.
- numItems: Number of items in a combo box or list box.
- editable: Whether the user can type in a combo box.
- multipleSelection: Whether multiple list box items may be selected.
* @access public
* @author Denis Van Nuffelen, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function ComboBox($name, $w, $h, $values, $prop=array()) {
$this->_addfield('combobox', $name, $this->x, $this->y, $w, $h, $prop);
$s = '';
foreach($values as $value) {
$s .= "'".addslashes($value)."',";
}
$this->javascript .= "f".$name.".setItems([".substr($s,0,-1)."]);\n";
}
/*
* Creates a CheckBox field
* @param string $name field name
* @param int $w width
* @param boolean $checked define the initial state (default = false).
* @param string $prop properties. Possible values are (http://www.adobe.com/devnet/acrobat/pdfs/js_developer_guide.pdf): - rect: Position and size of field on page.
- borderStyle: Rectangle border appearance.
- strokeColor: Color of bounding rectangle.
- lineWidth: Width of the edge of the surrounding rectangle.
- rotation: Rotation of field in 90-degree increments.
- fillColor: Background color of field (gray, transparent, RGB, or CMYK).
- userName: Short description of field that appears on mouse-over.
- readonly: Whether the user may change the field contents.
- doNotScroll: Whether text fields may scroll.
- display: Whether visible or hidden on screen or in print.
- textFont: Text font.
- textColor: Text color.
- textSize: Text size.
- richText: Rich text.
- richValue: Text.
- comb: Text comb format.
- multiline: Text multiline.
- charLimit: Text limit to number of characters.
- fileSelect: Text file selection format.
- password: Text password format.
- alignment: Text layout in text fields.
- buttonAlignX: X alignment of icon on button face.
- buttonAlignY: Y alignment of icon on button face.
- buttonFitBounds: Relative scaling of an icon to fit inside a button face.
- buttonScaleHow: Relative scaling of an icon to fit inside a button face.
- buttonScaleWhen: Relative scaling of an icon to fit inside a button face.
- highlight: Appearance of a button when pushed.
- style: Glyph style for checkbox and radio buttons.
- numItems: Number of items in a combo box or list box.
- editable: Whether the user can type in a combo box.
- multipleSelection: Whether multiple list box items may be selected.
* @access public
* @author Denis Van Nuffelen, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function CheckBox($name, $w, $checked=false, $prop=array()) {
$prop['value'] = ($checked ? 'Yes' : 'Off');
if(!isset($prop['strokeColor'])) {
$prop['strokeColor'] = 'black';
}
$this->_addfield('checkbox', $name, $this->x, $this->y, $w, $w, $prop);
}
/*
* Creates a button field
* @param string $name field name
* @param int $w width
* @param int $h height
* @param string $caption caption.
* @param string $action action triggered by the button (JavaScript code).
* @param string $prop properties. Possible values are (http://www.adobe.com/devnet/acrobat/pdfs/js_developer_guide.pdf): - rect: Position and size of field on page.
- borderStyle: Rectangle border appearance.
- strokeColor: Color of bounding rectangle.
- lineWidth: Width of the edge of the surrounding rectangle.
- rotation: Rotation of field in 90-degree increments.
- fillColor: Background color of field (gray, transparent, RGB, or CMYK).
- userName: Short description of field that appears on mouse-over.
- readonly: Whether the user may change the field contents.
- doNotScroll: Whether text fields may scroll.
- display: Whether visible or hidden on screen or in print.
- textFont: Text font.
- textColor: Text color.
- textSize: Text size.
- richText: Rich text.
- richValue: Text.
- comb: Text comb format.
- multiline: Text multiline.
- charLimit: Text limit to number of characters.
- fileSelect: Text file selection format.
- password: Text password format.
- alignment: Text layout in text fields.
- buttonAlignX: X alignment of icon on button face.
- buttonAlignY: Y alignment of icon on button face.
- buttonFitBounds: Relative scaling of an icon to fit inside a button face.
- buttonScaleHow: Relative scaling of an icon to fit inside a button face.
- buttonScaleWhen: Relative scaling of an icon to fit inside a button face.
- highlight: Appearance of a button when pushed.
- style: Glyph style for checkbox and radio buttons.
- numItems: Number of items in a combo box or list box.
- editable: Whether the user can type in a combo box.
- multipleSelection: Whether multiple list box items may be selected.
* @access public
* @author Denis Van Nuffelen, Nicola Asuni
* @since 2.1.002 (2008-02-12)
*/
function Button($name, $w, $h, $caption, $action, $prop=array()) {
if(!isset($prop['strokeColor'])) {
$prop['strokeColor'] = 'black';
}
if(!isset($prop['borderStyle'])) {
$prop['borderStyle'] = 'beveled';
}
$this->_addfield('button', $name, $this->x, $this->y, $w, $h, $prop);
$this->javascript .= "f".$name.".buttonSetCaption('".addslashes($caption)."');\n";
$this->javascript .= "f".$name.".setAction('MouseUp','".addslashes($action)."');\n";
$this->javascript .= "f".$name.".highlight='push';\n";
$this->javascript .= "f".$name.".print=false;\n";
}
// END JAVASCRIPT - FORMS ------------------------------
/*
* Enable Write permissions for PDF Reader.
* @access protected
* @author Nicola Asuni
* @since 2.9.000 (2008-03-26)
*/
function _putuserrights() {
if (!$this->ur) {
return;
}
$this->_out('/Perms');
$this->_out('<<');
$this->_out('/UR3');
$this->_out('<<');
//$this->_out('/SubFilter/adbe.pkcs7.detached/Filter/Adobe.PPKLite/Contents');
//$this->_out('<0>');
//$this->_out('/ByteRange[0 3]');
$this->_out('/M '.$this->_datestring('D:'.date('YmdHis')));
$this->_out('/Name(TCPDF)');
$this->_out('/Reference[');
$this->_out('<<');
$this->_out('/TransformParams');
$this->_out('<<');
$this->_out('/Type/TransformParams');
$this->_out('/V/2.2');
if (!empty($this->ur_document)) {
$this->_out('/Document['.$this->ur_document.']');
}
if (!empty($this->ur_annots)) {
$this->_out('/Annots['.$this->ur_annots.']');
}
if (!empty($this->ur_form)) {
$this->_out('/Form['.$this->ur_form.']');
}
if (!empty($this->ur_signature)) {
$this->_out('/Signature['.$this->ur_signature.']');
}
$this->_out('>>');
$this->_out('/TransformMethod/UR3');
$this->_out('/Type/SigRef');
$this->_out('>>');
$this->_out(']');
$this->_out('/Type/Sig');
$this->_out('>>');
$this->_out('>>');
}
/*
* Set User's Rights for PDF Reader
* Check the PDF Reference 8.7.1 Transform Methods,
* Table 8.105 Entries in the UR transform parameters dictionary
* @param boolean $enable if true enable user's rights on PDF reader
* @param string $document Names specifying additional document-wide usage rights for the document. The only defined value is "/FullSave", which permits a user to save the document along with modified form and/or annotation data.
* @param string $annots Names specifying additional annotation-related usage rights for the document. Valid names in PDF 1.5 and later are /Create/Delete/Modify/Copy/Import/Export, which permit the user to perform the named operation on annotations.
* @param string $form Names specifying additional form-field-related usage rights for the document. Valid names are: /Add/Delete/FillIn/Import/Export/SubmitStandalone/SpawnTemplate
* @param string $signature Names specifying additional signature-related usage rights for the document. The only defined value is /Modify, which permits a user to apply a digital signature to an existing signature form field or clear a signed signature form field.
* @access public
* @author Nicola Asuni
* @since 2.9.000 (2008-03-26)
*/
function setUserRights(
$enable=true,
$document="/FullSave",
$annots="/Create/Delete/Modify/Copy/Import/Export",
$form="/Add/Delete/FillIn/Import/Export/SubmitStandalone/SpawnTemplate",
$signature="/Modify") {
$this->ur = $enable;
$this->ur_document = $document;
$this->ur_annots = $annots;
$this->ur_form = $form;
$this->ur_signature = $signature;
}
/*
* Create a new page group.
* NOTE: call this function before calling AddPage()
* @access public
* @since 3.0.000 (2008-03-27)
*/
function startPageGroup() {
$this->newpagegroup = true;
}
/*
* Return the current page in the group.
* @return current page in the group
* @access public
* @since 3.0.000 (2008-03-27)
*/
function getGroupPageNo() {
return $this->pagegroups[$this->currpagegroup];
}
/*
* Return the alias of the current page group
* (will be replaced by the total number of pages in this group).
* @return alias of the current page group
* @access public
* @since 3.0.000 (2008-03-27)
*/
function getPageGroupAlias() {
return $this->currpagegroup;
}
/*
* Put visibility settings.
* @access protected
* @since 3.0.000 (2008-03-27)
*/
function _putocg() {
$this->_newobj();
$this->n_ocg_print = $this->n;
$this->_out('<_textstring('print'));
$this->_out('/Usage <> /View <>>>>>');
$this->_out('endobj');
$this->_newobj();
$this->n_ocg_view=$this->n;
$this->_out('<_textstring('view'));
$this->_out('/Usage <> /View <>>>>>');
$this->_out('endobj');
}
/*
* Set the visibility of the successive elements.
* This can be useful, for instance, to put a background
* image or color that will show on screen but won't print.
* @param string $v visibility mode. Legal values are: all, print, screen.
* @access public
* @since 3.0.000 (2008-03-27)
*/
function setVisibility($v) {
switch($v) {
case "print": {
$this->_out('EMC /OC /OC1 BDC');
break;
}
case "screen": {
$this->_out('EMC /OC /OC2 BDC');
break;
}
case "all": {
$this->_out('EMC');
break;
}
default: {
$this->Error('Incorrect visibility: '.$v);
break;
}
}
$this->visibility = $v;
}
/*
* Add transparency parameters to the current extgstate
* @param array $params parameters
* @return the number of extgstates
* @access protected
* @since 3.0.000 (2008-03-27)
*/
function addExtGState($parms) {
$n = count($this->extgstates) + 1;
$this->extgstates[$n]['parms'] = $parms;
return $n;
}
/*
* Add an extgstate
* @param array $gs extgstate
* @access protected
* @since 3.0.000 (2008-03-27)
*/
function setExtGState($gs) {
$this->_out(sprintf('/GS%d gs', $gs));
}
/*
* Put extgstates for object transparency
* @param array $gs extgstate
* @access protected
* @since 3.0.000 (2008-03-27)
*/
function _putextgstates() {
$ne = count($this->extgstates);
for ($i = 1; $i <= $ne; $i++) {
$this->_newobj();
$this->extgstates[$i]['n'] = $this->n;
$this->_out('<extgstates[$i]['parms'] as $k => $v) {
$this->_out('/'.$k.' '.$v);
}
$this->_out('>>');
$this->_out('endobj');
}
}
/*
* Set alpha for stroking (CA) and non-stroking (ca) operations.
* @param float $alpha real value from 0 (transparent) to 1 (opaque)
* @param string $bm blend mode, one of the following: Normal, Multiply, Screen, Overlay, Darken, Lighten, ColorDodge, ColorBurn, HardLight, SoftLight, Difference, Exclusion, Hue, Saturation, Color, Luminosity
* @access public
* @since 3.0.000 (2008-03-27)
*/
function setAlpha($alpha, $bm='Normal') {
$gs = $this->addExtGState(array('ca' => $alpha, 'CA' => $alpha, 'BM' => '/'.$bm));
$this->setExtGState($gs);
}
/*
* Set the default JPEG compression quality (1-100)
* @param int $quality JPEG quality, integer between 1 and 100
* @access public
* @since 3.0.000 (2008-03-27)
*/
function setJPEGQuality($quality) {
if (($quality < 1) OR ($quality > 100)) {
$quality = 75;
}
$this->jpeg_quality = intval($quality);
}
/*
* Set the default number of columns in a row for HTML tables.
* @param int $cols number of columns
* @access public
* @since 3.0.014 (2008-06-04)
*/
function setDefaultTableColumns($cols=4) {
$this->default_table_columns = intval($cols);
}
/*
* Set the height of cell repect font height.
* @param int $h cell proportion respect font height (typical value = 1.25).
* @access public
* @since 3.0.014 (2008-06-04)
*/
function setCellHeightRatio($h) {
$this->cell_height_ratio = $h;
}
/*
* Set the PDF version (check PDF reference for valid values).
* Default value is 1.t
* @access public
* @since 3.1.000 (2008-06-09)
*/
function setPDFVersion($version="1.7") {
$this->PDFVersion = $version;
}
/*
* Set the viewer preferences dictionary controlling the way the document is to be presented on the screen or in print.
* (see Section 8.1 of PDF reference, "Viewer Preferences").
*
* - HideToolbar boolean (Optional) A flag specifying whether to hide the viewer application's tool bars when the document is active. Default value: false.
* - HideMenubar boolean (Optional) A flag specifying whether to hide the viewer application's menu bar when the document is active. Default value: false.
* - HideWindowUI boolean (Optional) A flag specifying whether to hide user interface elements in the document's window (such as scroll bars and navigation controls), leaving only the document's contents displayed. Default value: false.
* - FitWindow boolean (Optional) A flag specifying whether to resize the document's window to fit the size of the first displayed page. Default value: false.
* - CenterWindow boolean (Optional) A flag specifying whether to position the document's window in the center of the screen. Default value: false.
* - DisplayDocTitle boolean (Optional; PDF 1.4) A flag specifying whether the window's title bar should display the document title taken from the Title entry of the document information dictionary (see Section 10.2.1, "Document Information Dictionary"). If false, the title bar should instead display the name of the PDF file containing the document. Default value: false.
* - NonFullScreenPageMode name (Optional) The document's page mode, specifying how to display the document on exiting full-screen mode:
- UseNone Neither document outline nor thumbnail images visible
- UseOutlines Document outline visible
- UseThumbs Thumbnail images visible
- UseOC Optional content group panel visible
This entry is meaningful only if the value of the PageMode entry in the catalog dictionary (see Section 3.6.1, "Document Catalog") is FullScreen; it is ignored otherwise. Default value: UseNone.
* - ViewArea name (Optional; PDF 1.4) The name of the page boundary representing the area of a page to be displayed when viewing the document on the screen. Valid values are (see Section 10.10.1, "Page Boundaries").:
- MediaBox
- CropBox (default)
- BleedBox
- TrimBox
- ArtBox
* - ViewClip name (Optional; PDF 1.4) The name of the page boundary to which the contents of a page are to be clipped when viewing the document on the screen. Valid values are (see Section 10.10.1, "Page Boundaries").:
- MediaBox
- CropBox (default)
- BleedBox
- TrimBox
- ArtBox
* - PrintArea name (Optional; PDF 1.4) The name of the page boundary representing the area of a page to be rendered when printing the document. Valid values are (see Section 10.10.1, "Page Boundaries").:
- MediaBox
- CropBox (default)
- BleedBox
- TrimBox
- ArtBox
* - PrintClip name (Optional; PDF 1.4) The name of the page boundary to which the contents of a page are to be clipped when printing the document. Valid values are (see Section 10.10.1, "Page Boundaries").:
- MediaBox
- CropBox (default)
- BleedBox
- TrimBox
- ArtBox
* - PrintScaling name (Optional; PDF 1.6) The page scaling option to be selected when a print dialog is displayed for this document. Valid values are:
- None, which indicates that the print dialog should reflect no page scaling
- AppDefault (default), which indicates that applications should use the current print scaling
* - Duplex name (Optional; PDF 1.7) The paper handling option to use when printing the file from the print dialog. The following values are valid:
- Simplex - Print single-sided
- DuplexFlipShortEdge - Duplex and flip on the short edge of the sheet
- DuplexFlipLongEdge - Duplex and flip on the long edge of the sheet
Default value: none
* - PickTrayByPDFSize boolean (Optional; PDF 1.7) A flag specifying whether the PDF page size is used to select the input paper tray. This setting influences only the preset values used to populate the print dialog presented by a PDF viewer application. If PickTrayByPDFSize is true, the check box in the print dialog associated with input paper tray is checked. Note: This setting has no effect on Mac OS systems, which do not provide the ability to pick the input tray by size.
* - PrintPageRange array (Optional; PDF 1.7) The page numbers used to initialize the print dialog box when the file is printed. The first page of the PDF file is denoted by 1. Each pair consists of the first and last pages in the sub-range. An odd number of integers causes this entry to be ignored. Negative numbers cause the entire array to be ignored. Default value: as defined by PDF viewer application
* - NumCopies integer (Optional; PDF 1.7) The number of copies to be printed when the print dialog is opened for this file. Supported values are the integers 2 through 5. Values outside this range are ignored. Default value: as defined by PDF viewer application, but typically 1
*
* @param array $preferences array of options.
* @author Nicola Asuni
* @access public
* @since 3.1.000 (2008-06-09)
*/
function setViewerPreferences($preferences) {
$this->viewer_preferences = $preferences;
}
/**
* Paints a linear colour gradient.
* @param float $x abscissa of the top left corner of the rectangle.
* @param float $y ordinate of the top left corner of the rectangle.
* @param float $w width of the rectangle.
* @param float $h height of the rectangle.
* @param array $col1 first color (RGB components).
* @param array $col2 second color (RGB components).
* @param array $coords array of the form (x1, y1, x2, y2) which defines the gradient vector (see linear_gradient_coords.jpg). The default value is from left to right (x1=0, y1=0, x2=1, y2=0).
* @author Andreas Würmser, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access public
*/
function LinearGradient($x, $y, $w, $h, $col1=array(), $col2=array(), $coords=array(0,0,1,0)) {
$this->Clip($x, $y, $w, $h);
$this->Gradient(2, $col1, $col2, $coords);
}
/**
* Paints a radial colour gradient.
* @param float $x abscissa of the top left corner of the rectangle.
* @param float $y ordinate of the top left corner of the rectangle.
* @param float $w width of the rectangle.
* @param float $h height of the rectangle.
* @param array $col1 first color (RGB components).
* @param array $col2 second color (RGB components).
* @param array $coords array of the form (fx, fy, cx, cy, r) where (fx, fy) is the starting point of the gradient with color1, (cx, cy) is the center of the circle with color2, and r is the radius of the circle (see radial_gradient_coords.jpg). (fx, fy) should be inside the circle, otherwise some areas will not be defined.
* @author Andreas Würmser, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access public
*/
function RadialGradient($x, $y, $w, $h, $col1=array(), $col2=array(), $coords=array(0.5,0.5,0.5,0.5,1)) {
$this->Clip($x, $y, $w, $h);
$this->Gradient(3, $col1, $col2, $coords);
}
/**
* Paints a coons patch mesh.
* @param float $x abscissa of the top left corner of the rectangle.
* @param float $y ordinate of the top left corner of the rectangle.
* @param float $w width of the rectangle.
* @param float $h height of the rectangle.
* @param array $col1 first color (lower left corner) (RGB components).
* @param array $col2 second color (lower right corner) (RGB components).
* @param array $col3 third color (upper right corner) (RGB components).
* @param array $col4 fourth color (upper left corner) (RGB components).
* @param array $coords - for one patch mesh: array(float x1, float y1, .... float x12, float y12): 12 pairs of coordinates (normally from 0 to 1) which specify the Bézier control points that define the patch. First pair is the lower left edge point, next is its right control point (control point 2). Then the other points are defined in the order: control point 1, edge point, control point 2 going counter-clockwise around the patch. Last (x12, y12) is the first edge point's left control point (control point 1).
- for two or more patch meshes: array[number of patches]: arrays with the following keys for each patch: f: where to put that patch (0 = first patch, 1, 2, 3 = right, top and left of precedent patch - I didn't figure this out completely - just try and error ;-) points: 12 pairs of coordinates of the Bézier control points as above for the first patch, 8 pairs of coordinates for the following patches, ignoring the coordinates already defined by the precedent patch (I also didn't figure out the order of these - also: try and see what's happening) colors: must be 4 colors for the first patch, 2 colors for the following patches
* @param array $coords_min minimum value used by the coordinates. If a coordinate's value is smaller than this it will be cut to coords_min. default: 0
* @param array $coords_max maximum value used by the coordinates. If a coordinate's value is greater than this it will be cut to coords_max. default: 1
* @author Andreas Würmser, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access public
*/
function CoonsPatchMesh($x, $y, $w, $h, $col1=array(), $col2=array(), $col3=array(), $col4=array(), $coords=array(0.00,0.0,0.33,0.00,0.67,0.00,1.00,0.00,1.00,0.33,1.00,0.67,1.00,1.00,0.67,1.00,0.33,1.00,0.00,1.00,0.00,0.67,0.00,0.33), $coords_min=0, $coords_max=1) {
$this->Clip($x, $y, $w, $h);
$n = count($this->gradients) + 1;
$this->gradients[$n]['type'] = 6; //coons patch mesh
//check the coords array if it is the simple array or the multi patch array
if(!isset($coords[0]['f'])){
//simple array -> convert to multi patch array
if(!isset($col1[1])) {
$col1[1] = $col1[2] = $col1[0];
}
if(!isset($col2[1])) {
$col2[1] = $col2[2] = $col2[0];
}
if(!isset($col3[1])) {
$col3[1] = $col3[2] = $col3[0];
}
if(!isset($col4[1])) {
$col4[1] = $col4[2] = $col4[0];
}
$patch_array[0]['f'] = 0;
$patch_array[0]['points'] = $coords;
$patch_array[0]['colors'][0]['r'] = $col1[0];
$patch_array[0]['colors'][0]['g'] = $col1[1];
$patch_array[0]['colors'][0]['b'] = $col1[2];
$patch_array[0]['colors'][1]['r'] = $col2[0];
$patch_array[0]['colors'][1]['g'] = $col2[1];
$patch_array[0]['colors'][1]['b'] = $col2[2];
$patch_array[0]['colors'][2]['r'] = $col3[0];
$patch_array[0]['colors'][2]['g'] = $col3[1];
$patch_array[0]['colors'][2]['b'] = $col3[2];
$patch_array[0]['colors'][3]['r'] = $col4[0];
$patch_array[0]['colors'][3]['g'] = $col4[1];
$patch_array[0]['colors'][3]['b'] = $col4[2];
} else {
//multi patch array
$patch_array = $coords;
}
$bpcd = 65535; //16 BitsPerCoordinate
//build the data stream
$this->gradients[$n]['stream'] = "";
for($i=0; $i < count($patch_array); $i++) {
$this->gradients[$n]['stream'] .= chr($patch_array[$i]['f']); //start with the edge flag as 8 bit
for($j=0; $j < count($patch_array[$i]['points']); $j++) {
//each point as 16 bit
$patch_array[$i]['points'][$j] = (($patch_array[$i]['points'][$j]-$coords_min)/($coords_max-$coords_min))*$bpcd;
if($patch_array[$i]['points'][$j] < 0) {
$patch_array[$i]['points'][$j] = 0;
}
if($patch_array[$i]['points'][$j] > $bpcd) {
$patch_array[$i]['points'][$j] = $bpcd;
}
$this->gradients[$n]['stream'] .= chr(floor($patch_array[$i]['points'][$j]/256));
$this->gradients[$n]['stream'] .= chr(floor($patch_array[$i]['points'][$j]%256));
}
for($j=0; $j < count($patch_array[$i]['colors']); $j++) {
//each color component as 8 bit
$this->gradients[$n]['stream'] .= chr($patch_array[$i]['colors'][$j]['r']);
$this->gradients[$n]['stream'] .= chr($patch_array[$i]['colors'][$j]['g']);
$this->gradients[$n]['stream'] .= chr($patch_array[$i]['colors'][$j]['b']);
}
}
//paint the gradient
$this->_out('/Sh'.$n.' sh');
//restore previous Graphic State
$this->_out('Q');
}
/**
* Set a rectangular clipping area.
* @param float $x abscissa of the top left corner of the rectangle (or top right corner for RTL mode).
* @param float $y ordinate of the top left corner of the rectangle.
* @param float $w width of the rectangle.
* @param float $h height of the rectangle.
* @author Andreas Würmser, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access protected
*/
function Clip($x, $y, $w, $h){
if($this->rtl) {
$x = $this->w - $x - $w;
}
//save current Graphic State
$s = 'q';
//set clipping area
$s .= sprintf(' %.2f %.2f %.2f %.2f re W n', $x*$this->k, ($this->h-$y)*$this->k, $w*$this->k, -$h*$this->k);
//set up transformation matrix for gradient
$s .= sprintf(' %.3f 0 0 %.3f %.3f %.3f cm', $w*$this->k, $h*$this->k, $x*$this->k, ($this->h-($y+$h))*$this->k);
$this->_out($s);
}
/**
* Output gradient.
* @param int $type type of gradient.
* @param array $col1 first color (RGB components).
* @param array $col2 second color (RGB components).
* @param array $coords array of coordinates.
* @author Andreas Würmser, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access protected
*/
function Gradient($type, $col1, $col2, $coords){
$n = count($this->gradients) + 1;
$this->gradients[$n]['type'] = $type;
if(!isset($col1[1])) {
$col1[1]=$col1[2]=$col1[0];
}
$this->gradients[$n]['col1'] = sprintf('%.3f %.3f %.3f', ($col1[0]/255), ($col1[1]/255), ($col1[2]/255));
if(!isset($col2[1])) {
$col2[1] = $col2[2] = $col2[0];
}
$this->gradients[$n]['col2'] = sprintf('%.3f %.3f %.3f', ($col2[0]/255), ($col2[1]/255), ($col2[2]/255));
$this->gradients[$n]['coords'] = $coords;
//paint the gradient
$this->_out('/Sh'.$n.' sh');
//restore previous Graphic State
$this->_out('Q');
}
/**
* Output shaders.
* @author Andreas Würmser, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access protected
*/
function _putshaders() {
foreach($this->gradients as $id => $grad) {
if(($grad['type'] == 2) OR ($grad['type'] == 3)) {
$this->_newobj();
$this->_out('<<');
$this->_out('/FunctionType 2');
$this->_out('/Domain [0.0 1.0]');
$this->_out('/C0 ['.$grad['col1'].']');
$this->_out('/C1 ['.$grad['col2'].']');
$this->_out('/N 1');
$this->_out('>>');
$this->_out('endobj');
$f1 = $this->n;
}
$this->_newobj();
$this->_out('<<');
$this->_out('/ShadingType '.$grad['type']);
$this->_out('/ColorSpace /DeviceRGB');
if($grad['type'] == 2) {
$this->_out(sprintf('/Coords [%.3f %.3f %.3f %.3f]', $grad['coords'][0], $grad['coords'][1], $grad['coords'][2], $grad['coords'][3]));
$this->_out('/Function '.$f1.' 0 R');
$this->_out('/Extend [true true] ');
$this->_out('>>');
} elseif ($grad['type'] == 3) {
//x0, y0, r0, x1, y1, r1
//at this this time radius of inner circle is 0
$this->_out(sprintf('/Coords [%.3f %.3f 0 %.3f %.3f %.3f]', $grad['coords'][0], $grad['coords'][1], $grad['coords'][2], $grad['coords'][3], $grad['coords'][4]));
$this->_out('/Function '.$f1.' 0 R');
$this->_out('/Extend [true true] ');
$this->_out('>>');
} elseif ($grad['type'] == 6) {
$this->_out('/BitsPerCoordinate 16');
$this->_out('/BitsPerComponent 8');
$this->_out('/Decode[0 1 0 1 0 1 0 1 0 1]');
$this->_out('/BitsPerFlag 8');
$this->_out('/Length '.strlen($grad['stream']));
$this->_out('>>');
$this->_putstream($grad['stream']);
}
$this->_out('endobj');
$this->gradients[$id]['id'] = $this->n;
}
}
/**
* Output an arc
* @author Maxime Delorme, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access protected
*/
function _outarc($x1, $y1, $x2, $y2, $x3, $y3 ) {
$h = $this->h;
$this->_out(sprintf('%.2f %.2f %.2f %.2f %.2f %.2f c', $x1*$this->k, ($h-$y1)*$this->k, $x2*$this->k, ($h-$y2)*$this->k, $x3*$this->k, ($h-$y3)*$this->k));
}
/**
* Draw the sector of a circle.
* It can be used for instance to render pie charts.
* @param float $xc abscissa of the center.
* @param float $yc ordinate of the center.
* @param float $r radius.
* @param float $a start angle (in degrees).
* @param float $b end angle (in degrees).
* @param string $style: D, F, FD or DF (draw, fill, fill and draw). Default: FD.
* @param float $cw: indicates whether to go clockwise (default: true).
* @param float $o: origin of angles (0 for 3 o'clock, 90 for noon, 180 for 9 o'clock, 270 for 6 o'clock). Default: 90.
* @author Maxime Delorme, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access public
*/
function PieSector($xc, $yc, $r, $a, $b, $style='FD', $cw=true, $o=90) {
if($this->rtl) {
$xc = $this->w - $xc - $w;
}
if($cw) {
$d = $b;
$b = $o - $a;
$a = $o - $d;
} else {
$b += $o;
$a += $o;
}
$a = ($a % 360) + 360;
$b = ($b % 360) + 360;
if ($a > $b) {
$b +=360;
}
$b = $b / 360 * 2 * M_PI;
$a = $a / 360 * 2 * M_PI;
$d = $b - $a;
if ($d == 0 ) {
$d = 2 * M_PI;
}
$k = $this->k;
$hp = $this->h;
if($style=='F') {
$op = 'f';
} elseif ($style=='FD' or $style=='DF') {
$op = 'b';
} else {
$op = 's';
}
if (sin($d/2)) {
$MyArc = 4/3 * (1 - cos($d/2)) / sin($d/2) * $r;
}
//first put the center
$this->_out(sprintf('%.2f %.2f m', ($xc)*$k, ($hp-$yc)*$k));
//put the first point
$this->_out(sprintf('%.2f %.2f l', ($xc+$r*cos($a))*$k, (($hp-($yc-$r*sin($a)))*$k)));
//draw the arc
if ($d < (M_PI/2)) {
$this->_outarc($xc+$r*cos($a)+$MyArc*cos(M_PI/2+$a), $yc-$r*sin($a)-$MyArc*sin(M_PI/2+$a), $xc+$r*cos($b)+$MyArc*cos($b-M_PI/2), $yc-$r*sin($b)-$MyArc*sin($b-M_PI/2), $xc+$r*cos($b), $yc-$r*sin($b));
} else {
$b = $a + $d/4;
$MyArc = 4/3*(1-cos($d/8))/sin($d/8)*$r;
$this->_outarc($xc+$r*cos($a)+$MyArc*cos(M_PI/2+$a), $yc-$r*sin($a)-$MyArc*sin(M_PI/2+$a), $xc+$r*cos($b)+$MyArc*cos($b-M_PI/2), $yc-$r*sin($b)-$MyArc*sin($b-M_PI/2), $xc+$r*cos($b), $yc-$r*sin($b));
$a = $b;
$b = $a + $d/4;
$this->_outarc($xc+$r*cos($a)+$MyArc*cos(M_PI/2+$a), $yc-$r*sin($a)-$MyArc*sin(M_PI/2+$a), $xc+$r*cos($b)+$MyArc*cos($b-M_PI/2), $yc-$r*sin($b)-$MyArc*sin($b-M_PI/2), $xc+$r*cos($b), $yc-$r*sin($b));
$a = $b;
$b = $a + $d/4;
$this->_outarc($xc+$r*cos($a)+$MyArc*cos(M_PI/2+$a), $yc-$r*sin($a)-$MyArc*sin(M_PI/2+$a), $xc+$r*cos($b)+$MyArc*cos($b-M_PI/2), $yc-$r*sin($b)-$MyArc*sin($b-M_PI/2), $xc+$r*cos($b), $yc-$r*sin($b) );
$a = $b;
$b = $a + $d/4;
$this->_outarc($xc+$r*cos($a)+$MyArc*cos(M_PI/2+$a), $yc-$r*sin($a)-$MyArc*sin(M_PI/2+$a), $xc+$r*cos($b)+$MyArc*cos($b-M_PI/2), $yc-$r*sin($b)-$MyArc*sin($b-M_PI/2), $xc+$r*cos($b), $yc-$r*sin($b));
}
//terminate drawing
$this->_out($op);
}
/**
* Embed vector-based Adobe Illustrator (AI) or AI-compatible EPS files.
* Only vector drawing is supported, not text or bitmap.
* Although the script was successfully tested with various AI format versions, best results are probably achieved with files that were exported in the AI3 format (tested with Illustrator CS2, Freehand MX and Photoshop CS2).
* @param string $file Name of the file containing the image.
* @param float $x Abscissa of the upper-left corner.
* @param float $y Ordinate of the upper-left corner.
* @param float $w Width of the image in the page. If not specified or equal to zero, it is automatically calculated.
* @param float $h Height of the image in the page. If not specified or equal to zero, it is automatically calculated.
* @param mixed $link URL or identifier returned by AddLink().
* @param boolean useBoundingBox specifies whether to position the bounding box (true) or the complete canvas (false) at location (x,y). Default value is true.
* @param string $align Indicates the alignment of the pointer next to image insertion relative to image height. The value can be:- T: top-right for LTR or top-left for RTL
- M: middle-right for LTR or middle-left for RTL
- B: bottom-right for LTR or bottom-left for RTL
- N: next line
* @author Valentin Schmidt, Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access public
*/
function ImageEps($file, $x, $y, $w=0, $h=0, $link='', $useBoundingBox=true, $align='') {
if ($this->rtl) {
$x = ($this->w - $x - $w);
}
$data = file_get_contents($file);
if ($data === false) {
$this->Error('EPS file not found: '.$file);
}
$regs = array();
// EPS/AI compatibility check (only checks files created by Adobe Illustrator!)
preg_match ('/%%Creator:([^\r\n]+)/', $data, $regs); # find Creator
if (count($regs) > 1) {
$version_str = trim($regs[1]); # e.g. "Adobe Illustrator(R) 8.0"
if (strpos($version_str, 'Adobe Illustrator') !== false) {
$versexp = explode(' ', $version_str);
$version = (float)array_pop($versexp);
if ($version >= 9) {
$this->Error('This version of Adobe Illustrator file is not supported: '.$file);
}
}
}
// strip binary bytes in front of PS-header
$start = strpos($data, '%!PS-Adobe');
if ($start > 0) {
$data = substr($data, $start);
}
// find BoundingBox params
preg_match ("/%%BoundingBox:([^\r\n]+)/", $data, $regs);
if (count($regs) > 1) {
list($x1, $y1, $x2, $y2) = explode(' ', trim($regs[1]));
} else {
$this->Error('No BoundingBox found in EPS file: '.$file);
}
$start = strpos($data, '%%EndSetup');
if ($start === false) {
$start = strpos($data, '%%EndProlog');
}
if ($start === false) {
$start = strpos($data, '%%BoundingBox');
}
$data = substr($data, $start);
$end = strpos($data, '%%PageTrailer');
if ($end===false) {
$end = strpos($data, 'showpage');
}
if ($end) {
$data = substr($data, 0, $end);
}
// save the current graphic state
$this->_out('q');
$k = $this->k;
if ($useBoundingBox){
$dx = $x * $k - $x1;
$dy = $y * $k - $y1;
} else {
$dx = $x * $k;
$dy = $y * $k;
}
// translate
$this->_out(sprintf('%.3F %.3F %.3F %.3F %.3F %.3F cm', 1, 0, 0, 1, $dx, $dy+($this->hPt - 2*$y*$k - ($y2-$y1))));
if ($w > 0) {
$scale_x = $w/(($x2-$x1)/$k);
if ($h > 0) {
$scale_y = $h/(($y2-$y1)/$k);
} else {
$scale_y = $scale_x;
$h = ($y2-$y1)/$k * $scale_y;
}
} else {
if ($h > 0) {
$scale_y = $h/(($y2-$y1)/$k);
$scale_x = $scale_y;
$w = ($x2-$x1)/$k * $scale_x;
} else {
$w = ($x2 - $x1) / $k;
$h = ($y2 - $y1) / $k;
}
}
// scale
if (isset($scale_x)) {
$this->_out(sprintf('%.3F %.3F %.3F %.3F %.3F %.3F cm', $scale_x, 0, 0, $scale_y, $x1*(1-$scale_x), $y2*(1-$scale_y)));
}
// handle pc/unix/mac line endings
$lines = split ("\r\n|[\r\n]", $data);
$u=0;
$cnt = count($lines);
for ($i=0; $i < $cnt; $i++) {
$line = $lines[$i];
if (($line == '') OR ($line{0} == '%')) {
continue;
}
$len = strlen($line);
$chunks = explode(' ', $line);
$cmd = array_pop($chunks);
// RGB
if (($cmd == 'Xa') OR ($cmd == 'XA')) {
$b = array_pop($chunks);
$g = array_pop($chunks);
$r = array_pop($chunks);
$this->_out("$r $g $b ". ($cmd=='Xa'?'rg':'RG') ); //substr($line, 0, -2).'rg' -> in EPS (AI8): c m y k r g b rg!
continue;
}
switch ($cmd) {
case 'm':
case 'l':
case 'v':
case 'y':
case 'c':
case 'k':
case 'K':
case 'g':
case 'G':
case 's':
case 'S':
case 'J':
case 'j':
case 'w':
case 'M':
case 'd':
case 'n':
case 'v': {
$this->_out($line);
break;
}
case 'x': {// custom fill color
list($c,$m,$y,$k) = $chunks;
$this->_out("$c $m $y $k k");
break;
}
case 'X': { // custom stroke color
list($c,$m,$y,$k) = $chunks;
$this->_out("$c $m $y $k K");
break;
}
case 'Y':
case 'N':
case 'V':
case 'L':
case 'C': {
$line{$len-1} = strtolower($cmd);
$this->_out($line);
break;
}
case 'b':
case 'B': {
$this->_out($cmd . '*');
break;
}
case 'f':
case 'F': {
if ($u > 0) {
$isU = false;
$max = min($i+5, $cnt);
for ($j=$i+1; $j < $max; $j++)
$isU = ($isU OR (($lines[$j] == 'U') OR ($lines[$j] == '*U')));
if ($isU) {
$this->_out("f*");
}
} else {
$this->_out("f*");
}
break;
}
case '*u': {
$u++;
break;
}
case '*U': {
$u--;
break;
}
}
}
// restore previous graphic state
$this->_out('Q');
if ($link) {
$this->Link($x, $y, $w, $h, $link);
}
// set bottomcoordinates
$this->img_rb_y = $y + $h;
if ($this->rtl) {
// set left side coordinate
$this->img_rb_x = ($this->w - $x - $w);
} else {
// set right side coordinate
$this->img_rb_x = $x + $w;
}
// set pointer to align the successive text/objects
switch($align) {
case 'T':{
$this->y = $y;
$this->x = $this->img_rb_x;
break;
}
case 'M':{
$this->y = $y + round($h/2);
$this->x = $this->img_rb_x;
break;
}
case 'B':{
$this->y = $this->img_rb_y;
$this->x = $this->img_rb_x;
break;
}
case 'N':{
$this->SetY($this->img_rb_y);
break;
}
default:{
break;
}
}
}
/**
* Set document barcode.
* @param string $bc barcode
*/
function setBarcode($bc="") {
$this->barcode = $bc;
}
/**
* Print Barcode.
* @param string $code code to print
* @param string $type type of barcode.
* @param int $x x position in user units
* @param int $y y position in user units
* @param int $w width in user units
* @param int $h height position in user units
* @param float $xres width of the smallest bar in user units
* @param array $style array of options:- string $style["position"] barcode position inside the specified width: L = left (default for LTR); C = center; R = right (default for RTL); S = stretch
- boolean $style["border"] if true prints a border around the barcode
- int $style["padding"] padding to leave around the barcode in user units
- array $style["fgcolor"] color array for bars and text
- mixed $style["bgcolor"] color array for background or false for transparent
- boolean $style["text"] boolean if true prints text below the barcode
- string $style["font"] font name for text
- int $style["fontsize"] font size for text
- int $style["stretchtext"]: 0 = disabled; 1 = horizontal scaling only if necessary; 2 = forced horizontal scaling; 3 = character spacing only if necessary; 4 = forced character spacing
* @param string $align Indicates the alignment of the pointer next to image insertion relative to image height. The value can be:- T: top-right for LTR or top-left for RTL
- M: middle-right for LTR or middle-left for RTL
- B: bottom-right for LTR or bottom-left for RTL
- N: next line
* @author Nicola Asuni
* @since 3.1.000 (2008-06-09)
* @access public
*/
function write1DBarcode($code, $type, $x='', $y='', $w='', $h='', $xres=0.4, $style='', $align='') {
require_once(dirname(__FILE__)."/barcodes.php");
if (empty($code)) {
return;
}
$barcodeobj = new TCPDFbarcode($code, $type);
$arrcode = $barcodeobj->getBarcodeArray();
if ($arrcode === false) {
$this->Error('Error in barcode string');
}
// set default values
if (!isset($style["position"])) {
if ($this->rtl) {
$style["position"] = "R";
} else {
$style["position"] = "L";
}
}
if (!isset($style["padding"])) {
$style["padding"] = 0;
}
if (!isset($style["fgcolor"])) {
$style["fgcolor"] = array(0,0,0); // default black
}
if (!isset($style["bgcolor"])) {
$style["bgcolor"] = false; // default transparent
}
if (!isset($style["border"])) {
$style["border"] = false;
}
if (!isset($style["text"])) {
$style["text"] = false;
$fontsize = 0;
}
if ($style["text"] AND isset($style["font"])) {
$prevFontFamily = $this->FontFamily;
$prevFontStyle = $this->FontStyle;
$prevFontSizePt = $this->FontSizePt;
if (isset($style["fontsize"])) {
$fontsize = $style["fontsize"];
} else {
$fontsize = 0;
}
$this->SetFont($style["font"], '', $fontsize);
}
if (!isset($style["stretchtext"])) {
$style["stretchtext"] = 4;
}
// set foreground color
$prevDrawColor = $this->DrawColor;
$prevTextColor = $this->TextColor;
$this->SetDrawColorArray($style["fgcolor"]);
$this->SetTextColorArray($style["fgcolor"], false);
if (empty($x)) {
$x = $this->GetX();
}
if (empty($y)) {
$y = $this->GetY();
}
$extraspace = ($this->cell_height_ratio * $fontsize / $this->k) + (2 * $style["padding"]);
if (empty($h)) {
$h = 10 + $extraspace;
}
if((($y + $h) > $this->PageBreakTrigger) AND (empty($this->InFooter)) AND ($this->AcceptPageBreak())) {
//Automatic page break
$x = $this->x;
$ws = $this->ws;
if($ws > 0) {
$this->ws = 0;
$this->_out('0 Tw');
}
$this->AddPage($this->CurOrientation);
if($ws > 0) {
$this->ws = $ws;
$this->_out(sprintf('%.3f Tw',$ws * $k));
}
$this->x = $x;
$y = $this->y;
}
// maximum bar heigth
$barh = $h - $extraspace;
if(empty($w) OR ($w <= 0)) {
if ($this->rtl) {
$w = $this->x - $this->lMargin;
} else {
$w = $this->w - $this->rMargin - $this->x;
}
}
if (empty($xres)) {
$xres = 0.4;
}
$fbw = ($arrcode["maxw"] * $xres) + (2 * $style["padding"]);
switch ($style["position"]) {
case "L": {
$xpos = $x + $style["padding"];
break;
}
case "C": {
$xpos = ($w - ($x + $style["padding"])) / 2;
break;
}
case "R": {
$xpos = $x + $style["padding"];
break;
}
case "S": {
$xpos = $x + $style["padding"];
$xres = ($w - (2 * $style["padding"])) / $arrcode["maxw"];
$fbw = $w;
break;
}
}
// print background color
if ($style["bgcolor"]) {
$this->Rect($x, $y, $fbw, $h, 'DF', '', $style["bgcolor"]);
} elseif ($style["border"]) {
$this->Rect($x, $y, $fbw, $h, 'D');
}
// print bars
if ($arrcode !== false) {
foreach ($arrcode["bcode"] as $k => $v) {
$bw = ($v["w"] * $xres);
if ($v["t"]) {
// braw a vertical bar
$ypos = $y + $style["padding"] + ($v["p"] * $barh / $arrcode["maxh"]);
$this->Rect($xpos, $ypos, $bw, ($v["h"] * $barh / $arrcode["maxh"]), 'DF', array("L"=>0,"T"=>0,"R"=>0,"B"=>0), $style["fgcolor"]);
}
$xpos += $bw;
}
}
// print text
if ($style["text"]) {
// print text
$this->x = $x + $style["padding"];
$this->y = $y + $style["padding"] + $barh;
$this->Cell(($arrcode["maxw"] * $xres), ($this->cell_height_ratio * $fontsize / $this->k), $code, 0, 0, 'C', 0, '', $style["stretchtext"]);
}
// restore previous font
if ($style["text"] AND isset($style["font"])) {
$this->SetFont($prevFontFamily, $prevFontStyle, $prevFontSizePt);
}
// restore colors
$this->DrawColor = $prevDrawColor;
$this->TextColor = $prevTextColor;
// set bottomcoordinates
$this->img_rb_y = $y + $h;
if ($this->rtl) {
// set left side coordinate
$this->img_rb_x = ($this->w - $x - $w);
} else {
// set right side coordinate
$this->img_rb_x = $x + $w;
}
// set pointer to align the successive text/objects
switch($align) {
case 'T':{
$this->y = $y;
$this->x = $this->img_rb_x;
break;
}
case 'M':{
$this->y = $y + round($h/2);
$this->x = $this->img_rb_x;
break;
}
case 'B':{
$this->y = $this->img_rb_y;
$this->x = $this->img_rb_x;
break;
}
case 'N':{
$this->SetY($this->img_rb_y);
break;
}
default:{
break;
}
}
}
/**
* This function is DEPRECATED, please use the new write1DBarcode() function.
* @param int $x x position in user units
* @param int $y y position in user units
* @param int $w width in user units
* @param int $h height position in user units
* @param string $type type of barcode (I25, C128A, C128B, C128C, C39)
* @param string $style barcode style
* @param string $font font for text
* @param int $xres x resolution
* @param string $code code to print
* @deprecated deprecated since version 3.1.000 (2008-06-10)
* @see write1DBarcode()
*/
function writeBarcode($x, $y, $w, $h, $type, $style, $font, $xres, $code) {
// convert old settings for the new write1DBarcode() function.
$xres = 1 / $xres;
$newstyle = array(
"position" => "L",
"border" => false,
"padding" => 0,
"fgcolor" => array(0,0,0),
"bgcolor" => false,
"text" => true,
"font" => $font,
"fontsize" => 8,
"stretchtext" => 4
);
if ($style & 1) {
$newstyle["border"] = true;
}
if ($style & 2) {
$newstyle["bgcolor"] = false;
}
if ($style & 4) {
$newstyle["position"] = "C";
} elseif ($style & 8) {
$newstyle["position"] = "L";
} elseif ($style & 16) {
$newstyle["position"] = "R";
}
if ($style & 128) {
$newstyle["text"] = true;
}
if ($style & 256) {
$newstyle["stretchtext"] = 4;
}
$this->write1DBarcode($code, $type, $x, $y, $w, $h, $xres, $newstyle, '');
}
} // END OF TCPDF CLASS
//Handle special IE contype request
if(isset($_SERVER['HTTP_USER_AGENT']) AND ($_SERVER['HTTP_USER_AGENT']=='contype')) {
header('Content-Type: application/pdf');
exit;
}
}
//============================================================+
// END OF FILE
//============================================================+
?> |