+ MPDF 6.1
This commit is contained in:
271
metadata/include/mpdf-6.1/classes/wmf.php
Normal file
271
metadata/include/mpdf-6.1/classes/wmf.php
Normal file
@ -0,0 +1,271 @@
|
||||
<?php
|
||||
|
||||
class wmf
|
||||
{
|
||||
|
||||
var $mpdf = null;
|
||||
|
||||
var $gdiObjectArray;
|
||||
|
||||
public function __construct(mPDF $mpdf)
|
||||
{
|
||||
$this->mpdf = $mpdf;
|
||||
}
|
||||
|
||||
function _getWMFimage($data)
|
||||
{
|
||||
$k = _MPDFK;
|
||||
|
||||
$this->gdiObjectArray = array();
|
||||
$a = unpack('stest', "\1\0");
|
||||
if ($a['test'] != 1)
|
||||
return array(0, 'Error parsing WMF image - Big-endian architecture not supported');
|
||||
// check for Aldus placeable metafile header
|
||||
$key = unpack('Lmagic', substr($data, 0, 4));
|
||||
$p = 18; // WMF header
|
||||
if ($key['magic'] == (int) 0x9AC6CDD7) {
|
||||
$p +=22;
|
||||
} // Aldus header
|
||||
// define some state variables
|
||||
$wo = null; // window origin
|
||||
$we = null; // window extent
|
||||
$polyFillMode = 0;
|
||||
$nullPen = false;
|
||||
$nullBrush = false;
|
||||
$endRecord = false;
|
||||
$wmfdata = '';
|
||||
while ($p < strlen($data) && !$endRecord) {
|
||||
$recordInfo = unpack('Lsize/Sfunc', substr($data, $p, 6));
|
||||
$p += 6;
|
||||
// size of record given in WORDs (= 2 bytes)
|
||||
$size = $recordInfo['size'];
|
||||
// func is number of GDI function
|
||||
$func = $recordInfo['func'];
|
||||
if ($size > 3) {
|
||||
$parms = substr($data, $p, 2 * ($size - 3));
|
||||
$p += 2 * ($size - 3);
|
||||
}
|
||||
switch ($func) {
|
||||
case 0x020b: // SetWindowOrg
|
||||
// do not allow window origin to be changed
|
||||
// after drawing has begun
|
||||
if (!$wmfdata)
|
||||
$wo = array_reverse(unpack('s2', $parms));
|
||||
break;
|
||||
case 0x020c: // SetWindowExt
|
||||
// do not allow window extent to be changed
|
||||
// after drawing has begun
|
||||
if (!$wmfdata)
|
||||
$we = array_reverse(unpack('s2', $parms));
|
||||
break;
|
||||
case 0x02fc: // CreateBrushIndirect
|
||||
$brush = unpack('sstyle/Cr/Cg/Cb/Ca/Shatch', $parms);
|
||||
$brush['type'] = 'B';
|
||||
$this->_AddGDIObject($brush);
|
||||
break;
|
||||
case 0x02fa: // CreatePenIndirect
|
||||
$pen = unpack('Sstyle/swidth/sdummy/Cr/Cg/Cb/Ca', $parms);
|
||||
// convert width from twips to user unit
|
||||
$pen['width'] /= (20 * $k);
|
||||
$pen['type'] = 'P';
|
||||
$this->_AddGDIObject($pen);
|
||||
break;
|
||||
|
||||
// MUST create other GDI objects even if we don't handle them
|
||||
case 0x06fe: // CreateBitmap
|
||||
case 0x02fd: // CreateBitmapIndirect
|
||||
case 0x00f8: // CreateBrush
|
||||
case 0x02fb: // CreateFontIndirect
|
||||
case 0x00f7: // CreatePalette
|
||||
case 0x01f9: // CreatePatternBrush
|
||||
case 0x06ff: // CreateRegion
|
||||
case 0x0142: // DibCreatePatternBrush
|
||||
$dummyObject = array('type' => 'D');
|
||||
$this->_AddGDIObject($dummyObject);
|
||||
break;
|
||||
case 0x0106: // SetPolyFillMode
|
||||
$polyFillMode = unpack('smode', $parms);
|
||||
$polyFillMode = $polyFillMode['mode'];
|
||||
break;
|
||||
case 0x01f0: // DeleteObject
|
||||
$idx = unpack('Sidx', $parms);
|
||||
$idx = $idx['idx'];
|
||||
$this->_DeleteGDIObject($idx);
|
||||
break;
|
||||
case 0x012d: // SelectObject
|
||||
$idx = unpack('Sidx', $parms);
|
||||
$idx = $idx['idx'];
|
||||
$obj = $this->_GetGDIObject($idx);
|
||||
switch ($obj['type']) {
|
||||
case 'B':
|
||||
$nullBrush = false;
|
||||
if ($obj['style'] == 1) {
|
||||
$nullBrush = true;
|
||||
} else {
|
||||
$wmfdata .= $this->mpdf->SetFColor($this->mpdf->ConvertColor('rgb(' . $obj['r'] . ',' . $obj['g'] . ',' . $obj['b'] . ')'), true) . "\n";
|
||||
}
|
||||
break;
|
||||
case 'P':
|
||||
$nullPen = false;
|
||||
$dashArray = array();
|
||||
// dash parameters are custom
|
||||
switch ($obj['style']) {
|
||||
case 0: // PS_SOLID
|
||||
break;
|
||||
case 1: // PS_DASH
|
||||
$dashArray = array(3, 1);
|
||||
break;
|
||||
case 2: // PS_DOT
|
||||
$dashArray = array(0.5, 0.5);
|
||||
break;
|
||||
case 3: // PS_DASHDOT
|
||||
$dashArray = array(2, 1, 0.5, 1);
|
||||
break;
|
||||
case 4: // PS_DASHDOTDOT
|
||||
$dashArray = array(2, 1, 0.5, 1, 0.5, 1);
|
||||
break;
|
||||
case 5: // PS_NULL
|
||||
$nullPen = true;
|
||||
break;
|
||||
}
|
||||
if (!$nullPen) {
|
||||
$wmfdata .= $this->mpdf->SetDColor($this->mpdf->ConvertColor('rgb(' . $obj['r'] . ',' . $obj['g'] . ',' . $obj['b'] . ')'), true) . "\n";
|
||||
$wmfdata .= sprintf("%.3F w\n", $obj['width'] * $k);
|
||||
}
|
||||
if (!empty($dashArray)) {
|
||||
$s = '[';
|
||||
for ($i = 0; $i < count($dashArray); $i++) {
|
||||
$s .= $dashArray[$i] * $k;
|
||||
if ($i != count($dashArray) - 1) {
|
||||
$s .= ' ';
|
||||
}
|
||||
}
|
||||
$s .= '] 0 d';
|
||||
$wmfdata .= $s . "\n";
|
||||
}
|
||||
break;
|
||||
}
|
||||
break;
|
||||
case 0x0325: // Polyline
|
||||
case 0x0324: // Polygon
|
||||
$coords = unpack('s' . ($size - 3), $parms);
|
||||
$numpoints = $coords[1];
|
||||
for ($i = $numpoints; $i > 0; $i--) {
|
||||
$px = $coords[2 * $i];
|
||||
$py = $coords[2 * $i + 1];
|
||||
|
||||
if ($i < $numpoints) {
|
||||
$wmfdata .= $this->_LineTo($px, $py);
|
||||
} else {
|
||||
$wmfdata .= $this->_MoveTo($px, $py);
|
||||
}
|
||||
}
|
||||
if ($func == 0x0325) {
|
||||
$op = 's';
|
||||
} else if ($func == 0x0324) {
|
||||
if ($nullPen) {
|
||||
if ($nullBrush) {
|
||||
$op = 'n';
|
||||
} // no op
|
||||
else {
|
||||
$op = 'f';
|
||||
} // fill
|
||||
} else {
|
||||
if ($nullBrush) {
|
||||
$op = 's';
|
||||
} // stroke
|
||||
else {
|
||||
$op = 'b';
|
||||
} // stroke and fill
|
||||
}
|
||||
if ($polyFillMode == 1 && ($op == 'b' || $op == 'f')) {
|
||||
$op .= '*';
|
||||
} // use even-odd fill rule
|
||||
}
|
||||
$wmfdata .= $op . "\n";
|
||||
break;
|
||||
case 0x0538: // PolyPolygon
|
||||
$coords = unpack('s' . ($size - 3), $parms);
|
||||
$numpolygons = $coords[1];
|
||||
$adjustment = $numpolygons;
|
||||
for ($j = 1; $j <= $numpolygons; $j++) {
|
||||
$numpoints = $coords[$j + 1];
|
||||
for ($i = $numpoints; $i > 0; $i--) {
|
||||
$px = $coords[2 * $i + $adjustment];
|
||||
$py = $coords[2 * $i + 1 + $adjustment];
|
||||
if ($i == $numpoints) {
|
||||
$wmfdata .= $this->_MoveTo($px, $py);
|
||||
} else {
|
||||
$wmfdata .= $this->_LineTo($px, $py);
|
||||
}
|
||||
}
|
||||
$adjustment += $numpoints * 2;
|
||||
}
|
||||
|
||||
if ($nullPen) {
|
||||
if ($nullBrush) {
|
||||
$op = 'n';
|
||||
} // no op
|
||||
else {
|
||||
$op = 'f';
|
||||
} // fill
|
||||
} else {
|
||||
if ($nullBrush) {
|
||||
$op = 's';
|
||||
} // stroke
|
||||
else {
|
||||
$op = 'b';
|
||||
} // stroke and fill
|
||||
}
|
||||
if ($polyFillMode == 1 && ($op == 'b' || $op == 'f')) {
|
||||
$op .= '*';
|
||||
} // use even-odd fill rule
|
||||
$wmfdata .= $op . "\n";
|
||||
break;
|
||||
case 0x0000:
|
||||
$endRecord = true;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
return array(1, $wmfdata, $wo, $we);
|
||||
}
|
||||
|
||||
function _MoveTo($x, $y)
|
||||
{
|
||||
return "$x $y m\n";
|
||||
}
|
||||
|
||||
// a line must have been started using _MoveTo() first
|
||||
function _LineTo($x, $y)
|
||||
{
|
||||
return "$x $y l\n";
|
||||
}
|
||||
|
||||
function _AddGDIObject($obj)
|
||||
{
|
||||
// find next available slot
|
||||
$idx = 0;
|
||||
if (!empty($this->gdiObjectArray)) {
|
||||
$empty = false;
|
||||
$i = 0;
|
||||
while (!$empty) {
|
||||
$empty = !isset($this->gdiObjectArray[$i]);
|
||||
$i++;
|
||||
}
|
||||
$idx = $i - 1;
|
||||
}
|
||||
$this->gdiObjectArray[$idx] = $obj;
|
||||
}
|
||||
|
||||
function _GetGDIObject($idx)
|
||||
{
|
||||
return $this->gdiObjectArray[$idx];
|
||||
}
|
||||
|
||||
function _DeleteGDIObject($idx)
|
||||
{
|
||||
unset($this->gdiObjectArray[$idx]);
|
||||
}
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user