From d8eed2e072d1f17ca3913de11e2e2a832881a635 Mon Sep 17 00:00:00 2001
From: Schneider Roland <roland.schneider@extern.a1.at>
Date: Fri, 2 Dec 2022 22:25:01 +0100
Subject: [PATCH] fix pdf download, add www-data permissions to cutler image

---
 environments/cutlergyor/apache2/Dockerfile    |    2 +
 patches/vendor/mpdf/mpdf/classes/cssmgr.php   | 1722 ++++++
 .../vendor/mpdf/mpdf/classes/ttfontsuni.php   | 4732 +++++++++++++++++
 3 files changed, 6456 insertions(+)
 create mode 100644 patches/vendor/mpdf/mpdf/classes/cssmgr.php
 create mode 100644 patches/vendor/mpdf/mpdf/classes/ttfontsuni.php

diff --git a/environments/cutlergyor/apache2/Dockerfile b/environments/cutlergyor/apache2/Dockerfile
index f5ef5d0..b3e2153 100644
--- a/environments/cutlergyor/apache2/Dockerfile
+++ b/environments/cutlergyor/apache2/Dockerfile
@@ -82,3 +82,5 @@ RUN find /config/common/ -maxdepth 2 -type f  -name '*-local.php'  -exec cp {} /
     && find /config/rest/ -maxdepth 2 -type f  -name '*-local.php'  -exec cp {} /var/www/html/cutler/rest/config/ \;
 
 
+RUN chown -R www-data.www.data /var/www/html/cutler
+RUN chmod -R 777 /var/www/html/cutler/frontend/web/uploads/
\ No newline at end of file
diff --git a/patches/vendor/mpdf/mpdf/classes/cssmgr.php b/patches/vendor/mpdf/mpdf/classes/cssmgr.php
new file mode 100644
index 0000000..b56535c
--- /dev/null
+++ b/patches/vendor/mpdf/mpdf/classes/cssmgr.php
@@ -0,0 +1,1722 @@
+<?php
+
+class cssmgr {
+
+var $mpdf = null;
+
+var $tablecascadeCSS;
+var $cascadeCSS;
+var $CSS;
+var $tbCSSlvl;
+
+
+function cssmgr(&$mpdf) {
+	$this->mpdf = $mpdf;
+	$this->tablecascadeCSS = array();
+	$this->CSS=array();
+	$this->cascadeCSS = array();
+	$this->tbCSSlvl = 0;
+}
+
+function ReadCSS($html) {
+	preg_match_all('/<style[^>]*media=["\']([^"\'>]*)["\'].*?<\/style>/is',$html,$m);
+	for($i=0; $i<count($m[0]); $i++) {
+		if ($this->mpdf->CSSselectMedia && !preg_match('/('.trim($this->mpdf->CSSselectMedia).'|all)/i',$m[1][$i])) {
+			$html = preg_replace('/'.preg_quote($m[0][$i],'/').'/','',$html);
+		}
+	}
+	preg_match_all('/<link[^>]*media=["\']([^"\'>]*)["\'].*?>/is',$html,$m);
+	for($i=0; $i<count($m[0]); $i++) {
+		if ($this->mpdf->CSSselectMedia && !preg_match('/('.trim($this->mpdf->CSSselectMedia).'|all)/i',$m[1][$i])) {
+			$html = preg_replace('/'.preg_quote($m[0][$i],'/').'/','',$html);
+		}
+	}
+
+	// mPDF 5.5.02
+	// Remove Comment tags <!-- ... --> inside CSS as <style> in HTML document
+	// Remove Comment tags /* ...  */ inside CSS as <style> in HTML document
+	// But first, we replace upper and mixed case closing style tag with lower
+	// case so we can use str_replace later.
+	preg_replace('/<\/style>/i', '</style>', $html);
+	preg_match_all('/<style.*?>(.*?)<\/style>/si',$html,$m);
+	if (count($m[1])) {
+		for($i=0;$i<count($m[1]);$i++) {
+			// Remove comment tags
+			$sub = preg_replace('/(<\!\-\-|\-\->)/s',' ',$m[1][$i]);
+			$sub = '>'.preg_replace('|/\*.*?\*/|s',' ',$sub).'</style>';
+			$html = str_replace('>'.$m[1][$i].'</style>', $sub, $html);
+		}
+	}
+
+
+	$html = preg_replace('/<!--mpdf/i','',$html);
+	$html = preg_replace('/mpdf-->/i','',$html);
+	$html = preg_replace('/<\!\-\-.*?\-\->/s',' ',$html);
+
+	$match = 0; // no match for instance
+	$regexp = ''; // This helps debugging: showing what is the REAL string being processed
+	$CSSext = array();
+
+	//CSS inside external files
+	$regexp = '/<link[^>]*rel=["\']stylesheet["\'][^>]*href=["\']([^>"\']*)["\'].*?>/si';
+	$x = preg_match_all($regexp,$html,$cxt);
+	if ($x) {
+		$match += $x;
+		$CSSext = $cxt[1];
+	}
+	$regexp = '/<link[^>]*href=["\']([^>"\']*)["\'][^>]*?rel=["\']stylesheet["\'].*?>/si';
+	$x = preg_match_all($regexp,$html,$cxt);
+	if ($x) {
+		$match += $x;
+		$CSSext = array_merge($CSSext,$cxt[1]);
+	}
+
+	// look for @import stylesheets
+	//$regexp = '/@import url\([\'\"]{0,1}([^\)]*?\.css)[\'\"]{0,1}\)/si';
+	$regexp = '/@import url\([\'\"]{0,1}([^\)]*?\.css(\?\S+)?)[\'\"]{0,1}\)/si';
+	$x = preg_match_all($regexp,$html,$cxt);
+	if ($x) {
+		$match += $x;
+		$CSSext = array_merge($CSSext,$cxt[1]);
+	}
+
+	// look for @import without the url()
+	//$regexp = '/@import [\'\"]{0,1}([^;]*?\.css)[\'\"]{0,1}/si';
+	$regexp = '/@import [\'\"]{0,1}([^;]*?\.css(\?\S+)?)[\'\"]{0,1}/si';
+	$x = preg_match_all($regexp,$html,$cxt);
+	if ($x) {
+		$match += $x;
+		$CSSext = array_merge($CSSext,$cxt[1]);
+	}
+
+	$ind = 0;
+	$CSSstr = '';
+
+	if (!is_array($this->cascadeCSS)) $this->cascadeCSS = array();
+
+	while($match){
+		$path = $CSSext[$ind];
+
+		$path = htmlspecialchars_decode($path);	// mPDF 6
+
+		$this->mpdf->GetFullPath($path);
+		$CSSextblock = $this->mpdf->_get_file($path);
+		if ($CSSextblock) {
+			// look for embedded @import stylesheets in other stylesheets
+			// and fix url paths (including background-images) relative to stylesheet
+			//$regexpem = '/@import url\([\'\"]{0,1}(.*?\.css)[\'\"]{0,1}\)/si';
+			$regexpem = '/@import url\([\'\"]{0,1}(.*?\.css(\?\S+)?)[\'\"]{0,1}\)/si';
+			$xem = preg_match_all($regexpem,$CSSextblock,$cxtem);
+			$cssBasePath = preg_replace('/\/[^\/]*$/','',$path) . '/';
+			if ($xem) {
+				foreach($cxtem[1] AS $cxtembedded) {
+					// path is relative to original stlyesheet!!
+					$this->mpdf->GetFullPath($cxtembedded, $cssBasePath );
+					$match++;
+					$CSSext[] = $cxtembedded;
+				}
+			}
+			$regexpem = '/(background[^;]*url\s*\(\s*[\'\"]{0,1})([^\)\'\"]*)([\'\"]{0,1}\s*\))/si';
+			$xem = preg_match_all($regexpem,$CSSextblock,$cxtem);
+			if ($xem) {
+				for ($i=0;$i<count($cxtem[0]);$i++) {
+					// path is relative to original stlyesheet!!
+					$embedded = $cxtem[2][$i];
+					if (!preg_match('/^data:image/i', $embedded)) {	// mPDF 5.5.13
+						$this->mpdf->GetFullPath($embedded, $cssBasePath );
+						$CSSextblock = preg_replace('/'.preg_quote($cxtem[0][$i],'/').'/', ($cxtem[1][$i].$embedded.$cxtem[3][$i]), $CSSextblock);
+					}
+				}
+			}
+			$CSSstr .= ' '.$CSSextblock;
+		}
+		$match--;
+		$ind++;
+	} //end of match
+
+	$match = 0; // reset value, if needed
+	// CSS as <style> in HTML document
+	$regexp = '/<style.*?>(.*?)<\/style>/si';
+	$match = preg_match_all($regexp,$html,$CSSblock);
+	if ($match) {
+		$tmpCSSstr = implode(' ',$CSSblock[1]);
+		$regexpem = '/(background[^;]*url\s*\(\s*[\'\"]{0,1})([^\)\'\"]*)([\'\"]{0,1}\s*\))/si';
+		$xem = preg_match_all($regexpem,$tmpCSSstr ,$cxtem);
+		if ($xem) {
+		   for ($i=0;$i<count($cxtem[0]);$i++) {
+			$embedded = $cxtem[2][$i];
+			if (!preg_match('/^data:image/i', $embedded)) {	// mPDF 5.5.13
+				$this->mpdf->GetFullPath($embedded);
+				$tmpCSSstr = preg_replace('/'.preg_quote($cxtem[0][$i],'/').'/', ($cxtem[1][$i].$embedded.$cxtem[3][$i]), $tmpCSSstr );
+			}
+		   }
+		}
+		$CSSstr .= ' '.$tmpCSSstr;
+	}
+	// Remove comments
+	$CSSstr = preg_replace('|/\*.*?\*/|s',' ',$CSSstr);
+	$CSSstr = preg_replace('/[\s\n\r\t\f]/s',' ',$CSSstr);
+
+	if (preg_match('/@media/',$CSSstr)) {
+		preg_match_all('/@media(.*?)\{(([^\{\}]*\{[^\{\}]*\})+)\s*\}/is',$CSSstr,$m);
+		for($i=0; $i<count($m[0]); $i++) {
+			if ($this->mpdf->CSSselectMedia && !preg_match('/('.trim($this->mpdf->CSSselectMedia).'|all)/i',$m[1][$i])) {
+				$CSSstr = preg_replace('/'.preg_quote($m[0][$i],'/').'/','',$CSSstr);
+			}
+			else {
+				$CSSstr = preg_replace('/'.preg_quote($m[0][$i],'/').'/',' '.$m[2][$i].' ',$CSSstr);
+			}
+		}
+	}
+
+	// Replace any background: url(data:image... with temporary image file reference
+	preg_match_all("/(url\(data:image\/(jpeg|gif|png);base64,(.*?)\))/si", $CSSstr, $idata);	// mPDF 5.7.2
+	if (count($idata[0])) {
+		for($i=0;$i<count($idata[0]);$i++) {
+			$file = _MPDF_TEMP_PATH.'_tempCSSidata'.RAND(1,10000).'_'.$i.'.'.$idata[2][$i];
+			//Save to local file
+			file_put_contents($file, base64_decode($idata[3][$i]));
+			// $this->mpdf->GetFullPath($file);	// ? is this needed - NO  mPDF 5.6.03
+			$CSSstr = str_replace($idata[0][$i], 'url("'.$file.'")', $CSSstr); 	// mPDF 5.5.17
+		}
+	}
+
+	$CSSstr = preg_replace('/(<\!\-\-|\-\->)/s',' ',$CSSstr);
+
+	// mPDF 5.7.4 URLs
+	// Characters "(" ")" and ";" in url() e.g. background-image, cause problems parsing the CSS string
+	// URLencode ( and ), but change ";" to a code which can be converted back after parsing (so as not to confuse ;
+	// with a segment delimiter in the URI)
+	$tempmarker = '%ZZ';
+	if (strpos($CSSstr,'url(')!==false) {
+		preg_match_all( '/url\(\"(.*?)\"\)/', $CSSstr, $m);
+		for($i = 0; $i < count($m[1]) ; $i++) {
+			$tmp = str_replace(array('(',')',';'),array('%28','%29',$tempmarker),$m[1][$i]);
+			$CSSstr = preg_replace('/'.preg_quote($m[0][$i],'/').'/', 'url(\''.$tmp.'\')', $CSSstr);
+		}
+		preg_match_all( '/url\(\'(.*?)\'\)/', $CSSstr, $m);
+		for($i = 0; $i < count($m[1]) ; $i++) {
+			$tmp = str_replace(array('(',')',';'),array('%28','%29',$tempmarker),$m[1][$i]);
+			$CSSstr = preg_replace('/'.preg_quote($m[0][$i],'/').'/', 'url(\''.$tmp.'\')', $CSSstr);
+		}
+		preg_match_all( '/url\(([^\'\"].*?[^\'\"])\)/', $CSSstr, $m);
+		for($i = 0; $i < count($m[1]) ; $i++) {
+			$tmp = str_replace(array('(',')',';'),array('%28','%29',$tempmarker),$m[1][$i]);
+			$CSSstr = preg_replace('/'.preg_quote($m[0][$i],'/').'/', 'url(\''.$tmp.'\')', $CSSstr);
+		}
+	}
+
+
+
+	if ($CSSstr ) {
+		$classproperties = array();	// mPDF 6
+		preg_match_all('/(.*?)\{(.*?)\}/',$CSSstr,$styles);
+		for($i=0; $i < count($styles[1]) ; $i++)  {
+			// SET array e.g. $classproperties['COLOR'] = '#ffffff';
+	 		$stylestr= trim($styles[2][$i]);
+			$stylearr = explode(';',$stylestr);
+			foreach($stylearr AS $sta) {
+				if (trim($sta)) {
+					// Changed to allow style="background: url('http://www.bpm1.com/bg.jpg')"
+					$tmp = explode(':',$sta,2);
+					$property = $tmp[0];
+					if (isset($tmp[1])) { $value = $tmp[1]; }
+					else { $value = ''; }
+					$value = str_replace($tempmarker,';',$value);	// mPDF 5.7.4 URLs
+					$property = trim($property);
+					$value = preg_replace('/\s*!important/i','',$value);
+					$value = trim($value);
+					if ($property && ($value || $value==='0')) {
+					// Ignores -webkit-gradient so doesn't override -moz-
+						if ((strtoupper($property)=='BACKGROUND-IMAGE' || strtoupper($property)=='BACKGROUND') && preg_match('/-webkit-gradient/i',$value)) {
+							continue;
+						}
+	  					$classproperties[strtoupper($property)] = $value;
+					}
+				}
+			}
+			$classproperties = $this->fixCSS($classproperties);
+			$tagstr = strtoupper(trim($styles[1][$i]));
+			$tagarr = explode(',',$tagstr);
+			$pageselectors = false;	// used to turn on $this->mpdf->mirrorMargins
+			foreach($tagarr AS $tg) {
+				// mPDF 5.7.4
+				if (preg_match('/NTH-CHILD\((\s*(([\-+]?\d*)N(\s*[\-+]\s*\d+)?|[\-+]?\d+|ODD|EVEN)\s*)\)/',$tg,$m) ) {
+					$tg = preg_replace('/NTH-CHILD\(.*\)/', 'NTH-CHILD('.str_replace(' ','',$m[1]).')', $tg);
+				}
+				$tags = preg_split('/\s+/',trim($tg));
+				$level = count($tags);
+				$t = '';
+				$t2 = '';
+				$t3 = '';
+				if (trim($tags[0])=='@PAGE') {
+					if (isset($tags[0])) { $t = trim($tags[0]); }
+					if (isset($tags[1])) { $t2 = trim($tags[1]); }
+					if (isset($tags[2])) { $t3 = trim($tags[2]); }
+					$tag = '';
+					if ($level==1) { $tag = $t; }
+					else if ($level==2 && preg_match('/^[:](.*)$/',$t2,$m)) {
+						$tag = $t.'>>PSEUDO>>'.$m[1];
+						if ($m[1]=='LEFT' || $m[1]=='RIGHT') { $pageselectors = true; }	// used to turn on $this->mpdf->mirrorMargins
+					}
+					else if ($level==2) { $tag = $t.'>>NAMED>>'.$t2; }
+					else if ($level==3 && preg_match('/^[:](.*)$/',$t3,$m)) {
+						$tag = $t.'>>NAMED>>'.$t2.'>>PSEUDO>>'.$m[1];
+						if ($m[1]=='LEFT' || $m[1]=='RIGHT') { $pageselectors = true; }	// used to turn on $this->mpdf->mirrorMargins
+					}
+					if (isset($this->CSS[$tag]) && $tag) { $this->CSS[$tag] = $this->array_merge_recursive_unique($this->CSS[$tag], $classproperties); }
+					else if ($tag) { $this->CSS[$tag] = $classproperties; }
+				}
+
+				else if ($level == 1) {		// e.g. p or .class or #id or p.class or p#id
+				if (isset($tags[0])) { $t = trim($tags[0]); }
+					if ($t) {
+						$tag = '';
+						if (preg_match('/^[.](.*)$/',$t,$m)) { $tag = 'CLASS>>'.$m[1]; }
+						else if (preg_match('/^[#](.*)$/',$t,$m)) { $tag = 'ID>>'.$m[1]; }
+						else if (preg_match('/^\[LANG=[\'\"]{0,1}([A-Z\-]{2,11})[\'\"]{0,1}\]$/',$t,$m)) { $tag = 'LANG>>'.strtolower($m[1]); }	// mPDF 6  Special case for lang as attribute selector
+						else if (preg_match('/^:LANG\([\'\"]{0,1}([A-Z\-]{2,11})[\'\"]{0,1}\)$/',$t,$m)) { $tag = 'LANG>>'.strtolower($m[1]); }	// mPDF 6  Special case for lang as attribute selector
+						else if (preg_match('/^('.$this->mpdf->allowedCSStags.')[.](.*)$/',$t,$m)) { $tag = $m[1].'>>CLASS>>'.$m[2]; }
+						else if (preg_match('/^('.$this->mpdf->allowedCSStags.')\s*:NTH-CHILD\((.*)\)$/',$t,$m)) { $tag = $m[1].'>>SELECTORNTHCHILD>>'.$m[2]; }
+						else if (preg_match('/^('.$this->mpdf->allowedCSStags.')[#](.*)$/',$t,$m)) { $tag = $m[1].'>>ID>>'.$m[2]; }
+						else if (preg_match('/^('.$this->mpdf->allowedCSStags.')\[LANG=[\'\"]{0,1}([A-Z\-]{2,11})[\'\"]{0,1}\]$/',$t,$m)) { $tag = $m[1].'>>LANG>>'.strtolower($m[2]); }	// mPDF 6  Special case for lang as attribute selector
+						else if (preg_match('/^('.$this->mpdf->allowedCSStags.'):LANG\([\'\"]{0,1}([A-Z\-]{2,11})[\'\"]{0,1}\)$/',$t,$m)) { $tag = $m[1].'>>LANG>>'.strtolower($m[2]); }	// mPDF 6  Special case for lang as attribute selector
+						else if (preg_match('/^('.$this->mpdf->allowedCSStags.')$/',$t)) { $tag= $t; }
+						if (isset($this->CSS[$tag]) && $tag) { $this->CSS[$tag] = $this->array_merge_recursive_unique($this->CSS[$tag], $classproperties); }
+						else if ($tag) { $this->CSS[$tag] = $classproperties; }
+					}
+				}
+				else {
+					$tmp = array();
+					for($n=0;$n<$level;$n++) {
+						if (isset($tags[$n])) { $t = trim($tags[$n]); }
+						else { $t = ''; }
+						if ($t) {
+							$tag = '';
+							if (preg_match('/^[.](.*)$/',$t,$m)) { $tag = 'CLASS>>'.$m[1]; }
+							else if (preg_match('/^[#](.*)$/',$t,$m)) { $tag = 'ID>>'.$m[1]; }
+							else if (preg_match('/^\[LANG=[\'\"]{0,1}([A-Z\-]{2,11})[\'\"]{0,1}\]$/',$t,$m)) { $tag = 'LANG>>'.strtolower($m[1]); }	// mPDF 6  Special case for lang as attribute selector
+							else if (preg_match('/^:LANG\([\'\"]{0,1}([A-Z\-]{2,11})[\'\"]{0,1}\)$/',$t,$m)) { $tag = 'LANG>>'.strtolower($m[1]); }	// mPDF 6  Special case for lang as attribute selector
+							else if (preg_match('/^('.$this->mpdf->allowedCSStags.')[.](.*)$/',$t,$m)) { $tag = $m[1].'>>CLASS>>'.$m[2]; }
+							else if (preg_match('/^('.$this->mpdf->allowedCSStags.')\s*:NTH-CHILD\((.*)\)$/',$t,$m)) { $tag = $m[1].'>>SELECTORNTHCHILD>>'.$m[2]; }
+							else if (preg_match('/^('.$this->mpdf->allowedCSStags.')[#](.*)$/',$t,$m)) { $tag = $m[1].'>>ID>>'.$m[2]; }
+							else if (preg_match('/^('.$this->mpdf->allowedCSStags.')\[LANG=[\'\"]{0,1}([A-Z\-]{2,11})[\'\"]{0,1}\]$/',$t,$m)) { $tag = $m[1].'>>LANG>>'.strtolower($m[2]); }	// mPDF 6  Special case for lang as attribute selector
+							else if (preg_match('/^('.$this->mpdf->allowedCSStags.'):LANG\([\'\"]{0,1}([A-Z\-]{2,11})[\'\"]{0,1}\)$/',$t,$m)) { $tag = $m[1].'>>LANG>>'.strtolower($m[2]); }	// mPDF 6  Special case for lang as attribute selector
+							else if (preg_match('/^('.$this->mpdf->allowedCSStags.')$/',$t)) { $tag= $t; }
+
+							if ($tag) $tmp[] = $tag;
+							else { break; }
+						}
+					}
+
+					if ($tag) {
+						$x = &$this->cascadeCSS;
+						foreach($tmp AS $tp) { $x = &$x[$tp]; }
+						$x = $this->array_merge_recursive_unique($x, $classproperties);
+						$x['depth'] = $level;
+					}
+				}
+			}
+			if ($pageselectors) { $this->mpdf->mirrorMargins = true; }
+  			$properties = array();
+  			$values = array();
+  			$classproperties = array();
+		}
+	} // end of if
+	//Remove CSS (tags and content), if any
+	$regexp = '/<style.*?>(.*?)<\/style>/si'; // it can be <style> or <style type="txt/css">
+	$html = preg_replace($regexp,'',$html);
+//print_r($this->CSS); exit;
+//print_r($this->cascadeCSS); exit;
+	return $html;
+}
+
+
+
+function readInlineCSS($html) {
+	$html=htmlspecialchars_decode($html);	// mPDF 5.7.4 URLs
+	// mPDF 5.7.4 URLs
+	// Characters "(" ")" and ";" in url() e.g. background-image, cause probems parsing the CSS string
+	// URLencode ( and ), but change ";" to a code which can be converted back after parsing (so as not to confuse ;
+	// with a segment delimiter in the URI)
+	$tempmarker = '%ZZ';
+	if (strpos($html,'url(')!==false) {
+		preg_match_all( '/url\(\"(.*?)\"\)/', $html, $m);
+		for($i = 0; $i < count($m[1]) ; $i++) {
+			$tmp = str_replace(array('(',')',';'),array('%28','%29',$tempmarker),$m[1][$i]);
+			$html = preg_replace('/'.preg_quote($m[0][$i],'/').'/', 'url(\''.$tmp.'\')', $html);
+		}
+		preg_match_all( '/url\(\'(.*?)\'\)/', $html, $m);
+		for($i = 0; $i < count($m[1]) ; $i++) {
+			$tmp = str_replace(array('(',')',';'),array('%28','%29',$tempmarker),$m[1][$i]);
+			$html = preg_replace('/'.preg_quote($m[0][$i],'/').'/', 'url(\''.$tmp.'\')', $html);
+		}
+		preg_match_all( '/url\(([^\'\"].*?[^\'\"])\)/', $html, $m);
+		for($i = 0; $i < count($m[1]) ; $i++) {
+			$tmp = str_replace(array('(',')',';'),array('%28','%29',$tempmarker),$m[1][$i]);
+			$html = preg_replace('/'.preg_quote($m[0][$i],'/').'/', 'url(\''.$tmp.'\')', $html);
+		}
+	}
+	//Fix incomplete CSS code
+	$size = strlen($html)-1;
+	if (substr($html,$size,1) != ';') $html .= ';';
+	//Make CSS[Name-of-the-class] = array(key => value)
+	$regexp = '|\\s*?(\\S+?):(.+?);|i';
+	preg_match_all( $regexp, $html, $styleinfo);
+	$properties = $styleinfo[1];
+	$values = $styleinfo[2];
+	//Array-properties and Array-values must have the SAME SIZE!
+	$classproperties = array();
+	for($i = 0; $i < count($properties) ; $i++) {
+		// Ignores -webkit-gradient so doesn't override -moz-
+		if ((strtoupper($properties[$i])=='BACKGROUND-IMAGE' || strtoupper($properties[$i])=='BACKGROUND') && preg_match('/-webkit-gradient/i',$values[$i])) {
+			continue;
+		}
+		$values[$i] = str_replace($tempmarker,';',$values[$i]);	// mPDF 5.7.4 URLs
+		$classproperties[strtoupper($properties[$i])] = trim($values[$i]);
+	}
+	return $this->fixCSS($classproperties);
+}
+
+
+
+function _fix_borderStr($bd) {
+	preg_match_all("/\((.*?)\)/", $bd, $m);
+	if (count($m[1])) {
+		for($i=0;$i<count($m[1]);$i++) {
+			$sub = preg_replace("/ /", "", $m[1][$i]);
+			$bd = preg_replace('/'.preg_quote($m[1][$i], '/').'/si', $sub, $bd);
+		}
+	}
+
+	$prop = preg_split('/\s+/',trim($bd));
+	$w = 'medium';
+	$c = '#000000';
+	$s = 'none';
+
+	if ( count($prop) == 1 ) {
+		// solid
+		if (in_array($prop[0],$this->mpdf->borderstyles) || $prop[0] == 'none' || $prop[0] == 'hidden' ) { $s = $prop[0]; }
+		// #000000
+		else if (is_array($this->mpdf->ConvertColor($prop[0]))) { $c = $prop[0]; }
+		// 1px
+		else { $w = $prop[0]; }
+	}
+	else if (count($prop) == 2 ) {
+		// 1px solid
+		if (in_array($prop[1],$this->mpdf->borderstyles) || $prop[1] == 'none' || $prop[1] == 'hidden' ) { $w = $prop[0]; $s = $prop[1]; }
+		// solid #000000
+		else if (in_array($prop[0],$this->mpdf->borderstyles) || $prop[0] == 'none' || $prop[0] == 'hidden' ) { $s = $prop[0]; $c = $prop[1]; }
+		// 1px #000000
+		else { $w = $prop[0]; $c = $prop[1]; }
+	}
+	else if ( count($prop) == 3 ) {
+		// Change #000000 1px solid to 1px solid #000000 (proper)
+		if (substr($prop[0],0,1) == '#') { $c = $prop[0]; $w = $prop[1]; $s = $prop[2]; }
+		// Change solid #000000 1px to 1px solid #000000 (proper)
+		else if (substr($prop[0],1,1) == '#') { $s = $prop[0]; $c = $prop[1]; $w = $prop[2]; }
+		// Change solid 1px #000000 to 1px solid #000000 (proper)
+		else if (in_array($prop[0],$this->mpdf->borderstyles) || $prop[0] == 'none' || $prop[0] == 'hidden' ) {
+			$s = $prop[0]; $w = $prop[1]; $c = $prop[2];
+		}
+		else { $w = $prop[0]; $s = $prop[1]; $c = $prop[2]; }
+	}
+	else { return ''; }
+	$s = strtolower($s);
+	return $w.' '.$s.' '.$c;
+}
+
+
+
+function fixCSS($prop) {
+	if (!is_array($prop) || (count($prop)==0)) return array();
+	$newprop = array();
+	foreach($prop AS $k => $v) {
+		if ($k != 'BACKGROUND-IMAGE' && $k != 'BACKGROUND' && $k != 'ODD-HEADER-NAME' && $k != 'EVEN-HEADER-NAME' && $k != 'ODD-FOOTER-NAME' && $k != 'EVEN-FOOTER-NAME' && $k != 'HEADER' && $k != 'FOOTER') {
+			$v = strtolower($v);
+		}
+
+		if ($k == 'FONT') {
+			$s = trim($v);
+			preg_match_all('/\"(.*?)\"/',$s,$ff);
+			if (count($ff[1])) {
+				foreach($ff[1] AS $ffp) {
+					$w = preg_split('/\s+/',$ffp);
+					$s = preg_replace('/\"'.$ffp.'\"/',$w[0],$s);
+				}
+			}
+			preg_match_all('/\'(.*?)\'/',$s,$ff);
+			if (count($ff[1])) {
+				foreach($ff[1] AS $ffp) {
+					$w = preg_split('/\s+/',$ffp);
+					$s = preg_replace('/\''.$ffp.'\'/',$w[0],$s);
+				}
+			}
+			$s = preg_replace('/\s*,\s*/',',',$s);
+			$bits = preg_split('/\s+/',$s);
+			if (count($bits)>1) {
+				$k = 'FONT-FAMILY'; $v = $bits[(count($bits)-1)];
+				$fs = $bits[(count($bits)-2)];
+				if (preg_match('/(.*?)\/(.*)/',$fs, $fsp)) {
+					$newprop['FONT-SIZE'] = $fsp[1];
+					$newprop['LINE-HEIGHT'] = $fsp[2];
+				}
+				else { $newprop['FONT-SIZE'] = $fs; }
+				if (preg_match('/(italic|oblique)/i',$s)) { $newprop['FONT-STYLE'] = 'italic'; }
+				else { $newprop['FONT-STYLE'] = 'normal'; }
+				if (preg_match('/bold/i',$s)) { $newprop['FONT-WEIGHT'] = 'bold'; }
+				else { $newprop['FONT-WEIGHT'] = 'normal'; }
+				if (preg_match('/small-caps/i',$s)) { $newprop['TEXT-TRANSFORM'] = 'uppercase'; }
+			}
+		}
+		else if ($k == 'FONT-FAMILY') {
+			$aux_fontlist = explode(",",$v);
+			$found = 0;
+			foreach($aux_fontlist AS $f) {
+				$fonttype = trim($f);
+				$fonttype = preg_replace('/["\']*(.*?)["\']*/','\\1',$fonttype);
+				$fonttype = preg_replace('/ /','',$fonttype);
+				$v = strtolower(trim($fonttype));
+				if (isset($this->mpdf->fonttrans[$v]) && $this->mpdf->fonttrans[$v]) { $v = $this->mpdf->fonttrans[$v]; }
+				if ((!$this->mpdf->onlyCoreFonts && in_array($v,$this->mpdf->available_unifonts)) ||
+					in_array($v,array('ccourier','ctimes','chelvetica')) ||
+					($this->mpdf->onlyCoreFonts && in_array($v,array('courier','times','helvetica','arial'))) ||
+					in_array($v, array('sjis','uhc','big5','gb'))) {
+					$newprop[$k] = $v;
+					$found = 1;
+					break;
+				}
+			}
+			if (!$found) {
+			   foreach($aux_fontlist AS $f) {
+				$fonttype = trim($f);
+				$fonttype = preg_replace('/["\']*(.*?)["\']*/','\\1',$fonttype);
+				$fonttype = preg_replace('/ /','',$fonttype);
+				$v = strtolower(trim($fonttype));
+				if (isset($this->mpdf->fonttrans[$v]) && $this->mpdf->fonttrans[$v]) { $v = $this->mpdf->fonttrans[$v]; }
+				if (in_array($v,$this->mpdf->sans_fonts) || in_array($v,$this->mpdf->serif_fonts) || in_array($v,$this->mpdf->mono_fonts) ) {
+					$newprop[$k] = $v;
+					break;
+				}
+			   }
+			}
+		}
+		// mPDF 5.7.1
+		else if ($k == 'FONT-VARIANT') {
+			if (preg_match('/(normal|none)/',$v, $m)) {	// mPDF 6
+				$newprop['FONT-VARIANT-LIGATURES'] = $m[1];
+				$newprop['FONT-VARIANT-CAPS'] = $m[1];
+				$newprop['FONT-VARIANT-NUMERIC'] = $m[1];
+				$newprop['FONT-VARIANT-ALTERNATES'] = $m[1];
+			}
+			else {
+			  if (preg_match_all('/(no-common-ligatures|\bcommon-ligatures|no-discretionary-ligatures|\bdiscretionary-ligatures|no-historical-ligatures|\bhistorical-ligatures|no-contextual|\bcontextual)/i',$v, $m)) {
+				$newprop['FONT-VARIANT-LIGATURES'] = implode(' ',$m[1]);
+			  }
+			  if (preg_match('/(all-small-caps|\bsmall-caps|all-petite-caps|\bpetite-caps|unicase|titling-caps)/i',$v, $m)) {
+				$newprop['FONT-VARIANT-CAPS'] = $m[1];
+			  }
+			  if (preg_match_all('/(lining-nums|oldstyle-nums|proportional-nums|tabular-nums|diagonal-fractions|stacked-fractions)/i',$v, $m)) {
+				$newprop['FONT-VARIANT-NUMERIC'] = implode(' ',$m[1]);
+			  }
+			  if (preg_match('/(historical-forms)/i',$v, $m)) {
+				$newprop['FONT-VARIANT-ALTERNATES'] = $m[1];
+			  }
+			}
+		}
+		else if ($k == 'MARGIN') {
+			$tmp =  $this->expand24($v);
+			$newprop['MARGIN-TOP'] = $tmp['T'];
+			$newprop['MARGIN-RIGHT'] = $tmp['R'];
+			$newprop['MARGIN-BOTTOM'] = $tmp['B'];
+			$newprop['MARGIN-LEFT'] = $tmp['L'];
+		}
+/*-- BORDER-RADIUS --*/
+		else if ($k == 'BORDER-RADIUS' || $k == 'BORDER-TOP-LEFT-RADIUS' || $k == 'BORDER-TOP-RIGHT-RADIUS' || $k == 'BORDER-BOTTOM-LEFT-RADIUS' || $k == 'BORDER-BOTTOM-RIGHT-RADIUS') {
+			$tmp =  $this->border_radius_expand($v,$k);
+			if (isset($tmp['TL-H'])) $newprop['BORDER-TOP-LEFT-RADIUS-H'] = $tmp['TL-H'];
+			if (isset($tmp['TL-V'])) $newprop['BORDER-TOP-LEFT-RADIUS-V'] = $tmp['TL-V'];
+			if (isset($tmp['TR-H'])) $newprop['BORDER-TOP-RIGHT-RADIUS-H'] = $tmp['TR-H'];
+			if (isset($tmp['TR-V'])) $newprop['BORDER-TOP-RIGHT-RADIUS-V'] = $tmp['TR-V'];
+			if (isset($tmp['BL-H'])) $newprop['BORDER-BOTTOM-LEFT-RADIUS-H'] = $tmp['BL-H'];
+			if (isset($tmp['BL-V'])) $newprop['BORDER-BOTTOM-LEFT-RADIUS-V'] = $tmp['BL-V'];
+			if (isset($tmp['BR-H'])) $newprop['BORDER-BOTTOM-RIGHT-RADIUS-H'] = $tmp['BR-H'];
+			if (isset($tmp['BR-V'])) $newprop['BORDER-BOTTOM-RIGHT-RADIUS-V'] = $tmp['BR-V'];
+		}
+/*-- END BORDER-RADIUS --*/
+		else if ($k == 'PADDING') {
+			$tmp =  $this->expand24($v);
+			$newprop['PADDING-TOP'] = $tmp['T'];
+			$newprop['PADDING-RIGHT'] = $tmp['R'];
+			$newprop['PADDING-BOTTOM'] = $tmp['B'];
+			$newprop['PADDING-LEFT'] = $tmp['L'];
+		}
+		else if ($k == 'BORDER') {
+			if ($v == '1') { $v = '1px solid #000000'; }
+			else { $v = $this->_fix_borderStr($v); }
+			$newprop['BORDER-TOP'] = $v;
+			$newprop['BORDER-RIGHT'] = $v;
+			$newprop['BORDER-BOTTOM'] = $v;
+			$newprop['BORDER-LEFT'] = $v;
+		}
+		else if ($k == 'BORDER-TOP') {
+			$newprop['BORDER-TOP'] = $this->_fix_borderStr($v);
+		}
+		else if ($k == 'BORDER-RIGHT') {
+			$newprop['BORDER-RIGHT'] = $this->_fix_borderStr($v);
+		}
+		else if ($k == 'BORDER-BOTTOM') {
+			$newprop['BORDER-BOTTOM'] = $this->_fix_borderStr($v);
+		}
+		else if ($k == 'BORDER-LEFT') {
+			$newprop['BORDER-LEFT'] = $this->_fix_borderStr($v);
+		}
+		else if ($k == 'BORDER-STYLE') {
+			$e = $this->expand24($v);
+			if (!empty($e)) {
+				$newprop['BORDER-TOP-STYLE'] = $e['T'];
+				$newprop['BORDER-RIGHT-STYLE'] = $e['R'];
+				$newprop['BORDER-BOTTOM-STYLE'] = $e['B'];
+				$newprop['BORDER-LEFT-STYLE'] = $e['L'];
+			}
+		}
+		else if ($k == 'BORDER-WIDTH') {
+			$e = $this->expand24($v);
+			if (!empty($e)) {
+				$newprop['BORDER-TOP-WIDTH'] = $e['T'];
+				$newprop['BORDER-RIGHT-WIDTH'] = $e['R'];
+				$newprop['BORDER-BOTTOM-WIDTH'] = $e['B'];
+				$newprop['BORDER-LEFT-WIDTH'] = $e['L'];
+			}
+		}
+		else if ($k == 'BORDER-COLOR') {
+			$e = $this->expand24($v);
+			if (!empty($e)) {
+				$newprop['BORDER-TOP-COLOR'] = $e['T'];
+				$newprop['BORDER-RIGHT-COLOR'] = $e['R'];
+				$newprop['BORDER-BOTTOM-COLOR'] = $e['B'];
+				$newprop['BORDER-LEFT-COLOR'] = $e['L'];
+			}
+		}
+
+		else if ($k == 'BORDER-SPACING') {
+			$prop = preg_split('/\s+/',trim($v));
+			if (count($prop) == 1 ) {
+				$newprop['BORDER-SPACING-H'] = $prop[0];
+				$newprop['BORDER-SPACING-V'] = $prop[0];
+			}
+			else if (count($prop) == 2 ) {
+				$newprop['BORDER-SPACING-H'] = $prop[0];
+				$newprop['BORDER-SPACING-V'] = $prop[1];
+			}
+		}
+		else if ($k == 'TEXT-OUTLINE') {	// mPDF 5.6.07
+			$prop = preg_split('/\s+/',trim($v));
+			if (trim(strtolower($v)) == 'none' ) {
+				$newprop['TEXT-OUTLINE'] = 'none';
+			}
+			else if (count($prop) == 2 ) {
+				$newprop['TEXT-OUTLINE-WIDTH'] = $prop[0];
+				$newprop['TEXT-OUTLINE-COLOR'] = $prop[1];
+			}
+			else if (count($prop) == 3 ) {
+				$newprop['TEXT-OUTLINE-WIDTH'] = $prop[0];
+				$newprop['TEXT-OUTLINE-COLOR'] = $prop[2];
+			}
+		}
+		else if ($k == 'SIZE') {
+			$prop = preg_split('/\s+/',trim($v));
+			if (preg_match('/(auto|portrait|landscape)/',$prop[0])) {
+				$newprop['SIZE'] = strtoupper($prop[0]);
+			}
+			else if (count($prop) == 1 ) {
+				$newprop['SIZE']['W'] = $this->mpdf->ConvertSize($prop[0]);
+				$newprop['SIZE']['H'] = $this->mpdf->ConvertSize($prop[0]);
+			}
+			else if (count($prop) == 2 ) {
+				$newprop['SIZE']['W'] = $this->mpdf->ConvertSize($prop[0]);
+				$newprop['SIZE']['H'] = $this->mpdf->ConvertSize($prop[1]);
+			}
+		}
+		else if ($k == 'SHEET-SIZE') {
+			$prop = preg_split('/\s+/',trim($v));
+			if (count($prop) == 2 ) {
+				$newprop['SHEET-SIZE'] = array($this->mpdf->ConvertSize($prop[0]), $this->mpdf->ConvertSize($prop[1]));
+			}
+			else {
+				if(preg_match('/([0-9a-zA-Z]*)-L/i',$v,$m)) {	// e.g. A4-L = A$ landscape
+					$ft = $this->mpdf->_getPageFormat($m[1]);
+					$format = array($ft[1],$ft[0]);
+				}
+				else { $format = $this->mpdf->_getPageFormat($v); }
+				if ($format) { $newprop['SHEET-SIZE'] = array($format[0]/_MPDFK, $format[1]/_MPDFK); }
+			}
+		}
+		else if ($k == 'BACKGROUND') {
+			$bg = $this->parseCSSbackground($v);
+			if ($bg['c']) { $newprop['BACKGROUND-COLOR'] = $bg['c']; }
+			else { $newprop['BACKGROUND-COLOR'] = 'transparent'; }
+/*-- BACKGROUNDS --*/
+			if ($bg['i']) {
+				$newprop['BACKGROUND-IMAGE'] = $bg['i'];
+				if ($bg['r']) { $newprop['BACKGROUND-REPEAT'] = $bg['r']; }
+				if ($bg['p']) { $newprop['BACKGROUND-POSITION'] = $bg['p']; }
+			}
+			else { $newprop['BACKGROUND-IMAGE'] = ''; }
+/*-- END BACKGROUNDS --*/
+		}
+/*-- BACKGROUNDS --*/
+		else if ($k == 'BACKGROUND-IMAGE') {
+			if (preg_match('/(-moz-)*(repeating-)*(linear|radial)-gradient\(.*\)/i',$v,$m)) {
+				$newprop['BACKGROUND-IMAGE'] = $m[0];
+				continue;
+			}
+			if (preg_match('/url\([\'\"]{0,1}(.*?)[\'\"]{0,1}\)/i',$v,$m)) {
+				$newprop['BACKGROUND-IMAGE'] = $m[1];
+			}
+
+			else if (strtolower($v)=='none') { $newprop['BACKGROUND-IMAGE'] = ''; }
+
+		}
+		else if ($k == 'BACKGROUND-REPEAT') {
+			if (preg_match('/(repeat-x|repeat-y|no-repeat|repeat)/i',$v,$m)) {
+				$newprop['BACKGROUND-REPEAT'] = strtolower($m[1]);
+			}
+		}
+		else if ($k == 'BACKGROUND-POSITION') {
+			$s = $v;
+			$bits = preg_split('/\s+/',trim($s));
+			// These should be Position x1 or x2
+			if (count($bits)==1) {
+				if (preg_match('/bottom/',$bits[0])) { $bg['p'] = '50% 100%'; }
+				else if (preg_match('/top/',$bits[0])) { $bg['p'] = '50% 0%'; }
+				else { $bg['p'] = $bits[0] . ' 50%'; }
+			}
+			else if (count($bits)==2) {
+				// Can be either right center or center right
+				if (preg_match('/(top|bottom)/',$bits[0]) || preg_match('/(left|right)/',$bits[1])) {
+					$bg['p'] = $bits[1] . ' '.$bits[0];
+				}
+				else {
+					$bg['p'] = $bits[0] . ' '.$bits[1];
+				}
+			}
+			if ($bg['p']) {
+				$bg['p'] = preg_replace('/(left|top)/','0%',$bg['p']);
+				$bg['p'] = preg_replace('/(right|bottom)/','100%',$bg['p']);
+				$bg['p'] = preg_replace('/(center)/','50%',$bg['p']);
+				if (!preg_match('/[\-]{0,1}\d+(in|cm|mm|pt|pc|em|ex|px|%)* [\-]{0,1}\d+(in|cm|mm|pt|pc|em|ex|px|%)*/',$bg['p'])) {
+					$bg['p'] = false;
+				}
+			}
+			if ($bg['p']) { $newprop['BACKGROUND-POSITION'] = $bg['p']; }
+		}
+/*-- END BACKGROUNDS --*/
+		else if ($k == 'IMAGE-ORIENTATION') {
+			if (preg_match('/([\-]*[0-9\.]+)(deg|grad|rad)/i',$v,$m)) {
+				$angle = $m[1] + 0;
+				if (strtolower($m[2])=='deg') { $angle = $angle; }
+				else if (strtolower($m[2])=='grad') { $angle *= (360/400); }
+				else if (strtolower($m[2])=='rad') { $angle = rad2deg($angle); }
+				while($angle < 0) { $angle += 360; }
+				$angle = ($angle % 360);
+				$angle /= 90;
+				$angle = round($angle) * 90;
+				$newprop['IMAGE-ORIENTATION'] = $angle;
+			}
+		}
+		else if ($k == 'TEXT-ALIGN') {
+			if (preg_match('/["\'](.){1}["\']/i',$v,$m)) {
+				$d = array_search($m[1],$this->mpdf->decimal_align);
+				if ($d !== false) { $newprop['TEXT-ALIGN'] = $d; }
+				if (preg_match('/(center|left|right)/i',$v,$m)) { $newprop['TEXT-ALIGN'] .= strtoupper(substr($m[1],0,1)); }
+				else { $newprop['TEXT-ALIGN'] .= 'R'; }	// default = R
+			}
+			else if (preg_match('/["\'](\\\[a-fA-F0-9]{1,6})["\']/i',$v,$m)) {
+				$utf8 = codeHex2utf(substr($m[1],1,6));
+				$d = array_search($utf8,$this->mpdf->decimal_align);
+				if ($d !== false) { $newprop['TEXT-ALIGN'] = $d; }
+				if (preg_match('/(center|left|right)/i',$v,$m)) { $newprop['TEXT-ALIGN'] .= strtoupper(substr($m[1],0,1)); }
+				else { $newprop['TEXT-ALIGN'] .= 'R'; }	// default = R
+			}
+			else { $newprop[$k] = $v; }
+		}
+		// mpDF 6  Lists
+		else if ($k == 'LIST-STYLE') {
+			if (preg_match('/none/i',$v,$m)) {
+				$newprop['LIST-STYLE-TYPE'] = 'none';
+				$newprop['LIST-STYLE-IMAGE'] = 'none';
+			}
+			if (preg_match('/(lower-roman|upper-roman|lower-latin|lower-alpha|upper-latin|upper-alpha|decimal|disc|circle|square|arabic-indic|bengali|devanagari|gujarati|gurmukhi|kannada|malayalam|oriya|persian|tamil|telugu|thai|urdu|cambodian|khmer|lao|cjk-decimal|hebrew)/i',$v,$m)) {
+				$newprop['LIST-STYLE-TYPE'] = strtolower(trim($m[1]));
+			}
+			else if (preg_match('/U\+([a-fA-F0-9]+)/i',$v,$m)) {
+				$newprop['LIST-STYLE-TYPE'] = strtolower(trim($m[1]));
+			}
+			if (preg_match('/url\([\'\"]{0,1}(.*?)[\'\"]{0,1}\)/i',$v,$m)) {
+				$newprop['LIST-STYLE-IMAGE'] = strtolower(trim($m[1]));
+			}
+			if (preg_match('/(inside|outside)/i',$v,$m)) {
+				$newprop['LIST-STYLE-POSITION'] = strtolower(trim($m[1]));
+			}
+		}
+
+		else {
+			$newprop[$k] = $v;
+		}
+	}
+
+	return $newprop;
+}
+
+function setCSSboxshadow($v) {
+	$sh = array();
+	$c = preg_match_all('/(rgba|rgb|device-cmyka|cmyka|device-cmyk|cmyk|hsla|hsl)\(.*?\)/',$v,$x);	// mPDF 5.6.05
+	for($i=0; $i<$c; $i++) {
+		$col = preg_replace('/,/','*',$x[0][$i]);
+		$v = preg_replace('/'.preg_quote($x[0][$i],'/').'/',$col,$v);
+	}
+	$ss = explode(',',$v);
+	foreach ($ss AS $s) {
+		$new = array('inset'=>false, 'blur'=>0, 'spread'=>0);
+		if (preg_match('/inset/i',$s)) { $new['inset'] = true; $s = preg_replace('/\s*inset\s*/','',$s); }
+		$p = explode(' ',trim($s));
+		if (isset($p[0])) { $new['x'] = $this->mpdf->ConvertSize(trim($p[0]),$this->mpdf->blk[$this->mpdf->blklvl-1]['inner_width'],$this->mpdf->FontSize,false); }
+		if (isset($p[1])) { $new['y'] = $this->mpdf->ConvertSize(trim($p[1]),$this->mpdf->blk[$this->mpdf->blklvl-1]['inner_width'],$this->mpdf->FontSize,false); }
+		if (isset($p[2])) {
+			if (preg_match('/^\s*[\.\-0-9]/',$p[2])) {
+				$new['blur'] = $this->mpdf->ConvertSize(trim($p[2]),$this->mpdf->blk[$this->mpdf->blklvl-1]['inner_width'],$this->mpdf->FontSize,false);
+			}
+			else { $new['col'] = $this->mpdf->ConvertColor(preg_replace('/\*/',',',$p[2])); }
+			if (isset($p[3])) {
+				if (preg_match('/^\s*[\.\-0-9]/',$p[3])) {
+					$new['spread'] = $this->mpdf->ConvertSize(trim($p[3]),$this->mpdf->blk[$this->mpdf->blklvl-1]['inner_width'],$this->mpdf->FontSize,false);
+				}
+				else { $new['col'] = $this->mpdf->ConvertColor(preg_replace('/\*/',',',$p[3])); }
+				if (isset($p[4])) {
+					$new['col'] = $this->mpdf->ConvertColor(preg_replace('/\*/',',',$p[4]));
+				}
+			}
+		}
+		if (!$new['col']) { $new['col'] = $this->mpdf->ConvertColor('#888888'); }
+		if (isset($new['y'])) { array_unshift($sh, $new); }
+	}
+	return $sh;
+}
+
+function setCSStextshadow($v) {
+	$sh = array();
+	$c = preg_match_all('/(rgba|rgb|device-cmyka|cmyka|device-cmyk|cmyk|hsla|hsl)\(.*?\)/',$v,$x);	// mPDF 5.6.05
+	for($i=0; $i<$c; $i++) {
+		$col = preg_replace('/,/','*',$x[0][$i]);
+		$v = preg_replace('/'.preg_quote($x[0][$i],'/').'/',$col,$v);
+	}
+	$ss = explode(',',$v);
+	foreach ($ss AS $s) {
+		$new = array('blur'=>0);
+		$p = explode(' ',trim($s));
+		if (isset($p[0])) { $new['x'] = $this->mpdf->ConvertSize(trim($p[0]),$this->mpdf->FontSize,$this->mpdf->FontSize,false); }
+		if (isset($p[1])) { $new['y'] = $this->mpdf->ConvertSize(trim($p[1]),$this->mpdf->FontSize,$this->mpdf->FontSize,false); }
+		if (isset($p[2])) {
+			if (preg_match('/^\s*[\.\-0-9]/',$p[2])) {
+				$new['blur'] = $this->mpdf->ConvertSize(trim($p[2]),$this->mpdf->blk[$this->mpdf->blklvl]['inner_width'],$this->mpdf->FontSize,false);
+			}
+			else { $new['col'] = $this->mpdf->ConvertColor(preg_replace('/\*/',',',$p[2])); }
+			if (isset($p[3])) {
+				$new['col'] = $this->mpdf->ConvertColor(preg_replace('/\*/',',',$p[3]));
+			}
+		}
+		if (!isset($new['col']) || !$new['col']) { $new['col'] = $this->mpdf->ConvertColor('#888888'); }
+		if (isset($new['y'])) { array_unshift($sh, $new); }
+	}
+	return $sh;
+}
+
+function parseCSSbackground($s) {
+	$bg = array('c'=>false, 'i'=>false, 'r'=>false, 'p'=>false, );
+/*-- BACKGROUNDS --*/
+	if (preg_match('/(-moz-)*(repeating-)*(linear|radial)-gradient\(.*\)/i',$s,$m)) {
+		$bg['i'] = $m[0];
+	}
+	else
+/*-- END BACKGROUNDS --*/
+	if (preg_match('/url\(/i',$s)) {
+		// If color, set and strip it off
+		// mPDF 5.6.05
+		if (preg_match('/^\s*(#[0-9a-fA-F]{3,6}|(rgba|rgb|device-cmyka|cmyka|device-cmyk|cmyk|hsla|hsl|spot)\(.*?\)|[a-zA-Z]{3,})\s+(url\(.*)/i',$s,$m)) {
+			$bg['c'] = strtolower($m[1]);
+			$s = $m[3];
+		}
+/*-- BACKGROUNDS --*/
+		if (preg_match('/url\([\'\"]{0,1}(.*?)[\'\"]{0,1}\)\s*(.*)/i',$s,$m)) {
+			$bg['i'] = $m[1];
+			$s = strtolower($m[2]);
+			if (preg_match('/(repeat-x|repeat-y|no-repeat|repeat)/',$s,$m)) {
+				$bg['r'] = $m[1];
+			}
+			// Remove repeat, attachment (discarded) and also any inherit
+			$s = preg_replace('/(repeat-x|repeat-y|no-repeat|repeat|scroll|fixed|inherit)/','',$s);
+			$bits = preg_split('/\s+/',trim($s));
+			// These should be Position x1 or x2
+			if (count($bits)==1) {
+				if (preg_match('/bottom/',$bits[0])) { $bg['p'] = '50% 100%'; }
+				else if (preg_match('/top/',$bits[0])) { $bg['p'] = '50% 0%'; }
+				else { $bg['p'] = $bits[0] . ' 50%'; }
+			}
+			else if (count($bits)==2) {
+				// Can be either right center or center right
+				if (preg_match('/(top|bottom)/',$bits[0]) || preg_match('/(left|right)/',$bits[1])) {
+					$bg['p'] = $bits[1] . ' '.$bits[0];
+				}
+				else {
+					$bg['p'] = $bits[0] . ' '.$bits[1];
+				}
+			}
+			if ($bg['p']) {
+				$bg['p'] = preg_replace('/(left|top)/','0%',$bg['p']);
+				$bg['p'] = preg_replace('/(right|bottom)/','100%',$bg['p']);
+				$bg['p'] = preg_replace('/(center)/','50%',$bg['p']);
+				if (!preg_match('/[\-]{0,1}\d+(in|cm|mm|pt|pc|em|ex|px|%)* [\-]{0,1}\d+(in|cm|mm|pt|pc|em|ex|px|%)*/',$bg['p'])) {
+					$bg['p'] = false;
+				}
+			}
+		}
+/*-- END BACKGROUNDS --*/
+	}
+	else if (preg_match('/^\s*(#[0-9a-fA-F]{3,6}|(rgba|rgb|device-cmyka|cmyka|device-cmyk|cmyk|hsla|hsl|spot)\(.*?\)|[a-zA-Z]{3,})/i',$s,$m)) { $bg['c'] = strtolower($m[1]); }	// mPDF 5.6.05
+	return ($bg);
+}
+
+
+function expand24($mp) {
+	$prop = preg_split('/\s+/',trim($mp));
+	if (count($prop) == 1 ) {
+		return array('T' => $prop[0], 'R' => $prop[0], 'B' => $prop[0], 'L'=> $prop[0]);
+	}
+	if (count($prop) == 2 ) {
+		return array('T' => $prop[0], 'R' => $prop[1], 'B' => $prop[0], 'L'=> $prop[1]);
+	}
+
+	if (count($prop) == 3 ) {
+		return array('T' => $prop[0], 'R' => $prop[1], 'B' => $prop[2], 'L'=> $prop[1]);
+	}
+	if (count($prop) == 4 ) {
+		return array('T' => $prop[0], 'R' => $prop[1], 'B' => $prop[2], 'L'=> $prop[3]);
+	}
+	return array();
+}
+
+/*-- BORDER-RADIUS --*/
+function border_radius_expand($val,$k) {
+	$b = array();
+	if ($k == 'BORDER-RADIUS') {
+		$hv = explode('/',trim($val));
+		$prop = preg_split('/\s+/',trim($hv[0]));
+		if (count($prop)==1) {
+			$b['TL-H'] = $b['TR-H'] = $b['BR-H'] = $b['BL-H'] = $prop[0];
+		}
+		else if (count($prop)==2) {
+			$b['TL-H'] = $b['BR-H'] = $prop[0];
+			$b['TR-H'] = $b['BL-H'] = $prop[1];
+		}
+		else if (count($prop)==3) {
+			$b['TL-H'] = $prop[0];
+			$b['TR-H'] = $b['BL-H'] = $prop[1];
+			$b['BR-H'] = $prop[2];
+		}
+		else if (count($prop)==4) {
+			$b['TL-H'] = $prop[0];
+			$b['TR-H'] = $prop[1];
+			$b['BR-H'] = $prop[2];
+			$b['BL-H'] = $prop[3];
+		}
+		if (count($hv)==2) {
+			$prop = preg_split('/\s+/',trim($hv[1]));
+			if (count($prop)==1) {
+				$b['TL-V'] = $b['TR-V'] = $b['BR-V'] = $b['BL-V'] = $prop[0];
+			}
+			else if (count($prop)==2) {
+				$b['TL-V'] = $b['BR-V'] = $prop[0];
+				$b['TR-V'] = $b['BL-V'] = $prop[1];
+			}
+			else if (count($prop)==3) {
+				$b['TL-V'] = $prop[0];
+				$b['TR-V'] = $b['BL-V'] = $prop[1];
+				$b['BR-V'] = $prop[2];
+			}
+			else if (count($prop)==4) {
+				$b['TL-V'] = $prop[0];
+				$b['TR-V'] = $prop[1];
+				$b['BR-V'] = $prop[2];
+				$b['BL-V'] = $prop[3];
+			}
+		}
+		else {
+			$b['TL-V'] = $b['TL-H'];
+			$b['TR-V'] = $b['TR-H'];
+			$b['BL-V'] = $b['BL-H'];
+			$b['BR-V'] = $b['BR-H'];
+		}
+		return $b;
+	}
+
+	// Parse 2
+	$h = 0;
+	$v = 0;
+	$prop = preg_split('/\s+/',trim($val));
+	if (count($prop)==1) { $h = $v = $val; }
+	else { $h = $prop[0]; $v = $prop[1]; }
+	if ($h==0 || $v==0) { $h = $v = 0; }
+	if ($k == 'BORDER-TOP-LEFT-RADIUS') {
+		$b['TL-H'] = $h;
+		$b['TL-V'] = $v;
+	}
+	else if ($k == 'BORDER-TOP-RIGHT-RADIUS') {
+		$b['TR-H'] = $h;
+		$b['TR-V'] = $v;
+	}
+	else if ($k == 'BORDER-BOTTOM-LEFT-RADIUS') {
+		$b['BL-H'] = $h;
+		$b['BL-V'] = $v;
+	}
+	else if ($k == 'BORDER-BOTTOM-RIGHT-RADIUS') {
+		$b['BR-H'] = $h;
+		$b['BR-V'] = $v;
+	}
+	return $b;
+
+}
+/*-- END BORDER-RADIUS --*/
+
+function _mergeCSS($p, &$t) {
+	// Save Cascading CSS e.g. "div.topic p" at this block level
+	if (isset($p) && $p) {
+		if ($t) {
+			$t = $this->array_merge_recursive_unique($t, $p);
+		}
+	   	else { $t = $p; }
+	}
+}
+
+// for CSS handling
+function array_merge_recursive_unique($array1, $array2) {
+    $arrays = func_get_args();
+    $narrays = count($arrays);
+    $ret = $arrays[0];
+    for ($i = 1; $i < $narrays; $i ++) {
+        foreach ($arrays[$i] as $key => $value) {
+            if (((string) $key) === ((string) intval($key))) { // integer or string as integer key - append
+                $ret[] = $value;
+            }
+            else { // string key - merge
+                if (is_array($value) && isset($ret[$key])) {
+                    $ret[$key] = $this->array_merge_recursive_unique($ret[$key], $value);
+                }
+                else {
+                    $ret[$key] = $value;
+                }
+            }
+        }
+    }
+    return $ret;
+}
+
+
+
+function _mergeFullCSS($p, &$t, $tag, $classes, $id, $lang) {	// mPDF 6
+		if (isset($p[$tag])) { $this->_mergeCSS($p[$tag], $t); }
+		// STYLESHEET CLASS e.g. .smallone{}  .redletter{}
+		foreach($classes AS $class) {
+			if (isset($p['CLASS>>'.$class])) { $this->_mergeCSS($p['CLASS>>'.$class], $t); }
+		}
+		// STYLESHEET nth-child SELECTOR e.g. tr:nth-child(odd)  td:nth-child(2n+1)
+		if ($tag=='TR' && isset($p) && $p)  {
+			foreach($p AS $k=>$val) {
+				if (preg_match('/'.$tag.'>>SELECTORNTHCHILD>>(.*)/',$k, $m)) {
+					$select = false;
+					if ($tag=='TR')  {
+						$row = $this->mpdf->row;
+						$thnr = (isset($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_thead']) ? count($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_thead']) : 0);
+						$tfnr = (isset($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_tfoot']) ? count($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_tfoot']) : 0);
+						if ($this->mpdf->tabletfoot) { $row -= $thnr; }
+						else if (!$this->mpdf->tablethead) { $row -= ($thnr + $tfnr); }
+						if (preg_match('/(([\-+]?\d*)?N([\-+]\d+)?|[\-+]?\d+|ODD|EVEN)/',$m[1],$a)) {	// mPDF 5.7.4
+							$select = $this->_nthchild($a, $row);
+						}
+					}
+					else if ($tag=='TD' || $tag=='TH')  {
+						if (preg_match('/(([\-+]?\d*)?N([\-+]\d+)?|[\-+]?\d+|ODD|EVEN)/',$m[1],$a)) {	// mPDF 5.7.4
+							$select = $this->_nthchild($a, $this->mpdf->col);
+						}
+					}
+					if ($select) {
+		  				$this->_mergeCSS($p[$tag.'>>SELECTORNTHCHILD>>'.$m[1]], $t);
+					}
+				}
+			}
+		}
+		// STYLESHEET CLASS e.g. [lang=fr]{} or :lang(fr)
+		if (isset($lang) && isset($p['LANG>>'.$lang])) {
+		  $this->_mergeCSS($p['LANG>>'.$lang], $t);
+		}
+		// STYLESHEET CLASS e.g. #smallone{}  #redletter{}
+		if (isset($id) && isset($p['ID>>'.$id])) {
+		  $this->_mergeCSS($p['ID>>'.$id], $t);
+		}
+
+		// STYLESHEET CLASS e.g. .smallone{}  .redletter{}
+		foreach($classes AS $class) {
+			if (isset($p[$tag.'>>CLASS>>'.$class])) { $this->_mergeCSS($p[$tag.'>>CLASS>>'.$class], $t); }
+		}
+		// STYLESHEET CLASS e.g. [lang=fr]{} or :lang(fr)
+		if (isset($lang) && isset($p[$tag.'>>LANG>>'.$lang])) {
+		  $this->_mergeCSS($p[$tag.'>>LANG>>'.$lang], $t);
+		}
+		// STYLESHEET CLASS e.g. #smallone{}  #redletter{}
+		if (isset($id) && isset($p[$tag.'>>ID>>'.$id])) {
+		  $this->_mergeCSS($p[$tag.'>>ID>>'.$id], $t);
+		}
+}
+
+function setBorderDominance($prop, $val) {
+	if (isset($prop['BORDER-LEFT']) && $prop['BORDER-LEFT']) { $this->cell_border_dominance_L = $val; }
+	if (isset($prop['BORDER-RIGHT']) && $prop['BORDER-RIGHT']) { $this->cell_border_dominance_R = $val; }
+	if (isset($prop['BORDER-TOP']) && $prop['BORDER-TOP']) { $this->cell_border_dominance_T = $val; }
+	if (isset($prop['BORDER-BOTTOM']) && $prop['BORDER-BOTTOM']) { $this->cell_border_dominance_B = $val; }
+}
+
+function _set_mergedCSS(&$m, &$p, $d=true, $bd=false) {
+	if (isset($m)) {
+		if ((isset($m['depth']) && $m['depth']>1) || $d==false) { 	// include check for 'depth'
+			if ($bd) { $this->setBorderDominance($m, $bd); }	// *TABLES*
+			if (is_array($m)) {
+				$p = array_merge($p,$m);
+				$this->_mergeBorders($p,$m);
+			}
+		}
+	}
+}
+
+
+function _mergeBorders(&$b, &$a) {	// Merges $a['BORDER-TOP-STYLE'] to $b['BORDER-TOP'] etc.
+  foreach(array('TOP','RIGHT','BOTTOM','LEFT') AS $side) {
+    foreach(array('STYLE','WIDTH','COLOR') AS $el) {
+	if (isset($a['BORDER-'.$side.'-'.$el])) {	// e.g. $b['BORDER-TOP-STYLE']
+		$s = trim($a['BORDER-'.$side.'-'.$el]);
+		if (isset($b['BORDER-'.$side])) {	// e.g. $b['BORDER-TOP']
+			$p = trim($b['BORDER-'.$side]);
+		}
+		else { $p = ''; }
+		if ($el=='STYLE') {
+			if ($p) { $b['BORDER-'.$side] = preg_replace('/(\S+)\s+(\S+)\s+(\S+)/', '\\1 '.$s.' \\3', $p); }
+			else { $b['BORDER-'.$side] = '0px '.$s.' #000000'; }
+		}
+		else if ($el=='WIDTH') {
+			if ($p) { $b['BORDER-'.$side] = preg_replace('/(\S+)\s+(\S+)\s+(\S+)/', $s.' \\2 \\3', $p); }
+			else { $b['BORDER-'.$side] = $s.' none #000000'; }
+		}
+		else if ($el=='COLOR') {
+			if ($p) { $b['BORDER-'.$side] = preg_replace('/(\S+)\s+(\S+)\s+(\S+)/', '\\1 \\2 '.$s, $p); }
+			else { $b['BORDER-'.$side] = '0px none '.$s; }
+		}
+	}
+    }
+  }
+}
+
+
+function MergeCSS($inherit,$tag,$attr) {
+	$p = array();
+	$zp = array();
+
+    $attr = array();
+	$classes = array();
+	if (isset($attr['CLASS'])) {
+		$classes = preg_split('/\s+/',$attr['CLASS']);
+	}
+	if (!isset($attr['ID'])) { $attr['ID']=''; }
+	// mPDF 6
+	$shortlang = '';
+	if (!isset($attr['LANG'])) { $attr['LANG']=''; }
+	else {
+		$attr['LANG'] = strtolower($attr['LANG']);
+		if (strlen($attr['LANG']) == 5) {
+			$shortlang = substr($attr['LANG'],0,2);
+		}
+	}
+	//===============================================
+/*-- TABLES --*/
+	// Set Inherited properties
+	if ($inherit == 'TOPTABLE') {	// $tag = TABLE
+		//===============================================
+		// Save Cascading CSS e.g. "div.topic p" at this block level
+
+		if (isset($this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'])) {
+			$this->tablecascadeCSS[0] = $this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'];
+		}
+		else {
+			$this->tablecascadeCSS[0] = $this->cascadeCSS;
+		}
+	}
+	//===============================================
+	// Set Inherited properties
+	if ($inherit == 'TOPTABLE' || $inherit == 'TABLE') {
+		//Cascade everything from last level that is not an actual property, or defined by current tag/attributes
+		if (isset($this->tablecascadeCSS[$this->tbCSSlvl-1]) && is_array($this->tablecascadeCSS[$this->tbCSSlvl-1])) {
+		   foreach($this->tablecascadeCSS[$this->tbCSSlvl-1] AS $k=>$v) {
+				$this->tablecascadeCSS[$this->tbCSSlvl][$k] = $v;
+		   }
+		}
+		$this->_mergeFullCSS($this->cascadeCSS, $this->tablecascadeCSS[$this->tbCSSlvl], $tag, $classes, $attr['ID'], $attr['LANG']);
+		//===============================================
+		// Cascading forward CSS e.g. "table.topic td" for this table in $this->tablecascadeCSS
+		//===============================================
+		// STYLESHEET TAG e.g. table
+		$this->_mergeFullCSS($this->tablecascadeCSS[$this->tbCSSlvl-1], $this->tablecascadeCSS[$this->tbCSSlvl], $tag, $classes, $attr['ID'], $attr['LANG']);
+		//===============================================
+	}
+/*-- END TABLES --*/
+	//===============================================
+	// Set Inherited properties
+	if ($inherit == 'BLOCK') {
+		if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS']) && is_array($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS'])) {
+		   foreach($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS'] AS $k=>$v) {
+				$this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'][$k] = $v;
+
+		   }
+		}
+
+		//===============================================
+		// Save Cascading CSS e.g. "div.topic p" at this block level
+		$this->_mergeFullCSS($this->cascadeCSS, $this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'], $tag, $classes, $attr['ID'], $attr['LANG']);
+		//===============================================
+		// Cascading forward CSS
+		//===============================================
+		if (isset($this->mpdf->blk[$this->mpdf->blklvl-1])) {
+			$this->_mergeFullCSS($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS'], $this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'], $tag, $classes, $attr['ID'], $attr['LANG']);
+		}
+		//===============================================
+		  // Block properties which are inherited
+		  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['margin_collapse']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['margin_collapse']) { $p['MARGIN-COLLAPSE'] = 'COLLAPSE'; }	// custom tag, but follows CSS principle that border-collapse is inherited
+		  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['line_height']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['line_height']) { $p['LINE-HEIGHT'] = $this->mpdf->blk[$this->mpdf->blklvl-1]['line_height']; }
+		  // mPDF 6
+		  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['line_stacking_strategy']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['line_stacking_strategy']) { $p['LINE-STACKING-STRATEGY'] = $this->mpdf->blk[$this->mpdf->blklvl-1]['line_stacking_strategy']; }
+		  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['line_stacking_shift']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['line_stacking_shift']) { $p['LINE-STACKING-SHIFT'] = $this->mpdf->blk[$this->mpdf->blklvl-1]['line_stacking_shift']; }
+
+		  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['direction']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['direction']) { $p['DIRECTION'] = $this->mpdf->blk[$this->mpdf->blklvl-1]['direction']; }
+		  // mPDF 6  Lists
+		  if ($tag == 'LI') {
+			if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_type']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_type']) { $p['LIST-STYLE-TYPE'] = $this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_type']; }
+		  }
+		  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_image']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_image']) { $p['LIST-STYLE-IMAGE'] = $this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_image']; }
+		  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_position']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_position']) { $p['LIST-STYLE-POSITION'] = $this->mpdf->blk[$this->mpdf->blklvl-1]['list_style_position']; }
+
+		  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['align']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['align']) {
+			if ($this->mpdf->blk[$this->mpdf->blklvl-1]['align'] == 'L') { $p['TEXT-ALIGN'] = 'left'; }
+			else if ($this->mpdf->blk[$this->mpdf->blklvl-1]['align'] == 'J') { $p['TEXT-ALIGN'] = 'justify'; }
+			else if ($this->mpdf->blk[$this->mpdf->blklvl-1]['align'] == 'R') { $p['TEXT-ALIGN'] = 'right'; }
+			else if ($this->mpdf->blk[$this->mpdf->blklvl-1]['align'] == 'C') { $p['TEXT-ALIGN'] = 'center'; }
+		  }
+		  if ($this->mpdf->ColActive || $this->mpdf->keep_block_together) {
+		  	if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['bgcolor']) && $this->mpdf->blk[$this->mpdf->blklvl-1]['bgcolor']) { // Doesn't officially inherit, but default value is transparent (?=inherited)
+				$cor = $this->mpdf->blk[$this->mpdf->blklvl-1]['bgcolorarray' ];
+				$p['BACKGROUND-COLOR'] = $this->mpdf->_colAtoString($cor);
+			}
+		  }
+
+		if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['text_indent']) && ($this->mpdf->blk[$this->mpdf->blklvl-1]['text_indent'] || $this->mpdf->blk[$this->mpdf->blklvl-1]['text_indent']===0)) { $p['TEXT-INDENT'] = $this->mpdf->blk[$this->mpdf->blklvl-1]['text_indent']; }
+		if (isset($this->mpdf->blk[$this->mpdf->blklvl-1]['InlineProperties'])) {
+			$biilp = $this->mpdf->blk[$this->mpdf->blklvl-1]['InlineProperties'];
+			$this->inlinePropsToCSS($biilp, $p);	// mPDF 5.7.1
+		}
+		else { $biilp = null; }
+	}
+	//===============================================
+	//===============================================
+	// INLINE HTML ATTRIBUTES e.g. .. ALIGN="CENTER">
+	// mPDF 6 (added)
+	if (isset($attr['DIR']) and $attr['DIR']!='') {
+			$p['DIRECTION'] = $attr['DIR'];
+	}
+	// mPDF 6 (moved)
+	if (isset($attr['LANG']) and $attr['LANG']!='') {
+			$p['LANG'] = $attr['LANG'];
+	}
+	if (isset($attr['COLOR']) and $attr['COLOR']!='') {
+			$p['COLOR'] = $attr['COLOR'];
+	}
+
+	if ($tag != 'INPUT') {
+		if (isset($attr['WIDTH']) and $attr['WIDTH']!='') {
+			$p['WIDTH'] = $attr['WIDTH'];
+		}
+		if (isset($attr['HEIGHT']) and $attr['HEIGHT']!='') {
+			$p['HEIGHT'] = $attr['HEIGHT'];
+		}
+	}
+	if ($tag == 'FONT') {
+		if (isset($attr['FACE'])) {
+			$p['FONT-FAMILY'] = $attr['FACE'];
+		}
+		if (isset($attr['SIZE']) and $attr['SIZE']!='') {
+			$s = '';
+			if ($attr['SIZE'] === '+1') { $s = '120%'; }
+			else if ($attr['SIZE'] === '-1') { $s = '86%'; }
+			else if ($attr['SIZE'] === '1') { $s = 'XX-SMALL'; }
+			else if ($attr['SIZE'] == '2') { $s = 'X-SMALL'; }
+			else if ($attr['SIZE'] == '3') { $s = 'SMALL'; }
+			else if ($attr['SIZE'] == '4') { $s = 'MEDIUM'; }
+			else if ($attr['SIZE'] == '5') { $s = 'LARGE'; }
+			else if ($attr['SIZE'] == '6') { $s = 'X-LARGE'; }
+			else if ($attr['SIZE'] == '7') { $s = 'XX-LARGE'; }
+			if ($s) $p['FONT-SIZE'] = $s;
+		}
+	}
+	if (isset($attr['VALIGN']) and $attr['VALIGN']!='') {
+		$p['VERTICAL-ALIGN'] = $attr['VALIGN'];
+	}
+	if (isset($attr['VSPACE']) and $attr['VSPACE']!='') {
+		$p['MARGIN-TOP'] = $attr['VSPACE'];
+		$p['MARGIN-BOTTOM'] = $attr['VSPACE'];
+	}
+	if (isset($attr['HSPACE']) and $attr['HSPACE']!='') {
+		$p['MARGIN-LEFT'] = $attr['HSPACE'];
+		$p['MARGIN-RIGHT'] = $attr['HSPACE'];
+	}
+	//===============================================
+	//===============================================
+	// DEFAULT for this TAG set in DefaultCSS
+	if (isset($this->mpdf->defaultCSS[$tag])) {
+			$zp = $this->fixCSS($this->mpdf->defaultCSS[$tag]);
+			if (is_array($zp)) { 	// Default overwrites Inherited
+				$p = array_merge($p,$zp); 	// !! Note other way round !!
+				$this->_mergeBorders($p,$zp);
+			}
+	}
+	//===============================================
+/*-- TABLES --*/
+	// mPDF 5.7.3
+	// cellSpacing overwrites TABLE default but not specific CSS set on table
+	if ($tag=='TABLE' && isset($attr['CELLSPACING'])) {
+		$p['BORDER-SPACING-H'] = $p['BORDER-SPACING-V'] = $attr['CELLSPACING'];
+	}
+	// cellPadding overwrites TD/TH default but not specific CSS set on cell
+	if (($tag=='TD' || $tag=='TH') && isset($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['cell_padding']) && ($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['cell_padding'] || $this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['cell_padding']==='0')) { 	// mPDF 5.7.3
+		$p['PADDING-LEFT'] = $this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['cell_padding'];
+		$p['PADDING-RIGHT'] = $this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['cell_padding'];
+		$p['PADDING-TOP'] = $this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['cell_padding'];
+		$p['PADDING-BOTTOM'] = $this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['cell_padding'];
+	}
+/*-- END TABLES --*/
+	//===============================================
+	// STYLESHEET TAG e.g. h1  p  div  table
+	if (isset($this->CSS[$tag]) && $this->CSS[$tag]) {
+			$zp = $this->CSS[$tag];
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+	}
+	//===============================================
+	// STYLESHEET CLASS e.g. .smallone{}  .redletter{}
+	foreach($classes AS $class) {
+			$zp = array();
+			if (isset($this->CSS['CLASS>>'.$class]) && $this->CSS['CLASS>>'.$class]) { $zp = $this->CSS['CLASS>>'.$class]; }
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+	}
+	//===============================================
+/*-- TABLES --*/
+	// STYLESHEET nth-child SELECTOR e.g. tr:nth-child(odd)  td:nth-child(2n+1)
+	if ($tag=='TR' || $tag=='TD' || $tag=='TH')  {
+		foreach($this->CSS AS $k=>$val) {
+			if (preg_match('/'.$tag.'>>SELECTORNTHCHILD>>(.*)/',$k, $m)) {
+				$select = false;
+				if ($tag=='TR')  {
+					$row = $this->mpdf->row;
+					$thnr = (isset($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_thead']) ? count($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_thead']) : 0);
+					$tfnr = (isset($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_tfoot']) ? count($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_tfoot']) : 0);
+					if ($this->mpdf->tabletfoot) { $row -= $thnr; }
+					else if (!$this->mpdf->tablethead) { $row -= ($thnr + $tfnr); }
+					if (preg_match('/(([\-+]?\d*)?N([\-+]\d+)?|[\-+]?\d+|ODD|EVEN)/',$m[1],$a)) {	// mPDF 5.7.4
+						$select = $this->_nthchild($a, $row);
+					}
+				}
+				else  if ($tag=='TD' || $tag=='TH')  {
+					if (preg_match('/(([\-+]?\d*)?N([\-+]\d+)?|[\-+]?\d+|ODD|EVEN)/',$m[1],$a)) {	// mPDF 5.7.4
+						$select = $this->_nthchild($a, $this->mpdf->col);
+					}
+				}
+				if ($select) {
+					$zp = $this->CSS[$tag.'>>SELECTORNTHCHILD>>'.$m[1]];
+					if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }
+					if (is_array($zp)) {
+						$p = array_merge($p,$zp);
+						$this->_mergeBorders($p,$zp);
+					}
+				}
+			}
+		}
+	}
+/*-- END TABLES --*/
+	//===============================================
+	// STYLESHEET LANG e.g. [lang=fr]{} or :lang(fr)
+	if (isset($attr['LANG'])) {
+		if (isset($this->CSS['LANG>>'.$attr['LANG']]) && $this->CSS['LANG>>'.$attr['LANG']]) {
+			$zp = $this->CSS['LANG>>'.$attr['LANG']];
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+		}
+		else if (isset($this->CSS['LANG>>'.$shortlang]) && $this->CSS['LANG>>'.$shortlang]) {
+			$zp = $this->CSS['LANG>>'.$shortlang];
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+		}
+	}
+	//===============================================
+	// STYLESHEET ID e.g. #smallone{}  #redletter{}
+	if (isset($attr['ID']) && isset($this->CSS['ID>>'.$attr['ID']]) && $this->CSS['ID>>'.$attr['ID']]) {
+			$zp = $this->CSS['ID>>'.$attr['ID']];
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+	}
+
+	//===============================================
+	// STYLESHEET CLASS e.g. p.smallone{}  div.redletter{}
+	foreach($classes AS $class) {
+			$zp = array();
+			if (isset($this->CSS[$tag.'>>CLASS>>'.$class]) && $this->CSS[$tag.'>>CLASS>>'.$class]) { $zp = $this->CSS[$tag.'>>CLASS>>'.$class]; }
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+	}
+	//===============================================
+	// STYLESHEET LANG e.g. [lang=fr]{} or :lang(fr)
+	if (isset($attr['LANG'])) {
+		if (isset($this->CSS[$tag.'>>LANG>>'.$attr['LANG']]) && $this->CSS[$tag.'>>LANG>>'.$attr['LANG']]) {
+			$zp = $this->CSS[$tag.'>>LANG>>'.$attr['LANG']];
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+		}
+		else if (isset($this->CSS[$tag.'>>LANG>>'.$shortlang]) && $this->CSS[$tag.'>>LANG>>'.$shortlang]) {
+			$zp = $this->CSS[$tag.'>>LANG>>'.$shortlang];
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+		}
+	}
+	//===============================================
+	// STYLESHEET CLASS e.g. p#smallone{}  div#redletter{}
+	if (isset($attr['ID']) && isset($this->CSS[$tag.'>>ID>>'.$attr['ID']]) && $this->CSS[$tag.'>>ID>>'.$attr['ID']]) {
+			$zp = $this->CSS[$tag.'>>ID>>'.$attr['ID']];
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+	}
+	//===============================================
+	// Cascaded e.g. div.class p only works for block level
+	if ($inherit == 'BLOCK') {
+	  if (isset($this->mpdf->blk[$this->mpdf->blklvl-1])) {	// mPDF 6
+		$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS'][$tag], $p);
+		foreach($classes AS $class) {
+			$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS']['CLASS>>'.$class], $p);
+		}
+		$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS']['ID>>'.$attr['ID']], $p);
+		foreach($classes AS $class) {
+			$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS'][$tag.'>>CLASS>>'.$class], $p);
+		}
+		$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl-1]['cascadeCSS'][$tag.'>>ID>>'.$attr['ID']], $p);
+	  }
+	}
+	else if ($inherit == 'INLINE') {
+		$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'][$tag], $p);
+		foreach($classes AS $class) {
+			$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS']['CLASS>>'.$class], $p);
+		}
+		$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS']['ID>>'.$attr['ID']], $p);
+		foreach($classes AS $class) {
+			$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'][$tag.'>>CLASS>>'.$class], $p);
+		}
+		$this->_set_mergedCSS($this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'][$tag.'>>ID>>'.$attr['ID']], $p);
+	}
+/*-- TABLES --*/
+	else if ($inherit == 'TOPTABLE' || $inherit == 'TABLE') { // NB looks at $this->tablecascadeCSS-1 for cascading CSS
+	   if (isset($this->tablecascadeCSS[$this->tbCSSlvl-1])) {	// mPDF 6
+		// false, 9 = don't check for 'depth' and do set border dominance
+		$this->_set_mergedCSS($this->tablecascadeCSS[$this->tbCSSlvl-1][$tag], $p, false, 9);
+		foreach($classes AS $class) {
+			$this->_set_mergedCSS($this->tablecascadeCSS[$this->tbCSSlvl-1]['CLASS>>'.$class], $p, false, 9);
+		}
+		// STYLESHEET nth-child SELECTOR e.g. tr:nth-child(odd)  td:nth-child(2n+1)
+		if ($tag=='TR' || $tag=='TD' || $tag=='TH')  {
+			foreach($this->tablecascadeCSS[$this->tbCSSlvl-1] AS $k=>$val) {
+				if (preg_match('/'.$tag.'>>SELECTORNTHCHILD>>(.*)/',$k, $m)) {
+					$select = false;
+					if ($tag=='TR')  {
+						$row = $this->mpdf->row;
+						$thnr = (isset($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_thead']) ? count($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_thead']) : 0);
+						$tfnr = (isset($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_tfoot']) ? count($this->mpdf->table[$this->mpdf->tableLevel][$this->mpdf->tbctr[$this->mpdf->tableLevel]]['is_tfoot']) : 0);
+						if ($this->mpdf->tabletfoot) { $row -= $thnr; }
+						else if (!$this->mpdf->tablethead) { $row -= ($thnr + $tfnr); }
+						if (preg_match('/(([\-+]?\d*)?N([\-+]\d+)?|[\-+]?\d+|ODD|EVEN)/',$m[1],$a)) {	// mPDF 5.7.4
+							$select = $this->_nthchild($a, $row);
+						}
+					}
+					else if ($tag=='TD' || $tag=='TH')  {
+						if (preg_match('/(([\-+]?\d*)?N([\-+]\d+)?|[\-+]?\d+|ODD|EVEN)/',$m[1],$a)) {	// mPDF 5.7.4
+							$select = $this->_nthchild($a, $this->mpdf->col);
+						}
+					}
+					if ($select) {
+						$this->_set_mergedCSS($this->tablecascadeCSS[$this->tbCSSlvl-1][$tag.'>>SELECTORNTHCHILD>>'.$m[1]], $p, false, 9);
+					}
+				}
+			}
+		  }
+		}
+		$this->_set_mergedCSS($this->tablecascadeCSS[$this->tbCSSlvl-1]['ID>>'.$attr['ID']], $p, false, 9);
+		foreach($classes AS $class) {
+			$this->_set_mergedCSS($this->tablecascadeCSS[$this->tbCSSlvl-1][$tag.'>>CLASS>>'.$class], $p, false, 9);
+		}
+		$this->_set_mergedCSS($this->tablecascadeCSS[$this->tbCSSlvl-1][$tag.'>>ID>>'.$attr['ID']], $p, false, 9);
+	}
+/*-- END TABLES --*/
+	//===============================================
+	//===============================================
+	// INLINE STYLE e.g. style="CSS:property"
+	if (isset($attr['STYLE'])) {
+			$zp = $this->readInlineCSS($attr['STYLE']);
+			if ($tag=='TD' || $tag=='TH')  { $this->setBorderDominance($zp, 9); }	// *TABLES*	// *TABLES-ADVANCED-BORDERS*
+			if (is_array($zp)) {
+				$p = array_merge($p,$zp);
+				$this->_mergeBorders($p,$zp);
+			}
+	}
+	//===============================================
+	//===============================================
+	return $p;
+}
+
+
+// Convert inline Properties back to CSS
+function inlinePropsToCSS($bilp, &$p) {
+	if (isset($bilp[ 'family' ]) && $bilp[ 'family' ]) { $p['FONT-FAMILY'] = $bilp[ 'family' ]; }
+	if (isset($bilp[ 'I' ]) && $bilp[ 'I' ]) { $p['FONT-STYLE'] = 'italic'; }
+	if (isset($bilp[ 'sizePt' ]) && $bilp[ 'sizePt' ]) { $p['FONT-SIZE'] = $bilp[ 'sizePt' ] . 'pt'; }
+	if (isset($bilp[ 'B' ]) && $bilp[ 'B' ]) { $p['FONT-WEIGHT'] = 'bold'; }
+	if (isset($bilp[ 'colorarray' ]) && $bilp[ 'colorarray' ]) {
+		$cor = $bilp[ 'colorarray' ];
+		$p['COLOR'] = $this->mpdf->_colAtoString($cor);
+	}
+	if (isset($bilp[ 'lSpacingCSS' ]) && $bilp[ 'lSpacingCSS' ]) { $p['LETTER-SPACING'] = $bilp[ 'lSpacingCSS' ]; }
+	if (isset($bilp[ 'wSpacingCSS' ]) && $bilp[ 'wSpacingCSS' ]) { $p['WORD-SPACING'] = $bilp[ 'wSpacingCSS' ]; }
+
+	if (isset($bilp[ 'textparam' ]) && $bilp[ 'textparam' ]) {
+		if (isset($bilp[ 'textparam' ]['hyphens'])) {
+			if ($bilp[ 'textparam' ]['hyphens']==2) { $p['HYPHENS'] = 'none'; }
+			if ($bilp[ 'textparam' ]['hyphens']==1) { $p['HYPHENS'] = 'auto'; }
+			if ($bilp[ 'textparam' ]['hyphens']==0) { $p['HYPHENS'] = 'manual'; }
+		}
+		if (isset($bilp[ 'textparam' ]['outline-s']) && !$bilp[ 'textparam' ]['outline-s']) { $p['TEXT-OUTLINE'] = 'none'; }
+		if (isset($bilp[ 'textparam' ]['outline-COLOR']) && $bilp[ 'textparam' ]['outline-COLOR']) { $p['TEXT-OUTLINE-COLOR'] = $this->mpdf->_colAtoString($bilp[ 'textparam' ]['outline-COLOR']); }
+		if (isset($bilp[ 'textparam' ]['outline-WIDTH']) && $bilp[ 'textparam' ]['outline-WIDTH']) { $p['TEXT-OUTLINE-WIDTH'] = $bilp[ 'textparam' ]['outline-WIDTH'].'mm'; }
+	}
+
+	if (isset($bilp[ 'textvar' ]) && $bilp[ 'textvar' ]) {
+		// CSS says text-decoration is not inherited, but IE7 does??
+		if ($bilp[ 'textvar' ] & FD_LINETHROUGH) {
+			if ($bilp[ 'textvar' ] & FD_UNDERLINE) { $p['TEXT-DECORATION'] = 'underline line-through'; }
+			else { $p['TEXT-DECORATION'] = 'line-through'; }
+		}
+		else if ($bilp[ 'textvar' ] & FD_UNDERLINE) { $p['TEXT-DECORATION'] = 'underline'; }
+		else { $p['TEXT-DECORATION'] = 'none'; }
+
+		if ($bilp[ 'textvar' ] & FA_SUPERSCRIPT) { $p['VERTICAL-ALIGN'] = 'super'; }
+		else if ($bilp[ 'textvar' ] & FA_SUBSCRIPT) { $p['VERTICAL-ALIGN'] = 'sub'; }
+		else { $p['VERTICAL-ALIGN'] = 'baseline'; }
+
+		if ($bilp[ 'textvar' ] & FT_CAPITALIZE) { $p['TEXT-TRANSFORM'] = 'capitalize'; }
+		else if ($bilp[ 'textvar' ] & FT_UPPERCASE) { $p['TEXT-TRANSFORM'] = 'uppercase'; }
+		else if ($bilp[ 'textvar' ] & FT_LOWERCASE) { $p['TEXT-TRANSFORM'] = 'lowercase'; }
+		else { $p['TEXT-TRANSFORM'] = 'none'; }
+
+		if ($bilp[ 'textvar' ] & FC_KERNING) { $p['FONT-KERNING'] = 'normal'; }	// ignore 'auto' as default already applied
+		//if (isset($bilp[ 'OTLtags' ]) && $bilp[ 'OTLtags' ]['Plus'] contains 'kern'
+		else { $p['FONT-KERNING'] = 'none'; }
+
+		if ($bilp[ 'textvar' ] & FA_SUPERSCRIPT) { $p['FONT-VARIANT-POSITION'] = 'super'; }
+		//if (isset($bilp[ 'OTLtags' ]) && $bilp[ 'OTLtags' ]['Plus'] contains 'sups' / 'subs'
+		else if ($bilp[ 'textvar' ] & FA_SUBSCRIPT) { $p['FONT-VARIANT-POSITION'] = 'sub'; }
+		else { $p['FONT-VARIANT-POSITION'] = 'normal'; }
+
+		if ($bilp[ 'textvar' ] & FC_SMALLCAPS) { $p['FONT-VARIANT-CAPS'] = 'small-caps'; }
+	}
+	if (isset($bilp[ 'fontLanguageOverride' ])) {
+		if ($bilp[ 'fontLanguageOverride' ]) { $p['FONT-LANGUAGE-OVERRIDE'] = $bilp[ 'fontLanguageOverride' ]; }
+		else { $p['FONT-LANGUAGE-OVERRIDE'] = 'normal'; }
+	}
+	// All the variations of font-variant-* we are going to set as font-feature-settings...
+	if (isset($bilp[ 'OTLtags' ]) && $bilp[ 'OTLtags' ]) {
+		$ffs = array();
+		if (isset($bilp['OTLtags']['Minus']) && $bilp['OTLtags']['Minus']) {
+			$f = preg_split('/\s+/', trim($bilp['OTLtags']['Minus']));
+			foreach($f AS $ff) { $ffs[] = "'".$ff."' 0"; }
+		}
+		if (isset($bilp['OTLtags']['FFMinus']) && $bilp['OTLtags']['FFMinus']) {
+			$f = preg_split('/\s+/', trim($bilp['OTLtags']['FFMinus']));
+			foreach($f AS $ff) { $ffs[] = "'".$ff."' 0"; }
+		}
+		if (isset($bilp['OTLtags']['Plus']) && $bilp['OTLtags']['Plus']) {
+			$f = preg_split('/\s+/', trim($bilp['OTLtags']['Plus']));
+			foreach($f AS $ff) { $ffs[] = "'".$ff."' 1"; }
+		}
+		if (isset($bilp['OTLtags']['FFPlus']) && $bilp['OTLtags']['FFPlus']) {	// May contain numeric value e.g. salt4
+			$f = preg_split('/\s+/', trim($bilp['OTLtags']['FFPlus']));
+			foreach($f AS $ff) {
+				if (strlen($ff)>4) { $ffs[] = "'".substr($ff,0,4)."' ".substr($ff,4); }
+				else { $ffs[] = "'".$ff."' 1";  }
+			}
+		}
+		$p['FONT-FEATURE-SETTINGS'] = implode(', ', $ffs);
+	}
+
+
+}
+
+function PreviewBlockCSS($tag,$attr) {
+	// Looks ahead from current block level to a new level
+	$p = array();
+	$zp = array();
+	$oldcascadeCSS = $this->mpdf->blk[$this->mpdf->blklvl]['cascadeCSS'];
+	$classes = array();
+	if (isset($attr['CLASS'])) { $classes = preg_split('/\s+/',$attr['CLASS']); }
+	//===============================================
+	// DEFAULT for this TAG set in DefaultCSS
+	if (isset($this->mpdf->defaultCSS[$tag])) {
+		$zp = $this->fixCSS($this->mpdf->defaultCSS[$tag]);
+		if (is_array($zp)) { $p = array_merge($zp,$p); }	// Inherited overwrites default
+	}
+	// STYLESHEET TAG e.g. h1  p  div  table
+	if (isset($this->CSS[$tag])) {
+		$zp = $this->CSS[$tag];
+		if (is_array($zp)) { $p = array_merge($p,$zp); }
+	}
+	// STYLESHEET CLASS e.g. .smallone{}  .redletter{}
+	foreach($classes AS $class) {
+		$zp = array();
+		if (isset($this->CSS['CLASS>>'.$class])) { $zp = $this->CSS['CLASS>>'.$class]; }
+		if (is_array($zp)) { $p = array_merge($p,$zp); }
+	}
+	// STYLESHEET ID e.g. #smallone{}  #redletter{}
+	if (isset($attr['ID']) && isset($this->CSS['ID>>'.$attr['ID']])) {
+		$zp = $this->CSS['ID>>'.$attr['ID']];
+		if (is_array($zp)) { $p = array_merge($p,$zp); }
+	}
+	// STYLESHEET CLASS e.g. p.smallone{}  div.redletter{}
+	foreach($classes AS $class) {
+		$zp = array();
+		if (isset($this->CSS[$tag.'>>CLASS>>'.$class])) { $zp = $this->CSS[$tag.'>>CLASS>>'.$class]; }
+		if (is_array($zp)) { $p = array_merge($p,$zp); }
+	}
+	// STYLESHEET CLASS e.g. p#smallone{}  div#redletter{}
+	if (isset($attr['ID']) && isset($this->CSS[$tag.'>>ID>>'.$attr['ID']])) {
+		$zp = $this->CSS[$tag.'>>ID>>'.$attr['ID']];
+		if (is_array($zp)) { $p = array_merge($p,$zp); }
+	}
+	//===============================================
+	// STYLESHEET TAG e.g. div h1    div p
+
+	$this->_set_mergedCSS($oldcascadeCSS[$tag], $p);
+	// STYLESHEET CLASS e.g. .smallone{}  .redletter{}
+	foreach($classes AS $class) {
+
+	  $this->_set_mergedCSS($oldcascadeCSS['CLASS>>'.$class], $p);
+	}
+	// STYLESHEET CLASS e.g. #smallone{}  #redletter{}
+	if (isset($attr['ID'])) {
+
+	  $this->_set_mergedCSS($oldcascadeCSS['ID>>'.$attr['ID']], $p);
+	}
+	// STYLESHEET CLASS e.g. div.smallone{}  p.redletter{}
+	foreach($classes AS $class) {
+
+	  $this->_set_mergedCSS($oldcascadeCSS[$tag.'>>CLASS>>'.$class], $p);
+	}
+	// STYLESHEET CLASS e.g. div#smallone{}  p#redletter{}
+	if (isset($attr['ID'])) {
+
+	  $this->_set_mergedCSS($oldcascadeCSS[$tag.'>>ID>>'.$attr['ID']], $p);
+	}
+	//===============================================
+	// INLINE STYLE e.g. style="CSS:property"
+	if (isset($attr['STYLE'])) {
+		$zp = $this->readInlineCSS($attr['STYLE']);
+		if (is_array($zp)) { $p = array_merge($p,$zp); }
+	}
+	//===============================================
+	return $p;
+}
+
+
+// mPDF 5.7.4   nth-child
+function _nthchild($f, $c) {
+	// $f is formual e.g. 2N+1 spilt into a preg_match array
+	// $c is the comparator value e.g row or column number
+	$c += 1;
+	$select = false;
+	$a=1;  $b=1;
+	if ($f[0]=='ODD') { $a=2; $b=1; }
+	else if ($f[0]=='EVEN') { $a=2; $b=0; }
+	else if (count($f)==2) { $a=0; $b=$f[1]+0; }		// e.g. (+6)
+	else if (count($f)==3) {		// e.g. (2N)
+		if ($f[2]=='') { $a=1; }
+		else if ($f[2]=='-') { $a=-1; }
+		else { $a=$f[2]+0; }
+		$b=0;
+	}
+	else if (count($f)==4) { 	// e.g. (2N+6)
+		if ($f[2]=='') { $a=1; }
+		else if ($f[2]=='-') { $a=-1; }
+		else { $a=$f[2]+0; }
+		$b=$f[3]+0;
+	}
+	else { return false; }
+	if ($a>0) {
+		if (((($c % $a) - $b) % $a) == 0  && $c >= $b) { $select = true; }
+	}
+	else if ($a==0) {
+		if ($c == $b) { $select = true; }
+	}
+	else { 	// if ($a<0)
+		if (((($c % $a) - $b) % $a) == 0  && $c <= $b) { $select = true; }
+	}
+	return $select;
+}
+
+
+
+}	// end of class
+
+?>
\ No newline at end of file
diff --git a/patches/vendor/mpdf/mpdf/classes/ttfontsuni.php b/patches/vendor/mpdf/mpdf/classes/ttfontsuni.php
new file mode 100644
index 0000000..7789bb0
--- /dev/null
+++ b/patches/vendor/mpdf/mpdf/classes/ttfontsuni.php
@@ -0,0 +1,4732 @@
+<?php
+
+/*******************************************************************************
+* TTFontFile class                                                             *
+*                                                                              *
+* Version:  4.01		                                                       *
+* Date:     2014-10-25                                                         *
+* Author:   Ian Back <ianb@bpm1.com>                                           *
+* License:  LGPL                                                               *
+* Copyright (c) Ian Back, 2010                                                 *
+* This class is based on The ReportLab Open Source PDF library                 *
+* written in Python - http://www.reportlab.com/software/opensource/            *
+* together with ideas from the OpenOffice source code and others.              *
+* This header must be retained in any redistribution or                        *
+* modification of the file.                                                    *
+*                                                                              *
+*******************************************************************************/
+
+
+
+// NOTE*** If you change the defined constants below, be sure to delete all temporary font data files in /ttfontdata/
+// to force mPDF to regenerate cached font files.
+if (!defined('_OTL_OLD_SPEC_COMPAT_2')) define("_OTL_OLD_SPEC_COMPAT_2", true);
+
+// Define the value used in the "head" table of a created TTF file
+// 0x74727565 "true" for Mac
+// 0x00010000 for Windows
+// Either seems to work for a font embedded in a PDF file
+// when read by Adobe Reader on a Windows PC(!)
+if (!defined('_TTF_MAC_HEADER')) define("_TTF_MAC_HEADER", false);
+
+// Recalculate correct metadata/profiles when making subset fonts (not SIP/SMP)
+// e.g. xMin, xMax, maxNContours
+if (!defined('_RECALC_PROFILE')) define("_RECALC_PROFILE", false);
+
+// TrueType Font Glyph operators
+define("GF_WORDS",(1 << 0));
+define("GF_SCALE",(1 << 3));
+define("GF_MORE",(1 << 5));
+define("GF_XYSCALE",(1 << 6));
+define("GF_TWOBYTWO",(1 << 7));
+
+// mPDF 5.7.1
+if(!function_exists('unicode_hex')){
+	function unicode_hex($unicode_dec) {
+		return (sprintf("%05s", strtoupper(dechex($unicode_dec))));
+	}
+}
+
+
+class TTFontFile {
+
+var $GPOSFeatures;	// mPDF 5.7.1
+var $GPOSLookups;		// mPDF 5.7.1
+var $GPOSScriptLang;	// mPDF 5.7.1
+var $MarkAttachmentType; // mPDF 5.7.1
+var $MarkGlyphSets;	// mPDF 7.5.1
+var $GlyphClassMarks;	// mPDF 5.7.1
+var $GlyphClassLigatures;	// mPDF 5.7.1
+var $GlyphClassBases;	// mPDF 5.7.1
+var $GlyphClassComponents;	// mPDF 5.7.1
+var $GSUBScriptLang;	// mPDF 5.7.1
+var $rtlPUAstr;	// mPDF 5.7.1
+//var $rtlPUAarr;	// mPDF 5.7.1
+var $fontkey;	// mPDF 5.7.1
+var $useOTL;	// mPDF 5.7.1
+var $panose;
+var $maxUni;
+var $sFamilyClass;
+var $sFamilySubClass;
+var $sipset;
+var $smpset;
+var $_pos;
+var $numTables;
+var $searchRange;
+var $entrySelector;
+var $rangeShift;
+var $tables;
+var $otables;
+var $filename;
+var $fh;
+var $glyphPos;
+var $charToGlyph;
+var $ascent;
+var $descent;
+var $lineGap;		// mPDF 6
+var $hheaascent;
+var $hheadescent;
+var $hhealineGap;		// mPDF 6
+var $advanceWidthMax;	// mPDF 6
+var $typoAscender;	// mPDF 6
+var $typoDescender;	// mPDF 6
+var $typoLineGap;		// mPDF 6
+var $usWinAscent;		// mPDF 6
+var $usWinDescent;	// mPDF 6
+var $strikeoutSize;
+var $strikeoutPosition;
+var $name;
+var $familyName;
+var $styleName;
+var $fullName;
+var $uniqueFontID;
+var $unitsPerEm;
+var $bbox;
+var $capHeight;
+var $xHeight;		// mPDF 6
+var $stemV;
+var $italicAngle;
+var $flags;
+var $underlinePosition;
+var $underlineThickness;
+var $charWidths;
+var $defaultWidth;
+var $maxStrLenRead;
+var $numTTCFonts;
+var $TTCFonts;
+var $maxUniChar;
+var $kerninfo;
+var $haskernGPOS;
+var $hassmallcapsGSUB;
+
+	function TTFontFile() {
+		$this->maxStrLenRead = 200000;	// Maximum size of glyf table to read in as string (otherwise reads each glyph from file)
+	}
+
+
+	function getMetrics($file, $fontkey, $TTCfontID=0, $debug=false, $BMPonly=false, $useOTL=0) {	// mPDF 5.7.1
+		$this->useOTL = $useOTL;	// mPDF 5.7.1
+		$this->fontkey = $fontkey;	// mPDF 5.7.1
+		$this->filename = $file;
+		$this->fh = fopen($file,'rb') or die('Can\'t open file ' . $file);
+		$this->_pos = 0;
+		$this->charWidths = '';
+		$this->glyphPos = array();
+		$this->charToGlyph = array();
+		$this->tables = array();
+		$this->otables = array();
+		$this->kerninfo = array();
+		$this->haskernGPOS = array();
+		$this->hassmallcapsGSUB = array();
+		$this->ascent = 0;
+		$this->descent = 0;
+		$this->lineGap = 0;	// mPDF 6
+		$this->hheaascent = 0;	// mPDF 6
+		$this->hheadescent = 0;	// mPDF 6
+		$this->hhealineGap = 0;	// mPDF 6
+		$this->xHeight = 0;	// mPDF 6
+		$this->capHeight = 0;	// mPDF 6
+		$this->panose = array();
+		$this->sFamilyClass = 0;
+		$this->sFamilySubClass = 0;
+		$this->typoAscender = 0;	// mPDF 6
+		$this->typoDescender = 0;	// mPDF 6
+		$this->typoLineGap = 0;		// mPDF 6
+		$this->usWinAscent = 0;		// mPDF 6
+		$this->usWinDescent = 0;	// mPDF 6
+		$this->advanceWidthMax = 0;	// mPDF 6
+		$this->strikeoutSize = 0;
+		$this->strikeoutPosition = 0;
+		$this->numTTCFonts = 0;
+		$this->TTCFonts = array();
+		$this->version = $version = $this->read_ulong();
+		$this->panose = array();
+		if ($version==0x4F54544F)
+			die("Postscript outlines are not supported");
+		if ($version==0x74746366 && !$TTCfontID)
+			die("ERROR - You must define the TTCfontID for a TrueType Collection in config_fonts.php (". $file.")");
+		if (!in_array($version, array(0x00010000,0x74727565)) && !$TTCfontID)
+			die("Not a TrueType font: version=".$version);
+		if ($TTCfontID > 0) {
+			$this->version = $version = $this->read_ulong();	// TTC Header version now
+			if (!in_array($version, array(0x00010000,0x00020000)))
+				die("ERROR - Error parsing TrueType Collection: version=".$version." - " . $file);
+			$this->numTTCFonts = $this->read_ulong();
+			for ($i=1; $i<=$this->numTTCFonts; $i++) {
+	      	      $this->TTCFonts[$i]['offset'] = $this->read_ulong();
+			}
+			$this->seek($this->TTCFonts[$TTCfontID]['offset']);
+			$this->version = $version = $this->read_ulong();	// TTFont version again now
+		}
+		$this->readTableDirectory($debug);
+		$this->extractInfo($debug, $BMPonly, $useOTL);
+		fclose($this->fh);
+	}
+
+
+	function readTableDirectory($debug=false) {
+	    $this->numTables = $this->read_ushort();
+            $this->searchRange = $this->read_ushort();
+            $this->entrySelector = $this->read_ushort();
+            $this->rangeShift = $this->read_ushort();
+            $this->tables = array();
+            for ($i=0;$i<$this->numTables;$i++) {
+                $record = array();
+                $record['tag'] = $this->read_tag();
+                $record['checksum'] = array($this->read_ushort(),$this->read_ushort());
+                $record['offset'] = $this->read_ulong();
+                $record['length'] = $this->read_ulong();
+                $this->tables[$record['tag']] = $record;
+		}
+		if ($debug) $this->checksumTables();
+	}
+
+	function checksumTables() {
+		// Check the checksums for all tables
+		foreach($this->tables AS $t) {
+		  if ($t['length'] > 0 && $t['length'] < $this->maxStrLenRead) {	// 1.02
+            	$table = $this->get_chunk($t['offset'], $t['length']);
+            	$checksum = $this->calcChecksum($table);
+            	if ($t['tag'] == 'head') {
+				$up = unpack('n*', substr($table,8,4));
+				$adjustment[0] = $up[1];
+				$adjustment[1] = $up[2];
+            		$checksum = $this->sub32($checksum, $adjustment);
+			}
+            	$xchecksum = $t['checksum'];
+            	if ($xchecksum != $checksum)
+            	    die(sprintf('TTF file "%s": invalid checksum %s table: %s (expected %s)', $this->filename,dechex($checksum[0]).dechex($checksum[1]),$t['tag'],dechex($xchecksum[0]).dechex($xchecksum[1])));
+		  }
+		}
+	}
+
+	function sub32($x, $y) {
+		$xlo = $x[1];
+		$xhi = $x[0];
+		$ylo = $y[1];
+		$yhi = $y[0];
+		if ($ylo > $xlo) { $xlo += 1 << 16; $yhi += 1; }
+		$reslo = $xlo-$ylo;
+		if ($yhi > $xhi) { $xhi += 1 << 16;  }
+		$reshi = $xhi-$yhi;
+		$reshi = $reshi & 0xFFFF;
+		return array($reshi, $reslo);
+	}
+
+	function calcChecksum($data)  {
+		if (strlen($data) % 4) { $data .= str_repeat("\0",(4-(strlen($data) % 4))); }
+		$len = strlen($data);
+		$hi=0x0000;
+		$lo=0x0000;
+		for($i=0;$i<$len;$i+=4) {
+			$hi += (ord($data[$i])<<8) + ord($data[$i+1]);
+			$lo += (ord($data[$i+2])<<8) + ord($data[$i+3]);
+			$hi += ($lo >> 16) & 0xFFFF;
+			$lo = $lo & 0xFFFF;
+		}
+		$hi = $hi & 0xFFFF;	// mPDF 5.7.1
+		return array($hi, $lo);
+	}
+
+	function get_table_pos($tag) {
+		if (!isset($this->tables[$tag])) { return array(0,0); }
+		$offset = $this->tables[$tag]['offset'];
+		$length = $this->tables[$tag]['length'];
+		return array($offset, $length);
+	}
+
+	function seek($pos) {
+		$this->_pos = $pos;
+		fseek($this->fh,$this->_pos);
+	}
+
+	function skip($delta) {
+		$this->_pos = $this->_pos + $delta;
+		fseek($this->fh,$delta,SEEK_CUR);
+	}
+
+	function seek_table($tag, $offset_in_table = 0) {
+		$tpos = $this->get_table_pos($tag);
+		$this->_pos = $tpos[0] + $offset_in_table;
+		fseek($this->fh, $this->_pos);
+		return $this->_pos;
+	}
+
+	function read_tag() {
+		$this->_pos += 4;
+		return fread($this->fh,4);
+	}
+
+	function read_short() {
+		$this->_pos += 2;
+		$s = fread($this->fh,2);
+		$a = (ord($s[0])<<8) + ord($s[1]);
+		if ($a & (1 << 15) ) {
+			$a = ($a - (1 << 16));
+		}
+		return $a;
+	}
+
+	function unpack_short($s) {
+		$a = (ord($s[0])<<8) + ord($s[1]);
+		if ($a & (1 << 15) ) {
+			$a = ($a - (1 << 16));
+		}
+		return $a;
+	}
+
+	function read_ushort() {
+		$this->_pos += 2;
+		$s = fread($this->fh,2);
+		return (ord($s[0])<<8) + ord($s[1]);
+	}
+
+	function read_ulong() {
+		$this->_pos += 4;
+		$s = fread($this->fh,4);
+		// if large uInt32 as an integer, PHP converts it to -ve
+		return (ord($s[0])*16777216) + (ord($s[1])<<16) + (ord($s[2])<<8) + ord($s[3]); // 	16777216  = 1<<24
+	}
+
+	function get_ushort($pos) {
+		fseek($this->fh,$pos);
+		$s = fread($this->fh,2);
+		return (ord($s[0])<<8) + ord($s[1]);
+	}
+
+	function get_ulong($pos) {
+		fseek($this->fh,$pos);
+		$s = fread($this->fh,4);
+		// iF large uInt32 as an integer, PHP converts it to -ve
+		return (ord($s[0])*16777216) + (ord($s[1])<<16) + (ord($s[2])<<8) + ord($s[3]); // 	16777216  = 1<<24
+	}
+
+	function pack_short($val) {
+		if ($val<0) {
+			$val = abs($val);
+			$val = ~$val;
+			$val += 1;
+		}
+		return pack("n",$val);
+	}
+
+	function splice($stream, $offset, $value) {
+		return substr($stream,0,$offset) . $value . substr($stream,$offset+strlen($value));
+	}
+
+	function _set_ushort($stream, $offset, $value) {
+		$up = pack("n", $value);
+		return $this->splice($stream, $offset, $up);
+	}
+
+	function _set_short($stream, $offset, $val) {
+		if ($val<0) {
+			$val = abs($val);
+			$val = ~$val;
+			$val += 1;
+		}
+		$up = pack("n",$val);
+		return $this->splice($stream, $offset, $up);
+	}
+
+	function get_chunk($pos, $length) {
+		fseek($this->fh,$pos);
+		if ($length <1) { return ''; }
+		return (fread($this->fh,$length));
+	}
+
+	function get_table($tag) {
+		list($pos, $length) = $this->get_table_pos($tag);
+		if ($length == 0) { return ''; }
+		fseek($this->fh,$pos);
+		return (fread($this->fh,$length));
+	}
+
+	function add($tag, $data) {
+		if ($tag == 'head') {
+			$data = $this->splice($data, 8, "\0\0\0\0");
+		}
+		$this->otables[$tag] = $data;
+	}
+
+
+
+/////////////////////////////////////////////////////////////////////////////////////////
+	function getCTG($file, $TTCfontID=0, $debug=false, $useOTL=false) {	// mPDF 5.7.1
+		// Only called if font is not to be used as embedded subset i.e. NOT called for SIP/SMP fonts
+		$this->useOTL = $useOTL;	// mPDF 5.7.1
+		$this->filename = $file;
+		$this->fh = fopen($file,'rb') or die('Can\'t open file ' . $file);
+		$this->_pos = 0;
+		$this->charWidths = '';
+		$this->glyphPos = array();
+		$this->charToGlyph = array();
+		$this->tables = array();
+		$this->numTTCFonts = 0;
+		$this->TTCFonts = array();
+		$this->skip(4);
+		if ($TTCfontID > 0) {
+			$this->version = $version = $this->read_ulong();	// TTC Header version now
+			if (!in_array($version, array(0x00010000,0x00020000)))
+				die("ERROR - Error parsing TrueType Collection: version=".$version." - " . $file);
+			$this->numTTCFonts = $this->read_ulong();
+			for ($i=1; $i<=$this->numTTCFonts; $i++) {
+	      	      $this->TTCFonts[$i]['offset'] = $this->read_ulong();
+			}
+			$this->seek($this->TTCFonts[$TTCfontID]['offset']);
+			$this->version = $version = $this->read_ulong();	// TTFont version again now
+		}
+		$this->readTableDirectory($debug);
+
+
+		// cmap - Character to glyph index mapping table
+		$cmap_offset = $this->seek_table("cmap");
+		$this->skip(2);
+		$cmapTableCount = $this->read_ushort();
+		$unicode_cmap_offset = 0;
+		for ($i=0;$i<$cmapTableCount;$i++) {
+			$platformID = $this->read_ushort();
+			$encodingID = $this->read_ushort();
+			$offset = $this->read_ulong();
+			$save_pos = $this->_pos;
+			if ($platformID == 3 && $encodingID == 1) { // Microsoft, Unicode
+				$format = $this->get_ushort($cmap_offset + $offset);
+				if ($format == 4) {
+					$unicode_cmap_offset = $cmap_offset + $offset;
+					break;
+				}
+			}
+			else if ($platformID == 0) { // Unicode -- assume all encodings are compatible
+				$format = $this->get_ushort($cmap_offset + $offset);
+				if ($format == 4) {
+					$unicode_cmap_offset = $cmap_offset + $offset;
+					break;
+				}
+			}
+			$this->seek($save_pos );
+		}
+
+		$glyphToChar = array();
+		$charToGlyph = array();
+		$this->getCMAP4($unicode_cmap_offset, $glyphToChar, $charToGlyph );
+
+		///////////////////////////////////
+		// mPDF 5.7.1
+		// Map Unmapped glyphs - from $numGlyphs
+		if ($useOTL) {
+			$this->seek_table("maxp");
+			$this->skip(4);
+			$numGlyphs = $this->read_ushort();
+			$bctr = 0xE000;
+			for ($gid=1; $gid<$numGlyphs; $gid++) {
+				if (!isset($glyphToChar[$gid])) {
+					while(isset($charToGlyph[$bctr])) { $bctr++; }	// Avoid overwriting a glyph already mapped in PUA
+					if ($bctr > 0xF8FF) {
+						die($file." : WARNING - Font cannot map all included glyphs into Private Use Area U+E000 - U+F8FF; cannot use useOTL on this font");
+					}
+					$glyphToChar[$gid][] = $bctr;
+					$charToGlyph[$bctr] = $gid;
+					$bctr++;
+				}
+			}
+		}
+		///////////////////////////////////
+
+		fclose($this->fh);
+		return ($charToGlyph);
+	}
+
+/////////////////////////////////////////////////////////////////////////////////////////
+	function getTTCFonts($file) {
+		$this->filename = $file;
+		$this->fh = fopen($file,'rb');
+		if (!$this->fh) { return ('ERROR - Can\'t open file ' . $file); }
+		$this->numTTCFonts = 0;
+		$this->TTCFonts = array();
+		$this->version = $version = $this->read_ulong();
+		if ($version==0x74746366) {
+			$this->version = $version = $this->read_ulong();	// TTC Header version now
+			if (!in_array($version, array(0x00010000,0x00020000)))
+				return("ERROR - Error parsing TrueType Collection: version=".$version." - " . $file);
+		}
+		else {
+			return("ERROR - Not a TrueType Collection: version=".$version." - " . $file);
+		}
+		$this->numTTCFonts = $this->read_ulong();
+		for ($i=1; $i<=$this->numTTCFonts; $i++) {
+	            $this->TTCFonts[$i]['offset'] = $this->read_ulong();
+		}
+	}
+
+
+
+/////////////////////////////////////////////////////////////////////////////////////////
+
+/////////////////////////////////////////////////////////////////////////////////////////
+
+	function extractInfo($debug=false, $BMPonly=false, $useOTL=0) {
+		// Values are all set to 0 or blank at start of getMetrics
+		///////////////////////////////////
+		// name - Naming table
+		///////////////////////////////////
+			$name_offset = $this->seek_table("name");
+			$format = $this->read_ushort();
+			if ($format != 0 && $format != 1)
+				die("Unknown name table format ".$format);
+			$numRecords = $this->read_ushort();
+			$string_data_offset = $name_offset + $this->read_ushort();
+			$names = array(1=>'',2=>'',3=>'',4=>'',6=>'');
+			$K = array_keys($names);
+			$nameCount = count($names);
+			for ($i=0;$i<$numRecords; $i++) {
+				$platformId = $this->read_ushort();
+				$encodingId = $this->read_ushort();
+				$languageId = $this->read_ushort();
+				$nameId = $this->read_ushort();
+				$length = $this->read_ushort();
+				$offset = $this->read_ushort();
+				if (!in_array($nameId,$K)) continue;
+				$N = '';
+				if ($platformId == 3 && $encodingId == 1 && $languageId == 0x409) { // Microsoft, Unicode, US English, PS Name
+					$opos = $this->_pos;
+					$this->seek($string_data_offset + $offset);
+					if ($length % 2 != 0)
+						die("PostScript name is UTF-16BE string of odd length");
+					$length /= 2;
+					$N = '';
+					while ($length > 0) {
+						$char = $this->read_ushort();
+						$N .= (chr($char));
+						$length -= 1;
+					}
+					$this->_pos = $opos;
+					$this->seek($opos);
+				}
+				else if ($platformId == 1 && $encodingId == 0 && $languageId == 0) { // Macintosh, Roman, English, PS Name
+					$opos = $this->_pos;
+					$N = $this->get_chunk($string_data_offset + $offset, $length);
+					$this->_pos = $opos;
+					$this->seek($opos);
+				}
+				if ($N && $names[$nameId]=='') {
+					$names[$nameId] = $N;
+					$nameCount -= 1;
+					if ($nameCount==0) break;
+				}
+			}
+			if ($names[6])
+				$psName = $names[6];
+			else if ($names[4])
+				$psName = preg_replace('/ /','-',$names[4]);
+			else if ($names[1])
+				$psName = preg_replace('/ /','-',$names[1]);
+			else
+				$psName = '';
+			if (!$psName)
+				die("Could not find PostScript font name: ".$this->filename);
+			// CHECK IF psName valid (PadaukBook contains illegal characters in Name ID 6 i.e. Postscript Name)
+			$psNameInvalid = false;
+			for ($i=0;$i<strlen($psName);$i++) {
+				$c = $psName[$i];
+				$oc = ord($c);
+				if ($oc>126 || strpos(' [](){}<>/%',$c)!==false) {
+					//die("psName=".$psName." contains invalid character ".$c." ie U+".ord(c));
+					$psNameInvalid = true;
+					break;
+				}
+			}
+
+			if ($psNameInvalid && $names[4])
+				$psName = preg_replace('/ /','-',$names[4]);
+
+
+			$this->name = $psName;
+			if ($names[1]) { $this->familyName = $names[1]; } else { $this->familyName = $psName; }
+			if ($names[2]) { $this->styleName = $names[2]; } else { $this->styleName = 'Regular'; }
+			if ($names[4]) { $this->fullName = $names[4]; } else { $this->fullName = $psName; }
+			if ($names[3]) { $this->uniqueFontID = $names[3]; } else { $this->uniqueFontID = $psName; }
+
+			if (!$psNameInvalid && $names[6]) { $this->fullName = $names[6]; }
+
+		///////////////////////////////////
+		// head - Font header table
+		///////////////////////////////////
+		$this->seek_table("head");
+		if ($debug) {
+			$ver_maj = $this->read_ushort();
+			$ver_min = $this->read_ushort();
+			if ($ver_maj != 1)
+				die('Unknown head table version '. $ver_maj .'.'. $ver_min);
+			$this->fontRevision = $this->read_ushort() . $this->read_ushort();
+
+			$this->skip(4);
+			$magic = $this->read_ulong();
+			if ($magic != 0x5F0F3CF5)
+				die('Invalid head table magic ' .$magic);
+			$this->skip(2);
+		}
+		else {
+			$this->skip(18);
+		}
+		$this->unitsPerEm = $unitsPerEm = $this->read_ushort();
+		$scale = 1000 / $unitsPerEm;
+		$this->skip(16);
+		$xMin = $this->read_short();
+		$yMin = $this->read_short();
+		$xMax = $this->read_short();
+		$yMax = $this->read_short();
+		$this->bbox = array(($xMin*$scale), ($yMin*$scale), ($xMax*$scale), ($yMax*$scale));
+
+		$this->skip(3*2);
+		$indexToLocFormat = $this->read_ushort();
+		$glyphDataFormat = $this->read_ushort();
+		if ($glyphDataFormat != 0)
+			die('Unknown glyph data format '.$glyphDataFormat);
+
+		///////////////////////////////////
+		// hhea metrics table
+		///////////////////////////////////
+		if (isset($this->tables["hhea"])) {
+			$this->seek_table("hhea");
+			$this->skip(4);
+			$hheaAscender = $this->read_short();
+			$hheaDescender = $this->read_short();
+			$hheaLineGap = $this->read_short();	// mPDF 6
+			$hheaAdvanceWidthMax = $this->read_ushort();	// mPDF 6
+			$this->hheaascent = ($hheaAscender *$scale);
+			$this->hheadescent = ($hheaDescender *$scale);
+			$this->hhealineGap = ($hheaLineGap * $scale);	// mPDF 6
+			$this->advanceWidthMax = ($hheaAdvanceWidthMax * $scale);	// mPDF 6
+		}
+
+		///////////////////////////////////
+		// OS/2 - OS/2 and Windows metrics table
+		///////////////////////////////////
+		$use_typo_metrics = false;
+		if (isset($this->tables["OS/2"])) {
+			$this->seek_table("OS/2");
+			$version = $this->read_ushort();
+			$this->skip(2);
+			$usWeightClass = $this->read_ushort();
+			$this->skip(2);
+			$fsType = $this->read_ushort();
+			if ($fsType == 0x0002 || ($fsType & 0x0300) != 0) {
+				$this->restrictedUse = true;
+			}
+
+			// mPDF 6
+			$this->skip(16);
+			$yStrikeoutSize = $this->read_short();
+			$yStrikeoutPosition = $this->read_short();
+			$this->strikeoutSize = ($yStrikeoutSize*$scale);
+			$this->strikeoutPosition = ($yStrikeoutPosition*$scale);
+
+			$sF = $this->read_short();
+			$this->sFamilyClass = ($sF >> 8);
+			$this->sFamilySubClass = ($sF & 0xFF);
+			$this->_pos += 10;  //PANOSE = 10 byte length
+			$panose = fread($this->fh,10);
+			$this->panose = array();
+			for ($p=0;$p<strlen($panose);$p++) { $this->panose[] = ord($panose[$p]); }
+			//$this->skip(26);
+			// mPDF 6
+			$this->skip(20);
+			$fsSelection = $this->read_ushort();
+			$use_typo_metrics = (($fsSelection & 0x80) == 0x80);	// bit#7 = USE_TYPO_METRICS
+			$this->skip(4);
+
+			$sTypoAscender = $this->read_short();
+			$sTypoDescender = $this->read_short();
+			$sTypoLineGap = $this->read_short();	// mPDF 6
+			if ($sTypoAscender) $this->typoAscender = ($sTypoAscender*$scale);	// mPDF 6
+			if ($sTypoDescender) $this->typoDescender = ($sTypoDescender*$scale);	// mPDF 6
+			if ($sTypoLineGap ) $this->typoLineGap = ($sTypoLineGap * $scale);	// mPDF 6
+
+			$usWinAscent = $this->read_ushort();	// mPDF 6
+			$usWinDescent = $this->read_ushort();	// mPDF 6
+			if ($usWinAscent) $this->usWinAscent = ($usWinAscent*$scale);	// mPDF 6
+			if ($usWinDescent) $this->usWinDescent = ($usWinDescent*$scale);	// mPDF 6
+
+			if ($version > 1) {
+				$this->skip(8);	// mPDF 6
+				$sxHeight = $this->read_short();
+				$this->xHeight = ($sxHeight*$scale);
+				$sCapHeight = $this->read_short();
+				$this->capHeight = ($sCapHeight*$scale);
+			}
+		}
+		else {
+			$usWeightClass = 400;
+		}
+		$this->stemV = 50 + intval(pow(($usWeightClass / 65.0),2));
+
+
+		// FONT DESCRIPTOR METRICS
+		if (_FONT_DESCRIPTOR == 'winTypo') {
+			$this->ascent = $this->typoAscender;
+			$this->descent = $this->typoDescender;
+			$this->lineGap = $this->typoLineGap;
+		}
+		else if (_FONT_DESCRIPTOR == 'mac') {
+			$this->ascent = $this->hheaascent;
+			$this->descent = $this->hheadescent;
+			$this->lineGap = $this->hhealineGap;
+		}
+		else {	// if (_FONT_DESCRIPTOR == 'win') {	// default
+			$this->ascent = $this->usWinAscent;
+			$this->descent = -$this->usWinDescent;
+			$this->lineGap = 0;
+
+			/* Special case - if either the winAscent or winDescent are greater than the
+			   font bounding box yMin yMax, then reduce them accordingly.
+			   This works with Myanmar Text (Windows 8 version) to give a
+			   line-height normal that is equivalent to that produced in browsers.
+			   Also Khmer OS = compatible with MSWord, Wordpad and browser. */
+			if ($this->ascent > $this->bbox[3]) { $this->ascent = $this->bbox[3]; }
+			if ($this->descent < $this->bbox[1]) { $this->descent = $this->bbox[1]; }
+
+
+			/* Override case - if the USE_TYPO_METRICS bit is set on OS/2 fsSelection
+			   this is telling the font to use the sTypo values and not the usWinAscent values.
+			   This works as a fix with Cambria Math to give a normal line-height;
+			   at present, this is the only font I have found with this bit set;
+			   although note that MS WordPad and windows FF browser uses the big line-height from winAscent
+			   but Word 2007 get it right . */
+			if ($use_typo_metrics && $this->typoAscender) {
+				$this->ascent = $this->typoAscender;
+				$this->descent = $this->typoDescender;
+				$this->lineGap = $this->typoLineGap;
+			}
+
+		}
+
+
+		///////////////////////////////////
+		// post - PostScript table
+		///////////////////////////////////
+		$this->seek_table("post");
+		if ($debug) {
+			$ver_maj = $this->read_ushort();
+			$ver_min = $this->read_ushort();
+			if ($ver_maj <1 || $ver_maj >4)
+				die('Unknown post table version '.$ver_maj);
+		}
+		else {
+			$this->skip(4);
+		}
+		$this->italicAngle = $this->read_short() + $this->read_ushort() / 65536.0;
+		$this->underlinePosition = $this->read_short() * $scale;
+		$this->underlineThickness = $this->read_short() * $scale;
+		$isFixedPitch = $this->read_ulong();
+
+		$this->flags = 4;
+
+		if ($this->italicAngle!= 0)
+			$this->flags = $this->flags | 64;
+		if ($usWeightClass >= 600)
+			$this->flags = $this->flags | 262144;
+		if ($isFixedPitch)
+			$this->flags = $this->flags | 1;
+
+		///////////////////////////////////
+		// hhea - Horizontal header table
+		///////////////////////////////////
+		$this->seek_table("hhea");
+		if ($debug) {
+			$ver_maj = $this->read_ushort();
+			$ver_min = $this->read_ushort();
+			if ($ver_maj != 1)
+				die('Unknown hhea table version '.$ver_maj);
+			$this->skip(28);
+		}
+		else {
+			$this->skip(32);
+		}
+		$metricDataFormat = $this->read_ushort();
+		if ($metricDataFormat != 0)
+			die('Unknown horizontal metric data format '.$metricDataFormat);
+		$numberOfHMetrics = $this->read_ushort();
+		if ($numberOfHMetrics == 0)
+			die('Number of horizontal metrics is 0');
+
+		///////////////////////////////////
+		// maxp - Maximum profile table
+		///////////////////////////////////
+		$this->seek_table("maxp");
+		if ($debug) {
+			$ver_maj = $this->read_ushort();
+			$ver_min = $this->read_ushort();
+			if ($ver_maj != 1)
+				die('Unknown maxp table version '.$ver_maj);
+		}
+		else {
+			$this->skip(4);
+		}
+		$numGlyphs = $this->read_ushort();
+
+
+		///////////////////////////////////
+		// cmap - Character to glyph index mapping table
+		///////////////////////////////////
+		$cmap_offset = $this->seek_table("cmap");
+		$this->skip(2);
+		$cmapTableCount = $this->read_ushort();
+		$unicode_cmap_offset = 0;
+		for ($i=0;$i<$cmapTableCount;$i++) {
+			$platformID = $this->read_ushort();
+			$encodingID = $this->read_ushort();
+			$offset = $this->read_ulong();
+			$save_pos = $this->_pos;
+			if (($platformID == 3 && $encodingID == 1) || $platformID == 0) { // Microsoft, Unicode
+				$format = $this->get_ushort($cmap_offset + $offset);
+				if ($format == 4) {
+					if (!$unicode_cmap_offset) $unicode_cmap_offset = $cmap_offset + $offset;
+					if ($BMPonly) break;
+				}
+			}
+			// Microsoft, Unicode Format 12 table HKCS
+			else if ((($platformID == 3 && $encodingID == 10) || $platformID == 0) && !$BMPonly) {
+				$format = $this->get_ushort($cmap_offset + $offset);
+				if ($format == 12) {
+					$unicode_cmap_offset = $cmap_offset + $offset;
+					break;
+				}
+			}
+			$this->seek($save_pos );
+		}
+
+		if (!$unicode_cmap_offset)
+			die('Font ('.$this->filename .') does not have cmap for Unicode (platform 3, encoding 1, format 4, or platform 0, any encoding, format 4)');
+
+
+		$sipset = false;
+		$smpset = false;
+
+		// mPDF 5.7.1
+		$this->rtlPUAstr = '';
+		//$this->rtlPUAarr = array();
+		$this->GSUBScriptLang = array();
+		$this->GSUBFeatures = array();
+		$this->GSUBLookups = array();
+		$this->GPOSScriptLang = array();
+		$this->GPOSFeatures = array();
+		$this->GPOSLookups = array();
+		$this->glyphIDtoUni = '';
+
+		// Format 12 CMAP does characters above Unicode BMP i.e. some HKCS characters U+20000 and above
+		if ($format == 12 && !$BMPonly) {
+			$this->maxUniChar = 0;
+			$this->seek($unicode_cmap_offset + 4);
+			$length = $this->read_ulong();
+			$limit = $unicode_cmap_offset + $length;
+			$this->skip(4);
+
+			$nGroups = $this->read_ulong();
+
+			$glyphToChar = array();
+			$charToGlyph = array();
+			for($i=0; $i<$nGroups ; $i++) {
+				$startCharCode = $this->read_ulong();
+				$endCharCode = $this->read_ulong();
+				$startGlyphCode = $this->read_ulong();
+				// ZZZ98
+				if ($endCharCode > 0x20000 && $endCharCode < 0x2FFFF) {
+					$sipset = true;
+				}
+				else if ($endCharCode > 0x10000 && $endCharCode < 0x1FFFF) {
+					$smpset = true;
+				}
+				$offset = 0;
+				for ($unichar=$startCharCode;$unichar<=$endCharCode;$unichar++) {
+					$glyph = $startGlyphCode + $offset ;
+					$offset++;
+					// ZZZ98
+					if ($unichar < 0x30000) {
+						$charToGlyph[$unichar] = $glyph;
+						$this->maxUniChar = max($unichar,$this->maxUniChar);
+						$glyphToChar[$glyph][] = $unichar;
+					}
+				}
+			}
+		}
+		else {
+
+			$glyphToChar = array();
+			$charToGlyph = array();
+			$this->getCMAP4($unicode_cmap_offset, $glyphToChar, $charToGlyph );
+
+		}
+		$this->sipset = $sipset ;
+		$this->smpset = $smpset ;
+		///////////////////////////////////
+		// mPDF 5.7.1
+		// Map Unmapped glyphs (or glyphs mapped to upper PUA U+F00000 onwards i.e. > U+2FFFF) - from $numGlyphs
+		if ($this->useOTL) {
+			$bctr = 0xE000;
+			for ($gid=1; $gid<$numGlyphs; $gid++) {
+				if (!isset($glyphToChar[$gid])) {
+					while(isset($charToGlyph[$bctr])) { $bctr++; }	// Avoid overwriting a glyph already mapped in PUA
+					// ZZZ98
+					if (($bctr > 0xF8FF) && ($bctr < 0x2CEB0)) {
+						if (!$BMPonly) {
+							$bctr = 0x2CEB0; 	// Use unassigned area 0x2CEB0 to 0x2F7FF (space for 10,000 characters)
+							$this->sipset = $sipset = true; // forces subsetting; also ensure charwidths are saved
+							while(isset($charToGlyph[$bctr])) { $bctr++; }
+						}
+						else { die($names[1]." : WARNING - The font does not have enough space to map all (unmapped) included glyphs into Private Use Area U+E000 - U+F8FF"); }
+					}
+					$glyphToChar[$gid][] = $bctr;
+					$charToGlyph[$bctr] = $gid;
+					$this->maxUniChar = max($bctr,$this->maxUniChar);
+					$bctr++;
+				}
+			}
+		}
+
+		$this->glyphToChar = $glyphToChar;
+		///////////////////////////////////
+		// mPDF 5.7.1	OpenType Layout tables
+		$this->GSUBScriptLang=array();
+		$this->rtlPUAstr = '';
+		//$this->rtlPUAarr = array();
+		if ($useOTL) {
+			$this->_getGDEFtables();
+			list($this->GSUBScriptLang, $this->GSUBFeatures, $this->GSUBLookups, $this->rtlPUAstr) = $this->_getGSUBtables();
+			// , $this->rtlPUAarr not needed
+			list($this->GPOSScriptLang, $this->GPOSFeatures, $this->GPOSLookups) = $this->_getGPOStables();
+			$this->glyphIDtoUni = str_pad('', 256*256*3, "\x00");
+			foreach($glyphToChar AS $gid=>$arr) {
+				if (isset($glyphToChar[$gid][0])) {
+					$char = $glyphToChar[$gid][0];
+
+					if ($char != 0 && $char != 65535) {
+						$this->glyphIDtoUni[$gid*3] = chr($char >> 16);
+						$this->glyphIDtoUni[$gid*3 + 1] = chr(($char >> 8) & 0xFF);
+						$this->glyphIDtoUni[$gid*3 + 2] = chr($char & 0xFF);
+					}
+				}
+			}
+		}
+		///////////////////////////////////
+
+
+		// if xHeight and/or CapHeight are not available from OS/2 (e.g. eraly versions)
+		// Calculate from yMax of 'x' or 'H' Glyphs...
+		if ($this->xHeight == 0) {
+			if (isset($charToGlyph[0x78])) {
+				$gidx = $charToGlyph[0x78];	// U+0078 (LATIN SMALL LETTER X)
+				$start = $this->seek_table('loca');
+				if ($indexToLocFormat == 0) {
+					$this->skip($gidx*2);
+					$locax = $this->read_ushort() * 2;
+				}
+				else if ($indexToLocFormat == 1) {
+					$this->skip($gidx*4);
+					$locax = $this->read_ulong();
+				}
+				$start = $this->seek_table('glyf');
+				$this->skip($locax);
+				$this->skip(8);
+				$yMaxx = $this->read_short();
+				$this->xHeight = $yMaxx * $scale;
+			}
+		}
+		if ($this->capHeight == 0) {
+			if (isset($charToGlyph[0x48])) {
+				$gidH = $charToGlyph[0x48];	// U+0048 (LATIN CAPITAL LETTER H)
+				$start = $this->seek_table('loca');
+				if ($indexToLocFormat == 0) {
+					$this->skip($gidH*2);
+					$locaH = $this->read_ushort() * 2;
+				}
+				else if ($indexToLocFormat == 1) {
+					$this->skip($gidH*4);
+					$locaH = $this->read_ulong();
+				}
+					$start = $this->seek_table('glyf');
+				$this->skip($locaH);
+				$this->skip(8);
+				$yMaxH = $this->read_short();
+				$this->capHeight = $yMaxH * $scale;
+			}
+			else { $this->capHeight = $this->ascent; }	// final default is to set it = to Ascent
+		}
+
+
+
+
+		///////////////////////////////////
+		// hmtx - Horizontal metrics table
+		///////////////////////////////////
+		$this->getHMTX($numberOfHMetrics, $numGlyphs, $glyphToChar, $scale);
+
+		///////////////////////////////////
+		// kern - Kerning pair table
+		///////////////////////////////////
+		// Recognises old form of Kerning table - as required by Windows - Format 0 only
+		$kern_offset = $this->seek_table("kern");
+		$version = $this->read_ushort();
+		$nTables = $this->read_ushort();
+		// subtable header
+		$sversion = $this->read_ushort();
+		$slength = $this->read_ushort();
+		$scoverage = $this->read_ushort();
+		$format = $scoverage >> 8;
+ 		if ($kern_offset && $version==0 && $format==0) {
+			// Format 0
+			$nPairs = $this->read_ushort();
+			$this->skip(6);
+			for ($i=0; $i<$nPairs; $i++) {
+				$left = $this->read_ushort();
+				$right = $this->read_ushort();
+				$val = $this->read_short();
+				if (count($glyphToChar[$left])==1 && count($glyphToChar[$right])==1) {
+				  if ($left != 32 && $right != 32) {
+					$this->kerninfo[$glyphToChar[$left][0]][$glyphToChar[$right][0]] = intval($val*$scale);
+				  }
+				}
+			}
+		}
+	}
+
+
+/////////////////////////////////////////////////////////////////////////////////////////
+	function _getGDEFtables() {
+		///////////////////////////////////
+		// GDEF - Glyph Definition
+		///////////////////////////////////
+		// http://www.microsoft.com/typography/otspec/gdef.htm
+		if (isset($this->tables["GDEF"])) {
+			$gdef_offset = $this->seek_table("GDEF");
+			// ULONG Version of the GDEF table-currently 0x00010000
+			$ver_maj = $this->read_ushort();
+			$ver_min = $this->read_ushort();
+			$GlyphClassDef_offset = $this->read_ushort();
+			$AttachList_offset = $this->read_ushort();
+			$LigCaretList_offset = $this->read_ushort();
+			$MarkAttachClassDef_offset = $this->read_ushort();
+			// Version 0x00010002 of GDEF header contains additional Offset to a list defining mark glyph set definitions (MarkGlyphSetDef)
+			if ($ver_min == 2) {
+				$MarkGlyphSetsDef_offset = $this->read_ushort();
+			}
+
+			// GlyphClassDef
+			if ($GlyphClassDef_offset) {
+				$this->seek($gdef_offset+$GlyphClassDef_offset );
+				/*
+				1	Base glyph (single character, spacing glyph)
+				2	Ligature glyph (multiple character, spacing glyph)
+				3	Mark glyph (non-spacing combining glyph)
+				4	Component glyph (part of single character, spacing glyph)
+				*/
+				$GlyphByClass = $this->_getClassDefinitionTable();
+			}
+			else { $GlyphByClass = array(); }
+
+			if (isset($GlyphByClass[1]) && count($GlyphByClass[1])>0) { $this->GlyphClassBases = ' '.implode('| ',$GlyphByClass[1]); }
+			else { $this->GlyphClassBases = ''; }
+			if (isset($GlyphByClass[2]) && count($GlyphByClass[2])>0) { $this->GlyphClassLigatures = ' '.implode('| ',$GlyphByClass[2]); }
+			else { $this->GlyphClassLigatures = ''; }
+			if (isset($GlyphByClass[3]) && count($GlyphByClass[3])>0) { $this->GlyphClassMarks = ' '.implode('| ',$GlyphByClass[3]); }
+			else { $this->GlyphClassMarks = ''; }
+			if (isset($GlyphByClass[4]) && count($GlyphByClass[4])>0) { $this->GlyphClassComponents = ' '.implode('| ',$GlyphByClass[4]); }
+			else { $this->GlyphClassComponents = ''; }
+
+			if (isset($GlyphByClass[3]) && count($GlyphByClass[3])>0) { $Marks = $GlyphByClass[3]; } // to use for MarkAttachmentType
+			else { $Marks = array(); }
+
+
+
+/* Required for GPOS
+			// Attachment List
+			if ($AttachList_offset) {
+				$this->seek($gdef_offset+$AttachList_offset );
+			}
+The Attachment Point List table (AttachmentList) identifies all the attachment points defined in the GPOS table and their associated glyphs so a client can quickly access coordinates for each glyph's attachment points. As a result, the client can cache coordinates for attachment points along with glyph bitmaps and avoid recalculating the attachment points each time it displays a glyph. Without this table, processing speed would be slower because the client would have to decode the GPOS lookups that define attachment points and compile the points in a list.
+
+The Attachment List table (AttachList) may be used to cache attachment point coordinates along with glyph bitmaps.
+
+The table consists of an offset to a Coverage table (Coverage) listing all glyphs that define attachment points in the GPOS table, a count of the glyphs with attachment points (GlyphCount), and an array of offsets to AttachPoint tables (AttachPoint). The array lists the AttachPoint tables, one for each glyph in the Coverage table, in the same order as the Coverage Index.
+AttachList table
+Type 	Name 	Description
+Offset 	Coverage 	Offset to Coverage table - from beginning of AttachList table
+uint16 	GlyphCount 	Number of glyphs with attachment points
+Offset 	AttachPoint[GlyphCount] 	Array of offsets to AttachPoint tables-from beginning of AttachList table-in Coverage Index order
+
+An AttachPoint table consists of a count of the attachment points on a single glyph (PointCount) and an array of contour indices of those points (PointIndex), listed in increasing numerical order.
+
+AttachPoint table
+Type 	Name 	Description
+uint16 	PointCount 	Number of attachment points on this glyph
+uint16 	PointIndex[PointCount] 	Array of contour point indices -in increasing numerical order
+
+See Example 3 - http://www.microsoft.com/typography/otspec/gdef.htm
+*/
+
+
+			// Ligature Caret List
+			// The Ligature Caret List table (LigCaretList) defines caret positions for all the ligatures in a font.
+			// Not required for mDPF
+
+
+			// MarkAttachmentType
+			if ($MarkAttachClassDef_offset) {
+				$this->seek($gdef_offset+$MarkAttachClassDef_offset);
+				$MarkAttachmentTypes = $this->_getClassDefinitionTable();
+				foreach($MarkAttachmentTypes AS $class=>$glyphs) {
+
+					if (is_array($Marks) && count($Marks)) {
+						$mat = array_diff($Marks, $MarkAttachmentTypes[$class]);
+						sort($mat, SORT_STRING);
+					}
+					else { $mat = array(); }
+
+					$this->MarkAttachmentType[$class] = ' '.implode('| ',$mat);
+				}
+			}
+			else  { $this->MarkAttachmentType = array(); }
+
+
+			// MarkGlyphSets only in Version 0x00010002 of GDEF
+			if ($ver_min == 2 && $MarkGlyphSetsDef_offset) {
+				$this->seek($gdef_offset+$MarkGlyphSetsDef_offset);
+				$MarkSetTableFormat = $this->read_ushort();
+				$MarkSetCount = $this->read_ushort();
+				$MarkSetOffset = array();
+				for ($i=0;$i<$MarkSetCount;$i++) {
+					$MarkSetOffset[] = $this->read_ulong();
+				}
+				for ($i=0;$i<$MarkSetCount;$i++) {
+					$this->seek($MarkSetOffset[$i]);
+					$glyphs = $this->_getCoverage();
+					$this->MarkGlyphSets[$i] = ' '.implode('| ',$glyphs);
+				}
+			}
+			else { $this->MarkGlyphSets = array(); }
+		}
+		else { die('Warning - You cannot set this font ('.$this->filename.') to use OTL, as it does not include OTL tables (or at least, not a GDEF table).'); }
+
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+			$GSUB_offset = 0;
+			$GPOS_offset = 0;
+			$GSUB_length = 0;
+			$s = '';
+			if (isset($this->tables["GSUB"])) {
+				$GSUB_offset = $this->seek_table("GSUB");
+				$GSUB_length = $this->tables["GSUB"]['length'];
+				$s .= fread($this->fh,$this->tables["GSUB"]['length']);
+			}
+			if (isset($this->tables["GPOS"])) {
+				$GPOS_offset = $this->seek_table("GPOS");
+				$s .= fread($this->fh,$this->tables["GPOS"]['length']);
+			}
+			if ($s) file_put_contents(_MPDF_TTFONTDATAPATH.$this->fontkey.'.GSUBGPOStables.dat', $s);
+
+			//=====================================================================================
+			//=====================================================================================
+
+			$s = '<?php
+$GSUB_offset = '.$GSUB_offset.';
+$GPOS_offset = '.$GPOS_offset.';
+$GSUB_length = '.$GSUB_length.';
+$GlyphClassBases = \''.$this->GlyphClassBases.'\';
+$GlyphClassMarks = \''.$this->GlyphClassMarks.'\';
+$GlyphClassLigatures = \''.$this->GlyphClassLigatures.'\';
+$GlyphClassComponents = \''.$this->GlyphClassComponents.'\';
+$MarkGlyphSets = '.var_export($this->MarkGlyphSets , true).';
+$MarkAttachmentType = '.var_export($this->MarkAttachmentType , true).';
+?>';
+
+
+			file_put_contents(_MPDF_TTFONTDATAPATH.$this->fontkey.'.GDEFdata.php', $s);
+
+			//=====================================================================================
+
+
+//echo $this->GlyphClassMarks ; exit;
+//print_r($GlyphClass); exit;
+//print_r($GlyphByClass); exit;
+	}
+
+	function _getClassDefinitionTable() {
+
+	// NB Any glyph not included in the range of covered GlyphIDs automatically belongs to Class 0. This is not returned by this function
+		$ClassFormat = $this->read_ushort();
+		$GlyphByClass = array();
+		if ($ClassFormat == 1) {
+			$StartGlyph = $this->read_ushort();
+			$GlyphCount = $this->read_ushort();
+			for ($i=0;$i<$GlyphCount;$i++) {
+				$gid = $StartGlyph + $i;
+				$class = $this->read_ushort();
+				// Several fonts  (mainly dejavu.../Freeserif etc) have a MarkAttachClassDef Format 1, where StartGlyph is 0 and GlyphCount is 1
+				// This doesn't seem to do anything useful?
+				// Freeserif does not have $this->glyphToChar[0] allocated and would throw an error, so check if isset:
+				if (isset($this->glyphToChar[$gid][0])) {
+					$GlyphByClass[$class][] = unicode_hex($this->glyphToChar[$gid][0]);
+				}
+			}
+		}
+		else if ($ClassFormat == 2) {
+			$tableCount = $this->read_ushort();
+			for ($i=0;$i<$tableCount;$i++) {
+				$startGlyphID = $this->read_ushort();
+				$endGlyphID = $this->read_ushort();
+				$class = $this->read_ushort();
+				for($gid=$startGlyphID;$gid<=$endGlyphID;$gid++) {
+					if (isset($this->glyphToChar[$gid][0])) {
+						$GlyphByClass[$class][] = unicode_hex($this->glyphToChar[$gid][0]);
+					}
+				}
+			}
+		}
+		foreach($GlyphByClass AS $class=>$glyphs) {
+			sort($GlyphByClass[$class], SORT_STRING);	// SORT makes it easier to read in development ? order not important ???
+		}
+		ksort($GlyphByClass);
+		return $GlyphByClass;
+	}
+
+	function _getGSUBtables() {
+		///////////////////////////////////
+		// GSUB - Glyph Substitution
+		///////////////////////////////////
+		if (isset($this->tables["GSUB"])) {
+			$ffeats = array();
+			$gsub_offset = $this->seek_table("GSUB");
+			$this->skip(4);
+			$ScriptList_offset = $gsub_offset + $this->read_ushort();
+			$FeatureList_offset = $gsub_offset + $this->read_ushort();
+			$LookupList_offset = $gsub_offset + $this->read_ushort();
+
+			// ScriptList
+			$this->seek($ScriptList_offset );
+			$ScriptCount = $this->read_ushort();
+			for ($i=0;$i<$ScriptCount;$i++) {
+					$ScriptTag = $this->read_tag();	// = "beng", "deva" etc.
+					$ScriptTableOffset = $this->read_ushort();
+					$ffeats[$ScriptTag] = $ScriptList_offset + $ScriptTableOffset;
+			}
+
+			// Script Table
+			foreach($ffeats AS $t=>$o) {
+				$ls = array();
+				$this->seek($o);
+				$DefLangSys_offset = $this->read_ushort();
+				if ($DefLangSys_offset > 0) {
+					$ls['DFLT'] = $DefLangSys_offset + $o;
+				}
+				$LangSysCount = $this->read_ushort();
+				for ($i=0;$i<$LangSysCount;$i++) {
+					$LangTag = $this->read_tag();	// =
+					$LangTableOffset = $this->read_ushort();
+					$ls[$LangTag] = $o + $LangTableOffset;
+				}
+				$ffeats[$t] = $ls;
+			}
+//print_r($ffeats); exit;
+
+
+			// Get FeatureIndexList
+			// LangSys Table - from first listed langsys
+			foreach($ffeats AS $st=>$scripts) {
+				foreach($scripts AS $t=>$o) {
+					$FeatureIndex = array();
+					$langsystable_offset = $o;
+					$this->seek($langsystable_offset);
+					$LookUpOrder = $this->read_ushort();	//==NULL
+					$ReqFeatureIndex = $this->read_ushort();
+					if ($ReqFeatureIndex != 0xFFFF) { $FeatureIndex[] = $ReqFeatureIndex; }
+					$FeatureCount = $this->read_ushort();
+					for ($i=0;$i<$FeatureCount;$i++) {
+							$FeatureIndex[] = $this->read_ushort();	// = index of feature
+					}
+					$ffeats[$st][$t] = $FeatureIndex;
+				}
+			}
+//print_r($ffeats); exit;
+
+
+			// Feauture List => LookupListIndex es
+			$this->seek($FeatureList_offset );
+			$FeatureCount = $this->read_ushort();
+			$Feature = array();
+			for ($i=0;$i<$FeatureCount;$i++) {
+				$tag = $this->read_tag() ;
+				if ($tag == 'smcp') { $this->hassmallcapsGSUB = true; }
+				$Feature[$i] = array('tag' => $tag);
+				$Feature[$i]['offset'] = $FeatureList_offset + $this->read_ushort();
+			}
+			for ($i=0;$i<$FeatureCount;$i++) {
+				$this->seek($Feature[$i]['offset']);
+				$this->read_ushort(); // null [FeatureParams]
+				$Feature[$i]['LookupCount'] = $Lookupcount = $this->read_ushort();
+				$Feature[$i]['LookupListIndex'] = array();
+				for ($c=0;$c<$Lookupcount;$c++) {
+					$Feature[$i]['LookupListIndex'][] = $this->read_ushort();
+				}
+			}
+
+//print_r($Feature); exit;
+
+			foreach($ffeats AS $st=>$scripts) {
+				foreach($scripts AS $t=>$o) {
+					$FeatureIndex = $ffeats[$st][$t];
+					foreach($FeatureIndex AS $k=>$fi) {
+						$ffeats[$st][$t][$k] = $Feature[$fi];
+					}
+				}
+			}
+			//=====================================================================================
+			$gsub = array();
+			$GSUBScriptLang = array();
+			foreach($ffeats AS $st=>$scripts) {
+				foreach($scripts AS $t=>$langsys) {
+					$lg = array();
+					foreach($langsys AS $ft) {
+						$lg[$ft['LookupListIndex'][0]] = $ft;
+					}
+					// list of Lookups in order they need to be run i.e. order listed in Lookup table
+					ksort($lg);
+					foreach($lg AS $ft) {
+						$gsub[$st][$t][$ft['tag']] = $ft['LookupListIndex'];
+					}
+					if (!isset($GSUBScriptLang[$st])) { $GSUBScriptLang[$st] = ''; }
+					$GSUBScriptLang[$st] .= $t.' ';
+				}
+			}
+
+//print_r($gsub); exit;
+
+
+
+			//=====================================================================================
+			// Get metadata and offsets for whole Lookup List table
+			$this->seek($LookupList_offset );
+			$LookupCount = $this->read_ushort();
+			$GSLookup = array();
+			$Offsets = array();
+			$SubtableCount = array();
+			for ($i=0;$i<$LookupCount;$i++) {
+				$Offsets[$i] = $LookupList_offset + $this->read_ushort();
+			}
+			for ($i=0;$i<$LookupCount;$i++) {
+				$this->seek($Offsets[$i]);
+				$GSLookup[$i]['Type'] = $this->read_ushort();
+				$GSLookup[$i]['Flag'] = $flag = $this->read_ushort();
+				$GSLookup[$i]['SubtableCount'] = $SubtableCount[$i] = $this->read_ushort();
+				for ($c=0;$c<$SubtableCount[$i] ;$c++) {
+					$GSLookup[$i]['Subtables'][$c] = $Offsets[$i] + $this->read_ushort();
+
+				}
+				// MarkFilteringSet = Index (base 0) into GDEF mark glyph sets structure
+				if (($flag & 0x0010) == 0x0010) {
+					$GSLookup[$i]['MarkFilteringSet'] = $this->read_ushort();
+				}
+				else { $GSLookup[$i]['MarkFilteringSet'] = ''; }
+
+				// Lookup Type 7: Extension
+				if ($GSLookup[$i]['Type'] == 7) {
+					// Overwrites new offset (32-bit) for each subtable, and a new lookup Type
+					for ($c=0;$c<$SubtableCount[$i] ;$c++) {
+						$this->seek($GSLookup[$i]['Subtables'][$c]);
+						$ExtensionPosFormat = $this->read_ushort();
+						$type = $this->read_ushort();
+						$ext_offset = $this->read_ulong();
+						$GSLookup[$i]['Subtables'][$c] = $GSLookup[$i]['Subtables'][$c] + $ext_offset;
+					}
+					$GSLookup[$i]['Type'] = $type;
+				}
+			}
+
+//print_r($GSLookup); exit;
+			//=====================================================================================
+			// Process Whole LookupList - Get LuCoverage = Lookup coverage just for first glyph
+			$this->GSLuCoverage = array();
+			for ($i=0;$i<$LookupCount;$i++) {
+				for ($c=0;$c<$GSLookup[$i]['SubtableCount'] ;$c++) {
+
+					$this->seek($GSLookup[$i]['Subtables'][$c]);
+					$PosFormat= $this->read_ushort();
+
+					if ($GSLookup[$i]['Type']==5 && $PosFormat==3) { $this->skip(4); }
+					else if ($GSLookup[$i]['Type']==6 && $PosFormat==3) {
+						$BacktrackGlyphCount= $this->read_ushort();
+						$this->skip(2*$BacktrackGlyphCount + 2);
+					}
+					// NB Coverage only looks at glyphs for position 1 (i.e. 5.3 and 6.3)	// NEEDS TO READ ALL ********************
+					$Coverage = $GSLookup[$i]['Subtables'][$c] + $this->read_ushort();
+					$this->seek($Coverage);
+					$glyphs = $this->_getCoverage(false,2);
+					$this->GSLuCoverage[$i][$c] = $glyphs;
+				}
+			}
+
+// $this->GSLuCoverage and $GSLookup
+
+			//=====================================================================================
+			//=====================================================================================
+			$s = '<?php
+$GSLuCoverage = '.var_export($this->GSLuCoverage , true).';
+?>';
+
+			file_put_contents(_MPDF_TTFONTDATAPATH.$this->fontkey.'.GSUBdata.php', $s);
+
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+// Now repeats as original to get Substitution rules
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+			// Get metadata and offsets for whole Lookup List table
+			$this->seek($LookupList_offset );
+			$LookupCount = $this->read_ushort();
+			$Lookup = array();
+			for ($i=0;$i<$LookupCount;$i++) {
+				$Lookup[$i]['offset'] = $LookupList_offset + $this->read_ushort();
+			}
+			for ($i=0;$i<$LookupCount;$i++) {
+				$this->seek($Lookup[$i]['offset']);
+				$Lookup[$i]['Type'] = $this->read_ushort();
+				$Lookup[$i]['Flag'] = $flag = $this->read_ushort();
+				$Lookup[$i]['SubtableCount'] = $this->read_ushort();
+				for ($c=0;$c<$Lookup[$i]['SubtableCount'] ;$c++) {
+					$Lookup[$i]['Subtable'][$c]['Offset'] = $Lookup[$i]['offset'] + $this->read_ushort();
+
+				}
+				// MarkFilteringSet = Index (base 0) into GDEF mark glyph sets structure
+				if (($flag & 0x0010) == 0x0010) {
+					$Lookup[$i]['MarkFilteringSet'] = $this->read_ushort();
+				}
+				else { $Lookup[$i]['MarkFilteringSet'] = ''; }
+
+				// Lookup Type 7: Extension
+				if ($Lookup[$i]['Type'] == 7) {
+					// Overwrites new offset (32-bit) for each subtable, and a new lookup Type
+					for ($c=0;$c<$Lookup[$i]['SubtableCount'] ;$c++) {
+						$this->seek($Lookup[$i]['Subtable'][$c]['Offset']);
+						$ExtensionPosFormat = $this->read_ushort();
+						$type = $this->read_ushort();
+						$Lookup[$i]['Subtable'][$c]['Offset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ulong();
+					}
+					$Lookup[$i]['Type'] = $type;
+				}
+
+			}
+
+//print_r($Lookup); exit;
+			//=====================================================================================
+			// Process (1) Whole LookupList
+			for ($i=0;$i<$LookupCount;$i++) {
+				for ($c=0;$c<$Lookup[$i]['SubtableCount'] ;$c++) {
+
+					$this->seek($Lookup[$i]['Subtable'][$c]['Offset']);
+					$SubstFormat= $this->read_ushort();
+					$Lookup[$i]['Subtable'][$c]['Format'] = $SubstFormat;
+
+/*
+Lookup['Type'] Enumeration table for glyph substitution
+Value	Type	Description
+1	Single	Replace one glyph with one glyph
+2	Multiple	Replace one glyph with more than one glyph
+3	Alternate	Replace one glyph with one of many glyphs
+4	Ligature	Replace multiple glyphs with one glyph
+5	Context	Replace one or more glyphs in context
+6	Chaining Context	Replace one or more glyphs in chained context
+7	Extension Substitution	Extension mechanism for other substitutions (i.e. this excludes the Extension type substitution itself)
+8	Reverse chaining context single 	Applied in reverse order, replace single glyph in chaining context
+*/
+
+					// LookupType 1: Single Substitution Subtable
+					if ($Lookup[$i]['Type'] == 1) {
+						$Lookup[$i]['Subtable'][$c]['CoverageTableOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+						if ($SubstFormat==1) {	// Calculated output glyph indices
+							$Lookup[$i]['Subtable'][$c]['DeltaGlyphID'] = $this->read_short();
+						}
+						else if ($SubstFormat==2) {	// Specified output glyph indices
+							$GlyphCount = $this->read_ushort();
+							for ($g=0;$g<$GlyphCount;$g++) {
+								$Lookup[$i]['Subtable'][$c]['Glyphs'][] = $this->read_ushort();
+							}
+						}
+					}
+					// LookupType 2: Multiple Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 2) {
+						$Lookup[$i]['Subtable'][$c]['CoverageTableOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+						$Lookup[$i]['Subtable'][$c]['SequenceCount'] = $SequenceCount = $this->read_short();
+						for($s=0;$s<$SequenceCount;$s++) {
+							$Lookup[$i]['Subtable'][$c]['Sequences'][$s]['Offset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_short();
+						}
+						for($s=0;$s<$SequenceCount;$s++) {
+							// Sequence Tables
+							$this->seek($Lookup[$i]['Subtable'][$c]['Sequences'][$s]['Offset']);
+							$Lookup[$i]['Subtable'][$c]['Sequences'][$s]['GlyphCount'] = $this->read_short();
+							for ($g=0;$g<$Lookup[$i]['Subtable'][$c]['Sequences'][$s]['GlyphCount'];$g++) {
+								$Lookup[$i]['Subtable'][$c]['Sequences'][$s]['SubstituteGlyphID'][] = $this->read_ushort();
+							}
+						}
+					}
+					// LookupType 3: Alternate Forms
+					else if ($Lookup[$i]['Type'] == 3) {
+						$Lookup[$i]['Subtable'][$c]['CoverageTableOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+						$Lookup[$i]['Subtable'][$c]['AlternateSetCount'] = $AlternateSetCount = $this->read_short();
+						for($s=0;$s<$AlternateSetCount;$s++) {
+							$Lookup[$i]['Subtable'][$c]['AlternateSets'][$s]['Offset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_short();
+						}
+
+						for($s=0;$s<$AlternateSetCount;$s++) {
+							// AlternateSet Tables
+							$this->seek($Lookup[$i]['Subtable'][$c]['AlternateSets'][$s]['Offset']);
+							$Lookup[$i]['Subtable'][$c]['AlternateSets'][$s]['GlyphCount'] = $this->read_short();
+							for ($g=0;$g<$Lookup[$i]['Subtable'][$c]['AlternateSets'][$s]['GlyphCount'];$g++) {
+								$Lookup[$i]['Subtable'][$c]['AlternateSets'][$s]['SubstituteGlyphID'][] = $this->read_ushort();
+							}
+						}
+					}
+					// LookupType 4: Ligature Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 4) {
+						$Lookup[$i]['Subtable'][$c]['CoverageTableOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+						$Lookup[$i]['Subtable'][$c]['LigSetCount'] = $LigSetCount = $this->read_short();
+						for($s=0;$s<$LigSetCount;$s++) {
+							$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Offset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_short();
+						}
+						for($s=0;$s<$LigSetCount;$s++) {
+							// LigatureSet Tables
+							$this->seek($Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Offset']);
+							$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['LigCount'] = $this->read_short();
+							for ($g=0;$g<$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['LigCount'];$g++) {
+								$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['LigatureOffset'][$g] = $Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Offset'] + $this->read_ushort();
+							}
+						}
+						for($s=0;$s<$LigSetCount;$s++) {
+							for ($g=0;$g<$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['LigCount'];$g++) {
+								// Ligature tables
+								$this->seek($Lookup[$i]['Subtable'][$c]['LigSet'][$s]['LigatureOffset'][$g]);
+								$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Ligature'][$g]['LigGlyph'] = $this->read_ushort();
+								$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Ligature'][$g]['CompCount'] = $this->read_ushort();
+								for ($l=1;$l<$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Ligature'][$g]['CompCount'];$l++) {
+									$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Ligature'][$g]['GlyphID'][$l] = $this->read_ushort();
+								}
+							}
+						}
+					}
+
+					// LookupType 5: Contextual Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 5) {
+						// Format 1: Context Substitution
+						if ($SubstFormat==1) {
+							$Lookup[$i]['Subtable'][$c]['CoverageTableOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							$Lookup[$i]['Subtable'][$c]['SubRuleSetCount'] = $SubRuleSetCount = $this->read_short();
+							for($s=0;$s<$SubRuleSetCount;$s++) {
+								$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['Offset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_short();
+							}
+							for($s=0;$s<$SubRuleSetCount;$s++) {
+								// SubRuleSet Tables
+								$this->seek($Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['Offset']);
+								$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRuleCount'] = $this->read_short();
+								for ($g=0;$g<$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRuleCount'];$g++) {
+									$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRuleOffset'][$g] = $Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['Offset'] + $this->read_ushort();
+								}
+							}
+							for($s=0;$s<$SubRuleSetCount;$s++) {
+								// SubRule Tables
+								for ($g=0;$g<$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRuleCount'];$g++) {
+									// Ligature tables
+									$this->seek($Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRuleOffset'][$g]);
+
+									$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$g]['GlyphCount'] = $this->read_ushort();
+									$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$g]['SubstCount'] = $this->read_ushort();
+									// "Input"::[GlyphCount - 1]::Array of input GlyphIDs-start with second glyph
+									for ($l=1;$l<$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$g]['GlyphCount'];$l++) {
+										$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$g]['Input'][$l] = $this->read_ushort();
+									}
+									// "SubstLookupRecord"::[SubstCount]::Array of SubstLookupRecords-in design order
+									for ($l=0;$l<$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$g]['SubstCount'];$l++) {
+										$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$g]['SubstLookupRecord'][$l]['SequenceIndex'] = $this->read_ushort();
+										$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$g]['SubstLookupRecord'][$l]['LookupListIndex'] = $this->read_ushort();
+									}
+
+								}
+							}
+
+						}
+						// Format 2: Class-based Context Glyph Substitution
+						else if ($SubstFormat==2) {
+							$Lookup[$i]['Subtable'][$c]['CoverageTableOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							$Lookup[$i]['Subtable'][$c]['ClassDefOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							$Lookup[$i]['Subtable'][$c]['SubClassSetCnt'] = $this->read_ushort();
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['SubClassSetCnt'];$b++) {
+								$offset = $this->read_ushort();
+								if ($offset==0x0000) {
+									$Lookup[$i]['Subtable'][$c]['SubClassSetOffset'][] = 0;
+								}
+								else {
+									$Lookup[$i]['Subtable'][$c]['SubClassSetOffset'][] = $Lookup[$i]['Subtable'][$c]['Offset'] + $offset;
+								}
+							}
+						}
+						else { die("GPOS Lookup Type ".$Lookup[$i]['Type'].", Format ".$SubstFormat." not supported (ttfontsuni.php)."); }
+					}
+
+					// LookupType 6: Chaining Contextual Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 6) {
+						// Format 1: Simple Chaining Context Glyph Substitution  p255
+						if ($SubstFormat==1) {
+							$Lookup[$i]['Subtable'][$c]['CoverageTableOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							$Lookup[$i]['Subtable'][$c]['ChainSubRuleSetCount'] = $this->read_ushort();
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['ChainSubRuleSetCount'];$b++) {
+								$Lookup[$i]['Subtable'][$c]['ChainSubRuleSetOffset'][] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							}
+						}
+						// Format 2: Class-based Chaining Context Glyph Substitution  p257
+						else if ($SubstFormat==2) {
+							$Lookup[$i]['Subtable'][$c]['CoverageTableOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							$Lookup[$i]['Subtable'][$c]['BacktrackClassDefOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							$Lookup[$i]['Subtable'][$c]['InputClassDefOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							$Lookup[$i]['Subtable'][$c]['LookaheadClassDefOffset'] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							$Lookup[$i]['Subtable'][$c]['ChainSubClassSetCnt'] = $this->read_ushort();
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['ChainSubClassSetCnt'];$b++) {
+								$offset = $this->read_ushort();
+								if ($offset==0x0000) {
+									$Lookup[$i]['Subtable'][$c]['ChainSubClassSetOffset'][] = $offset;
+								}
+								else {
+									$Lookup[$i]['Subtable'][$c]['ChainSubClassSetOffset'][] = $Lookup[$i]['Subtable'][$c]['Offset'] + $offset;
+								}
+							}
+						}
+						// Format 3: Coverage-based Chaining Context Glyph Substitution  p259
+						else if ($SubstFormat==3) {
+							$Lookup[$i]['Subtable'][$c]['BacktrackGlyphCount'] = $this->read_ushort();
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['BacktrackGlyphCount'];$b++) {
+								$Lookup[$i]['Subtable'][$c]['CoverageBacktrack'][] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							}
+							$Lookup[$i]['Subtable'][$c]['InputGlyphCount'] = $this->read_ushort();
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['InputGlyphCount'];$b++) {
+								$Lookup[$i]['Subtable'][$c]['CoverageInput'][] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							}
+							$Lookup[$i]['Subtable'][$c]['LookaheadGlyphCount'] = $this->read_ushort();
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['LookaheadGlyphCount'];$b++) {
+								$Lookup[$i]['Subtable'][$c]['CoverageLookahead'][] = $Lookup[$i]['Subtable'][$c]['Offset'] + $this->read_ushort();
+							}
+							$Lookup[$i]['Subtable'][$c]['SubstCount'] = $this->read_ushort();
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['SubstCount'];$b++) {
+								$Lookup[$i]['Subtable'][$c]['SubstLookupRecord'][$b]['SequenceIndex'] = $this->read_ushort();
+								$Lookup[$i]['Subtable'][$c]['SubstLookupRecord'][$b]['LookupListIndex'] = $this->read_ushort();
+/*
+Substitution Lookup Record
+All contextual substitution subtables specify the substitution data in a Substitution Lookup Record (SubstLookupRecord). Each record contains a SequenceIndex, which indicates the position where the substitution will occur in the glyph sequence. In addition, a LookupListIndex identifies the lookup to be applied at the glyph position specified by the SequenceIndex.
+*/
+
+							}
+						}
+					}
+					else { die("Lookup Type ".$Lookup[$i]['Type']." not supported."); }
+				}
+			}
+//print_r($Lookup); exit;
+
+
+
+
+			//=====================================================================================
+			// Process (2) Whole LookupList
+			// Get Coverage tables and prepare preg_replace
+			for ($i=0;$i<$LookupCount;$i++) {
+				for ($c=0;$c<$Lookup[$i]['SubtableCount'] ;$c++) {
+					$SubstFormat= $Lookup[$i]['Subtable'][$c]['Format'] ;
+
+					// LookupType 1: Single Substitution Subtable 1 => 1
+					if ($Lookup[$i]['Type'] == 1) {
+						$this->seek($Lookup[$i]['Subtable'][$c]['CoverageTableOffset']);
+						$glyphs = $this->_getCoverage(false);
+						for ($g=0;$g<count($glyphs);$g++) {
+							$replace = array();
+							$substitute = array();
+							$replace[] = unicode_hex($this->glyphToChar[$glyphs[$g]][0]);
+							// Flag = Ignore
+							if ($this->_checkGSUBignore($Lookup[$i]['Flag'], $replace[0], $Lookup[$i]['MarkFilteringSet'])) { continue; }
+							if (isset($Lookup[$i]['Subtable'][$c]['DeltaGlyphID'])) {	// Format 1
+								$substitute[] = unicode_hex($this->glyphToChar[($glyphs[$g]+$Lookup[$i]['Subtable'][$c]['DeltaGlyphID'])][0]);
+							}
+							else {	// Format 2
+								$substitute[] = unicode_hex($this->glyphToChar[($Lookup[$i]['Subtable'][$c]['Glyphs'][$g])][0]);
+							}
+							$Lookup[$i]['Subtable'][$c]['subs'][] = array('Replace'=>$replace, 'substitute'=>$substitute);
+						}
+					}
+
+					// LookupType 2: Multiple Substitution Subtable 1 => n
+					else if ($Lookup[$i]['Type'] == 2) {
+						$this->seek($Lookup[$i]['Subtable'][$c]['CoverageTableOffset']);
+						$glyphs = $this->_getCoverage();
+						for ($g=0;$g<count($glyphs);$g++) {
+							$replace = array();
+							$substitute = array();
+							$replace[] = $glyphs[$g];
+							// Flag = Ignore
+							if ($this->_checkGSUBignore($Lookup[$i]['Flag'], $replace[0], $Lookup[$i]['MarkFilteringSet'])) { continue; }
+if (!isset($Lookup[$i]['Subtable'][$c]['Sequences'][$g]['SubstituteGlyphID']) || count($Lookup[$i]['Subtable'][$c]['Sequences'][$g]['SubstituteGlyphID'])==0) { continue; }	// Illegal for GlyphCount to be 0; either error in font, or something has gone wrong - lets carry on for now!
+							foreach($Lookup[$i]['Subtable'][$c]['Sequences'][$g]['SubstituteGlyphID'] AS $sub) {
+								$substitute[] = unicode_hex($this->glyphToChar[$sub][0]);
+							}
+							$Lookup[$i]['Subtable'][$c]['subs'][] = array('Replace'=>$replace, 'substitute'=>$substitute);
+						}
+					}
+					// LookupType 3: Alternate Forms 1 => 1 (only first alternate form is used)
+					else if ($Lookup[$i]['Type'] == 3) {
+						$this->seek($Lookup[$i]['Subtable'][$c]['CoverageTableOffset']);
+						$glyphs = $this->_getCoverage();
+						for ($g=0;$g<count($glyphs);$g++) {
+							$replace = array();
+							$substitute = array();
+							$replace[] = $glyphs[$g];
+							// Flag = Ignore
+							if ($this->_checkGSUBignore($Lookup[$i]['Flag'], $replace[0], $Lookup[$i]['MarkFilteringSet'])) { continue; }
+							$gid = $Lookup[$i]['Subtable'][$c]['AlternateSets'][$g]['SubstituteGlyphID'][0];
+							if (!isset($this->glyphToChar[$gid][0])) { continue; }
+							$substitute[] = unicode_hex($this->glyphToChar[$gid][0]);
+							$Lookup[$i]['Subtable'][$c]['subs'][] = array('Replace'=>$replace, 'substitute'=>$substitute);
+						}
+					}
+					// LookupType 4: Ligature Substitution Subtable n => 1
+					else if ($Lookup[$i]['Type'] == 4) {
+						$this->seek($Lookup[$i]['Subtable'][$c]['CoverageTableOffset']);
+						$glyphs = $this->_getCoverage();
+						$LigSetCount = $Lookup[$i]['Subtable'][$c]['LigSetCount'];
+						for($s=0;$s<$LigSetCount;$s++) {
+							for ($g=0;$g<$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['LigCount'];$g++) {
+								$replace = array();
+								$substitute = array();
+								$replace[] = $glyphs[$s];
+								// Flag = Ignore
+								if ($this->_checkGSUBignore($Lookup[$i]['Flag'], $replace[0], $Lookup[$i]['MarkFilteringSet'])) { continue; }
+								for ($l=1;$l<$Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Ligature'][$g]['CompCount'];$l++) {
+									$gid = $Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Ligature'][$g]['GlyphID'][$l];
+									$rpl = unicode_hex($this->glyphToChar[$gid][0]);
+									// Flag = Ignore
+									if ($this->_checkGSUBignore($Lookup[$i]['Flag'], $rpl, $Lookup[$i]['MarkFilteringSet'])) {  continue 2; }
+									$replace[] = $rpl;
+								}
+								$gid = $Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Ligature'][$g]['LigGlyph'];
+								if (!isset($this->glyphToChar[$gid][0])) { continue; }
+								$substitute[] = unicode_hex($this->glyphToChar[$gid][0]);
+								$Lookup[$i]['Subtable'][$c]['subs'][] = array('Replace'=>$replace, 'substitute'=>$substitute, 'CompCount' => $Lookup[$i]['Subtable'][$c]['LigSet'][$s]['Ligature'][$g]['CompCount']);
+							}
+						}
+					}
+
+					// LookupType 5: Contextual Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 5) {
+						// Format 1: Context Substitution
+						if ($SubstFormat==1) {
+							$this->seek($Lookup[$i]['Subtable'][$c]['CoverageTableOffset']);
+							$Lookup[$i]['Subtable'][$c]['CoverageGlyphs'] = $CoverageGlyphs = $this->_getCoverage();
+
+							for ($s=0;$s<$Lookup[$i]['Subtable'][$c]['SubRuleSetCount'];$s++) {
+								$SubRuleSet = $Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s];
+								$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['FirstGlyph'] = $CoverageGlyphs[$s];
+								for ($r=0;$r<$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRuleCount'];$r++) {
+									$GlyphCount = $Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$r]['GlyphCount'];
+									for ($g=1;$g<$GlyphCount;$g++) {
+										$glyphID = $Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$r]['Input'][$g];
+										$Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'][$r]['InputGlyphs'][$g] = unicode_hex($this->glyphToChar[$glyphID][0]);
+									}
+
+								}
+							}
+						}
+						// Format 2: Class-based Context Glyph Substitution
+						else if ($SubstFormat==2) {
+							$this->seek($Lookup[$i]['Subtable'][$c]['CoverageTableOffset']);
+							$Lookup[$i]['Subtable'][$c]['CoverageGlyphs'] = $CoverageGlyphs = $this->_getCoverage();
+
+							$InputClasses = $this->_getClasses($Lookup[$i]['Subtable'][$c]['ClassDefOffset']);
+							$Lookup[$i]['Subtable'][$c]['InputClasses'] = $InputClasses;
+							for ($s=0;$s<$Lookup[$i]['Subtable'][$c]['SubClassSetCnt'];$s++) {
+								if ($Lookup[$i]['Subtable'][$c]['SubClassSetOffset'][$s]>0) {
+									$this->seek($Lookup[$i]['Subtable'][$c]['SubClassSetOffset'][$s]);
+									$Lookup[$i]['Subtable'][$c]['SubClassSet'][$s]['SubClassRuleCnt'] = $SubClassRuleCnt = $this->read_ushort();
+									$SubClassRule = array();
+									for($b=0;$b<$SubClassRuleCnt;$b++) {
+										$SubClassRule[$b] = $Lookup[$i]['Subtable'][$c]['SubClassSetOffset'][$s]+$this->read_ushort();
+										$Lookup[$i]['Subtable'][$c]['SubClassSet'][$s]['SubClassRule'][$b] = $SubClassRule[$b];
+									}
+								}
+							}
+
+							for ($s=0;$s<$Lookup[$i]['Subtable'][$c]['SubClassSetCnt'];$s++) {
+								if ($Lookup[$i]['Subtable'][$c]['SubClassSetOffset'][$s]>0) {
+									$SubClassRuleCnt = $Lookup[$i]['Subtable'][$c]['SubClassSet'][$s]['SubClassRuleCnt'];
+									for($b=0;$b<$SubClassRuleCnt;$b++) {
+										$this->seek($Lookup[$i]['Subtable'][$c]['SubClassSet'][$s]['SubClassRule'][$b]);
+										$Rule = array();
+										$Rule['InputGlyphCount'] = $this->read_ushort();
+										$Rule['SubstCount'] = $this->read_ushort();
+										for ($r=1;$r<$Rule['InputGlyphCount'];$r++) {
+											$Rule['Input'][$r] = $this->read_ushort();
+										}
+										for ($r=0;$r<$Rule['SubstCount'];$r++) {
+											$Rule['SequenceIndex'][$r] = $this->read_ushort();
+											$Rule['LookupListIndex'][$r] = $this->read_ushort();
+										}
+
+										$Lookup[$i]['Subtable'][$c]['SubClassSet'][$s]['SubClassRule'][$b] = $Rule;
+									}
+								}
+							}
+						}
+						// Format 3: Coverage-based Context Glyph Substitution
+						else if ($SubstFormat==3) {
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['InputGlyphCount'];$b++) {
+								$this->seek($Lookup[$i]['Subtable'][$c]['CoverageInput'][$b]);
+								$glyphs = $this->_getCoverage();
+								$Lookup[$i]['Subtable'][$c]['CoverageInputGlyphs'][] = implode("|",$glyphs);
+							}
+							die("Lookup Type 5, SubstFormat 3 not tested. Please report this with the name of font used - ".$this->fontkey);
+						}
+
+					}
+
+					// LookupType 6: Chaining Contextual Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 6) {
+						// Format 1: Simple Chaining Context Glyph Substitution  p255
+						if ($SubstFormat==1) {
+							$this->seek($Lookup[$i]['Subtable'][$c]['CoverageTableOffset']);
+							$Lookup[$i]['Subtable'][$c]['CoverageGlyphs'] = $CoverageGlyphs = $this->_getCoverage();
+
+							$ChainSubRuleSetCnt = $Lookup[$i]['Subtable'][$c]['ChainSubRuleSetCount'];
+
+							for ($s=0;$s<$ChainSubRuleSetCnt;$s++) {
+								$this->seek($Lookup[$i]['Subtable'][$c]['ChainSubRuleSetOffset'][$s]);
+								$ChainSubRuleCnt = $Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRuleCount'] = $this->read_ushort();
+								for ($r=0;$r<$ChainSubRuleCnt;$r++) {
+									$Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRuleOffset'][$r] = $Lookup[$i]['Subtable'][$c]['ChainSubRuleSetOffset'][$s] + $this->read_ushort();
+
+								}
+							}
+							for ($s=0;$s<$ChainSubRuleSetCnt;$s++) {
+								$ChainSubRuleCnt = $Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRuleCount'];
+								for ($r=0;$r<$ChainSubRuleCnt;$r++) {
+									// ChainSubRule
+									$this->seek($Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRuleOffset'][$r]);
+
+									$BacktrackGlyphCount = $Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['BacktrackGlyphCount'] = $this->read_ushort();
+									for ($g=0;$g<$BacktrackGlyphCount;$g++) {
+										$glyphID = $this->read_ushort();
+										$Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['BacktrackGlyphs'][$g] = unicode_hex($this->glyphToChar[$glyphID][0]);
+									}
+
+									$InputGlyphCount = $Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['InputGlyphCount'] = $this->read_ushort();
+									for ($g=1;$g<$InputGlyphCount;$g++) {
+										$glyphID = $this->read_ushort();
+										$Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['InputGlyphs'][$g] = unicode_hex($this->glyphToChar[$glyphID][0]);
+									}
+
+
+									$LookaheadGlyphCount = $Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['LookaheadGlyphCount'] = $this->read_ushort();
+									for ($g=0;$g<$LookaheadGlyphCount;$g++) {
+										$glyphID = $this->read_ushort();
+										$Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['LookaheadGlyphs'][$g] = unicode_hex($this->glyphToChar[$glyphID][0]);
+									}
+
+									$SubstCount = $Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['SubstCount'] = $this->read_ushort();
+									for ($lu=0;$lu<$SubstCount;$lu++) {
+										$Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['SequenceIndex'][$lu] = $this->read_ushort();
+										$Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'][$r]['LookupListIndex'][$lu] = $this->read_ushort();
+									}
+								}
+							}
+
+						}
+						// Format 2: Class-based Chaining Context Glyph Substitution  p257
+						else if ($SubstFormat==2) {
+							$this->seek($Lookup[$i]['Subtable'][$c]['CoverageTableOffset']);
+							$Lookup[$i]['Subtable'][$c]['CoverageGlyphs'] = $CoverageGlyphs = $this->_getCoverage();
+
+							$BacktrackClasses = $this->_getClasses($Lookup[$i]['Subtable'][$c]['BacktrackClassDefOffset']);
+							$Lookup[$i]['Subtable'][$c]['BacktrackClasses'] = $BacktrackClasses;
+
+							$InputClasses = $this->_getClasses($Lookup[$i]['Subtable'][$c]['InputClassDefOffset']);
+							$Lookup[$i]['Subtable'][$c]['InputClasses'] = $InputClasses;
+
+							$LookaheadClasses = $this->_getClasses($Lookup[$i]['Subtable'][$c]['LookaheadClassDefOffset']);
+							$Lookup[$i]['Subtable'][$c]['LookaheadClasses'] = $LookaheadClasses;
+
+							for ($s=0;$s<$Lookup[$i]['Subtable'][$c]['ChainSubClassSetCnt'];$s++) {
+								if ($Lookup[$i]['Subtable'][$c]['ChainSubClassSetOffset'][$s]>0) {
+									$this->seek($Lookup[$i]['Subtable'][$c]['ChainSubClassSetOffset'][$s]);
+									$Lookup[$i]['Subtable'][$c]['ChainSubClassSet'][$s]['ChainSubClassRuleCnt'] = $ChainSubClassRuleCnt = $this->read_ushort();
+									$ChainSubClassRule = array();
+									for($b=0;$b<$ChainSubClassRuleCnt;$b++) {
+										$ChainSubClassRule[$b] = $Lookup[$i]['Subtable'][$c]['ChainSubClassSetOffset'][$s]+$this->read_ushort();
+										$Lookup[$i]['Subtable'][$c]['ChainSubClassSet'][$s]['ChainSubClassRule'][$b] = $ChainSubClassRule[$b];
+									}
+								}
+							}
+
+							for ($s=0;$s<$Lookup[$i]['Subtable'][$c]['ChainSubClassSetCnt'];$s++) {
+								if (isset($Lookup[$i]['Subtable'][$c]['ChainSubClassSet'][$s]['ChainSubClassRuleCnt'])) {
+									$ChainSubClassRuleCnt = $Lookup[$i]['Subtable'][$c]['ChainSubClassSet'][$s]['ChainSubClassRuleCnt'];
+								}
+								else { $ChainSubClassRuleCnt = 0; }
+								for($b=0;$b<$ChainSubClassRuleCnt;$b++) {
+								   if ($Lookup[$i]['Subtable'][$c]['ChainSubClassSetOffset'][$s]>0) {
+									$this->seek($Lookup[$i]['Subtable'][$c]['ChainSubClassSet'][$s]['ChainSubClassRule'][$b]);
+									$Rule = array();
+									$Rule['BacktrackGlyphCount'] = $this->read_ushort();
+									for ($r=0;$r<$Rule['BacktrackGlyphCount'];$r++) {
+										$Rule['Backtrack'][$r] = $this->read_ushort();
+									}
+									$Rule['InputGlyphCount'] = $this->read_ushort();
+									for ($r=1;$r<$Rule['InputGlyphCount'];$r++) {
+										$Rule['Input'][$r] = $this->read_ushort();
+									}
+									$Rule['LookaheadGlyphCount'] = $this->read_ushort();
+									for ($r=0;$r<$Rule['LookaheadGlyphCount'];$r++) {
+										$Rule['Lookahead'][$r] = $this->read_ushort();
+									}
+									$Rule['SubstCount'] = $this->read_ushort();
+									for ($r=0;$r<$Rule['SubstCount'];$r++) {
+										$Rule['SequenceIndex'][$r] = $this->read_ushort();
+										$Rule['LookupListIndex'][$r] = $this->read_ushort();
+									}
+
+									$Lookup[$i]['Subtable'][$c]['ChainSubClassSet'][$s]['ChainSubClassRule'][$b] = $Rule;
+								   }
+								}
+							}
+						}
+						// Format 3: Coverage-based Chaining Context Glyph Substitution  p259
+						else if ($SubstFormat==3) {
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['BacktrackGlyphCount'];$b++) {
+								$this->seek($Lookup[$i]['Subtable'][$c]['CoverageBacktrack'][$b]);
+								$glyphs = $this->_getCoverage();
+								$Lookup[$i]['Subtable'][$c]['CoverageBacktrackGlyphs'][] = implode("|",$glyphs);
+							}
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['InputGlyphCount'];$b++) {
+								$this->seek($Lookup[$i]['Subtable'][$c]['CoverageInput'][$b]);
+								$glyphs = $this->_getCoverage();
+								$Lookup[$i]['Subtable'][$c]['CoverageInputGlyphs'][] = implode("|",$glyphs);
+								// Don't use above value as these are ordered numerically not as need to process
+							}
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['LookaheadGlyphCount'];$b++) {
+								$this->seek($Lookup[$i]['Subtable'][$c]['CoverageLookahead'][$b]);
+								$glyphs = $this->_getCoverage();
+								$Lookup[$i]['Subtable'][$c]['CoverageLookaheadGlyphs'][] = implode("|",$glyphs);
+							}
+
+						}
+					}
+				}
+			}
+
+
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+
+			$GSUBScriptLang = array();
+			$rtlpua = array();	// All glyphs added to PUA [for magic_reverse]
+			foreach($gsub AS $st=>$scripts) {
+				foreach($scripts AS $t=>$langsys) {
+					$lul = array();	// array of LookupListIndexes
+					$tags = array();	// corresponding array of feature tags e.g. 'ccmp'
+//print_r($langsys ); exit;
+					foreach($langsys AS $tag=>$ft) {
+						foreach($ft AS $ll) {
+							$lul[$ll] = $tag;
+						}
+					}
+					ksort($lul);	// Order the Lookups in the order they are in the GUSB table, regardless of Feature order
+					$volt = $this->_getGSUBarray($Lookup, $lul, $st);
+//print_r($lul); exit;
+
+					//=====================================================================================
+					//=====================================================================================
+					// Interrogate $volt
+					// isol, fin, medi, init(arab syrc) into $rtlSUB for use in ArabJoin
+					// but also identify all RTL chars in PUA for magic_reverse (arab syrc hebr thaa nko  samr)
+					// identify reph, matras, vatu, half forms etc for Indic for final re-ordering
+					//=====================================================================================
+					//=====================================================================================
+					$rtl = array();
+					$rtlSUB = "array()";
+					$finals = '';
+					if (strpos('arab syrc hebr thaa nko  samr', $st)!==false) {	// all RTL scripts [any/all languages] ? Mandaic
+//print_r($volt); exit;
+						foreach($volt AS $v) {
+							// isol fina fin2 fin3 medi med2 for Syriac
+							// ISOLATED FORM :: FINAL :: INITIAL :: MEDIAL :: MED2 :: FIN2 :: FIN3
+							if (strpos('isol fina init medi fin2 fin3 med2',$v['tag'])!==false) {
+								$key = $v['match'];
+								$key = preg_replace('/[\(\)]*/','',$key);
+								$sub = $v['replace'];
+								if ($v['tag'] == 'isol') $kk = 0;
+								else if ($v['tag'] == 'fina') $kk = 1;
+								else if ($v['tag'] == 'init') $kk = 2;
+								else if ($v['tag'] == 'medi') $kk = 3;
+								else if ($v['tag'] == 'med2') $kk = 4;
+								else if ($v['tag'] == 'fin2') $kk = 5;
+								else if ($v['tag'] == 'fin3') $kk = 6;
+								$rtl[$key][$kk] = $sub;
+								if (isset($v['prel']) && count($v['prel'])) $rtl[$key]['prel'][$kk] = $v['prel'];
+								if (isset($v['postl']) && count($v['postl'])) $rtl[$key]['postl'][$kk] = $v['postl'];
+								if (isset($v['ignore']) && $v['ignore']) {
+									$rtl[$key]['ignore'][$kk] = $v['ignore'];
+								}
+								$rtlpua[] = $sub;
+							}
+							// Add any other glyphs which are in PUA
+							else {
+								if (isset($v['context']) && $v['context']) {
+									foreach($v['rules'] AS $vs) {
+										for($i=0;$i<count($vs['match']);$i++) {
+											if (isset($vs['replace'][$i]) && preg_match('/^0[A-F0-9]{4}$/', $vs['match'][$i])) {
+												if (preg_match('/^0[EF][A-F0-9]{3}$/', $vs['replace'][$i])) {
+													$rtlpua[] = $vs['replace'][$i];
+												}
+											}
+										}
+									}
+								}
+								else {
+									preg_match_all('/\((0[A-F0-9]{4})\)/', $v['match'], $m);
+									for($i=0;$i<count($m[0]);$i++) {
+										$sb = explode(' ',$v['replace']);
+										foreach($sb AS $sbg) {
+											if (preg_match('/(0[EF][A-F0-9]{3})/', $sbg, $mr)) {
+												$rtlpua[] = $mr[1];
+											}
+										}
+									}
+								}
+							}
+						}
+//print_r($rtl); exit;
+						// For kashida, need to determine all final forms except ones already identified by kashida
+						// priority rules (see otl.php)
+						foreach($rtl AS $base=>$variants) {
+							if (isset($variants[1])) {	// i.e. final form
+								if (strpos('0FE8E 0FE94 0FEA2 0FEAA 0FEAE 0FEC2 0FEDA 0FEDE 0FB93 0FECA 0FED2 0FED6 0FEEE 0FEF0 0FEF2', $variants[1])===false) {	// not already included
+
+								// This version does not exclude RA (0631) FEAE; Ya (064A)  FEF2; Alef Maqsurah (0649) FEF0 which
+								// are selected in priority if connected to a medial Bah
+								//if (strpos('0FE8E 0FE94 0FEA2 0FEAA 0FEC2 0FEDA 0FEDE 0FB93 0FECA 0FED2 0FED6 0FEEE', $variants[1])===false) {	// not already included
+									$finals .= $variants[1].' ';
+								}
+							}
+						}
+//echo $finals ; exit;
+//print_r($rtlpua); exit;
+						ksort($rtl);
+						$a = var_export($rtl, true);
+						$a = preg_replace('/\\\\\\\\/',"\\",$a);
+						$a = preg_replace('/\'/','"',$a);
+						$a = preg_replace('/\r/','',$a);
+						$a = preg_replace('/> \n/','>',$a);
+						$a = preg_replace('/\n  \)/',')',$a);
+						$a= preg_replace('/\n    /',' ',$a);
+						$a = preg_replace('/\[IGNORE(\d+)\]/','".$ignore[\\1]."',$a);
+						$rtlSUB  = preg_replace('/[ ]+/',' ',$a);
+
+					}
+					//=====================================================================================
+					// INDIC - Dynamic properties
+					//=====================================================================================
+					$rphf = array();
+					$half = array();
+					$pref = array();
+					$blwf = array();
+					$pstf = array();
+					if (strpos('dev2 bng2 gur2 gjr2 ory2 tml2 tel2 knd2 mlm2 deva beng guru gujr orya taml telu knda mlym', $st)!==false) {	// all INDIC scripts [any/all languages]
+
+						if (strpos('deva beng guru gujr orya taml telu knda mlym', $st)!==false) { $is_old_spec = true; }
+						else  { $is_old_spec = false; }
+
+						// First get 'locl' substitutions (reversed!)
+						$loclsubs = array();
+						foreach($volt AS $v) {
+							if (strpos('locl',$v['tag'])!==false) {
+								$key = $v['match'];
+								$key = preg_replace('/[\(\)]*/','',$key);
+								$sub = $v['replace'];
+								if ($key && strlen(trim($key))==5 && $sub) { $loclsubs[$sub] = $key; }
+							}
+						}
+//if (count($loclsubs)) { print_r($loclsubs); exit; }
+
+						foreach($volt AS $v) {
+							// <rphf> <half> <pref> <blwf> <pstf>
+							// defines consonant types:
+							//     Reph <rphf>
+							//     Half forms <half>
+							//     Pre-base-reordering forms of Ra/Rra <pref>
+							//     Below-base forms <blwf>
+							//     Post-base forms <pstf>
+
+							// applied together with <locl> feature to input sequences consisting of two characters
+							// This is done for each consonant
+							// for <rphf> and <half>, features are applied to Consonant + Halant combinations
+							// for <pref>, <blwf> and <pstf>, features are applied to Halant + Consonant combinations
+							// Old version eg 'deva' <pref>, <blwf> and <pstf>, features are applied to Consonant + Halant
+							// Some malformed fonts still do Consonant + Halant for these - so match both??
+							// If these two glyphs form a ligature, with no additional glyphs in context
+							// this means the consonant has the corresponding form
+
+							// Currently set to cope with both
+							// See also classes/otl.php
+
+							if (strpos('rphf half pref blwf pstf',$v['tag'])!==false) {
+								if (isset($v['context']) && $v['context'] && $v['nBacktrack']==0 && $v['nLookahead']==0) {
+								  foreach($v['rules'] AS $vs) {
+									if (count($vs['match'])==2 && count($vs['replace'])==1) {
+										$sub = $vs['replace'][0];
+										// If Halant Cons   <pref>, <blwf> and <pstf> in New version only
+										if (strpos('0094D 009CD 00A4D 00ACD 00B4D 00BCD 00C4D 00CCD 00D4D',$vs['match'][0])!==false && strpos('pref blwf pstf',$v['tag'])!==false && !$is_old_spec ) {
+											$key = $vs['match'][1];
+											$tag = $v['tag'];
+											if (isset($loclsubs[$key])) {
+												$$tag[$loclsubs[$key]] = $sub;
+											}
+											$tmp = &$$tag;
+											$tmp[hexdec($key)] = hexdec($sub);
+										}
+										// If Cons Halant    <rphf> and <half> always
+										// and <pref>, <blwf> and <pstf> in Old version
+										else if (strpos('0094D 009CD 00A4D 00ACD 00B4D 00BCD 00C4D 00CCD 00D4D',$vs['match'][1])!==false && (strpos('rphf half',$v['tag'])!==false || (strpos('pref blwf pstf',$v['tag'])!==false && ($is_old_spec || _OTL_OLD_SPEC_COMPAT_2)))) {
+											$key = $vs['match'][0];
+											$tag = $v['tag'];
+											if (isset($loclsubs[$key])) {
+												$$tag[$loclsubs[$key]] = $sub;
+											}
+											$tmp = &$$tag;
+											$tmp[hexdec($key)] = hexdec($sub);
+										}
+									}
+								  }
+								}
+								else if (!isset($v['context'])) {
+									$key = $v['match'];
+									$key = preg_replace('/[\(\)]*/','',$key);
+									$sub = $v['replace'];
+									if ($key && strlen(trim($key))==11 && $sub) {
+										// If Cons Halant    <rphf> and <half> always
+										// and <pref>, <blwf> and <pstf> in Old version
+										// If Halant Cons   <pref>, <blwf> and <pstf> in New version only
+										if (strpos('0094D 009CD 00A4D 00ACD 00B4D 00BCD 00C4D 00CCD 00D4D',substr($key, 0, 5))!==false && strpos('pref blwf pstf',$v['tag'])!==false && !$is_old_spec ) {
+											$key = substr($key, 6, 5);
+											$tag = $v['tag'];
+											if (isset($loclsubs[$key])) {
+												$$tag[$loclsubs[$key]] = $sub;
+											}
+											$tmp = &$$tag;
+											$tmp[hexdec($key)] = hexdec($sub);
+										}
+										else if (strpos('0094D 009CD 00A4D 00ACD 00B4D 00BCD 00C4D 00CCD 00D4D',substr($key, 6, 5))!==false && (strpos('rphf half',$v['tag'])!==false || (strpos('pref blwf pstf',$v['tag'])!==false && ($is_old_spec || _OTL_OLD_SPEC_COMPAT_2)))) {
+											$key = substr($key, 0, 5);
+											$tag = $v['tag'];
+											if (isset($loclsubs[$key])) {
+												$$tag[$loclsubs[$key]] = $sub;
+											}
+											$tmp= &$$tag;
+											$tmp[hexdec($key)] = hexdec($sub);
+										}
+									}
+								}
+							}
+						}
+/*
+print_r($rphf );
+print_r($half );
+print_r($pref );
+print_r($blwf );
+print_r($pstf ); exit;
+*/
+
+					}
+//print_r($rtlpua); exit;
+					//=====================================================================================
+					//=====================================================================================
+					//=====================================================================================
+					//=====================================================================================
+					if (count($rtl) || count($rphf ) || count($half ) || count($pref ) || count($blwf ) || count($pstf ) || $finals) {
+						// SAVE LOOKUPS TO FILE fontname.GSUB.scripttag.langtag.php
+
+
+						$s = '<?php
+
+$rtlSUB = '.$rtlSUB.';
+$finals = \''.$finals.'\';
+$rphf = '.var_export($rphf , true).';
+$half = '.var_export($half , true).';
+$pref = '.var_export($pref , true).';
+$blwf = '.var_export($blwf , true).';
+$pstf = '.var_export($pstf , true).';
+
+ '."\n".'?>';
+
+
+						file_put_contents(_MPDF_TTFONTDATAPATH.$this->fontkey.'.GSUB.'.$st.'.'.$t.'.php', $s);
+
+					}
+					//=====================================================================================
+					if (!isset($GSUBScriptLang[$st])) { $GSUBScriptLang[$st] = ''; }
+					$GSUBScriptLang[$st] .= $t.' ';
+					//=====================================================================================
+
+				}
+			}
+		//print_r($rtlpua); exit;
+
+			// All RTL glyphs from font added to (or already in) PUA [reqd for magic_reverse]
+			$rtlPUAstr = "";
+			if (count($rtlpua)) {
+				$rtlpua = array_unique($rtlpua);
+				sort($rtlpua);
+				$n = count($rtlpua);
+				for($i=0;$i<$n;$i++) {
+					if (hexdec($rtlpua[$i])<hexdec('E000') || hexdec($rtlpua[$i])>hexdec('F8FF')) {
+						unset($rtlpua[$i]);
+					}
+				}
+				sort($rtlpua, SORT_STRING);
+
+				$rangeid = -1;
+				$range = array();
+				$prevgid = -2;
+				// for each character
+				foreach ($rtlpua as $gidhex) {
+					$gid = hexdec($gidhex);
+					if ($gid == ($prevgid + 1)) {
+						$range[$rangeid]['end'] = $gidhex;
+						$range[$rangeid]['count']++;
+					} else {
+						// new range
+						$rangeid++;
+						$range[$rangeid] = array();
+						$range[$rangeid]['start'] = $gidhex;
+						$range[$rangeid]['end'] = $gidhex;
+						$range[$rangeid]['count'] = 1;
+					}
+					$prevgid = $gid;
+				}
+				foreach($range AS $rg) {
+					if ($rg['count'] == 1) { $rtlPUAstr .= "\x{".$rg['start']."}"; }
+					else if ($rg['count'] == 2) { $rtlPUAstr .= "\x{".$rg['start']."}\x{".$rg['end']."}"; }
+					else { $rtlPUAstr .= "\x{".$rg['start']."}-\x{".$rg['end']."}"; }
+
+				}
+			}
+
+	//print_r($rtlPUAstr ); exit;
+
+
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+		//print_r($rtlpua); exit;
+		//print_r($GSUBScriptLang); exit;
+
+
+
+		}
+//print_r($Lookup); exit;
+
+		return array($GSUBScriptLang, $gsub, $GSLookup, $rtlPUAstr);	// , $rtlPUAarr Not needed
+
+	}
+/////////////////////////////////////////////////////////////////////////////////////////
+	// GSUB functions
+	function _getGSUBarray(&$Lookup, &$lul, $scripttag) {
+			// Process (3) LookupList for specific Script-LangSys
+			// Generate preg_replace
+			$volt = array();
+			$reph = '';
+			$matraE = '';
+			$vatu = '';
+			foreach($lul AS $i=>$tag) {
+				for ($c=0;$c<$Lookup[$i]['SubtableCount'] ;$c++) {
+
+					$SubstFormat= $Lookup[$i]['Subtable'][$c]['Format'] ;
+
+					// LookupType 1: Single Substitution Subtable
+					if ($Lookup[$i]['Type'] == 1) {
+						for ($s=0;$s<count($Lookup[$i]['Subtable'][$c]['subs']);$s++) {
+							$inputGlyphs = $Lookup[$i]['Subtable'][$c]['subs'][$s]['Replace'];
+							$substitute = $Lookup[$i]['Subtable'][$c]['subs'][$s]['substitute'][0];
+							// Ignore has already been applied earlier on
+							$repl = $this->_makeGSUBinputMatch($inputGlyphs, "()");
+							$subs = $this->_makeGSUBinputReplacement(1, $substitute, "()", 0, 1, 0);
+							$volt[] = array('match'=>$repl, 'replace'=>$subs, 'tag'=>$tag, 'key'=>$inputGlyphs[0], 'type' => 1);
+						}
+					}
+					// LookupType 2: Multiple Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 2) {
+						for ($s=0;$s<count($Lookup[$i]['Subtable'][$c]['subs']);$s++) {
+							$inputGlyphs = $Lookup[$i]['Subtable'][$c]['subs'][$s]['Replace'];
+							$substitute = implode(" ", $Lookup[$i]['Subtable'][$c]['subs'][$s]['substitute']);
+							// Ignore has already been applied earlier on
+							$repl = $this->_makeGSUBinputMatch($inputGlyphs,"()");
+							$subs = $this->_makeGSUBinputReplacement(1, $substitute, "()", 0, 1, 0);
+							$volt[] = array('match'=>$repl, 'replace'=>$subs, 'tag'=>$tag, 'key'=>$inputGlyphs[0], 'type' => 2);
+						}
+					}
+					// LookupType 3: Alternate Forms
+					else if ($Lookup[$i]['Type'] == 3) {
+						for ($s=0;$s<count($Lookup[$i]['Subtable'][$c]['subs']);$s++) {
+							$inputGlyphs = $Lookup[$i]['Subtable'][$c]['subs'][$s]['Replace'];
+							$substitute = $Lookup[$i]['Subtable'][$c]['subs'][$s]['substitute'][0];
+							// Ignore has already been applied earlier on
+							$repl = $this->_makeGSUBinputMatch($inputGlyphs, "()");
+							$subs = $this->_makeGSUBinputReplacement(1, $substitute, "()", 0, 1, 0);
+							$volt[] = array('match'=>$repl, 'replace'=>$subs, 'tag'=>$tag, 'key'=>$inputGlyphs[0], 'type' => 3);
+						}
+					}
+					// LookupType 4: Ligature Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 4) {
+						for ($s=0;$s<count($Lookup[$i]['Subtable'][$c]['subs']);$s++) {
+							$inputGlyphs = $Lookup[$i]['Subtable'][$c]['subs'][$s]['Replace'];
+							$substitute = $Lookup[$i]['Subtable'][$c]['subs'][$s]['substitute'][0];
+							// Ignore has already been applied earlier on
+							$ignore = $this->_getGSUBignoreString($Lookup[$i]['Flag'], $Lookup[$i]['MarkFilteringSet']);
+							$repl = $this->_makeGSUBinputMatch($inputGlyphs, $ignore);
+							$subs = $this->_makeGSUBinputReplacement(count($inputGlyphs), $substitute, $ignore, 0, count($inputGlyphs), 0);
+							$volt[] = array('match'=>$repl, 'replace'=>$subs, 'tag'=>$tag, 'key'=>$inputGlyphs[0], 'type' => 4, 'CompCount' => $Lookup[$i]['Subtable'][$c]['subs'][$s]['CompCount'], 'Lig' => $substitute);
+						}
+					}
+
+					// LookupType 5: Chaining Contextual Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 5) {
+						// Format 1: Context Substitution
+						if ($SubstFormat==1) {
+							$ignore = $this->_getGSUBignoreString($Lookup[$i]['Flag'], $Lookup[$i]['MarkFilteringSet']);
+							for($s=0;$s<$Lookup[$i]['Subtable'][$c]['SubRuleSetCount'];$s++) {
+								// SubRuleSet
+$subRule = array();
+								foreach($Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['SubRule'] AS $rule) {
+									// SubRule
+									$inputGlyphs = array();
+									if ($rule['GlyphCount']>1) {
+										$inputGlyphs = $rule['InputGlyphs'];
+									}
+									$inputGlyphs[0] = $Lookup[$i]['Subtable'][$c]['SubRuleSet'][$s]['FirstGlyph'];
+									ksort($inputGlyphs);
+									$nInput = count($inputGlyphs);
+
+									$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, array(), 0);
+									$subRule = array('context' => 1, 'tag' => $tag, 'matchback' => '', 'match' => $contextInputMatch, 'nBacktrack' => 0, 'nInput' => $nInput, 'nLookahead' => 0, 'rules' => array(), );
+
+									for ($b=0;$b<$rule['SubstCount'];$b++) {
+										$lup = $rule['SubstLookupRecord'][$b]['LookupListIndex'];
+										$seqIndex = $rule['SubstLookupRecord'][$b]['SequenceIndex'];
+
+										// $Lookup[$lup] = secondary Lookup
+										for($lus=0;$lus<$Lookup[$lup]['SubtableCount'];$lus++) {
+										   if (count($Lookup[$lup]['Subtable'][$lus]['subs'])) {
+											foreach($Lookup[$lup]['Subtable'][$lus]['subs'] AS $luss) {
+
+												$lookupGlyphs = $luss['Replace'];
+												$mLen = count($lookupGlyphs);
+
+												// Only apply if the (first) 'Replace' glyph from the
+												// Lookup list is in the [inputGlyphs] at ['SequenceIndex']
+												// then apply the substitution
+												if (strpos($inputGlyphs[$seqIndex],$lookupGlyphs[0])===false) { continue; }
+												$REPL = implode(" ",$luss['substitute']);
+												if (strpos("isol fina fin2 fin3 medi med2 init ",$tag)!==false && $scripttag=='arab') {
+													$volt[] = array('match'=>$lookupGlyphs[0], 'replace'=>$REPL, 'tag'=>$tag, 'prel'=>$backtrackGlyphs, 'postl'=>$lookaheadGlyphs, 'ignore'=>$ignore);
+												}
+												else {
+													$subRule['rules'][] = array('type' => $Lookup[$lup]['Type'], 'match' => $lookupGlyphs, 'replace' => $luss['substitute'], 'seqIndex' => $seqIndex, 'key' => $lookupGlyphs[0], );
+												}
+											}
+										   }
+										}
+									}
+
+
+									if (count($subRule['rules'])) $volt[] = $subRule;
+
+								}
+							}
+						}
+						// Format 2: Class-based Context Glyph Substitution
+						else if ($SubstFormat==2) {
+							$ignore = $this->_getGSUBignoreString($Lookup[$i]['Flag'], $Lookup[$i]['MarkFilteringSet']);
+							foreach($Lookup[$i]['Subtable'][$c]['SubClassSet'] AS $inputClass=>$cscs) {
+								for($cscrule=0;$cscrule<$cscs['SubClassRuleCnt'];$cscrule++) {
+									$rule = $cscs['SubClassRule'][$cscrule];
+
+									$inputGlyphs = array();
+
+									$inputGlyphs[0] = $Lookup[$i]['Subtable'][$c]['InputClasses'][$inputClass];
+									if ($rule['InputGlyphCount']>1) {
+										//  NB starts at 1
+										for ($gcl=1;$gcl<$rule['InputGlyphCount'];$gcl++) {
+											$classindex = $rule['Input'][$gcl];
+											if (isset($Lookup[$i]['Subtable'][$c]['InputClasses'][$classindex])) {
+												$inputGlyphs[$gcl] = $Lookup[$i]['Subtable'][$c]['InputClasses'][$classindex];
+											}
+											// if class[0] = all glyphs excluding those specified in all other classes
+											// set to blank '' for now
+											else { $inputGlyphs[$gcl] = ''; }
+										}
+									}
+
+									$nInput = $rule['InputGlyphCount'];
+
+									$nIsubs = (2*$nInput)-1;
+
+									$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, array(), 0);
+									$subRule = array('context' => 1, 'tag' => $tag, 'matchback' => '', 'match' => $contextInputMatch, 'nBacktrack' => 0, 'nInput' => $nInput, 'nLookahead' => 0, 'rules' => array(), );
+
+									for ($b=0;$b<$rule['SubstCount'];$b++) {
+										$lup = $rule['LookupListIndex'][$b];
+										$seqIndex = $rule['SequenceIndex'][$b];
+
+										// $Lookup[$lup] = secondary Lookup
+										for($lus=0;$lus<$Lookup[$lup]['SubtableCount'];$lus++) {
+										   if (isset($Lookup[$lup]['Subtable'][$lus]['subs']) && count($Lookup[$lup]['Subtable'][$lus]['subs'])) {
+											foreach($Lookup[$lup]['Subtable'][$lus]['subs'] AS $luss) {
+
+												$lookupGlyphs = $luss['Replace'];
+												$mLen = count($lookupGlyphs);
+
+												// Only apply if the (first) 'Replace' glyph from the
+												// Lookup list is in the [inputGlyphs] at ['SequenceIndex']
+												// then apply the substitution
+												if (strpos($inputGlyphs[$seqIndex],$lookupGlyphs[0])===false) { continue; }
+
+												// Returns e.g. �(0612)�(ignore) (0613)�(ignore) (0614)�
+												$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, $lookupGlyphs, $seqIndex);
+												$REPL = implode(" ",$luss['substitute']);
+												// Returns e.g. "REPL\${6}\${8}" or "\${1}\${2} \${3} REPL\${4}\${6}\${8} \${9}"
+
+												if (strpos("isol fina fin2 fin3 medi med2 init ",$tag)!==false && $scripttag=='arab') {
+													$volt[] = array('match'=>$lookupGlyphs[0], 'replace'=>$REPL, 'tag'=>$tag, 'prel'=>$backtrackGlyphs, 'postl'=>$lookaheadGlyphs, 'ignore'=>$ignore);
+												}
+												else {
+													$subRule['rules'][] = array('type' => $Lookup[$lup]['Type'], 'match' => $lookupGlyphs, 'replace' => $luss['substitute'], 'seqIndex' => $seqIndex, 'key' => $lookupGlyphs[0], );
+												}
+											}
+										   }
+										}
+									}
+									if (count($subRule['rules'])) $volt[] = $subRule;
+
+								}
+							}
+
+
+
+						}
+						// Format 3: Coverage-based Context Glyph Substitution  p259
+						else if ($SubstFormat==3) {
+							// IgnoreMarks flag set on main Lookup table
+							$ignore = $this->_getGSUBignoreString($Lookup[$i]['Flag'], $Lookup[$i]['MarkFilteringSet']);
+							$inputGlyphs = $Lookup[$i]['Subtable'][$c]['CoverageInputGlyphs'];
+							$CoverageInputGlyphs = implode('|', $inputGlyphs);
+							$nInput = $Lookup[$i]['Subtable'][$c]['InputGlyphCount'];
+
+							if ($Lookup[$i]['Subtable'][$c]['BacktrackGlyphCount']) {
+								$backtrackGlyphs = $Lookup[$i]['Subtable'][$c]['CoverageBacktrackGlyphs'];
+							}
+							else { $backtrackGlyphs = array(); }
+							// Returns e.g. �(FEEB|FEEC)(ignore) �(FD12|FD13)(ignore) �
+							$backtrackMatch = $this->_makeGSUBbacktrackMatch($backtrackGlyphs, $ignore);
+
+							if ($Lookup[$i]['Subtable'][$c]['LookaheadGlyphCount']) {
+								$lookaheadGlyphs = $Lookup[$i]['Subtable'][$c]['CoverageLookaheadGlyphs'];
+							}
+							else { $lookaheadGlyphs = array(); }
+							// Returns e.g. �(ignore) (FD12|FD13)�(ignore) (FEEB|FEEC)�
+							$lookaheadMatch = $this->_makeGSUBlookaheadMatch($lookaheadGlyphs, $ignore);
+
+							$nBsubs = 2*count($backtrackGlyphs);
+							$nIsubs = (2*$nInput)-1;
+							$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, array(), 0);
+							$subRule = array('context' => 1, 'tag' => $tag, 'matchback' => $backtrackMatch, 'match' => ($contextInputMatch . $lookaheadMatch), 'nBacktrack' => count($backtrackGlyphs), 'nInput' => $nInput, 'nLookahead' => count($lookaheadGlyphs), 'rules' => array(), );
+
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['SubstCount'];$b++) {
+								$lup = $Lookup[$i]['Subtable'][$c]['SubstLookupRecord'][$b]['LookupListIndex'];
+								$seqIndex = $Lookup[$i]['Subtable'][$c]['SubstLookupRecord'][$b]['SequenceIndex'];
+								for($lus=0;$lus<$Lookup[$lup]['SubtableCount'];$lus++) {
+								   if (count($Lookup[$lup]['Subtable'][$lus]['subs'])) {
+									foreach($Lookup[$lup]['Subtable'][$lus]['subs'] AS $luss) {
+										$lookupGlyphs = $luss['Replace'];
+										$mLen = count($lookupGlyphs);
+
+										// Only apply if the (first) 'Replace' glyph from the
+										// Lookup list is in the [inputGlyphs] at ['SequenceIndex']
+										// then apply the substitution
+										if (strpos($inputGlyphs[$seqIndex],$lookupGlyphs[0])===false) { continue; }
+
+										// Returns e.g. �(0612)�(ignore) (0613)�(ignore) (0614)�
+										$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, $lookupGlyphs, $seqIndex);
+										$REPL = implode(" ",$luss['substitute']);
+
+										if (strpos("isol fina fin2 fin3 medi med2 init ",$tag)!==false && $scripttag=='arab') {
+											$volt[] = array('match'=>$lookupGlyphs[0], 'replace'=>$REPL, 'tag'=>$tag, 'prel'=>$backtrackGlyphs, 'postl'=>$lookaheadGlyphs, 'ignore'=>$ignore);
+										}
+										else {
+											$subRule['rules'][] = array('type' => $Lookup[$lup]['Type'], 'match' => $lookupGlyphs, 'replace' => $luss['substitute'], 'seqIndex' => $seqIndex, 'key' => $lookupGlyphs[0], );
+										}
+									}
+								   }
+								}
+							}
+							if (count($subRule['rules'])) $volt[] = $subRule;
+						}
+
+//print_r($Lookup[$i]);
+//print_r($volt[(count($volt)-1)]); exit;
+					}
+					// LookupType 6: ing Contextual Substitution Subtable
+					else if ($Lookup[$i]['Type'] == 6) {
+						// Format 1: Simple Chaining Context Glyph Substitution  p255
+						if ($SubstFormat==1) {
+							$ignore = $this->_getGSUBignoreString($Lookup[$i]['Flag'], $Lookup[$i]['MarkFilteringSet']);
+							for($s=0;$s<$Lookup[$i]['Subtable'][$c]['ChainSubRuleSetCount'];$s++) {
+								// ChainSubRuleSet
+								$subRule = array();
+								$firstInputGlyph = $Lookup[$i]['Subtable'][$c]['CoverageGlyphs'][$s];	// First input gyyph
+								foreach($Lookup[$i]['Subtable'][$c]['ChainSubRuleSet'][$s]['ChainSubRule'] AS $rule) {
+									// ChainSubRule
+									$inputGlyphs = array();
+									if ($rule['InputGlyphCount']>1) {
+										$inputGlyphs = $rule['InputGlyphs'];
+									}
+									$inputGlyphs[0] = $firstInputGlyph;
+									ksort($inputGlyphs);
+									$nInput = count($inputGlyphs);
+
+									if ($rule['BacktrackGlyphCount']) { $backtrackGlyphs = $rule['BacktrackGlyphs']; }
+									else { $backtrackGlyphs = array(); }
+									$backtrackMatch = $this->_makeGSUBbacktrackMatch($backtrackGlyphs, $ignore);
+
+									if ($rule['LookaheadGlyphCount']) { $lookaheadGlyphs = $rule['LookaheadGlyphs']; }
+									else { $lookaheadGlyphs = array(); }
+
+									$lookaheadMatch = $this->_makeGSUBlookaheadMatch($lookaheadGlyphs, $ignore);
+
+									$nBsubs = 2*count($backtrackGlyphs);
+									$nIsubs = (2*$nInput)-1;
+
+									$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, array(), 0);
+									$subRule = array('context' => 1, 'tag' => $tag, 'matchback' => $backtrackMatch, 'match' => ($contextInputMatch . $lookaheadMatch), 'nBacktrack' => count($backtrackGlyphs), 'nInput' => $nInput, 'nLookahead' => count($lookaheadGlyphs), 'rules' => array(), );
+
+
+									for ($b=0;$b<$rule['SubstCount'];$b++) {
+										$lup = $rule['LookupListIndex'][$b];
+										$seqIndex = $rule['SequenceIndex'][$b];
+
+										// $Lookup[$lup] = secondary Lookup
+										for($lus=0;$lus<$Lookup[$lup]['SubtableCount'];$lus++) {
+										   if (count($Lookup[$lup]['Subtable'][$lus]['subs'])) {
+											foreach($Lookup[$lup]['Subtable'][$lus]['subs'] AS $luss) {
+
+												$lookupGlyphs = $luss['Replace'];
+												$mLen = count($lookupGlyphs);
+
+												// Only apply if the (first) 'Replace' glyph from the
+												// Lookup list is in the [inputGlyphs] at ['SequenceIndex']
+												// then apply the substitution
+												if (strpos($inputGlyphs[$seqIndex],$lookupGlyphs[0])===false) { continue; }
+
+												// Returns e.g. �(0612)�(ignore) (0613)�(ignore) (0614)�
+												$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, $lookupGlyphs, $seqIndex);
+
+												$REPL = implode(" ",$luss['substitute']);
+
+												if (strpos("isol fina fin2 fin3 medi med2 init ",$tag)!==false && $scripttag=='arab') {
+													$volt[] = array('match'=>$lookupGlyphs[0], 'replace'=>$REPL, 'tag'=>$tag, 'prel'=>$backtrackGlyphs, 'postl'=>$lookaheadGlyphs, 'ignore'=>$ignore);
+												}
+												else {
+													$subRule['rules'][] = array('type' => $Lookup[$lup]['Type'], 'match' => $lookupGlyphs, 'replace' => $luss['substitute'], 'seqIndex' => $seqIndex, 'key' => $lookupGlyphs[0], );
+												}
+											}
+										   }
+										}
+									}
+
+
+									if (count($subRule['rules'])) $volt[] = $subRule;
+
+
+
+								}
+							}
+
+						}
+						// Format 2: Class-based Chaining Context Glyph Substitution  p257
+						else if ($SubstFormat==2) {
+							$ignore = $this->_getGSUBignoreString($Lookup[$i]['Flag'], $Lookup[$i]['MarkFilteringSet']);
+							foreach($Lookup[$i]['Subtable'][$c]['ChainSubClassSet'] AS $inputClass=>$cscs) {
+								for($cscrule=0;$cscrule<$cscs['ChainSubClassRuleCnt'];$cscrule++) {
+									$rule = $cscs['ChainSubClassRule'][$cscrule];
+
+									// These contain classes of glyphs as strings
+									// $Lookup[$i]['Subtable'][$c]['InputClasses'][(class)] e.g. 02E6|02E7|02E8
+									// $Lookup[$i]['Subtable'][$c]['LookaheadClasses'][(class)]
+									// $Lookup[$i]['Subtable'][$c]['BacktrackClasses'][(class)]
+
+									// These contain arrays of classIndexes
+									// [Backtrack] [Lookahead] and [Input] (Input is from the second position only)
+
+									$inputGlyphs = array();
+
+									if (isset($Lookup[$i]['Subtable'][$c]['InputClasses'][$inputClass])) {
+										$inputGlyphs[0] = $Lookup[$i]['Subtable'][$c]['InputClasses'][$inputClass];
+									}
+									else { $inputGlyphs[0] = ''; }
+									if ($rule['InputGlyphCount']>1) {
+										//  NB starts at 1
+										for ($gcl=1;$gcl<$rule['InputGlyphCount'];$gcl++) {
+											$classindex = $rule['Input'][$gcl];
+											if (isset($Lookup[$i]['Subtable'][$c]['InputClasses'][$classindex])) {
+												$inputGlyphs[$gcl] = $Lookup[$i]['Subtable'][$c]['InputClasses'][$classindex];
+											}
+											// if class[0] = all glyphs excluding those specified in all other classes
+											// set to blank '' for now
+											else { $inputGlyphs[$gcl] = ''; }
+										}
+									}
+
+									$nInput = $rule['InputGlyphCount'];
+
+									if ($rule['BacktrackGlyphCount']) {
+										for ($gcl=0;$gcl<$rule['BacktrackGlyphCount'];$gcl++) {
+											$classindex = $rule['Backtrack'][$gcl];
+											if (isset($Lookup[$i]['Subtable'][$c]['BacktrackClasses'][$classindex])) {
+												$backtrackGlyphs[$gcl] = $Lookup[$i]['Subtable'][$c]['BacktrackClasses'][$classindex];
+											}
+											// if class[0] = all glyphs excluding those specified in all other classes
+											// set to blank '' for now
+											else { $backtrackGlyphs[$gcl] = ''; }
+										}
+									}
+									else { $backtrackGlyphs = array(); }
+									// Returns e.g. �(FEEB|FEEC)(ignore) �(FD12|FD13)(ignore) �
+									$backtrackMatch = $this->_makeGSUBbacktrackMatch($backtrackGlyphs, $ignore);
+
+									if ($rule['LookaheadGlyphCount']) {
+										for ($gcl=0;$gcl<$rule['LookaheadGlyphCount'];$gcl++) {
+											$classindex = $rule['Lookahead'][$gcl];
+											if (isset($Lookup[$i]['Subtable'][$c]['LookaheadClasses'][$classindex])) {
+												$lookaheadGlyphs[$gcl] = $Lookup[$i]['Subtable'][$c]['LookaheadClasses'][$classindex];
+											}
+											// if class[0] = all glyphs excluding those specified in all other classes
+											// set to blank '' for now
+											else { $lookaheadGlyphs[$gcl] = ''; }
+										}
+									}
+									else { $lookaheadGlyphs = array(); }
+									// Returns e.g. �(ignore) (FD12|FD13)�(ignore) (FEEB|FEEC)�
+									$lookaheadMatch = $this->_makeGSUBlookaheadMatch($lookaheadGlyphs, $ignore);
+
+									$nBsubs = 2*count($backtrackGlyphs);
+									$nIsubs = (2*$nInput)-1;
+
+									$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, array(), 0);
+									$subRule = array('context' => 1, 'tag' => $tag, 'matchback' => $backtrackMatch, 'match' => ($contextInputMatch . $lookaheadMatch), 'nBacktrack' => count($backtrackGlyphs), 'nInput' => $nInput, 'nLookahead' => count($lookaheadGlyphs), 'rules' => array(), );
+
+									for ($b=0;$b<$rule['SubstCount'];$b++) {
+										$lup = $rule['LookupListIndex'][$b];
+										$seqIndex = $rule['SequenceIndex'][$b];
+
+										// $Lookup[$lup] = secondary Lookup
+										for($lus=0;$lus<$Lookup[$lup]['SubtableCount'];$lus++) {
+										   if (count($Lookup[$lup]['Subtable'][$lus]['subs'])) {
+											foreach($Lookup[$lup]['Subtable'][$lus]['subs'] AS $luss) {
+
+												$lookupGlyphs = $luss['Replace'];
+												$mLen = count($lookupGlyphs);
+
+												// Only apply if the (first) 'Replace' glyph from the
+												// Lookup list is in the [inputGlyphs] at ['SequenceIndex']
+												// then apply the substitution
+												if (strpos($inputGlyphs[$seqIndex],$lookupGlyphs[0])===false) { continue; }
+
+												// Returns e.g. �(0612)�(ignore) (0613)�(ignore) (0614)�
+												$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, $lookupGlyphs, $seqIndex);
+												$REPL = implode(" ",$luss['substitute']);
+												// Returns e.g. "REPL\${6}\${8}" or "\${1}\${2} \${3} REPL\${4}\${6}\${8} \${9}"
+
+												if (strpos("isol fina fin2 fin3 medi med2 init ",$tag)!==false && $scripttag=='arab') {
+													$volt[] = array('match'=>$lookupGlyphs[0], 'replace'=>$REPL, 'tag'=>$tag, 'prel'=>$backtrackGlyphs, 'postl'=>$lookaheadGlyphs, 'ignore'=>$ignore);
+												}
+												else {
+													$subRule['rules'][] = array('type' => $Lookup[$lup]['Type'], 'match' => $lookupGlyphs, 'replace' => $luss['substitute'], 'seqIndex' => $seqIndex, 'key' => $lookupGlyphs[0], );
+												}
+											}
+										   }
+										}
+									}
+									if (count($subRule['rules'])) $volt[] = $subRule;
+
+								}
+							}
+
+
+//print_r($Lookup[$i]['Subtable'][$c]); exit;
+
+						}
+						// Format 3: Coverage-based Chaining Context Glyph Substitution  p259
+						else if ($SubstFormat==3) {
+							// IgnoreMarks flag set on main Lookup table
+							$ignore = $this->_getGSUBignoreString($Lookup[$i]['Flag'], $Lookup[$i]['MarkFilteringSet']);
+							$inputGlyphs = $Lookup[$i]['Subtable'][$c]['CoverageInputGlyphs'];
+							$CoverageInputGlyphs = implode('|', $inputGlyphs);
+							$nInput = $Lookup[$i]['Subtable'][$c]['InputGlyphCount'];
+
+							if ($Lookup[$i]['Subtable'][$c]['BacktrackGlyphCount']) {
+								$backtrackGlyphs = $Lookup[$i]['Subtable'][$c]['CoverageBacktrackGlyphs'];
+							}
+							else { $backtrackGlyphs = array(); }
+							// Returns e.g. �(FEEB|FEEC)(ignore) �(FD12|FD13)(ignore) �
+							$backtrackMatch = $this->_makeGSUBbacktrackMatch($backtrackGlyphs, $ignore);
+
+							if ($Lookup[$i]['Subtable'][$c]['LookaheadGlyphCount']) {
+								$lookaheadGlyphs = $Lookup[$i]['Subtable'][$c]['CoverageLookaheadGlyphs'];
+							}
+							else { $lookaheadGlyphs = array(); }
+							// Returns e.g. �(ignore) (FD12|FD13)�(ignore) (FEEB|FEEC)�
+							$lookaheadMatch = $this->_makeGSUBlookaheadMatch($lookaheadGlyphs, $ignore);
+
+							$nBsubs = 2*count($backtrackGlyphs);
+							$nIsubs = (2*$nInput)-1;
+							$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, array(), 0);
+							$subRule = array('context' => 1, 'tag' => $tag, 'matchback' => $backtrackMatch, 'match' => ($contextInputMatch . $lookaheadMatch), 'nBacktrack' => count($backtrackGlyphs), 'nInput' => $nInput, 'nLookahead' => count($lookaheadGlyphs), 'rules' => array(), );
+
+							for ($b=0;$b<$Lookup[$i]['Subtable'][$c]['SubstCount'];$b++) {
+								$lup = $Lookup[$i]['Subtable'][$c]['SubstLookupRecord'][$b]['LookupListIndex'];
+								$seqIndex = $Lookup[$i]['Subtable'][$c]['SubstLookupRecord'][$b]['SequenceIndex'];
+								for($lus=0;$lus<$Lookup[$lup]['SubtableCount'];$lus++) {
+								   if (count($Lookup[$lup]['Subtable'][$lus]['subs'])) {
+									foreach($Lookup[$lup]['Subtable'][$lus]['subs'] AS $luss) {
+										$lookupGlyphs = $luss['Replace'];
+										$mLen = count($lookupGlyphs);
+
+										// Only apply if the (first) 'Replace' glyph from the
+										// Lookup list is in the [inputGlyphs] at ['SequenceIndex']
+										// then apply the substitution
+										if (strpos($inputGlyphs[$seqIndex],$lookupGlyphs[0])===false) { continue; }
+
+										// Returns e.g. �(0612)�(ignore) (0613)�(ignore) (0614)�
+										$contextInputMatch = $this->_makeGSUBcontextInputMatch($inputGlyphs, $ignore, $lookupGlyphs, $seqIndex);
+										$REPL = implode(" ",$luss['substitute']);
+
+										if (strpos("isol fina fin2 fin3 medi med2 init ",$tag)!==false && $scripttag=='arab') {
+											$volt[] = array('match'=>$lookupGlyphs[0], 'replace'=>$REPL, 'tag'=>$tag, 'prel'=>$backtrackGlyphs, 'postl'=>$lookaheadGlyphs, 'ignore'=>$ignore);
+										}
+										else {
+											$subRule['rules'][] = array('type' => $Lookup[$lup]['Type'], 'match' => $lookupGlyphs, 'replace' => $luss['substitute'], 'seqIndex' => $seqIndex, 'key' => $lookupGlyphs[0], );
+										}
+									}
+								   }
+								}
+							}
+							if (count($subRule['rules'])) $volt[] = $subRule;
+						}
+					}
+				}
+			}
+//print_r($Lookup); exit;
+			return $volt;
+	}
+	//=====================================================================================
+	//=====================================================================================
+	// mPDF 5.7.1
+	function _checkGSUBignore($flag, $glyph, $MarkFilteringSet) {
+		$ignore = false;
+		// Flag & 0x0008 = Ignore Marks - (unless already done with MarkAttachmentType)
+		if ((($flag & 0x0008) == 0x0008 && ($flag & 0xFF00) == 0) && strpos($this->GlyphClassMarks,$glyph)) { $ignore = true; }
+		if ((($flag & 0x0004) == 0x0004) && strpos($this->GlyphClassLigatures,$glyph)) { $ignore = true; }
+		if ((($flag & 0x0002) == 0x0002) && strpos($this->GlyphClassBases,$glyph)) { $ignore = true; }
+		// Flag & 0xFF?? = MarkAttachmentType
+		if ($flag & 0xFF00) {
+			// "a lookup must ignore any mark glyphs that are not in the specified mark attachment class"
+			// $this->MarkAttachmentType is already adjusted for this i.e. contains all Marks except those in the MarkAttachmentClassDef table
+			if (strpos($this->MarkAttachmentType[($flag >> 8)],$glyph)) { $ignore = true; }
+		}
+		// Flag & 0x0010 = UseMarkFilteringSet
+		if (($flag & 0x0010) && strpos($this->MarkGlyphSets[$MarkFilteringSet],$glyph)) { $ignore = true; }
+		return $ignore;
+	}
+
+	function _getGSUBignoreString($flag, $MarkFilteringSet) {
+		// If ignoreFlag set, combine all ignore glyphs into -> "((?:(?: FBA1| FBA2| FBA3))*)"
+		// else "()"
+		// for Input - set on secondary Lookup table if in Context, and set Backtrack and Lookahead on Context Lookup
+		$str = "";
+		$ignoreflag = 0;
+
+		// Flag & 0xFF?? = MarkAttachmentType
+		if ($flag & 0xFF00) {
+			// "a lookup must ignore any mark glyphs that are not in the specified mark attachment class"
+			// $this->MarkAttachmentType is already adjusted for this i.e. contains all Marks except those in the MarkAttachmentClassDef table
+			$MarkAttachmentType = $flag >> 8;
+			$ignoreflag = $flag;
+			$str = $this->MarkAttachmentType[$MarkAttachmentType];
+		}
+
+		// Flag & 0x0010 = UseMarkFilteringSet
+		if ($flag & 0x0010) {
+			die("This font ".$this->fontkey." contains MarkGlyphSets - Not tested yet");
+			$str = $this->MarkGlyphSets[$MarkFilteringSet];
+		}
+
+		// If Ignore Marks set, supercedes any above
+		// Flag & 0x0008 = Ignore Marks - (unless already done with MarkAttachmentType)
+		if (($flag & 0x0008) == 0x0008 && ($flag & 0xFF00) == 0) {
+			$ignoreflag = 8;
+			$str = $this->GlyphClassMarks;
+		}
+
+		// Flag & 0x0004 = Ignore Ligatures
+		if (($flag & 0x0004) == 0x0004) {
+			$ignoreflag += 4;
+			if ($str) { $str .= "|"; }
+			$str .= $this->GlyphClassLigatures;
+		}
+		// Flag & 0x0002 = Ignore BaseGlyphs
+		if (($flag & 0x0002) == 0x0002) {
+			$ignoreflag += 2;
+			if ($str) { $str .= "|"; }
+			$str .= $this->GlyphClassBases;
+		}
+		if ($str) {
+			// This originally returned e.g. ((?:(?:[IGNORE8]))*) when NOT specific to a Lookup e.g. rtlSub in
+			// arabictypesetting.GSUB.arab.DFLT.php
+			// This would save repeatedly saving long text strings if used multiple times
+			// When writing e.g. arabictypesetting.GSUB.arab.DFLT.php to file, included as $ignore[8]
+			// Would need to also write the $ignore array to that file
+	//		// If UseMarkFilteringSet (specific to the Lookup) return the string
+	//		if (($flag & 0x0010) && ($flag & 0x0008) != 0x0008) {
+	//			return "((?:(?:" . $str . "))*)";
+	//		}
+	//		else { return "((?:(?:" . "[IGNORE".$ignoreflag."]" . "))*)"; }
+	//		// e.g. ((?:(?: 0031| 0032| 0033| 0034| 0045))*)
+
+			// But never finished coding it to add the $ignore array to the file, and it doesn't seem to occur often enough to be worth
+			// writing. So just output it as a string:
+			return "((?:(?:" . $str . "))*)";
+
+		}
+		else return "()";
+	}
+
+	// GSUB Patterns
+
+/*
+       BACKTRACK                        INPUT                   LOOKAHEAD
+==================================  ==================  ==================================
+(FEEB|FEEC)(ign) �(FD12|FD13)(ign) �(0612)�(ign) (0613)�(ign) (FD12|FD13)�(ign) (FEEB|FEEC)
+----------------  ----------------  -----  ------------  ---------------   ---------------
+  Backtrack 1       Backtrack 2     Input 1   Input 2       Lookahead 1      Lookahead 2
+--------   ---    ---------  ---    ----   ---   ----   ---   ---------   ---    -------
+    \${1}  \${2}     \${3}   \${4}                      \${5+}  \${6+}    \${7+}  \${8+}
+
+          nBacktrack = 2               nInput = 2                 nLookahead = 2
+
+        nBsubs = 2xnBack          nIsubs = (nBsubs+)    nLsubs = (nBsubs+nIsubs+) 2xnLookahead
+        "\${1}\${2} "                 (nInput*2)-1               "\${5+} \${6+}"
+                                        "REPL"
+
+�\${1}\${2} �\${3}\${4} �REPL�\${5+} \${6+}�\${7+} \${8+}�
+
+
+                      INPUT nInput = 5
+============================================================
+�(0612)�(ign) (0613)�(ign) (0614)�(ign) (0615)�(ign) (0615)�
+\${1}  \${2}  \${3}  \${4} \${5} \${6}  \${7} \${8}  \${9} (All backreference numbers are + nBsubs)
+-----  ------------ ------------ ------------ ------------
+Input 1   Input 2      Input 3      Input 4      Input 5
+
+A======  SequenceIndex=1 ; Lookup match nGlyphs=1
+B===================  SequenceIndex=1 ; Lookup match nGlyphs=2
+C===============================  SequenceIndex=1 ; Lookup match nGlyphs=3
+        D=======================  SequenceIndex=2 ; Lookup match nGlyphs=2
+        E=====================================  SequenceIndex=2 ; Lookup match nGlyphs=3
+                                   F======================  SequenceIndex=4 ; Lookup match nGlyphs=2
+
+All backreference numbers are + nBsubs
+A - "REPL\${2} \${3}\${4} \${5}\${6} \${7}\${8} \${9}"
+B - "REPL\${2}\${4} \${5}\${6} \${7}\${8} \${9}"
+C - "REPL\${2}\${4}\${6} \${7}\${8} \${9}"
+D - "\${1} REPL\${2}\${4}\${6} \${7}\${8} \${9}"
+E - "\${1} REPL\${2}\${4}\${6}\${8} \${9}"
+F - "\${1}\${2} \${3}\${4} \${5} REPL\${6}\${8}"
+*/
+
+	function _makeGSUBcontextInputMatch($inputGlyphs, $ignore, $lookupGlyphs, $seqIndex) {
+		// $ignore = "((?:(?: FBA1| FBA2| FBA3))*)" or "()"
+		// Returns e.g. �(0612)�(ignore) (0613)�(ignore) (0614)�
+		// $inputGlyphs = array of glyphs(glyphstrings) making up Input sequence in Context
+		// $lookupGlyphs = array of glyphs (single Glyphs) making up Lookup Input sequence
+		$mLen = count($lookupGlyphs);		// nGlyphs in the secondary Lookup match
+		$nInput = count($inputGlyphs);	// nGlyphs in the Primary Input sequence
+		$str = "";
+		for($i=0;$i<$nInput;$i++) {
+			if ($i>0) { $str .= $ignore." "; }
+			if ($i>=$seqIndex && $i<($seqIndex+$mLen)) { $str .= "(".$lookupGlyphs[($i-$seqIndex)].")"; }
+			else { $str .= "(".$inputGlyphs[($i)].")"; }
+		}
+		return $str;
+	}
+
+	function _makeGSUBinputMatch($inputGlyphs, $ignore) {
+		// $ignore = "((?:(?: FBA1| FBA2| FBA3))*)" or "()"
+		// Returns e.g. �(0612)�(ignore) (0613)�(ignore) (0614)�
+		// $inputGlyphs = array of glyphs(glyphstrings) making up Input sequence in Context
+		// $lookupGlyphs = array of glyphs making up Lookup Input sequence - if applicable
+		$str = "";
+		for($i=1;$i<=count($inputGlyphs);$i++) {
+			if ($i>1) { $str .= $ignore." "; }
+			$str .= "(".$inputGlyphs[($i-1)].")";
+		}
+		return $str;
+	}
+
+	function _makeGSUBbacktrackMatch($backtrackGlyphs, $ignore) {
+		// $ignore = "((?:(?: FBA1| FBA2| FBA3))*)" or "()"
+		// Returns e.g. �(FEEB|FEEC)(ignore) �(FD12|FD13)(ignore) �
+		// $backtrackGlyphs = array of glyphstrings making up Backtrack sequence
+		// 3  2  1  0
+		// each item being e.g. E0AD|E0AF|F1FD
+		$str = "";
+		for($i=(count($backtrackGlyphs)-1);$i>=0;$i--) {
+			$str .= "(".$backtrackGlyphs[$i].")".$ignore." ";
+		}
+		return $str;
+	}
+
+	function _makeGSUBlookaheadMatch($lookaheadGlyphs, $ignore) {
+		// $ignore = "((?:(?: FBA1| FBA2| FBA3))*)" or "()"
+		// Returns e.g. �(ignore) (FD12|FD13)�(ignore) (FEEB|FEEC)�
+		// $lookaheadGlyphs = array of glyphstrings making up Lookahead sequence
+		// 0  1  2  3
+		// each item being e.g. E0AD|E0AF|F1FD
+		$str = "";
+		for($i=0;$i<count($lookaheadGlyphs);$i++) {
+			$str .= $ignore." (".$lookaheadGlyphs[$i].")";
+		}
+		return $str;
+	}
+
+
+
+	function _makeGSUBinputReplacement($nInput, $REPL, $ignore, $nBsubs, $mLen, $seqIndex) {
+		// Returns e.g. "REPL\${6}\${8}" or "\${1}\${2} \${3} REPL\${4}\${6}\${8} \${9}"
+		// $nInput	nGlyphs in the Primary Input sequence
+		// $REPL 	replacement glyphs from secondary lookup
+		// $ignore = "((?:(?: FBA1| FBA2| FBA3))*)" or "()"
+		// $nBsubs	Number of Backtrack substitutions (= 2x Number of Backtrack glyphs)
+		// $mLen 	nGlyphs in the secondary Lookup match - if no secondary lookup, should=$nInput
+		// $seqIndex	Sequence Index to apply the secondary match
+		if ($ignore=="()") { $ign = false; }
+		else { $ign = true; }
+		$str = "";
+		if ($nInput == 1) { $str = $REPL; }
+		else if ($nInput>1) {
+			if ($mLen==$nInput) {	// whole string replaced
+				$str = $REPL;
+				if ($ign) {
+					// for every nInput over 1, add another replacement backreference, to move IGNORES after replacement
+					for($x=2;$x<=$nInput;$x++) {
+						$str .= '\\'.($nBsubs+(2*($x-1)));
+					}
+				}
+			}
+			else {	// if only part of string replaced:
+				for($x=1;$x<($seqIndex+1);$x++) {
+				      if ($x==1) { $str .= '\\'.($nBsubs + 1); }
+				      else {
+						if ($ign) { $str .= '\\'.($nBsubs+(2*($x-1))); }
+						$str .= ' \\'.($nBsubs+1+(2*($x-1)));
+					}
+				}
+				if ($seqIndex>0) { $str .= " "; }
+				$str .= $REPL;
+				if ($ign) {
+					for($x=(max(($seqIndex+1),2));$x<($seqIndex+1+$mLen);$x++) {	//  move IGNORES after replacement
+					      $str .= '\\'.($nBsubs+(2*($x-1)));
+					}
+				}
+				for($x=($seqIndex+1+$mLen);$x<=$nInput;$x++) {
+				      if ($ign) { $str .= '\\'.($nBsubs+(2*($x-1))); }
+				      $str .= ' \\'.($nBsubs+1+(2*($x-1)));
+				}
+			}
+		}
+		return $str;
+	}
+
+
+
+	//////////////////////////////////////////////////////////////////////////////////
+	function _getCoverage($convert2hex=true, $mode=1) {
+		$g = array();
+		$ctr = 0;
+		$CoverageFormat= $this->read_ushort();
+		if ($CoverageFormat == 1) {
+			$CoverageGlyphCount= $this->read_ushort();
+			for ($gid=0;$gid<$CoverageGlyphCount;$gid++) {
+				$glyphID = $this->read_ushort();
+				$uni = $this->glyphToChar[$glyphID][0];
+				if ($convert2hex) { $g[] = unicode_hex($uni); }
+				else if ($mode==2) { $g[$uni] = $ctr; $ctr++; }
+				else { $g[] = $glyphID; }
+			}
+		}
+		if ($CoverageFormat == 2) {
+			$RangeCount= $this->read_ushort();
+			for ($r=0;$r<$RangeCount;$r++) {
+				$start = $this->read_ushort();
+				$end = $this->read_ushort();
+				$StartCoverageIndex = $this->read_ushort(); // n/a
+				for ($glyphID=$start;$glyphID<=$end;$glyphID++) {
+					$uni = $this->glyphToChar[$glyphID][0];
+					if ($convert2hex) { $g[] = unicode_hex($uni); }
+					else if ($mode==2) { $uni = $g[$uni] = $ctr; $ctr++; }
+					else { $g[] = $glyphID; }
+				}
+			}
+		}
+		return $g;
+	}
+
+	//////////////////////////////////////////////////////////////////////////////////
+	function _getClasses($offset) {
+		$this->seek($offset);
+		$ClassFormat = $this->read_ushort();
+		$GlyphByClass = array();
+		if ($ClassFormat == 1) {
+			$StartGlyph = $this->read_ushort();
+			$GlyphCount = $this->read_ushort();
+			for ($i=0;$i<$GlyphCount;$i++) {
+				$startGlyphID = $StartGlyph + $i;
+				$endGlyphID = $StartGlyph + $i;
+				$class = $this->read_ushort();
+				for($g=$startGlyphID;$g<=$endGlyphID;$g++) {
+					if (isset($this->glyphToChar[$g][0])) {
+						$GlyphByClass[$class][] = unicode_hex($this->glyphToChar[$g][0]);
+					}
+				}
+			}
+		}
+		else if ($ClassFormat == 2) {
+			$tableCount = $this->read_ushort();
+			for ($i=0;$i<$tableCount;$i++) {
+				$startGlyphID = $this->read_ushort();
+				$endGlyphID = $this->read_ushort();
+				$class = $this->read_ushort();
+				for($g=$startGlyphID;$g<=$endGlyphID;$g++) {
+					if ($this->glyphToChar[$g][0]) {
+						$GlyphByClass[$class][] = unicode_hex($this->glyphToChar[$g][0]);
+					}
+				}
+			}
+		}
+		$gbc = array();
+		foreach($GlyphByClass AS $class=>$garr) { $gbc[$class] = implode('|',$garr); }
+		return $gbc;
+	}
+	//////////////////////////////////////////////////////////////////////////////////
+	//////////////////////////////////////////////////////////////////////////////////
+	//////////////////////////////////////////////////////////////////////////////////
+	//////////////////////////////////////////////////////////////////////////////////
+	//////////////////////////////////////////////////////////////////////////////////
+	function _getGPOStables() {
+		///////////////////////////////////
+		// GPOS - Glyph Positioning
+		///////////////////////////////////
+		if (isset($this->tables["GPOS"])) {
+			$ffeats = array();
+			$gpos_offset = $this->seek_table("GPOS");
+			$this->skip(4);
+			$ScriptList_offset = $gpos_offset + $this->read_ushort();
+			$FeatureList_offset = $gpos_offset + $this->read_ushort();
+			$LookupList_offset = $gpos_offset + $this->read_ushort();
+
+			// ScriptList
+			$this->seek($ScriptList_offset );
+			$ScriptCount = $this->read_ushort();
+			for ($i=0;$i<$ScriptCount;$i++) {
+					$ScriptTag = $this->read_tag();	// = "beng", "deva" etc.
+					$ScriptTableOffset = $this->read_ushort();
+					$ffeats[$ScriptTag] = $ScriptList_offset + $ScriptTableOffset;
+			}
+
+			// Script Table
+			foreach($ffeats AS $t=>$o) {
+				$ls = array();
+				$this->seek($o);
+				$DefLangSys_offset = $this->read_ushort();
+				if ($DefLangSys_offset > 0) {
+					$ls['DFLT'] = $DefLangSys_offset + $o;
+				}
+				$LangSysCount = $this->read_ushort();
+				for ($i=0;$i<$LangSysCount;$i++) {
+					$LangTag = $this->read_tag();	// =
+					$LangTableOffset = $this->read_ushort();
+					$ls[$LangTag] = $o + $LangTableOffset;
+				}
+				$ffeats[$t] = $ls;
+			}
+
+
+			// Get FeatureIndexList
+			// LangSys Table - from first listed langsys
+			foreach($ffeats AS $st=>$scripts) {
+				foreach($scripts AS $t=>$o) {
+					$FeatureIndex = array();
+					$langsystable_offset = $o;
+					$this->seek($langsystable_offset);
+					$LookUpOrder = $this->read_ushort();	//==NULL
+					$ReqFeatureIndex = $this->read_ushort();
+					if ($ReqFeatureIndex != 0xFFFF) { $FeatureIndex[] = $ReqFeatureIndex ; }
+					$FeatureCount = $this->read_ushort();
+					for ($i=0;$i<$FeatureCount;$i++) {
+							$FeatureIndex[] = $this->read_ushort();	// = index of feature
+					}
+					$ffeats[$st][$t] = $FeatureIndex;
+				}
+			}
+//print_r($ffeats); exit;
+
+
+			// Feauture List => LookupListIndex es
+			$this->seek($FeatureList_offset );
+			$FeatureCount = $this->read_ushort();
+			$Feature = array();
+			for ($i=0;$i<$FeatureCount;$i++) {
+				$tag = $this->read_tag() ;
+				if ($tag == 'kern') { $this->haskernGPOS = true; }
+				$Feature[$i] = array('tag' => $tag);
+				$Feature[$i]['offset'] = $FeatureList_offset + $this->read_ushort();
+			}
+			for ($i=0;$i<$FeatureCount;$i++) {
+				$this->seek($Feature[$i]['offset']);
+				$this->read_ushort(); // null
+				$Feature[$i]['LookupCount'] = $Lookupcount = $this->read_ushort();
+				$Feature[$i]['LookupListIndex'] = array();
+				for ($c=0;$c<$Lookupcount;$c++) {
+					$Feature[$i]['LookupListIndex'][] = $this->read_ushort();
+				}
+			}
+
+
+			foreach($ffeats AS $st=>$scripts) {
+				foreach($scripts AS $t=>$o) {
+					$FeatureIndex = $ffeats[$st][$t];
+					foreach($FeatureIndex AS $k=>$fi) {
+						$ffeats[$st][$t][$k] = $Feature[$fi];
+					}
+				}
+			}
+//print_r($ffeats); exit;
+			//=====================================================================================
+			$gpos = array();
+			$GPOSScriptLang = array();
+			foreach($ffeats AS $st=>$scripts) {
+				foreach($scripts AS $t=>$langsys) {
+					$lg = array();
+					foreach($langsys AS $ft) {
+						$lg[$ft['LookupListIndex'][0]] = $ft;
+					}
+					// list of Lookups in order they need to be run i.e. order listed in Lookup table
+					ksort($lg);
+					foreach($lg AS $ft) {
+						$gpos[$st][$t][$ft['tag']] = $ft['LookupListIndex'];
+					}
+					if (!isset($GPOSScriptLang[$st])) { $GPOSScriptLang[$st] = ''; }
+					$GPOSScriptLang[$st] .= $t.' ';
+				}
+			}
+
+			//=====================================================================================
+			// Get metadata and offsets for whole Lookup List table
+			$this->seek($LookupList_offset );
+			$LookupCount = $this->read_ushort();
+			$Lookup = array();
+			$Offsets = array();
+			$SubtableCount = array();
+			for ($i=0;$i<$LookupCount;$i++) {
+				$Offsets[$i] = $LookupList_offset + $this->read_ushort();
+			}
+			for ($i=0;$i<$LookupCount;$i++) {
+				$this->seek($Offsets[$i]);
+				$Lookup[$i]['Type'] = $this->read_ushort();
+				$Lookup[$i]['Flag'] = $flag = $this->read_ushort();
+				$Lookup[$i]['SubtableCount'] = $SubtableCount[$i] = $this->read_ushort();
+				for ($c=0;$c<$SubtableCount[$i] ;$c++) {
+					$Lookup[$i]['Subtables'][$c] = $Offsets[$i] + $this->read_ushort();
+
+				}
+				// MarkFilteringSet = Index (base 0) into GDEF mark glyph sets structure
+				if (($flag & 0x0010) == 0x0010) {
+					$Lookup[$i]['MarkFilteringSet'] = $this->read_ushort();
+				}
+				else { $Lookup[$i]['MarkFilteringSet'] = ''; }
+
+				// Lookup Type 9: Extension
+				if ($Lookup[$i]['Type'] == 9) {
+					// Overwrites new offset (32-bit) for each subtable, and a new lookup Type
+					for ($c=0;$c<$SubtableCount[$i] ;$c++) {
+						$this->seek($Lookup[$i]['Subtables'][$c]);
+						$ExtensionPosFormat = $this->read_ushort();
+						$type = $this->read_ushort();
+						$Lookup[$i]['Subtables'][$c] = $Lookup[$i]['Subtables'][$c] + $this->read_ulong();
+					}
+					$Lookup[$i]['Type'] = $type;
+				}
+
+			}
+
+
+			//=====================================================================================
+			// Process Whole LookupList - Get LuCoverage = Lookup coverage just for first glyph
+			$this->LuCoverage = array();
+			for ($i=0;$i<$LookupCount;$i++) {
+				for ($c=0;$c<$Lookup[$i]['SubtableCount'] ;$c++) {
+
+					$this->seek($Lookup[$i]['Subtables'][$c]);
+					$PosFormat= $this->read_ushort();
+
+					if ($Lookup[$i]['Type']==7 && $PosFormat==3) { $this->skip(4); }
+					else if ($Lookup[$i]['Type']==8 && $PosFormat==3) {
+						$BacktrackGlyphCount= $this->read_ushort();
+						$this->skip(2*$BacktrackGlyphCount + 2);
+					}
+					// NB Coverage only looks at glyphs for position 1 (i.e. 7.3 and 8.3)	// NEEDS TO READ ALL ********************
+					// NB For e.g. Type 4, this may be the Coverage for the Mark
+					$Coverage = $Lookup[$i]['Subtables'][$c] + $this->read_ushort();
+					$this->seek($Coverage);
+					$glyphs = $this->_getCoverage(false,2);
+					$this->LuCoverage[$i][$c] = $glyphs;
+				}
+			}
+
+
+
+			//=====================================================================================
+
+
+
+//print_r($GPOSScriptLang); exit;
+//print_r($gpos); exit;
+//print_r($Lookup); exit;
+
+
+
+
+			$s = '<?php
+$LuCoverage = '.var_export($this->LuCoverage , true).';
+?>';
+
+
+			file_put_contents(_MPDF_TTFONTDATAPATH.$this->fontkey.'.GPOSdata.php', $s);
+
+
+
+			return array($GPOSScriptLang, $gpos, $Lookup);
+
+		}	// end if GPOS
+	}
+
+	//////////////////////////////////////////////////////////////////////////////////
+
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+			//=====================================================================================
+
+	function makeSubset($file, &$subset, $TTCfontID=0, $debug=false, $useOTL=false) {	// mPDF 5.7.1
+		$this->useOTL = $useOTL;	// mPDF 5.7.1
+		$this->filename = $file;
+		$this->fh = fopen($file ,'rb') or die('Can\'t open file ' . $file);
+		$this->_pos = 0;
+		$this->charWidths = '';
+		$this->glyphPos = array();
+		$this->charToGlyph = array();
+		$this->tables = array();
+		$this->otables = array();
+		$this->ascent = 0;
+		$this->descent = 0;
+		$this->strikeoutSize = 0;
+		$this->strikeoutPosition = 0;
+		$this->numTTCFonts = 0;
+		$this->TTCFonts = array();
+		$this->skip(4);
+		$this->maxUni = 0;
+		if ($TTCfontID > 0) {
+			$this->version = $version = $this->read_ulong();	// TTC Header version now
+			if (!in_array($version, array(0x00010000,0x00020000)))
+				die("ERROR - Error parsing TrueType Collection: version=".$version." - " . $file);
+			$this->numTTCFonts = $this->read_ulong();
+			for ($i=1; $i<=$this->numTTCFonts; $i++) {
+	      	      $this->TTCFonts[$i]['offset'] = $this->read_ulong();
+			}
+			$this->seek($this->TTCFonts[$TTCfontID]['offset']);
+			$this->version = $version = $this->read_ulong();	// TTFont version again now
+		}
+		$this->readTableDirectory($debug);
+
+		///////////////////////////////////
+		// head - Font header table
+		///////////////////////////////////
+		$this->seek_table("head");
+		$this->skip(50);
+		$indexToLocFormat = $this->read_ushort();
+		$glyphDataFormat = $this->read_ushort();
+
+		///////////////////////////////////
+		// hhea - Horizontal header table
+		///////////////////////////////////
+		$this->seek_table("hhea");
+		$this->skip(32);
+		$metricDataFormat = $this->read_ushort();
+		$orignHmetrics = $numberOfHMetrics = $this->read_ushort();
+
+		///////////////////////////////////
+		// maxp - Maximum profile table
+		///////////////////////////////////
+		$this->seek_table("maxp");
+		$this->skip(4);
+		$numGlyphs = $this->read_ushort();
+
+
+		///////////////////////////////////
+		// cmap - Character to glyph index mapping table
+		///////////////////////////////////
+		$cmap_offset = $this->seek_table("cmap");
+		$this->skip(2);
+		$cmapTableCount = $this->read_ushort();
+		$unicode_cmap_offset = 0;
+		for ($i=0;$i<$cmapTableCount;$i++) {
+			$platformID = $this->read_ushort();
+			$encodingID = $this->read_ushort();
+			$offset = $this->read_ulong();
+			$save_pos = $this->_pos;
+			if (($platformID == 3 && $encodingID == 1) || $platformID == 0) { // Microsoft, Unicode
+				$format = $this->get_ushort($cmap_offset + $offset);
+				if ($format == 4) {
+					$unicode_cmap_offset = $cmap_offset + $offset;
+					break;
+				}
+			}
+			$this->seek($save_pos );
+		}
+
+		if (!$unicode_cmap_offset)
+			die('Font ('.$this->filename .') does not have Unicode cmap (platform 3, encoding 1, format 4, or platform 0 [any encoding] format 4)');
+
+
+		$glyphToChar = array();
+		$charToGlyph = array();
+		$this->getCMAP4($unicode_cmap_offset, $glyphToChar, $charToGlyph );
+
+		///////////////////////////////////
+		// mPDF 5.7.1
+		// Map Unmapped glyphs - from $numGlyphs
+		if ($useOTL) {
+			$bctr = 0xE000;
+			for ($gid=1; $gid<$numGlyphs; $gid++) {
+				if (!isset($glyphToChar[$gid])) {
+					while(isset($charToGlyph[$bctr])) { $bctr++; }	// Avoid overwriting a glyph already mapped in PUA
+					if ($bctr > 0xF8FF) {
+						die($file." : WARNING - Font cannot map all included glyphs into Private Use Area U+E000 - U+F8FF; cannot use useOTL on this font");
+					}
+					$glyphToChar[$gid][] = $bctr;
+					$charToGlyph[$bctr] = $gid;
+					$bctr++;
+				}
+			}
+		}
+		///////////////////////////////////
+
+		$this->charToGlyph = $charToGlyph;
+		$this->glyphToChar = $glyphToChar;
+
+
+		///////////////////////////////////
+		// hmtx - Horizontal metrics table
+		///////////////////////////////////
+		$scale = 1;	// not used
+		$this->getHMTX($numberOfHMetrics, $numGlyphs, $glyphToChar, $scale);
+
+		///////////////////////////////////
+		// loca - Index to location
+		///////////////////////////////////
+		$this->getLOCA($indexToLocFormat, $numGlyphs);
+
+		$subsetglyphs = array(0=>0, 1=>1, 2=>2);
+		$subsetCharToGlyph = array();
+		foreach($subset AS $code) {
+			if (isset($this->charToGlyph[$code])) {
+				$subsetglyphs[$this->charToGlyph[$code]] = $code;	// Old Glyph ID => Unicode
+				$subsetCharToGlyph[$code] = $this->charToGlyph[$code];	// Unicode to old GlyphID
+
+			}
+			$this->maxUni = max($this->maxUni, $code);
+		}
+
+		list($start,$dummy) = $this->get_table_pos('glyf');
+
+		$glyphSet = array();
+		ksort($subsetglyphs);
+		$n = 0;
+		$fsLastCharIndex = 0;	// maximum Unicode index (character code) in this font, according to the cmap subtable for platform ID 3 and platform- specific encoding ID 0 or 1.
+		foreach($subsetglyphs AS $originalGlyphIdx => $uni) {
+			$fsLastCharIndex = max($fsLastCharIndex , $uni);
+			$glyphSet[$originalGlyphIdx] = $n;	// old glyphID to new glyphID
+			$n++;
+		}
+
+		ksort($subsetCharToGlyph);
+		foreach($subsetCharToGlyph AS $uni => $originalGlyphIdx) {
+			$codeToGlyph[$uni] = $glyphSet[$originalGlyphIdx] ;
+		}
+		$this->codeToGlyph = $codeToGlyph;
+
+		ksort($subsetglyphs);
+		foreach($subsetglyphs AS $originalGlyphIdx => $uni) {
+			$this->getGlyphs($originalGlyphIdx, $start, $glyphSet, $subsetglyphs);
+		}
+
+		$numGlyphs = $numberOfHMetrics = count($subsetglyphs );
+
+		///////////////////////////////////
+		// name - table copied from the original
+		///////////////////////////////////
+		// MS spec says that "Platform and encoding ID's in the name table should be consistent with those in the cmap table.
+		// If they are not, the font will not load in Windows"
+		// Doesn't seem to be a problem?
+		///////////////////////////////////
+		$this->add('name', $this->get_table('name'));
+
+		///////////////////////////////////
+		//tables copied from the original
+		///////////////////////////////////
+		$tags = array ('cvt ', 'fpgm', 'prep', 'gasp');
+		foreach($tags AS $tag) {
+			if (isset($this->tables[$tag])) { $this->add($tag, $this->get_table($tag)); }
+		}
+
+		///////////////////////////////////
+		// post - PostScript
+		///////////////////////////////////
+		if (isset($this->tables['post'])) {
+			$opost = $this->get_table('post');
+			$post = "\x00\x03\x00\x00" . substr($opost,4,12) . "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
+			$this->add('post', $post);
+		}
+
+		///////////////////////////////////
+		// Sort CID2GID map into segments of contiguous codes
+		///////////////////////////////////
+		ksort($codeToGlyph);
+		unset($codeToGlyph[0]);
+		//unset($codeToGlyph[65535]);
+		$rangeid = 0;
+		$range = array();
+		$prevcid = -2;
+		$prevglidx = -1;
+		// for each character
+		foreach ($codeToGlyph as $cid => $glidx) {
+			if ($cid == ($prevcid + 1) && $glidx == ($prevglidx + 1)) {
+				$range[$rangeid][] = $glidx;
+			} else {
+				// new range
+				$rangeid = $cid;
+				$range[$rangeid] = array();
+				$range[$rangeid][] = $glidx;
+			}
+			$prevcid = $cid;
+			$prevglidx = $glidx;
+		}
+
+
+
+		///////////////////////////////////
+		// CMap table
+		///////////////////////////////////
+		// cmap - Character to glyph mapping
+		$segCount = count($range) + 1;	// + 1 Last segment has missing character 0xFFFF
+		$searchRange = 1;
+		$entrySelector = 0;
+		while ($searchRange * 2 <= $segCount ) {
+			$searchRange = $searchRange * 2;
+			$entrySelector = $entrySelector + 1;
+		}
+		$searchRange = $searchRange * 2;
+		$rangeShift = $segCount * 2 - $searchRange;
+		$length = 16 + (8*$segCount ) + ($numGlyphs+1);
+		$cmap = array(0, 3,		// Index : version, number of encoding subtables
+			0, 0,				// Encoding Subtable : platform (UNI=0), encoding 0
+			0, 28,			// Encoding Subtable : offset (hi,lo)
+			0, 3,				// Encoding Subtable : platform (UNI=0), encoding 3
+			0, 28,			// Encoding Subtable : offset (hi,lo)
+			3, 1,				// Encoding Subtable : platform (MS=3), encoding 1
+			0, 28,			// Encoding Subtable : offset (hi,lo)
+			4, $length, 0, 		// Format 4 Mapping subtable: format, length, language
+			$segCount*2,
+			$searchRange,
+			$entrySelector,
+			$rangeShift);
+
+		// endCode(s)
+		foreach($range AS $start=>$subrange) {
+			$endCode = $start + (count($subrange)-1);
+			$cmap[] = $endCode;	// endCode(s)
+		}
+		$cmap[] =	0xFFFF;	// endCode of last Segment
+		$cmap[] =	0;	// reservedPad
+
+		// startCode(s)
+		foreach($range AS $start=>$subrange) {
+			$cmap[] = $start;	// startCode(s)
+		}
+		$cmap[] =	0xFFFF;	// startCode of last Segment
+		// idDelta(s)
+		foreach($range AS $start=>$subrange) {
+			$idDelta = -($start-$subrange[0]);
+			$n += count($subrange);
+			$cmap[] = $idDelta;	// idDelta(s)
+		}
+		$cmap[] =	1;	// idDelta of last Segment
+		// idRangeOffset(s)
+		foreach($range AS $subrange) {
+			$cmap[] = 0;	// idRangeOffset[segCount]  	Offset in bytes to glyph indexArray, or 0
+
+		}
+		$cmap[] =	0;	// idRangeOffset of last Segment
+		foreach($range AS $subrange) {
+			foreach($subrange AS $glidx) {
+				$cmap[] = $glidx;
+			}
+		}
+		$cmap[] = 0;	// Mapping for last character
+		$cmapstr = '';
+		foreach($cmap AS $cm) { $cmapstr .= pack("n",$cm); }
+		$this->add('cmap', $cmapstr);
+
+
+		///////////////////////////////////
+		// glyf - Glyph data
+		///////////////////////////////////
+		list($glyfOffset,$glyfLength) = $this->get_table_pos('glyf');
+		if ($glyfLength < $this->maxStrLenRead) {
+			$glyphData = $this->get_table('glyf');
+		}
+
+		$offsets = array();
+		$glyf = '';
+		$pos = 0;
+		$hmtxstr = '';
+		$xMinT = 0;
+		$yMinT = 0;
+		$xMaxT = 0;
+		$yMaxT = 0;
+		$advanceWidthMax = 0;
+		$minLeftSideBearing = 0;
+		$minRightSideBearing = 0;
+		$xMaxExtent = 0;
+		$maxPoints = 0;			// points in non-compound glyph
+		$maxContours = 0;			// contours in non-compound glyph
+		$maxComponentPoints = 0;	// points in compound glyph
+		$maxComponentContours = 0;	// contours in compound glyph
+		$maxComponentElements = 0;	// number of glyphs referenced at top level
+		$maxComponentDepth = 0;		// levels of recursion, set to 0 if font has only simple glyphs
+		$this->glyphdata = array();
+
+		foreach($subsetglyphs AS $originalGlyphIdx => $uni) {
+			// hmtx - Horizontal Metrics
+			$hm = $this->getHMetric($orignHmetrics, $originalGlyphIdx);
+			$hmtxstr .= $hm;
+
+			$offsets[] = $pos;
+			$glyphPos = $this->glyphPos[$originalGlyphIdx];
+			$glyphLen = $this->glyphPos[$originalGlyphIdx + 1] - $glyphPos;
+			if ($glyfLength < $this->maxStrLenRead) {
+				$data = substr($glyphData,$glyphPos,$glyphLen);
+			}
+			else {
+				if ($glyphLen > 0) $data = $this->get_chunk($glyfOffset+$glyphPos,$glyphLen);
+				else $data = '';
+			}
+
+			if ($glyphLen > 0) {
+			  if (_RECALC_PROFILE) {
+				$xMin = $this->unpack_short(substr($data,2,2));
+				$yMin = $this->unpack_short(substr($data,4,2));
+				$xMax = $this->unpack_short(substr($data,6,2));
+				$yMax = $this->unpack_short(substr($data,8,2));
+				$xMinT = min($xMinT,$xMin);
+				$yMinT = min($yMinT,$yMin);
+				$xMaxT = max($xMaxT,$xMax);
+				$yMaxT = max($yMaxT,$yMax);
+				$aw = $this->unpack_short(substr($hm,0,2));
+				$lsb = $this->unpack_short(substr($hm,2,2));
+				$advanceWidthMax = max($advanceWidthMax,$aw);
+				$minLeftSideBearing = min($minLeftSideBearing,$lsb);
+				$minRightSideBearing = min($minRightSideBearing,($aw - $lsb - ($xMax - $xMin)));
+				$xMaxExtent = max($xMaxExtent,($lsb + ($xMax - $xMin)));
+			   }
+				$up = unpack("n", substr($data,0,2));
+			}
+			if ($glyphLen > 2 && ($up[1] & (1 << 15)) ) {	// If number of contours <= -1 i.e. composiste glyph
+				$pos_in_glyph = 10;
+				$flags = GF_MORE;
+				$nComponentElements = 0;
+				while ($flags & GF_MORE) {
+					$nComponentElements += 1;	// number of glyphs referenced at top level
+					$up = unpack("n", substr($data,$pos_in_glyph,2));
+					$flags = $up[1];
+					$up = unpack("n", substr($data,$pos_in_glyph+2,2));
+					$glyphIdx = $up[1];
+					$this->glyphdata[$originalGlyphIdx]['compGlyphs'][] = $glyphIdx;
+					$data = $this->_set_ushort($data, $pos_in_glyph + 2, $glyphSet[$glyphIdx]);
+					$pos_in_glyph += 4;
+					if ($flags & GF_WORDS) { $pos_in_glyph += 4; }
+					else { $pos_in_glyph += 2; }
+					if ($flags & GF_SCALE) { $pos_in_glyph += 2; }
+					else if ($flags & GF_XYSCALE) { $pos_in_glyph += 4; }
+					else if ($flags & GF_TWOBYTWO) { $pos_in_glyph += 8; }
+				}
+				$maxComponentElements = max($maxComponentElements, $nComponentElements);
+			}
+			// Simple Glyph
+			else if (_RECALC_PROFILE && $glyphLen > 2 && $up[1] < (1 << 15) && $up[1] > 0) { 	// Number of contours > 0 simple glyph
+				$nContours = $up[1];
+				$this->glyphdata[$originalGlyphIdx]['nContours'] = $nContours;
+				$maxContours = max($maxContours, $nContours);
+
+				// Count number of points in simple glyph
+				$pos_in_glyph = 10 + ($nContours  * 2) - 2;	// Last endContourPoint
+				$up = unpack("n", substr($data,$pos_in_glyph,2));
+				$points = $up[1]+1;
+				$this->glyphdata[$originalGlyphIdx]['nPoints'] = $points;
+				$maxPoints = max($maxPoints, $points);
+			}
+
+			$glyf .= $data;
+			$pos += $glyphLen;
+			if ($pos % 4 != 0) {
+				$padding = 4 - ($pos % 4);
+				$glyf .= str_repeat("\0",$padding);
+				$pos += $padding;
+			}
+		}
+
+		if (_RECALC_PROFILE) {
+		   foreach($this->glyphdata AS $originalGlyphIdx => $val) {
+			$maxdepth = $depth = -1;
+			$points = 0;
+			$contours = 0;
+			$this->getGlyphData($originalGlyphIdx, $maxdepth, $depth, $points, $contours) ;
+			$maxComponentDepth = max($maxComponentDepth , $maxdepth);
+			$maxComponentPoints = max($maxComponentPoints , $points);
+			$maxComponentContours = max($maxComponentContours , $contours);
+		   }
+		}
+
+
+		$offsets[] = $pos;
+		$this->add('glyf', $glyf);
+
+		///////////////////////////////////
+		// hmtx - Horizontal Metrics
+		///////////////////////////////////
+		$this->add('hmtx', $hmtxstr);
+
+
+		///////////////////////////////////
+		// loca - Index to location
+		///////////////////////////////////
+		$locastr = '';
+		if ((($pos + 1) >> 1) > 0xFFFF) {
+			$indexToLocFormat = 1;        // long format
+			foreach($offsets AS $offset) { $locastr .= pack("N",$offset); }
+		}
+		else {
+			$indexToLocFormat = 0;        // short format
+			foreach($offsets AS $offset) { $locastr .= pack("n",($offset/2)); }
+		}
+		$this->add('loca', $locastr);
+
+		///////////////////////////////////
+		// head - Font header
+		///////////////////////////////////
+		$head = $this->get_table('head');
+		$head = $this->_set_ushort($head, 50, $indexToLocFormat);
+		if (_RECALC_PROFILE) {
+			$head = $this->_set_short($head, 36, $xMinT);	// for all glyph bounding boxes
+			$head = $this->_set_short($head, 38, $yMinT);	// for all glyph bounding boxes
+			$head = $this->_set_short($head, 40, $xMaxT);	// for all glyph bounding boxes
+			$head = $this->_set_short($head, 42, $yMaxT);	// for all glyph bounding boxes
+			$head[17] = chr($head[17] & ~(1 << 4)); 	// Unset Bit 4 (as hdmx/LTSH tables not included)
+		}
+		$this->add('head', $head);
+
+
+		///////////////////////////////////
+		// hhea - Horizontal Header
+		///////////////////////////////////
+		$hhea = $this->get_table('hhea');
+		$hhea = $this->_set_ushort($hhea, 34, $numberOfHMetrics);
+		if (_RECALC_PROFILE) {
+			$hhea = $this->_set_ushort($hhea, 10, $advanceWidthMax);
+			$hhea = $this->_set_short($hhea, 12, $minLeftSideBearing);
+			$hhea = $this->_set_short($hhea, 14, $minRightSideBearing);
+			$hhea = $this->_set_short($hhea, 16, $xMaxExtent);
+		}
+		$this->add('hhea', $hhea);
+
+		///////////////////////////////////
+		// maxp - Maximum Profile
+		///////////////////////////////////
+		$maxp = $this->get_table('maxp');
+		$maxp = $this->_set_ushort($maxp, 4, $numGlyphs);
+		if (_RECALC_PROFILE) {
+			$maxp = $this->_set_ushort($maxp, 6, $maxPoints);	// points in non-compound glyph
+			$maxp = $this->_set_ushort($maxp, 8, $maxContours);	// contours in non-compound glyph
+			$maxp = $this->_set_ushort($maxp, 10, $maxComponentPoints);	// points in compound glyph
+			$maxp = $this->_set_ushort($maxp, 12, $maxComponentContours);	// contours in compound glyph
+			$maxp = $this->_set_ushort($maxp, 28, $maxComponentElements);	// number of glyphs referenced at top level
+			$maxp = $this->_set_ushort($maxp, 30, $maxComponentDepth);	// levels of recursion, set to 0 if font has only simple glyphs
+		}
+		$this->add('maxp', $maxp);
+
+
+		///////////////////////////////////
+		// OS/2 - OS/2
+		///////////////////////////////////
+		if (isset($this->tables['OS/2'])) {
+			$os2_offset = $this->seek_table("OS/2");
+			if (_RECALC_PROFILE) {
+				$fsSelection = $this->get_ushort($os2_offset+62);
+				$fsSelection = ($fsSelection & ~(1 << 6)); 	// 2-byte bit field containing information concerning the nature of the font patterns
+					// bit#0 = Italic; bit#5=Bold
+					// Match name table's font subfamily string
+					// Clear bit#6 used for 'Regular' and optional
+			}
+
+			// NB Currently this method never subsets characters above BMP
+			// Could set nonBMP bit according to $this->maxUni
+			$nonBMP = $this->get_ushort($os2_offset+46);
+			$nonBMP = ($nonBMP & ~(1 << 9)); 	// Unset Bit 57 (indicates non-BMP) - for interactive forms
+
+			$os2 = $this->get_table('OS/2');
+			if (_RECALC_PROFILE) {
+				$os2 = $this->_set_ushort($os2, 62, $fsSelection);
+				$os2 = $this->_set_ushort($os2, 66, $fsLastCharIndex);
+				$os2 = $this->_set_ushort($os2, 42, 0x0000);	// ulCharRange (ulUnicodeRange) bits 24-31 | 16-23
+				$os2 = $this->_set_ushort($os2, 44, 0x0000);	// ulCharRange (Unicode ranges) bits  8-15 |  0-7
+				$os2 = $this->_set_ushort($os2, 46, $nonBMP);	// ulCharRange (Unicode ranges) bits 56-63 | 48-55
+				$os2 = $this->_set_ushort($os2, 48, 0x0000);	// ulCharRange (Unicode ranges) bits 40-47 | 32-39
+				$os2 = $this->_set_ushort($os2, 50, 0x0000);	// ulCharRange (Unicode ranges) bits  88-95 | 80-87
+				$os2 = $this->_set_ushort($os2, 52, 0x0000);	// ulCharRange (Unicode ranges) bits  72-79 | 64-71
+				$os2 = $this->_set_ushort($os2, 54, 0x0000);	// ulCharRange (Unicode ranges) bits  120-127 | 112-119
+				$os2 = $this->_set_ushort($os2, 56, 0x0000);	// ulCharRange (Unicode ranges) bits  104-111 | 96-103
+			}
+			$os2 = $this->_set_ushort($os2, 46, $nonBMP);	// Unset Bit 57 (indicates non-BMP) - for interactive forms
+
+			$this->add('OS/2', $os2 );
+		}
+
+		fclose($this->fh);
+		// Put the TTF file together
+		$stm = '';
+		$this->endTTFile($stm);
+		//file_put_contents('testfont.ttf', $stm); exit;
+		return $stm ;
+	}
+
+//================================================================================
+
+	// Also does SMP
+	function makeSubsetSIP($file, &$subset, $TTCfontID=0, $debug=false, $useOTL=0) {	// mPDF 5.7.1
+		$this->fh = fopen($file ,'rb') or die('Can\'t open file ' . $file);
+		$this->filename = $file;
+		$this->_pos = 0;
+		$this->useOTL = $useOTL;	// mPDF 5.7.1
+		$this->charWidths = '';
+		$this->glyphPos = array();
+		$this->charToGlyph = array();
+		$this->tables = array();
+		$this->otables = array();
+		$this->ascent = 0;
+		$this->descent = 0;
+		$this->strikeoutSize = 0;
+		$this->strikeoutPosition = 0;
+		$this->numTTCFonts = 0;
+		$this->TTCFonts = array();
+		$this->skip(4);
+		if ($TTCfontID > 0) {
+			$this->version = $version = $this->read_ulong();	// TTC Header version now
+			if (!in_array($version, array(0x00010000,0x00020000)))
+				die("ERROR - Error parsing TrueType Collection: version=".$version." - " . $file);
+			$this->numTTCFonts = $this->read_ulong();
+			for ($i=1; $i<=$this->numTTCFonts; $i++) {
+	      	      $this->TTCFonts[$i]['offset'] = $this->read_ulong();
+			}
+			$this->seek($this->TTCFonts[$TTCfontID]['offset']);
+			$this->version = $version = $this->read_ulong();	// TTFont version again now
+		}
+		$this->readTableDirectory($debug);
+
+
+		///////////////////////////////////
+		// head - Font header table
+		///////////////////////////////////
+		$this->seek_table("head");
+		$this->skip(50);
+		$indexToLocFormat = $this->read_ushort();
+		$glyphDataFormat = $this->read_ushort();
+
+		///////////////////////////////////
+		// hhea - Horizontal header table
+		///////////////////////////////////
+		$this->seek_table("hhea");
+		$this->skip(32);
+		$metricDataFormat = $this->read_ushort();
+		$orignHmetrics = $numberOfHMetrics = $this->read_ushort();
+
+		///////////////////////////////////
+		// maxp - Maximum profile table
+		///////////////////////////////////
+		$this->seek_table("maxp");
+		$this->skip(4);
+		$numGlyphs = $this->read_ushort();
+
+
+		///////////////////////////////////
+		// cmap - Character to glyph index mapping table
+		///////////////////////////////////
+
+		$cmap_offset = $this->seek_table("cmap");
+		$this->skip(2);
+		$cmapTableCount = $this->read_ushort();
+		$unicode_cmap_offset = 0;
+		for ($i=0;$i<$cmapTableCount;$i++) {
+			$platformID = $this->read_ushort();
+			$encodingID = $this->read_ushort();
+			$offset = $this->read_ulong();
+			$save_pos = $this->_pos;
+			if (($platformID == 3 && $encodingID == 10) || $platformID == 0) { // Microsoft, Unicode Format 12 table HKCS
+				$format = $this->get_ushort($cmap_offset + $offset);
+				if ($format == 12) {
+					$unicode_cmap_offset = $cmap_offset + $offset;
+					break;
+				}
+			}
+			// mPDF 5.7.1
+			if (($platformID == 3 && $encodingID == 1) || $platformID == 0) { // Microsoft, Unicode
+				$format = $this->get_ushort($cmap_offset + $offset);
+				if ($format == 4) {
+					$unicode_cmap_offset = $cmap_offset + $offset;
+				}
+			}
+			$this->seek($save_pos );
+		}
+
+		if (!$unicode_cmap_offset)
+			die('Font does not have cmap for Unicode (platform 3, encoding 1, format 4, or platform 0, any encoding, format 4)');
+
+
+		// Format 12 CMAP does characters above Unicode BMP i.e. some HKCS characters U+20000 and above
+		if ($format == 12) {
+			$this->maxUniChar = 0;
+			$this->seek($unicode_cmap_offset + 4);
+			$length = $this->read_ulong();
+			$limit = $unicode_cmap_offset + $length;
+			$this->skip(4);
+
+			$nGroups = $this->read_ulong();
+
+			$glyphToChar = array();
+			$charToGlyph = array();
+			for($i=0; $i<$nGroups ; $i++) {
+				$startCharCode = $this->read_ulong();
+				$endCharCode = $this->read_ulong();
+				$startGlyphCode = $this->read_ulong();
+				$offset = 0;
+				for ($unichar=$startCharCode;$unichar<=$endCharCode;$unichar++) {
+					$glyph = $startGlyphCode + $offset ;
+					$offset++;
+					// ZZZ98
+					if ($unichar < 0x30000) {
+						$charToGlyph[$unichar] = $glyph;
+						$this->maxUniChar = max($unichar,$this->maxUniChar);
+						$glyphToChar[$glyph][] = $unichar;
+					}
+				}
+			}
+		}
+		// mPDF 5.7.1
+		else {
+			$glyphToChar = array();
+			$charToGlyph = array();
+			$this->getCMAP4($unicode_cmap_offset, $glyphToChar, $charToGlyph );
+		}
+
+		///////////////////////////////////
+		// mPDF 5.7.1
+		// Map Unmapped glyphs - from $numGlyphs
+		if ($useOTL) {
+			$bctr = 0xE000;
+			for ($gid=1; $gid<$numGlyphs; $gid++) {
+				if (!isset($glyphToChar[$gid])) {
+					while(isset($charToGlyph[$bctr])) { $bctr++; }	// Avoid overwriting a glyph already mapped in PUA
+					// ZZZ98
+					if ($bctr > 0xF8FF && $bctr < 0x2CEB0) {
+						$bctr = 0x2CEB0;
+						while(isset($charToGlyph[$bctr])) { $bctr++; }
+					}
+					$glyphToChar[$gid][] = $bctr;
+					$charToGlyph[$bctr] = $gid;
+					$this->maxUniChar = max($bctr,$this->maxUniChar);
+					$bctr++;
+				}
+			}
+		}
+		///////////////////////////////////
+
+		///////////////////////////////////
+		// hmtx - Horizontal metrics table
+		///////////////////////////////////
+		$scale = 1; // not used here
+		$this->getHMTX($numberOfHMetrics, $numGlyphs, $glyphToChar, $scale);
+
+		///////////////////////////////////
+		// loca - Index to location
+		///////////////////////////////////
+		$this->getLOCA($indexToLocFormat, $numGlyphs);
+
+		///////////////////////////////////////////////////////////////////
+
+		$glyphMap = array(0=>0);
+		$glyphSet = array(0=>0);
+		$codeToGlyph = array();
+		// Set a substitute if ASCII characters do not have glyphs
+		if (isset($charToGlyph[0x3F])) { $subs = $charToGlyph[0x3F]; }	// Question mark
+		else { $subs = $charToGlyph[32]; }
+		foreach($subset AS $code) {
+			if (isset($charToGlyph[$code]))
+				$originalGlyphIdx = $charToGlyph[$code];
+			else if ($code<128) {
+				$originalGlyphIdx = $subs;
+			}
+			else { $originalGlyphIdx = 0; }
+			if (!isset($glyphSet[$originalGlyphIdx])) {
+				$glyphSet[$originalGlyphIdx] = count($glyphMap);
+				$glyphMap[] = $originalGlyphIdx;
+			}
+			$codeToGlyph[$code] = $glyphSet[$originalGlyphIdx];
+		}
+
+		list($start,$dummy) = $this->get_table_pos('glyf');
+
+		$n = 0;
+		while ($n < count($glyphMap)) {
+			$originalGlyphIdx = $glyphMap[$n];
+			$glyphPos = $this->glyphPos[$originalGlyphIdx];
+			$glyphLen = $this->glyphPos[$originalGlyphIdx + 1] - $glyphPos;
+			$n += 1;
+			if (!$glyphLen) continue;
+			$this->seek($start + $glyphPos);
+			$numberOfContours = $this->read_short();
+			if ($numberOfContours < 0) {
+				$this->skip(8);
+				$flags = GF_MORE;
+				while ($flags & GF_MORE) {
+					$flags = $this->read_ushort();
+					$glyphIdx = $this->read_ushort();
+					if (!isset($glyphSet[$glyphIdx])) {
+						$glyphSet[$glyphIdx] = count($glyphMap);
+						$glyphMap[] = $glyphIdx;
+					}
+					if ($flags & GF_WORDS)
+						$this->skip(4);
+					else
+						$this->skip(2);
+					if ($flags & GF_SCALE)
+						$this->skip(2);
+					else if ($flags & GF_XYSCALE)
+						$this->skip(4);
+					else if ($flags & GF_TWOBYTWO)
+						$this->skip(8);
+				}
+			}
+		}
+
+		$numGlyphs = $n = count($glyphMap);
+		$numberOfHMetrics = $n;
+
+		///////////////////////////////////
+		// name
+		///////////////////////////////////
+		// MS spec says that "Platform and encoding ID's in the name table should be consistent with those in the cmap table.
+		// If they are not, the font will not load in Windows"
+		// Doesn't seem to be a problem?
+		///////////////////////////////////
+		// Needs to have a name entry in 3,0 (e.g. symbol) - original font will be 3,1 (i.e. Unicode)
+		$name = $this->get_table('name');
+		$name_offset = $this->seek_table("name");
+		$format = $this->read_ushort();
+		$numRecords = $this->read_ushort();
+		$string_data_offset = $name_offset + $this->read_ushort();
+		for ($i=0;$i<$numRecords; $i++) {
+			$platformId = $this->read_ushort();
+			$encodingId = $this->read_ushort();
+			if ($platformId == 3 && $encodingId == 1) {
+				$pos = 6 + ($i * 12) + 2;
+				$name = $this->_set_ushort($name, $pos, 0x00);	// Change encoding to 3,0 rather than 3,1
+			}
+			$this->skip(8);
+		}
+		$this->add('name', $name);
+
+		///////////////////////////////////
+		// OS/2
+		///////////////////////////////////
+		if (isset($this->tables['OS/2'])) {
+			$os2 = $this->get_table('OS/2');
+			$os2 = $this->_set_ushort($os2, 42, 0x00);	// ulCharRange (Unicode ranges)
+			$os2 = $this->_set_ushort($os2, 44, 0x00);	// ulCharRange (Unicode ranges)
+			$os2 = $this->_set_ushort($os2, 46, 0x00);	// ulCharRange (Unicode ranges)
+			$os2 = $this->_set_ushort($os2, 48, 0x00);	// ulCharRange (Unicode ranges)
+
+			$os2 = $this->_set_ushort($os2, 50, 0x00);	// ulCharRange (Unicode ranges)
+			$os2 = $this->_set_ushort($os2, 52, 0x00);	// ulCharRange (Unicode ranges)
+			$os2 = $this->_set_ushort($os2, 54, 0x00);	// ulCharRange (Unicode ranges)
+			$os2 = $this->_set_ushort($os2, 56, 0x00);	// ulCharRange (Unicode ranges)
+			// Set Symbol character only in ulCodePageRange
+			$os2 = $this->_set_ushort($os2, 78, 0x8000);	// ulCodePageRange = Bit #31 Symbol ****  78 = Bit 16-31
+			$os2 = $this->_set_ushort($os2, 80, 0x0000);	// ulCodePageRange = Bit #31 Symbol ****  80 = Bit 0-15
+			$os2 = $this->_set_ushort($os2, 82, 0x0000);	// ulCodePageRange = Bit #32- Symbol **** 82 = Bits 48-63
+			$os2 = $this->_set_ushort($os2, 84, 0x0000);	// ulCodePageRange = Bit #32- Symbol **** 84 = Bits 32-47
+
+			$os2 = $this->_set_ushort($os2, 64, 0x01);		// FirstCharIndex
+			$os2 = $this->_set_ushort($os2, 66, count($subset));		// LastCharIndex
+			// Set PANOSE first bit to 5 for Symbol
+			$os2 = $this->splice($os2, 32, chr(5).chr(0).chr(1).chr(0).chr(1).chr(0).chr(0).chr(0).chr(0).chr(0));
+			$this->add('OS/2', $os2 );
+		}
+
+
+		///////////////////////////////////
+		//tables copied from the original
+		///////////////////////////////////
+		$tags = array ('cvt ', 'fpgm', 'prep', 'gasp');
+		foreach($tags AS $tag) { 	// 1.02
+			if (isset($this->tables[$tag])) { $this->add($tag, $this->get_table($tag)); }
+		}
+
+		///////////////////////////////////
+		// post - PostScript
+		///////////////////////////////////
+		if (isset($this->tables['post'])) {
+			$opost = $this->get_table('post');
+			$post = "\x00\x03\x00\x00" . substr($opost,4,12) . "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
+		}
+		$this->add('post', $post);
+
+		///////////////////////////////////
+		// hhea - Horizontal Header
+		///////////////////////////////////
+		$hhea = $this->get_table('hhea');
+		$hhea = $this->_set_ushort($hhea, 34, $numberOfHMetrics);
+		$this->add('hhea', $hhea);
+
+		///////////////////////////////////
+		// maxp - Maximum Profile
+		///////////////////////////////////
+		$maxp = $this->get_table('maxp');
+		$maxp = $this->_set_ushort($maxp, 4, $numGlyphs);
+		$this->add('maxp', $maxp);
+
+
+		///////////////////////////////////
+		// CMap table Formats [1,0,]6 and [3,0,]4
+		///////////////////////////////////
+		///////////////////////////////////
+		// Sort CID2GID map into segments of contiguous codes
+		///////////////////////////////////
+		$rangeid = 0;
+		$range = array();
+		$prevcid = -2;
+		$prevglidx = -1;
+		// for each character
+		foreach ($subset as $cid => $code) {
+			$glidx = $codeToGlyph[$code];
+			if ($cid == ($prevcid + 1) && $glidx == ($prevglidx + 1)) {
+				$range[$rangeid][] = $glidx;
+			} else {
+				// new range
+				$rangeid = $cid;
+				$range[$rangeid] = array();
+				$range[$rangeid][] = $glidx;
+			}
+			$prevcid = $cid;
+			$prevglidx = $glidx;
+		}
+		// cmap - Character to glyph mapping
+		$segCount = count($range) + 1;	// + 1 Last segment has missing character 0xFFFF
+		$searchRange = 1;
+		$entrySelector = 0;
+		while ($searchRange * 2 <= $segCount ) {
+			$searchRange = $searchRange * 2;
+			$entrySelector = $entrySelector + 1;
+		}
+		$searchRange = $searchRange * 2;
+		$rangeShift = $segCount * 2 - $searchRange;
+		$length = 16 + (8*$segCount ) + ($numGlyphs+1);
+		$cmap = array(
+			4, $length, 0, 		// Format 4 Mapping subtable: format, length, language
+			$segCount*2,
+			$searchRange,
+			$entrySelector,
+			$rangeShift);
+
+		// endCode(s)
+		foreach($range AS $start=>$subrange) {
+			$endCode = $start + (count($subrange)-1);
+			$cmap[] = $endCode;	// endCode(s)
+		}
+		$cmap[] =	0xFFFF;	// endCode of last Segment
+		$cmap[] =	0;	// reservedPad
+
+		// startCode(s)
+		foreach($range AS $start=>$subrange) {
+			$cmap[] = $start;	// startCode(s)
+		}
+		$cmap[] =	0xFFFF;	// startCode of last Segment
+		// idDelta(s)
+		foreach($range AS $start=>$subrange) {
+			$idDelta = -($start-$subrange[0]);
+			$n += count($subrange);
+			$cmap[] = $idDelta;	// idDelta(s)
+		}
+		$cmap[] =	1;	// idDelta of last Segment
+		// idRangeOffset(s)
+		foreach($range AS $subrange) {
+			$cmap[] = 0;	// idRangeOffset[segCount]  	Offset in bytes to glyph indexArray, or 0
+
+		}
+		$cmap[] =	0;	// idRangeOffset of last Segment
+		foreach($range AS $subrange) {
+			foreach($subrange AS $glidx) {
+				$cmap[] = $glidx;
+			}
+		}
+		$cmap[] = 0;	// Mapping for last character
+		$cmapstr4 = '';
+		foreach($cmap AS $cm) { $cmapstr4 .= pack("n",$cm); }
+
+		///////////////////////////////////
+		// cmap - Character to glyph mapping
+		///////////////////////////////////
+		$entryCount = count($subset);
+		$length = 10 + $entryCount * 2;
+
+		$off = 20 + $length;
+		$hoff = $off >> 16;
+		$loff = $off & 0xFFFF;
+
+		$cmap = array(0, 2,	// Index : version, number of subtables
+			1, 0,			// Subtable : platform, encoding
+			0, 20,		// offset (hi,lo)
+			3, 0,			// Subtable : platform, encoding	// See note above for 'name'
+			$hoff, $loff,	// offset (hi,lo)
+			6, $length, 	// Format 6 Mapping table: format, length
+			0, 1,			// language, First char code
+			$entryCount
+		);
+		$cmapstr = '';
+		foreach($subset AS $code) { $cmap[] = $codeToGlyph[$code]; }
+		foreach($cmap AS $cm) { $cmapstr .= pack("n",$cm); }
+		$cmapstr .= $cmapstr4;
+		$this->add('cmap', $cmapstr);
+
+		///////////////////////////////////
+		// hmtx - Horizontal Metrics
+		///////////////////////////////////
+		$hmtxstr = '';
+		for($n=0;$n<$numGlyphs;$n++) {
+			$originalGlyphIdx = $glyphMap[$n];
+			$hm = $this->getHMetric($orignHmetrics, $originalGlyphIdx);
+			$hmtxstr .= $hm;
+		}
+		$this->add('hmtx', $hmtxstr);
+
+		///////////////////////////////////
+		// glyf - Glyph data
+		///////////////////////////////////
+		list($glyfOffset,$glyfLength) = $this->get_table_pos('glyf');
+		if ($glyfLength < $this->maxStrLenRead) {
+			$glyphData = $this->get_table('glyf');
+		}
+
+		$offsets = array();
+		$glyf = '';
+		$pos = 0;
+		for ($n=0;$n<$numGlyphs;$n++) {
+			$offsets[] = $pos;
+			$originalGlyphIdx = $glyphMap[$n];
+			$glyphPos = $this->glyphPos[$originalGlyphIdx];
+			$glyphLen = $this->glyphPos[$originalGlyphIdx + 1] - $glyphPos;
+			if ($glyfLength < $this->maxStrLenRead) {
+				$data = substr($glyphData,$glyphPos,$glyphLen);
+			}
+			else {
+				if ($glyphLen > 0) $data = $this->get_chunk($glyfOffset+$glyphPos,$glyphLen);
+				else $data = '';
+			}
+			if ($glyphLen > 0) $up = unpack("n", substr($data,0,2));
+			if ($glyphLen > 2 && ($up[1] & (1 << 15)) ) {
+				$pos_in_glyph = 10;
+				$flags = GF_MORE;
+				while ($flags & GF_MORE) {
+					$up = unpack("n", substr($data,$pos_in_glyph,2));
+					$flags = $up[1];
+					$up = unpack("n", substr($data,$pos_in_glyph+2,2));
+					$glyphIdx = $up[1];
+					$data = $this->_set_ushort($data, $pos_in_glyph + 2, $glyphSet[$glyphIdx]);
+					$pos_in_glyph += 4;
+					if ($flags & GF_WORDS) { $pos_in_glyph += 4; }
+					else { $pos_in_glyph += 2; }
+					if ($flags & GF_SCALE) { $pos_in_glyph += 2; }
+					else if ($flags & GF_XYSCALE) { $pos_in_glyph += 4; }
+					else if ($flags & GF_TWOBYTWO) { $pos_in_glyph += 8; }
+				}
+			}
+			$glyf .= $data;
+			$pos += $glyphLen;
+			if ($pos % 4 != 0) {
+				$padding = 4 - ($pos % 4);
+				$glyf .= str_repeat("\0",$padding);
+				$pos += $padding;
+			}
+		}
+		$offsets[] = $pos;
+		$this->add('glyf', $glyf);
+
+		///////////////////////////////////
+		// loca - Index to location
+		///////////////////////////////////
+		$locastr = '';
+		if ((($pos + 1) >> 1) > 0xFFFF) {
+			$indexToLocFormat = 1;        // long format
+			foreach($offsets AS $offset) { $locastr .= pack("N",$offset); }
+		}
+		else {
+			$indexToLocFormat = 0;        // short format
+			foreach($offsets AS $offset) { $locastr .= pack("n",($offset/2)); }
+		}
+		$this->add('loca', $locastr);
+
+		///////////////////////////////////
+		// head - Font header
+		///////////////////////////////////
+		$head = $this->get_table('head');
+		$head = $this->_set_ushort($head, 50, $indexToLocFormat);
+		$this->add('head', $head);
+
+		fclose($this->fh);
+
+		// Put the TTF file together
+		$stm = '';
+		$this->endTTFile($stm);
+		//file_put_contents('testfont.ttf', $stm); exit;
+		return $stm ;
+	}
+
+	//////////////////////////////////////////////////////////////////////////////////
+	// Recursively get composite glyph data
+	function getGlyphData($originalGlyphIdx, &$maxdepth, &$depth, &$points, &$contours) {
+		$depth++;
+		$maxdepth = max($maxdepth, $depth);
+		if (count($this->glyphdata[$originalGlyphIdx]['compGlyphs'])) {
+			foreach($this->glyphdata[$originalGlyphIdx]['compGlyphs'] AS $glyphIdx) {
+				$this->getGlyphData($glyphIdx, $maxdepth, $depth, $points, $contours);
+			}
+		}
+		else if (($this->glyphdata[$originalGlyphIdx]['nContours'] > 0) && $depth > 0) {	// simple
+			$contours += $this->glyphdata[$originalGlyphIdx]['nContours'];
+			$points += $this->glyphdata[$originalGlyphIdx]['nPoints'];
+		}
+		$depth--;
+	}
+
+
+	//////////////////////////////////////////////////////////////////////////////////
+	// Recursively get composite glyphs
+	function getGlyphs($originalGlyphIdx, &$start, &$glyphSet, &$subsetglyphs) {
+		$glyphPos = $this->glyphPos[$originalGlyphIdx];
+		$glyphLen = $this->glyphPos[$originalGlyphIdx + 1] - $glyphPos;
+		if (!$glyphLen) {
+			return;
+		}
+		$this->seek($start + $glyphPos);
+		$numberOfContours = $this->read_short();
+		if ($numberOfContours < 0) {
+			$this->skip(8);
+			$flags = GF_MORE;
+			while ($flags & GF_MORE) {
+				$flags = $this->read_ushort();
+				$glyphIdx = $this->read_ushort();
+				if (!isset($glyphSet[$glyphIdx])) {
+					$glyphSet[$glyphIdx] = count($subsetglyphs);	// old glyphID to new glyphID
+					$subsetglyphs[$glyphIdx] = true;
+				}
+				$savepos = ftell($this->fh);
+				$this->getGlyphs($glyphIdx, $start, $glyphSet, $subsetglyphs);
+				$this->seek($savepos);
+				if ($flags & GF_WORDS)
+					$this->skip(4);
+				else
+					$this->skip(2);
+				if ($flags & GF_SCALE)
+					$this->skip(2);
+				else if ($flags & GF_XYSCALE)
+					$this->skip(4);
+				else if ($flags & GF_TWOBYTWO)
+					$this->skip(8);
+			}
+		}
+	}
+
+	//////////////////////////////////////////////////////////////////////////////////
+
+	function getHMTX($numberOfHMetrics, $numGlyphs, &$glyphToChar, $scale) {
+		$start = $this->seek_table("hmtx");
+		$aw = 0;
+		$this->charWidths = str_pad('', 256*256*2, "\x00");
+		if ($this->maxUniChar > 65536) { $this->charWidths .= str_pad('', 256*256*2, "\x00"); }	// Plane 1 SMP
+		if ($this->maxUniChar > 131072) { $this->charWidths .= str_pad('', 256*256*2, "\x00"); }	// Plane 2 SMP
+		$nCharWidths = 0;
+		if (($numberOfHMetrics*4) < $this->maxStrLenRead) {
+			$data = $this->get_chunk($start,($numberOfHMetrics*4));
+			$arr = unpack("n*", $data);
+		}
+		else { $this->seek($start); }
+		for( $glyph=0; $glyph<$numberOfHMetrics; $glyph++) {
+			if (($numberOfHMetrics*4) < $this->maxStrLenRead) {
+				$aw = $arr[($glyph*2)+1];
+			}
+			else {
+				$aw = $this->read_ushort();
+				$lsb = $this->read_ushort();
+			}
+			if (isset($glyphToChar[$glyph]) || $glyph == 0) {
+				if ($aw >= (1 << 15) ) { $aw = 0; }	// 1.03 Some (arabic) fonts have -ve values for width
+					// although should be unsigned value - comes out as e.g. 65108 (intended -50)
+				if ($glyph == 0) {
+					$this->defaultWidth = $scale*$aw;
+					continue;
+				}
+				foreach($glyphToChar[$glyph] AS $char) {
+					if ($char != 0 && $char != 65535) {
+ 						$w = intval(round($scale*$aw));
+						if ($w == 0) { $w = 65535; }
+						if ($char < 196608) {
+							$this->charWidths[$char*2] = chr($w >> 8);
+							$this->charWidths[$char*2 + 1] = chr($w & 0xFF);
+							$nCharWidths++;
+
+						}
+					}
+				}
+			}
+		}
+
+		$data = $this->get_chunk(($start+$numberOfHMetrics*4),($numGlyphs*2));
+		$arr = unpack("n*", $data);
+		$diff = $numGlyphs-$numberOfHMetrics;
+		$w = intval(round($scale*$aw));
+		if ($w == 0) { $w = 65535; }
+		for( $pos=0; $pos<$diff; $pos++) {
+			$glyph = $pos + $numberOfHMetrics;
+			if (isset($glyphToChar[$glyph])) {
+				foreach($glyphToChar[$glyph] AS $char) {
+					if ($char != 0 && $char != 65535) {
+						if ($char < 196608) {
+							$this->charWidths[$char*2] = chr($w >> 8);
+							$this->charWidths[$char*2 + 1] = chr($w & 0xFF);
+							$nCharWidths++;
+						}
+					}
+				}
+			}
+		}
+		// NB 65535 is a set width of 0
+		// First bytes define number of chars in font
+		$this->charWidths[0] = chr($nCharWidths >> 8);
+		$this->charWidths[1] = chr($nCharWidths & 0xFF);
+	}
+
+
+
+
+
+	function getHMetric($numberOfHMetrics, $gid) {
+		$start = $this->seek_table("hmtx");
+		if ($gid < $numberOfHMetrics) {
+			$this->seek($start+($gid*4));
+			$hm = fread($this->fh,4);
+		}
+		else {
+			$this->seek($start+(($numberOfHMetrics-1)*4));
+			$hm = fread($this->fh,2);
+			$this->seek($start+($numberOfHMetrics*2)+($gid*2));
+			$hm .= fread($this->fh,2);
+		}
+		return $hm;
+	}
+
+	function getLOCA($indexToLocFormat, $numGlyphs) {
+		$start = $this->seek_table('loca');
+		$this->glyphPos = array();
+		if ($indexToLocFormat == 0) {
+			$data = $this->get_chunk($start,($numGlyphs*2)+2);
+			$arr = unpack("n*", $data);
+			for ($n=0; $n<=$numGlyphs; $n++) {
+				$this->glyphPos[] = ($arr[$n+1] * 2);
+			}
+		}
+		else if ($indexToLocFormat == 1) {
+			$data = $this->get_chunk($start,($numGlyphs*4)+4);
+			$arr = unpack("N*", $data);
+			for ($n=0; $n<=$numGlyphs; $n++) {
+				$this->glyphPos[] = ($arr[$n+1]);
+			}
+		}
+		else
+			die('Unknown location table format '.$indexToLocFormat);
+	}
+
+
+	// CMAP Format 4
+	function getCMAP4($unicode_cmap_offset, &$glyphToChar, &$charToGlyph ) {
+		$this->maxUniChar = 0;
+		$this->seek($unicode_cmap_offset + 2);
+		$length = $this->read_ushort();
+		$limit = $unicode_cmap_offset + $length;
+		$this->skip(2);
+
+		$segCount = $this->read_ushort() / 2;
+		$this->skip(6);
+		$endCount = array();
+		for($i=0; $i<$segCount; $i++) { $endCount[] = $this->read_ushort(); }
+		$this->skip(2);
+		$startCount = array();
+		for($i=0; $i<$segCount; $i++) { $startCount[] = $this->read_ushort(); }
+		$idDelta = array();
+		for($i=0; $i<$segCount; $i++) { $idDelta[] = $this->read_short(); }		// ???? was unsigned short
+		$idRangeOffset_start = $this->_pos;
+		$idRangeOffset = array();
+		for($i=0; $i<$segCount; $i++) { $idRangeOffset[] = $this->read_ushort(); }
+
+		for ($n=0;$n<$segCount;$n++) {
+			$endpoint = ($endCount[$n] + 1);
+			for ($unichar=$startCount[$n];$unichar<$endpoint;$unichar++) {
+				if ($idRangeOffset[$n] == 0)
+					$glyph = ($unichar + $idDelta[$n]) & 0xFFFF;
+				else {
+					$offset = ($unichar - $startCount[$n]) * 2 + $idRangeOffset[$n];
+					$offset = $idRangeOffset_start + 2 * $n + $offset;
+					if ($offset >= $limit)
+						$glyph = 0;
+					else {
+						$glyph = $this->get_ushort($offset);
+						if ($glyph != 0)
+						   $glyph = ($glyph + $idDelta[$n]) & 0xFFFF;
+					}
+				}
+				$charToGlyph[$unichar] = $glyph;
+				if ($unichar < 196608) { $this->maxUniChar = max($unichar,$this->maxUniChar); }
+				$glyphToChar[$glyph][] = $unichar;
+			}
+		}
+
+	}
+
+
+		// Put the TTF file together
+	function endTTFile(&$stm) {
+		$stm = '';
+		$numTables = count($this->otables);
+		$searchRange = 1;
+		$entrySelector = 0;
+		while ($searchRange * 2 <= $numTables) {
+			$searchRange = $searchRange * 2;
+			$entrySelector = $entrySelector + 1;
+		}
+		$searchRange = $searchRange * 16;
+		$rangeShift = $numTables * 16 - $searchRange;
+
+		// Header
+		if (_TTF_MAC_HEADER) {
+			$stm .= (pack("Nnnnn", 0x74727565, $numTables, $searchRange, $entrySelector, $rangeShift));	// Mac
+		}
+		else {
+			$stm .= (pack("Nnnnn", 0x00010000 , $numTables, $searchRange, $entrySelector, $rangeShift));	// Windows
+		}
+
+		// Table directory
+		$tables = $this->otables;
+		ksort ($tables);
+		$offset = 12 + $numTables * 16;
+		foreach ($tables AS $tag=>$data) {
+			if ($tag == 'head') { $head_start = $offset; }
+			$stm .= $tag;
+			$checksum = $this->calcChecksum($data);
+			$stm .= pack("nn", $checksum[0],$checksum[1]);
+			$stm .= pack("NN", $offset, strlen($data));
+			$paddedLength = (strlen($data)+3)&~3;
+			$offset = $offset + $paddedLength;
+		}
+
+		// Table data
+		foreach ($tables AS $tag=>$data) {
+			$data .= "\0\0\0";
+			$stm .= substr($data,0,(strlen($data)&~3));
+		}
+
+		$checksum = $this->calcChecksum($stm);
+		$checksum = $this->sub32(array(0xB1B0,0xAFBA), $checksum);
+		$chk = pack("nn", $checksum[0],$checksum[1]);
+		$stm = $this->splice($stm,($head_start + 8),$chk);
+		return $stm ;
+	}
+
+
+	function repackageTTF($file, $TTCfontID=0, $debug=false, $useOTL=false) {	// mPDF 5.7.1
+	// (Does not called for subsets)
+		$this->useOTL = $useOTL;	// mPDF 5.7.1
+		$this->filename = $file;
+		$this->fh = fopen($file ,'rb') or die('Can\'t open file ' . $file);
+		$this->_pos = 0;
+		$this->charWidths = '';
+		$this->glyphPos = array();
+		$this->charToGlyph = array();
+		$this->tables = array();
+		$this->otables = array();
+		$this->ascent = 0;
+		$this->descent = 0;
+		$this->strikeoutSize = 0;
+		$this->strikeoutPosition = 0;
+		$this->numTTCFonts = 0;
+		$this->TTCFonts = array();
+		$this->skip(4);
+		$this->maxUni = 0;
+		if ($TTCfontID > 0) {
+			$this->version = $version = $this->read_ulong();	// TTC Header version now
+			if (!in_array($version, array(0x00010000,0x00020000)))
+				die("ERROR - Error parsing TrueType Collection: version=".$version." - " . $file);
+			$this->numTTCFonts = $this->read_ulong();
+			for ($i=1; $i<=$this->numTTCFonts; $i++) {
+	      	      $this->TTCFonts[$i]['offset'] = $this->read_ulong();
+			}
+			$this->seek($this->TTCFonts[$TTCfontID]['offset']);
+			$this->version = $version = $this->read_ulong();	// TTFont version again now
+		}
+		$this->readTableDirectory($debug);
+		$tags = array ('OS/2', 'glyf', 'head', 'hhea', 'hmtx', 'loca', 'maxp', 'name', 'post', 'cvt ', 'fpgm', 'gasp', 'prep');
+
+		foreach($tags AS $tag) {
+			if (isset($this->tables[$tag])) { $this->add($tag, $this->get_table($tag)); }
+		}
+
+		// mPDF 5.7.1
+		if ($useOTL) {
+			///////////////////////////////////
+			// maxp - Maximum profile table
+			///////////////////////////////////
+			$this->seek_table("maxp");
+			$this->skip(4);
+			$numGlyphs = $this->read_ushort();
+
+
+			///////////////////////////////////
+			// cmap - Character to glyph index mapping table
+			///////////////////////////////////
+			$cmap_offset = $this->seek_table("cmap");
+			$this->skip(2);
+			$cmapTableCount = $this->read_ushort();
+			$unicode_cmap_offset = 0;
+			for ($i=0;$i<$cmapTableCount;$i++) {
+				$platformID = $this->read_ushort();
+				$encodingID = $this->read_ushort();
+				$offset = $this->read_ulong();
+				$save_pos = $this->_pos;
+				if (($platformID == 3 && $encodingID == 1) || $platformID == 0) { // Microsoft, Unicode
+					$format = $this->get_ushort($cmap_offset + $offset);
+					if ($format == 4) {
+						$unicode_cmap_offset = $cmap_offset + $offset;
+						break;
+					}
+				}
+				$this->seek($save_pos );
+			}
+
+			if (!$unicode_cmap_offset)
+				die('Font ('.$this->filename .') does not have cmap for Unicode (platform 3, encoding 1, format 4, or platform 0, any encoding, format 4)');
+
+
+			$glyphToChar = array();
+			$charToGlyph = array();
+			$this->getCMAP4($unicode_cmap_offset, $glyphToChar, $charToGlyph );
+
+
+			///////////////////////////////////
+			// Map Unmapped glyphs - from $numGlyphs
+			$bctr = 0xE000;
+			for ($gid=1; $gid<$numGlyphs; $gid++) {
+				if (!isset($glyphToChar[$gid])) {
+					while(isset($charToGlyph[$bctr])) { $bctr++; }	// Avoid overwriting a glyph already mapped in PUA (6,400)
+					if ($bctr > 0xF8FF) {
+						die("Problem. Trying to repackage TF file; not enough space for unmapped glyphs");
+					}
+					$glyphToChar[$gid][] = $bctr;
+					$charToGlyph[$bctr] = $gid;
+					$bctr++;
+				}
+			}
+			///////////////////////////////////
+
+			///////////////////////////////////
+			// Sort CID2GID map into segments of contiguous codes
+			///////////////////////////////////
+			unset($charToGlyph[65535]);
+			unset($charToGlyph[0]);
+			ksort($charToGlyph);
+			$rangeid = 0;
+			$range = array();
+			$prevcid = -2;
+			$prevglidx = -1;
+			// for each character
+			foreach ($charToGlyph as $cid => $glidx) {
+				if ($cid == ($prevcid + 1) && $glidx == ($prevglidx + 1)) {
+					$range[$rangeid][] = $glidx;
+				} else {
+					// new range
+					$rangeid = $cid;
+					$range[$rangeid] = array();
+					$range[$rangeid][] = $glidx;
+				}
+				$prevcid = $cid;
+				$prevglidx = $glidx;
+			}
+
+
+			///////////////////////////////////
+			// CMap table
+			///////////////////////////////////
+			// cmap - Character to glyph mapping
+			$segCount = count($range) + 1;	// + 1 Last segment has missing character 0xFFFF
+			$searchRange = 1;
+			$entrySelector = 0;
+			while ($searchRange * 2 <= $segCount ) {
+				$searchRange = $searchRange * 2;
+				$entrySelector = $entrySelector + 1;
+			}
+			$searchRange = $searchRange * 2;
+			$rangeShift = $segCount * 2 - $searchRange;
+			$length = 16 + (8*$segCount ) + ($numGlyphs+1);
+			$cmap = array(0, 3,		// Index : version, number of encoding subtables
+				0, 0,				// Encoding Subtable : platform (UNI=0), encoding 0
+				0, 28,			// Encoding Subtable : offset (hi,lo)
+				0, 3,				// Encoding Subtable : platform (UNI=0), encoding 3
+				0, 28,			// Encoding Subtable : offset (hi,lo)
+				3, 1,				// Encoding Subtable : platform (MS=3), encoding 1
+				0, 28,			// Encoding Subtable : offset (hi,lo)
+				4, $length, 0, 		// Format 4 Mapping subtable: format, length, language
+				$segCount*2,
+				$searchRange,
+				$entrySelector,
+				$rangeShift);
+
+			// endCode(s)
+			foreach($range AS $start=>$subrange) {
+				$endCode = $start + (count($subrange)-1);
+				$cmap[] = $endCode;	// endCode(s)
+			}
+			$cmap[] =	0xFFFF;	// endCode of last Segment
+			$cmap[] =	0;	// reservedPad
+
+			// startCode(s)
+			foreach($range AS $start=>$subrange) {
+				$cmap[] = $start;	// startCode(s)
+			}
+			$cmap[] =	0xFFFF;	// startCode of last Segment
+			// idDelta(s)
+			foreach($range AS $start=>$subrange) {
+				$idDelta = -($start-$subrange[0]);
+				//$n += count($subrange);	// ?? Line not required
+				$cmap[] = $idDelta;	// idDelta(s)
+			}
+			$cmap[] =	1;	// idDelta of last Segment
+			// idRangeOffset(s)
+			foreach($range AS $subrange) {
+				$cmap[] = 0;	// idRangeOffset[segCount]  	Offset in bytes to glyph indexArray, or 0
+			}
+			$cmap[] =	0;	// idRangeOffset of last Segment
+			foreach($range AS $subrange) {
+				foreach($subrange AS $glidx) {
+					$cmap[] = $glidx;
+				}
+			}
+			$cmap[] = 0;	// Mapping for last character
+			$cmapstr = '';
+			foreach($cmap AS $cm) { $cmapstr .= pack("n",$cm); }
+			$this->add('cmap', $cmapstr);
+
+
+		}
+		else { $this->add('cmap', $this->get_table('cmap')); }
+
+
+		fclose($this->fh);
+		$stm = '';
+		$this->endTTFile($stm);
+		return $stm ;
+	}
+
+
+}
+
+
+?>
\ No newline at end of file