SetDisplayMode('fullpage');
$mpdf->useSubstitutions = true;
$mpdf->simpleTables = true;
// force fonts to be embedded whole i.e. NOT susbet
$mpdf->percentSubset = 0;
//==============================================================
//==============================================================
//==============================================================
//==============================================================
// This generates a .mtx.php file if not already generated
$mpdf->WriteHTML('');
$mpdf->WriteHTML('
'.strtoupper($font).'
');	// Separate Paragraphs  defined by font
$html = '';
//==============================================================
//==============================================================
//==============================================================
//==============================================================
$unifile = file('UnicodeData.txt');
$unichars = array();
foreach($unifile AS $line) {
	if ($smp && preg_match('/^(1[0-9A-Za-z]{4});/',$line,$m)) { 
	  $unichars[hexdec($m[1])] = hexdec($m[1]);
	}
	else if (preg_match('/^([0-9A-Za-z]{4});/',$line,$m)) { 
	  $unichars[hexdec($m[1])] = hexdec($m[1]);
	}
}
// loads array $unicode_ranges
include('UnicodeRanges.php'); 
//==============================================================
//==============================================================
$cw = file_get_contents(_MPDF_TTFONTDATAPATH.$font.'.cw.dat');
if (!$cw) { die("Error - Must be able to read font metrics file: "._MPDF_TTFONTDATAPATH.$font.'.cw.dat'); }
$counter=0;
include(_MPDF_TTFONTDATAPATH.$font.'.mtx.php');
if ($smp) {
	$max = min($max,131071);
}
else { 
	$max = min($max,65535);
}
$justfinishedblank = false;
$justfinishedblankinvalid = false;
    		foreach($unicode_ranges AS $urk => $ur) {
			if (0 >= $ur['startdec'] && 0 <= $ur['enddec']) {
				$rangekey = $urk;
				$range = $ur['range'];
				$rangestart = $ur['starthex'];
				$rangeend = $ur['endhex'];
				break;
			}
   		}
	  $lastrange  = $range ;
    // create HTML content
    $html .= '';
    $html .= '| '.strtoupper($font).' | 
';
    $html .= '| '.strtoupper($range).' (U+'.$rangestart .'-U+'.$rangeend.') | 
';
    $html .= '| ';
    $html .= ' | ';
    for ($i = 0; $i < 16; $i++) {
            $html .= ' | -'.sprintf('%X', $i).'';
    }
    // print each character
    for ($i = $min; $i <= $max; ++$i) {
        if (($i > 0) AND (($i % 16) == 0)) {
		$notthisline = true;
		while($notthisline) {
	    	   for ($j = 0; $j < 16; $j++) {
			if ($mpdf->_charDefined($cw, ($i + $j))) {
			//if (isset($cw[($i+$j)])) { 
				$notthisline = false; 
			}
		   }
		   if ($notthisline) { 
		    if ($showmissing) {
			$range = '';
	    		foreach($unicode_ranges AS $urk => $ur) {
				if ($i >= $ur['startdec'] && $i <= $ur['enddec']) {
					$rangekey = $urk;
					$range = $ur['range'];
					$rangestart = $ur['starthex'];
					$rangeend = $ur['endhex'];
					break;
				}
	   		}
			$anyvalid = false;
	    	   	for ($j = 0; $j < 16; $j++) {
				if (isset($unichars[$i+$j])) { $anyvalid = true; break; }
			}
			if ($range && $range == $lastrange) {
    				if (!$anyvalid) { 
					if (!$justfinishedblankinvalid) { 
						$html .= ' | 
|  | 
'; 
					}
					$justfinishedblankinvalid = true;
				}
    				else if (!$justfinishedblank ) { 
					$html .= '|  | 
'; 
					$justfinishedblank = true;
				}
			}
			else if($range) {
				$html .= '
';
				$mpdf->WriteHTML($html); $html = '';
				$html .= '';
    				$html .= '| '.strtoupper($range).' (U+'.$rangestart.'-U+'.$rangeend.') | 
';
				$html .= '| ';
    				$html .= ' | ';
				for ($k = 0; $k < 16; $k++) {
      			      $html .= ' | -'.sprintf('%X', $k).'';
				}
				$justfinishedblank = false;
				$justfinishedblankinvalid = false;
			}
	  		$lastrange = $range ;
		    }
		    $i +=16; 
		    if ($i > $max) { break 2; }
		   }
		}
    		foreach($unicode_ranges AS $urk => $ur) {
			if ($i >= $ur['startdec'] && $i <= $ur['enddec']) {
				$rangekey = $urk;
				$range = $ur['range'];
				$rangestart = $ur['starthex'];
				$rangeend = $ur['endhex'];
				break;
			}
   		}
        	if ($i > 0 && ($i % 16) == 0 && ($range != $lastrange)) {
			$html .= ' | 
';
			$mpdf->WriteHTML($html); $html = '';
			$html .= '';
    			$html .= '| '.strtoupper($range).' (U+'.$rangestart.'-U+'.$rangeend.') | 
';
			$html .= '| ';
    			$html .= ' | ';
			for ($k = 0; $k < 16; $k++) {
      		      $html .= ' | -'.sprintf('%X', $k).'';
			}
		}
	  	$lastrange  = $range ;
		$justfinishedblank = false;
		$justfinishedblankinvalid = false;
            $html .= ' | 
| '.(floor($i / 16)*16).'';
            $html .= ' | '.sprintf('%03X', floor($i / 16)).'-';
        }
	  // Add dotted circle to any character (mark) with width=0
	  if ($mpdf->_charDefined($cw, $i) && _getCharWidth($cw, $i)==0) { $html .= ' | ◌'.$i.';'; $counter++; }
	  else  {
		  if ($mpdf->_charDefined($cw, $i)) { $html .= ' | '.$i.';'; $counter++; }
		  else if (isset($unichars[$i])) { $html .= ' | '; }
		  else { $html .= ' | '; }
	 }
    }
    if (($i % 16) > 0) {
	for ($j = ($i % 16); $j < 16; ++$j) { $html .= ' | '; }
    }
    $html .= ' | 
';
//==============================================================
function _getCharWidth(&$cw, $u, $isdef=true) {
	if ($u==0) { $w = false; }
	else { $w = (ord($cw[$u*2]) << 8) + ord($cw[$u*2+1]); }
	if ($w == 65535) { return 0; }
	else if ($w) { return $w; }
	else if ($isdef) { return false; }
	else { return 0; }
}
//==============================================================
$mpdf->WriteHTML($html);	// Separate Paragraphs  defined by font
$mpdf->Output(); 
exit;
//==============================================================
//==============================================================
//==============================================================
//==============================================================
?>