<?php

namespace DynamicOOOS;

//============================================================+
// File name   : tcpdf_images.php
// Version     : 1.0.005
// Begin       : 2002-08-03
// Last Update : 2014-11-15
// Author      : Nicola Asuni - Tecnick.com LTD - www.tecnick.com - info@tecnick.com
// License     : GNU-LGPL v3 (http://www.gnu.org/copyleft/lesser.html)
// -------------------------------------------------------------------
// Copyright (C) 2002-2014 Nicola Asuni - Tecnick.com LTD
//
// This file is part of TCPDF software library.
//
// TCPDF is free software: you can redistribute it and/or modify it
// under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation, either version 3 of the
// License, or (at your option) any later version.
//
// TCPDF is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU Lesser General Public License for more details.
//
// You should have received a copy of the License
// along with TCPDF. If not, see
// <http://www.tecnick.com/pagefiles/tcpdf/LICENSE.TXT>.
//
// See LICENSE.TXT file for more information.
// -------------------------------------------------------------------
//
// Description :
//   Static image methods used by the TCPDF class.
//
//============================================================+
/**
 * @file
 * This is a PHP class that contains static image methods for the TCPDF class.<br>
 * @package com.tecnick.tcpdf
 * @author Nicola Asuni
 * @version 1.0.005
 */
/**
 * @class TCPDF_IMAGES
 * Static image methods used by the TCPDF class.
 * @package com.tecnick.tcpdf
 * @brief PHP class for generating PDF documents without requiring external extensions.
 * @version 1.0.005
 * @author Nicola Asuni - info@tecnick.com
 */
class TCPDF_IMAGES
{
    /**
     * Array of hinheritable SVG properties.
     * @since 5.0.000 (2010-05-02)
     * @public static
     * 
     * @var string[]
     */
    public static $svginheritprop = array('clip-rule', 'color', 'color-interpolation', 'color-interpolation-filters', 'color-profile', 'color-rendering', 'cursor', 'direction', 'display', 'fill', 'fill-opacity', 'fill-rule', 'font', 'font-family', 'font-size', 'font-size-adjust', 'font-stretch', 'font-style', 'font-variant', 'font-weight', 'glyph-orientation-horizontal', 'glyph-orientation-vertical', 'image-rendering', 'kerning', 'letter-spacing', 'marker', 'marker-end', 'marker-mid', 'marker-start', 'pointer-events', 'shape-rendering', 'stroke', 'stroke-dasharray', 'stroke-dashoffset', 'stroke-linecap', 'stroke-linejoin', 'stroke-miterlimit', 'stroke-opacity', 'stroke-width', 'text-anchor', 'text-rendering', 'visibility', 'word-spacing', 'writing-mode');
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    /**
     * Return the image type given the file name or array returned by getimagesize() function.
     * @param string $imgfile image file name
     * @param array $iminfo array of image information returned by getimagesize() function.
     * @return string image type
     * @since 4.8.017 (2009-11-27)
     * @public static
     */
    public static function getImageFileType($imgfile, $iminfo = array())
    {
        $type = '';
        if (isset($iminfo['mime']) and !empty($iminfo['mime'])) {
            $mime = \explode('/', $iminfo['mime']);
            if (\count($mime) > 1 and $mime[0] == 'image' and !empty($mime[1])) {
                $type = \strtolower(\trim($mime[1]));
            }
        }
        if (empty($type)) {
            $type = \strtolower(\trim(\pathinfo(\parse_url($imgfile, \PHP_URL_PATH), \PATHINFO_EXTENSION)));
        }
        if ($type == 'jpg') {
            $type = 'jpeg';
        }
        return $type;
    }
    /**
     * Set the transparency for the given GD image.
     * @param resource $new_image GD image object
     * @param resource $image GD image object.
     * @return resource GD image object $new_image
     * @since 4.9.016 (2010-04-20)
     * @public static
     */
    public static function setGDImageTransparency($new_image, $image)
    {
        // default transparency color (white)
        $tcol = array('red' => 255, 'green' => 255, 'blue' => 255);
        // transparency index
        $tid = \imagecolortransparent($image);
        $palletsize = \imagecolorstotal($image);
        if ($tid >= 0 and $tid < $palletsize) {
            // get the colors for the transparency index
            $tcol = \imagecolorsforindex($image, $tid);
        }
        $tid = \imagecolorallocate($new_image, $tcol['red'], $tcol['green'], $tcol['blue']);
        \imagefill($new_image, 0, 0, $tid);
        \imagecolortransparent($new_image, $tid);
        return $new_image;
    }
    /**
     * Convert the loaded image to a PNG and then return a structure for the PDF creator.
     * This function requires GD library and write access to the directory defined on K_PATH_CACHE constant.
     * @param resource $image Image object.
     * @param string $tempfile Temporary file name.
     * return image PNG image object.
     * @since 4.9.016 (2010-04-20)
     * @public static
     */
    public static function _toPNG($image, $tempfile)
    {
        // turn off interlaced mode
        \imageinterlace($image, 0);
        // create temporary PNG image
        \imagepng($image, $tempfile);
        // remove image from memory
        \imagedestroy($image);
        // get PNG image data
        $retvars = self::_parsepng($tempfile);
        // tidy up by removing temporary image
        \unlink($tempfile);
        return $retvars;
    }
    /**
     * Convert the loaded image to a JPEG and then return a structure for the PDF creator.
     * This function requires GD library and write access to the directory defined on K_PATH_CACHE constant.
     * @param resource $image Image object.
     * @param int $quality JPEG quality.
     * @param string $tempfile Temporary file name.
     * return array|false image JPEG image object.
     * @public static
     */
    public static function _toJPEG($image, $quality, $tempfile)
    {
        \imagejpeg($image, $tempfile, $quality);
        \imagedestroy($image);
        $retvars = self::_parsejpeg($tempfile);
        // tidy up by removing temporary image
        \unlink($tempfile);
        return $retvars;
    }
    /**
     * Extract info from a JPEG file without using the GD library.
     * @param string $file image file to parse
     * @return array|false structure containing the image data
     * @public static
     */
    public static function _parsejpeg($file)
    {
        // check if is a local file
        if (!@TCPDF_STATIC::file_exists($file)) {
            return \false;
        }
        $a = \getimagesize($file);
        if (empty($a)) {
            //Missing or incorrect image file
            return \false;
        }
        if ($a[2] != 2) {
            // Not a JPEG file
            return \false;
        }
        // bits per pixel
        $bpc = isset($a['bits']) ? \intval($a['bits']) : 8;
        // number of image channels
        if (!isset($a['channels'])) {
            $channels = 3;
        } else {
            $channels = \intval($a['channels']);
        }
        // default colour space
        switch ($channels) {
            case 1:
                $colspace = 'DeviceGray';
                break;
            case 3:
                $colspace = 'DeviceRGB';
                break;
            case 4:
                $colspace = 'DeviceCMYK';
                break;
            default:
                $channels = 3;
                $colspace = 'DeviceRGB';
                break;
        }
        // get file content
        $data = \file_get_contents($file);
        // check for embedded ICC profile
        $icc = array();
        $offset = 0;
        while (($pos = \strpos($data, "ICC_PROFILE\x00", $offset)) !== \false) {
            // get ICC sequence length
            $length = TCPDF_STATIC::_getUSHORT($data, $pos - 2) - 16;
            // marker sequence number
            $msn = \max(1, \ord($data[$pos + 12]));
            // number of markers (total of APP2 used)
            $nom = \max(1, \ord($data[$pos + 13]));
            // get sequence segment
            $icc[$msn - 1] = \substr($data, $pos + 14, $length);
            // move forward to next sequence
            $offset = $pos + 14 + $length;
        }
        // order and compact ICC segments
        if (\count($icc) > 0) {
            \ksort($icc);
            $icc = \implode('', $icc);
            if (\ord($icc[36]) != 0x61 or \ord($icc[37]) != 0x63 or \ord($icc[38]) != 0x73 or \ord($icc[39]) != 0x70) {
                // invalid ICC profile
                $icc = \false;
            }
        } else {
            $icc = \false;
        }
        return array('w' => $a[0], 'h' => $a[1], 'ch' => $channels, 'icc' => $icc, 'cs' => $colspace, 'bpc' => $bpc, 'f' => 'DCTDecode', 'data' => $data);
    }
    /**
     * Extract info from a PNG file without using the GD library.
     * @param string $file image file to parse
     * @return array|false structure containing the image data
     * @public static
     */
    public static function _parsepng($file)
    {
        $f = @\fopen($file, 'rb');
        if ($f === \false) {
            // Can't open image file
            return \false;
        }
        //Check signature
        if (\fread($f, 8) != \chr(137) . 'PNG' . \chr(13) . \chr(10) . \chr(26) . \chr(10)) {
            // Not a PNG file
            return \false;
        }
        //Read header chunk
        \fread($f, 4);
        if (\fread($f, 4) != 'IHDR') {
            //Incorrect PNG file
            return \false;
        }
        $w = TCPDF_STATIC::_freadint($f);
        $h = TCPDF_STATIC::_freadint($f);
        $bpc = \ord(\fread($f, 1));
        $ct = \ord(\fread($f, 1));
        if ($ct == 0) {
            $colspace = 'DeviceGray';
        } elseif ($ct == 2) {
            $colspace = 'DeviceRGB';
        } elseif ($ct == 3) {
            $colspace = 'Indexed';
        } else {
            // alpha channel
            \fclose($f);
            return 'pngalpha';
        }
        if (\ord(\fread($f, 1)) != 0) {
            // Unknown compression method
            \fclose($f);
            return \false;
        }
        if (\ord(\fread($f, 1)) != 0) {
            // Unknown filter method
            \fclose($f);
            return \false;
        }
        if (\ord(\fread($f, 1)) != 0) {
            // Interlacing not supported
            \fclose($f);
            return \false;
        }
        \fread($f, 4);
        $channels = $ct == 2 ? 3 : 1;
        $parms = '/DecodeParms << /Predictor 15 /Colors ' . $channels . ' /BitsPerComponent ' . $bpc . ' /Columns ' . $w . ' >>';
        //Scan chunks looking for palette, transparency and image data
        $pal = '';
        $trns = '';
        $data = '';
        $icc = \false;
        $n = TCPDF_STATIC::_freadint($f);
        do {
            $type = \fread($f, 4);
            if ($type == 'PLTE') {
                // read palette
                $pal = TCPDF_STATIC::rfread($f, $n);
                \fread($f, 4);
            } elseif ($type == 'tRNS') {
                // read transparency info
                $t = TCPDF_STATIC::rfread($f, $n);
                if ($ct == 0) {
                    // DeviceGray
                    $trns = array(\ord($t[1]));
                } elseif ($ct == 2) {
                    // DeviceRGB
                    $trns = array(\ord($t[1]), \ord($t[3]), \ord($t[5]));
                } else {
                    // Indexed
                    if ($n > 0) {
                        $trns = array();
                        for ($i = 0; $i < $n; ++$i) {
                            $trns[] = \ord($t[$i]);
                        }
                    }
                }
                \fread($f, 4);
            } elseif ($type == 'IDAT') {
                // read image data block
                $data .= TCPDF_STATIC::rfread($f, $n);
                \fread($f, 4);
            } elseif ($type == 'iCCP') {
                // skip profile name
                $len = 0;
                while (\ord(\fread($f, 1)) != 0 and $len < 80) {
                    ++$len;
                }
                // get compression method
                if (\ord(\fread($f, 1)) != 0) {
                    // Unknown filter method
                    \fclose($f);
                    return \false;
                }
                // read ICC Color Profile
                $icc = TCPDF_STATIC::rfread($f, $n - $len - 2);
                // decompress profile
                $icc = \gzuncompress($icc);
                \fread($f, 4);
            } elseif ($type == 'IEND') {
                break;
            } else {
                TCPDF_STATIC::rfread($f, $n + 4);
            }
            $n = TCPDF_STATIC::_freadint($f);
        } while ($n);
        if ($colspace == 'Indexed' and empty($pal)) {
            // Missing palette
            \fclose($f);
            return \false;
        }
        \fclose($f);
        return array('w' => $w, 'h' => $h, 'ch' => $channels, 'icc' => $icc, 'cs' => $colspace, 'bpc' => $bpc, 'f' => 'FlateDecode', 'parms' => $parms, 'pal' => $pal, 'trns' => $trns, 'data' => $data);
    }
}
//============================================================+
// File name   : tcpdf_images.php
// Version     : 1.0.005
// Begin       : 2002-08-03
// Last Update : 2014-11-15
// Author      : Nicola Asuni - Tecnick.com LTD - www.tecnick.com - info@tecnick.com
// License     : GNU-LGPL v3 (http://www.gnu.org/copyleft/lesser.html)
// -------------------------------------------------------------------
// Copyright (C) 2002-2014 Nicola Asuni - Tecnick.com LTD
//
// This file is part of TCPDF software library.
//
// TCPDF is free software: you can redistribute it and/or modify it
// under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation, either version 3 of the
// License, or (at your option) any later version.
//
// TCPDF is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU Lesser General Public License for more details.
//
// You should have received a copy of the License
// along with TCPDF. If not, see
// <http://www.tecnick.com/pagefiles/tcpdf/LICENSE.TXT>.
//
// See LICENSE.TXT file for more information.
// -------------------------------------------------------------------
//
// Description :
//   Static image methods used by the TCPDF class.
//
//============================================================+
/**
 * @file
 * This is a PHP class that contains static image methods for the TCPDF class.<br>
 * @package com.tecnick.tcpdf
 * @author Nicola Asuni
 * @version 1.0.005
 */
/**
 * @class TCPDF_IMAGES
 * Static image methods used by the TCPDF class.
 * @package com.tecnick.tcpdf
 * @brief PHP class for generating PDF documents without requiring external extensions.
 * @version 1.0.005
 * @author Nicola Asuni - info@tecnick.com
 */
\class_alias('DynamicOOOS\\TCPDF_IMAGES', 'TCPDF_IMAGES', \false);
// END OF TCPDF_IMAGES CLASS
//============================================================+
// END OF FILE
//============================================================+
