<?php

namespace DynamicOOOS\Mpdf\Image;

use DynamicOOOS\Mpdf\Color\ColorConverter;
use DynamicOOOS\Mpdf\Mpdf;
class Wmf
{
    /**
     * @var \Mpdf\Mpdf
     */
    private $mpdf;
    /**
     * @var \Mpdf\Color\ColorConverter
     */
    private $colorConverter;
    /**
     * @var array
     */
    private $gdiObjectArray;
    public function __construct(Mpdf $mpdf, ColorConverter $colorConverter)
    {
        $this->mpdf = $mpdf;
        $this->colorConverter = $colorConverter;
    }
    function _getWMFimage($data)
    {
        $k = Mpdf::SCALE;
        $this->gdiObjectArray = [];
        $a = \unpack('stest', "\x01\x00");
        if ($a['test'] != 1) {
            return [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 0x20b:
                    // SetWindowOrg
                    // do not allow window origin to be changed
                    // after drawing has begun
                    if (!$wmfdata) {
                        $wo = \array_reverse(\unpack('s2', $parms));
                    }
                    break;
                case 0x20c:
                    // SetWindowExt
                    // do not allow window extent to be changed
                    // after drawing has begun
                    if (!$wmfdata) {
                        $we = \array_reverse(\unpack('s2', $parms));
                    }
                    break;
                case 0x2fc:
                    // CreateBrushIndirect
                    $brush = \unpack('sstyle/Cr/Cg/Cb/Ca/Shatch', $parms);
                    $brush['type'] = 'B';
                    $this->_AddGDIObject($brush);
                    break;
                case 0x2fa:
                    // 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 0x6fe:
                // CreateBitmap
                case 0x2fd:
                // CreateBitmapIndirect
                case 0xf8:
                // CreateBrush
                case 0x2fb:
                // CreateFontIndirect
                case 0xf7:
                // CreatePalette
                case 0x1f9:
                // CreatePatternBrush
                case 0x6ff:
                // CreateRegion
                case 0x142:
                    // DibCreatePatternBrush
                    $dummyObject = ['type' => 'D'];
                    $this->_AddGDIObject($dummyObject);
                    break;
                case 0x106:
                    // SetPolyFillMode
                    $polyFillMode = \unpack('smode', $parms);
                    $polyFillMode = $polyFillMode['mode'];
                    break;
                case 0x1f0:
                    // DeleteObject
                    $idx = \unpack('Sidx', $parms);
                    $idx = $idx['idx'];
                    $this->_DeleteGDIObject($idx);
                    break;
                case 0x12d:
                    // 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->colorConverter->convert('rgb(' . $obj['r'] . ',' . $obj['g'] . ',' . $obj['b'] . ')', $this->mpdf->PDFAXwarnings), \true) . "\n";
                            }
                            break;
                        case 'P':
                            $nullPen = \false;
                            $dashArray = [];
                            // dash parameters are custom
                            switch ($obj['style']) {
                                case 0:
                                    // PS_SOLID
                                    break;
                                case 1:
                                    // PS_DASH
                                    $dashArray = [3, 1];
                                    break;
                                case 2:
                                    // PS_DOT
                                    $dashArray = [0.5, 0.5];
                                    break;
                                case 3:
                                    // PS_DASHDOT
                                    $dashArray = [2, 1, 0.5, 1];
                                    break;
                                case 4:
                                    // PS_DASHDOTDOT
                                    $dashArray = [2, 1, 0.5, 1, 0.5, 1];
                                    break;
                                case 5:
                                    // PS_NULL
                                    $nullPen = \true;
                                    break;
                            }
                            if (!$nullPen) {
                                $wmfdata .= $this->mpdf->SetDColor($this->colorConverter->convert('rgb(' . $obj['r'] . ',' . $obj['g'] . ',' . $obj['b'] . ')', $this->mpdf->PDFAXwarnings), \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 0x325:
                // Polyline
                case 0x324:
                    // 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 == 0x325) {
                        $op = 's';
                    } elseif ($func == 0x324) {
                        if ($nullPen) {
                            if ($nullBrush) {
                                $op = 'n';
                            } else {
                                $op = 'f';
                            }
                            // fill
                        } else {
                            if ($nullBrush) {
                                $op = 's';
                            } else {
                                $op = 'b';
                            }
                            // stroke and fill
                        }
                        if ($polyFillMode == 1 && ($op == 'b' || $op == 'f')) {
                            $op .= '*';
                        }
                        // use even-odd fill rule
                    }
                    $wmfdata .= $op . "\n";
                    break;
                case 0x538:
                    // 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';
                        } else {
                            $op = 'f';
                        }
                        // fill
                    } else {
                        if ($nullBrush) {
                            $op = 's';
                        } else {
                            $op = 'b';
                        }
                        // stroke and fill
                    }
                    if ($polyFillMode == 1 && ($op == 'b' || $op == 'f')) {
                        $op .= '*';
                    }
                    // use even-odd fill rule
                    $wmfdata .= $op . "\n";
                    break;
                case 0x0:
                    $endRecord = \true;
                    break;
            }
        }
        return [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]);
    }
}
