<?php

namespace DynamicOOOS\Mpdf\Writer;

use DynamicOOOS\Mpdf\Strict;
use DynamicOOOS\Mpdf\Mpdf;
final class BackgroundWriter
{
    use Strict;
    /**
     * @var \Mpdf\Mpdf
     */
    private $mpdf;
    /**
     * @var \Mpdf\Writer\BaseWriter
     */
    private $writer;
    public function __construct(Mpdf $mpdf, BaseWriter $writer)
    {
        $this->mpdf = $mpdf;
        $this->writer = $writer;
    }
    public function writePatterns()
    {
        $patternCount = \count($this->mpdf->patterns);
        for ($i = 1; $i <= $patternCount; $i++) {
            $x = $this->mpdf->patterns[$i]['x'];
            $y = $this->mpdf->patterns[$i]['y'];
            $w = $this->mpdf->patterns[$i]['w'];
            $h = $this->mpdf->patterns[$i]['h'];
            $pgh = $this->mpdf->patterns[$i]['pgh'];
            $orig_w = $this->mpdf->patterns[$i]['orig_w'];
            $orig_h = $this->mpdf->patterns[$i]['orig_h'];
            $image_id = $this->mpdf->patterns[$i]['image_id'];
            $itype = $this->mpdf->patterns[$i]['itype'];
            if (isset($this->mpdf->patterns[$i]['bpa'])) {
                $bpa = $this->mpdf->patterns[$i]['bpa'];
            } else {
                $bpa = [];
                // background positioning area
            }
            if ($this->mpdf->patterns[$i]['x_repeat']) {
                $x_repeat = \true;
            } else {
                $x_repeat = \false;
            }
            if ($this->mpdf->patterns[$i]['y_repeat']) {
                $y_repeat = \true;
            } else {
                $y_repeat = \false;
            }
            $x_pos = $this->mpdf->patterns[$i]['x_pos'];
            if (\false !== \strpos($x_pos, '%')) {
                $x_pos = (float) $x_pos;
                $x_pos /= 100;
                if (isset($bpa['w']) && $bpa['w']) {
                    $x_pos = $bpa['w'] * $x_pos - $orig_w / Mpdf::SCALE * $x_pos;
                } else {
                    $x_pos = $w * $x_pos - $orig_w / Mpdf::SCALE * $x_pos;
                }
            }
            $y_pos = $this->mpdf->patterns[$i]['y_pos'];
            if (\false !== \strpos($y_pos, '%')) {
                $y_pos = (float) $y_pos;
                $y_pos /= 100;
                if (isset($bpa['h']) && $bpa['h']) {
                    $y_pos = $bpa['h'] * $y_pos - $orig_h / Mpdf::SCALE * $y_pos;
                } else {
                    $y_pos = $h * $y_pos - $orig_h / Mpdf::SCALE * $y_pos;
                }
            }
            if (isset($bpa['x']) && $bpa['x']) {
                $adj_x = ($x_pos + $bpa['x']) * Mpdf::SCALE;
            } else {
                $adj_x = ($x_pos + $x) * Mpdf::SCALE;
            }
            if (isset($bpa['y']) && $bpa['y']) {
                $adj_y = ($pgh - $y_pos - $bpa['y']) * Mpdf::SCALE - $orig_h;
            } else {
                $adj_y = ($pgh - $y_pos - $y) * Mpdf::SCALE - $orig_h;
            }
            $img_obj = \false;
            if ($itype === 'svg' || $itype === 'wmf') {
                foreach ($this->mpdf->formobjects as $fo) {
                    if ($fo['i'] == $image_id) {
                        $img_obj = $fo['n'];
                        $fo_w = $fo['w'];
                        $fo_h = -$fo['h'];
                        $wmf_x = $fo['x'];
                        $wmf_y = $fo['y'];
                        break;
                    }
                }
            } else {
                foreach ($this->mpdf->images as $img) {
                    if ($img['i'] == $image_id) {
                        $img_obj = $img['n'];
                        break;
                    }
                }
            }
            if (!$img_obj) {
                throw new \DynamicOOOS\Mpdf\MpdfException('Problem: Image object not found for background pattern ' . $img['i']);
            }
            $this->writer->object();
            $this->writer->write('<</ProcSet [/PDF /Text /ImageB /ImageC /ImageI]');
            if ($itype === 'svg' || $itype === 'wmf') {
                $this->writer->write('/XObject <</FO' . $image_id . ' ' . $img_obj . ' 0 R >>');
                // ******* ADD ANY ExtGStates, Shading AND Fonts needed for the FormObject
                // Set in classes/svg array['fo'] = true
                // Required that _putshaders comes before _putpatterns in _putresources
                // This adds any resources associated with any FormObject to every Formobject - overkill but works!
                if (\count($this->mpdf->extgstates)) {
                    $this->writer->write('/ExtGState <<');
                    foreach ($this->mpdf->extgstates as $k => $extgstate) {
                        if (isset($extgstate['fo']) && $extgstate['fo']) {
                            if (isset($extgstate['trans'])) {
                                $this->writer->write('/' . $extgstate['trans'] . ' ' . $extgstate['n'] . ' 0 R');
                            } else {
                                $this->writer->write('/GS' . $k . ' ' . $extgstate['n'] . ' 0 R');
                            }
                        }
                    }
                    $this->writer->write('>>');
                }
                /* -- BACKGROUNDS -- */
                if (isset($this->mpdf->gradients) && \count($this->mpdf->gradients) > 0) {
                    $this->writer->write('/Shading <<');
                    foreach ($this->mpdf->gradients as $id => $grad) {
                        if (isset($grad['fo']) && $grad['fo']) {
                            $this->writer->write('/Sh' . $id . ' ' . $grad['id'] . ' 0 R');
                        }
                    }
                    $this->writer->write('>>');
                }
                /* -- END BACKGROUNDS -- */
                $this->writer->write('/Font <<');
                foreach ($this->mpdf->fonts as $font) {
                    if (!$font['used'] && $font['type'] === 'TTF') {
                        continue;
                    }
                    if (isset($font['fo']) && $font['fo']) {
                        if ($font['type'] === 'TTF' && ($font['sip'] || $font['smp'])) {
                            foreach ($font['n'] as $k => $fid) {
                                $this->writer->write('/F' . $font['subsetfontids'][$k] . ' ' . $font['n'][$k] . ' 0 R');
                            }
                        } else {
                            $this->writer->write('/F' . $font['i'] . ' ' . $font['n'] . ' 0 R');
                        }
                    }
                }
                $this->writer->write('>>');
            } else {
                $this->writer->write('/XObject <</I' . $image_id . ' ' . $img_obj . ' 0 R >>');
            }
            $this->writer->write('>>');
            $this->writer->write('endobj');
            $this->writer->object();
            $this->mpdf->patterns[$i]['n'] = $this->mpdf->n;
            $this->writer->write('<< /Type /Pattern /PatternType 1 /PaintType 1 /TilingType 2');
            $this->writer->write('/Resources ' . ($this->mpdf->n - 1) . ' 0 R');
            $this->writer->write(\sprintf('/BBox [0 0 %.3F %.3F]', $orig_w, $orig_h));
            if ($x_repeat) {
                $this->writer->write(\sprintf('/XStep %.3F', $orig_w));
            } else {
                $this->writer->write(\sprintf('/XStep %d', 99999));
            }
            if ($y_repeat) {
                $this->writer->write(\sprintf('/YStep %.3F', $orig_h));
            } else {
                $this->writer->write(\sprintf('/YStep %d', 99999));
            }
            if ($itype === 'svg' || $itype === 'wmf') {
                $this->writer->write(\sprintf('/Matrix [1 0 0 -1 %.3F %.3F]', $adj_x, $adj_y + $orig_h));
                $s = \sprintf('q %.3F 0 0 %.3F %.3F %.3F cm /FO%d Do Q', $orig_w / $fo_w, -$orig_h / $fo_h, -($orig_w / $fo_w) * $wmf_x, $orig_w / $fo_w * $wmf_y, $image_id);
            } else {
                $this->writer->write(\sprintf('/Matrix [1 0 0 1 %.3F %.3F]', $adj_x, $adj_y));
                $s = \sprintf('q %.3F 0 0 %.3F 0 0 cm /I%d Do Q', $orig_w, $orig_h, $image_id);
            }
            if ($this->mpdf->compress) {
                $this->writer->write('/Filter /FlateDecode');
                $s = \gzcompress($s);
            }
            $this->writer->write('/Length ' . \strlen($s) . '>>');
            $this->writer->stream($s);
            $this->writer->write('endobj');
        }
    }
    public function writeShaders()
    {
        $maxid = \count($this->mpdf->gradients);
        // index for transparency gradients
        foreach ($this->mpdf->gradients as $id => $grad) {
            if (empty($grad['is_mask']) && ($grad['type'] == 2 || $grad['type'] == 3)) {
                $this->writer->object();
                $this->writer->write('<<');
                $this->writer->write('/FunctionType 3');
                $this->writer->write('/Domain [0 1]');
                $fn = [];
                $bd = [];
                $en = [];
                for ($i = 0; $i < \count($grad['stops']) - 1; $i++) {
                    $fn[] = $this->mpdf->n + 1 + $i . ' 0 R';
                    $en[] = '0 1';
                    if ($i > 0) {
                        $bd[] = \sprintf('%.3F', $grad['stops'][$i]['offset']);
                    }
                }
                $this->writer->write('/Functions [' . \implode(' ', $fn) . ']');
                $this->writer->write('/Bounds [' . \implode(' ', $bd) . ']');
                $this->writer->write('/Encode [' . \implode(' ', $en) . ']');
                $this->writer->write('>>');
                $this->writer->write('endobj');
                $f1 = $this->mpdf->n;
                for ($i = 0; $i < \count($grad['stops']) - 1; $i++) {
                    $this->writer->object();
                    $this->writer->write('<<');
                    $this->writer->write('/FunctionType 2');
                    $this->writer->write('/Domain [0 1]');
                    $this->writer->write('/C0 [' . $grad['stops'][$i]['col'] . ']');
                    $this->writer->write('/C1 [' . $grad['stops'][$i + 1]['col'] . ']');
                    $this->writer->write('/N 1');
                    $this->writer->write('>>');
                    $this->writer->write('endobj');
                }
            }
            if ($grad['type'] == 2 || $grad['type'] == 3) {
                if (isset($grad['trans']) && $grad['trans']) {
                    $this->writer->object();
                    $this->writer->write('<<');
                    $this->writer->write('/FunctionType 3');
                    $this->writer->write('/Domain [0 1]');
                    $fn = [];
                    $bd = [];
                    $en = [];
                    for ($i = 0; $i < \count($grad['stops']) - 1; $i++) {
                        $fn[] = $this->mpdf->n + 1 + $i . ' 0 R';
                        $en[] = '0 1';
                        if ($i > 0) {
                            $bd[] = \sprintf('%.3F', $grad['stops'][$i]['offset']);
                        }
                    }
                    $this->writer->write('/Functions [' . \implode(' ', $fn) . ']');
                    $this->writer->write('/Bounds [' . \implode(' ', $bd) . ']');
                    $this->writer->write('/Encode [' . \implode(' ', $en) . ']');
                    $this->writer->write('>>');
                    $this->writer->write('endobj');
                    $f2 = $this->mpdf->n;
                    for ($i = 0; $i < \count($grad['stops']) - 1; $i++) {
                        $this->writer->object();
                        $this->writer->write('<<');
                        $this->writer->write('/FunctionType 2');
                        $this->writer->write('/Domain [0 1]');
                        $this->writer->write(\sprintf('/C0 [%.3F]', $grad['stops'][$i]['opacity']));
                        $this->writer->write(\sprintf('/C1 [%.3F]', $grad['stops'][$i + 1]['opacity']));
                        $this->writer->write('/N 1');
                        $this->writer->write('>>');
                        $this->writer->write('endobj');
                    }
                }
            }
            if (empty($grad['is_mask'])) {
                $this->writer->object();
                $this->writer->write('<<');
                $this->writer->write('/ShadingType ' . $grad['type']);
                if (isset($grad['colorspace'])) {
                    $this->writer->write('/ColorSpace /Device' . $grad['colorspace']);
                    // Can use CMYK if all C0 and C1 above have 4 values
                } else {
                    $this->writer->write('/ColorSpace /DeviceRGB');
                }
                if ($grad['type'] == 2) {
                    $this->writer->write(\sprintf('/Coords [%.3F %.3F %.3F %.3F]', $grad['coords'][0], $grad['coords'][1], $grad['coords'][2], $grad['coords'][3]));
                    $this->writer->write('/Function ' . $f1 . ' 0 R');
                    $this->writer->write('/Extend [' . $grad['extend'][0] . ' ' . $grad['extend'][1] . '] ');
                    $this->writer->write('>>');
                } elseif ($grad['type'] == 3) {
                    // x0, y0, r0, x1, y1, r1
                    // at this this time radius of inner circle is 0
                    $ir = 0;
                    if (isset($grad['coords'][5]) && $grad['coords'][5]) {
                        $ir = $grad['coords'][5];
                    }
                    $this->writer->write(\sprintf('/Coords [%.3F %.3F %.3F %.3F %.3F %.3F]', $grad['coords'][0], $grad['coords'][1], $ir, $grad['coords'][2], $grad['coords'][3], $grad['coords'][4]));
                    $this->writer->write('/Function ' . $f1 . ' 0 R');
                    $this->writer->write('/Extend [' . $grad['extend'][0] . ' ' . $grad['extend'][1] . '] ');
                    $this->writer->write('>>');
                } elseif ($grad['type'] == 6) {
                    $this->writer->write('/BitsPerCoordinate 16');
                    $this->writer->write('/BitsPerComponent 8');
                    if ($grad['colorspace'] === 'CMYK') {
                        $this->writer->write('/Decode[0 1 0 1 0 1 0 1 0 1 0 1]');
                    } elseif ($grad['colorspace'] === 'Gray') {
                        $this->writer->write('/Decode[0 1 0 1 0 1]');
                    } else {
                        $this->writer->write('/Decode[0 1 0 1 0 1 0 1 0 1]');
                    }
                    $this->writer->write('/BitsPerFlag 8');
                    $this->writer->write('/Length ' . \strlen($grad['stream']));
                    $this->writer->write('>>');
                    $this->writer->stream($grad['stream']);
                }
                $this->writer->write('endobj');
            }
            $this->mpdf->gradients[$id]['id'] = $this->mpdf->n;
            // set pattern object
            $this->writer->object();
            $out = '<< /Type /Pattern /PatternType 2';
            $out .= ' /Shading ' . $this->mpdf->gradients[$id]['id'] . ' 0 R';
            $out .= ' >>';
            $out .= "\n" . 'endobj';
            $this->writer->write($out);
            $this->mpdf->gradients[$id]['pattern'] = $this->mpdf->n;
            if (isset($grad['trans']) && $grad['trans']) {
                // luminosity pattern
                $transid = $id + $maxid;
                $this->writer->object();
                $this->writer->write('<<');
                $this->writer->write('/ShadingType ' . $grad['type']);
                $this->writer->write('/ColorSpace /DeviceGray');
                if ($grad['type'] == 2) {
                    $this->writer->write(\sprintf('/Coords [%.3F %.3F %.3F %.3F]', $grad['coords'][0], $grad['coords'][1], $grad['coords'][2], $grad['coords'][3]));
                    $this->writer->write('/Function ' . $f2 . ' 0 R');
                    $this->writer->write('/Extend [' . $grad['extend'][0] . ' ' . $grad['extend'][1] . '] ');
                    $this->writer->write('>>');
                } elseif ($grad['type'] == 3) {
                    // x0, y0, r0, x1, y1, r1
                    // at this this time radius of inner circle is 0
                    $ir = 0;
                    if (isset($grad['coords'][5]) && $grad['coords'][5]) {
                        $ir = $grad['coords'][5];
                    }
                    $this->writer->write(\sprintf('/Coords [%.3F %.3F %.3F %.3F %.3F %.3F]', $grad['coords'][0], $grad['coords'][1], $ir, $grad['coords'][2], $grad['coords'][3], $grad['coords'][4]));
                    $this->writer->write('/Function ' . $f2 . ' 0 R');
                    $this->writer->write('/Extend [' . $grad['extend'][0] . ' ' . $grad['extend'][1] . '] ');
                    $this->writer->write('>>');
                } elseif ($grad['type'] == 6) {
                    $this->writer->write('/BitsPerCoordinate 16');
                    $this->writer->write('/BitsPerComponent 8');
                    $this->writer->write('/Decode[0 1 0 1 0 1]');
                    $this->writer->write('/BitsPerFlag 8');
                    $this->writer->write('/Length ' . \strlen($grad['stream_trans']));
                    $this->writer->write('>>');
                    $this->writer->stream($grad['stream_trans']);
                }
                $this->writer->write('endobj');
                $this->mpdf->gradients[$transid]['id'] = $this->mpdf->n;
                $this->writer->object();
                $this->writer->write('<< /Type /Pattern /PatternType 2');
                $this->writer->write('/Shading ' . $this->mpdf->gradients[$transid]['id'] . ' 0 R');
                $this->writer->write('>>');
                $this->writer->write('endobj');
                $this->mpdf->gradients[$transid]['pattern'] = $this->mpdf->n;
                $this->writer->object();
                // Need to extend size of viewing box in case of transformations
                $str = 'q /a0 gs /Pattern cs /p' . $transid . ' scn -' . $this->mpdf->wPt / 2 . ' -' . $this->mpdf->hPt / 2 . ' ' . 2 * $this->mpdf->wPt . ' ' . 2 * $this->mpdf->hPt . ' re f Q';
                $filter = $this->mpdf->compress ? '/Filter /FlateDecode ' : '';
                $p = $this->mpdf->compress ? \gzcompress($str) : $str;
                $this->writer->write('<< /Type /XObject /Subtype /Form /FormType 1 ' . $filter);
                $this->writer->write('/Length ' . \strlen($p));
                $this->writer->write('/BBox [-' . $this->mpdf->wPt / 2 . ' -' . $this->mpdf->hPt / 2 . ' ' . 2 * $this->mpdf->wPt . ' ' . 2 * $this->mpdf->hPt . ']');
                $this->writer->write('/Group << /Type /Group /S /Transparency /CS /DeviceGray >>');
                $this->writer->write('/Resources <<');
                $this->writer->write('/ExtGState << /a0 << /ca 1 /CA 1 >> >>');
                $this->writer->write('/Pattern << /p' . $transid . ' ' . $this->mpdf->gradients[$transid]['pattern'] . ' 0 R >>');
                $this->writer->write('>>');
                $this->writer->write('>>');
                $this->writer->stream($p);
                $this->writer->write('endobj');
                $this->writer->object();
                $this->writer->write('<< /Type /Mask /S /Luminosity /G ' . ($this->mpdf->n - 1) . ' 0 R >>' . "\n" . 'endobj');
                $this->writer->object();
                $this->writer->write('<< /Type /ExtGState /SMask ' . ($this->mpdf->n - 1) . ' 0 R /AIS false >>' . "\n" . 'endobj');
                if (isset($grad['fo']) && $grad['fo']) {
                    $this->mpdf->extgstates[] = ['n' => $this->mpdf->n, 'trans' => 'TGS' . $id, 'fo' => \true];
                } else {
                    $this->mpdf->extgstates[] = ['n' => $this->mpdf->n, 'trans' => 'TGS' . $id];
                }
            }
        }
    }
}
