<?php

namespace {
    //============================================================+
    // 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);
        }
    }
    // END OF TCPDF_IMAGES CLASS
    //============================================================+
    // END OF FILE
    //============================================================+
}