<?php
// +----------------------------------------------------------------------
// | ThinkPHP [ WE CAN DO IT JUST THINK IT ]
// +----------------------------------------------------------------------
// | Copyright (c) 2009 http://thinkphp.cn All rights reserved.
// +----------------------------------------------------------------------
// | Licensed ( http://www.apache.org/licenses/LICENSE-2.0 )
// +----------------------------------------------------------------------
// | Author: liu21st <liu21st@gmail.com>
// +----------------------------------------------------------------------

/**
 * 图像操作类库
 *
 * @category   ORG
 * @package    ORG
 * @subpackage Util
 * @author     liu21st <liu21st@gmail.com>
 */

namespace Org\Util;

class Image
{

    /**
     * 取得图像信息
     *
     * @static
     *
     * @access public
     *
     * @param string $img 图像文件名
     *
     * @return mixed
     */
    static function getImageInfo($img)
    {

        $imageInfo = getimagesize($img);
        if ($imageInfo !== false) {
            $imageType = strtolower(substr(image_type_to_extension($imageInfo[2]), 1));
            $imageSize = filesize($img);
            $info = array(
                "width" => $imageInfo[0],
                "height" => $imageInfo[1],
                "type" => $imageType,
                "size" => $imageSize,
                "mime" => $imageInfo['mime']
            );

            return $info;
        } else {
            return false;
        }
    }

    /**
     * 为图片添加水印
     *
     * @static public
     *
     * @param string $source   原文件名
     * @param string $water    水印图片
     * @param string $savename 添加水印后的图片名
     * @param int    $alpha    水印的透明度
     *
     * @return bool
     */
    static public function water($source, $water, $savename = null, $alpha = 80)
    {

        // 检查文件是否存在
        if (! file_exists($source) || ! file_exists($water)) {
            return false;
        }

        // 图片信息
        $sInfo = self::getImageInfo($source);
        $wInfo = self::getImageInfo($water);
        // 如果图片小于水印图片,不生成图片
        if ($sInfo["width"] < $wInfo["width"] || $sInfo['height'] < $wInfo['height']) {
            return false;
        }

        // 建立图像
        $sCreateFun = "imagecreatefrom" . $sInfo['type'];
        $sImage = $sCreateFun($source);
        $wCreateFun = "imagecreatefrom" . $wInfo['type'];
        $wImage = $wCreateFun($water);
        // 设定图像的混色模式
        imagealphablending($wImage, true);
        // 图像位置,默认为右下角右对齐
        $posY = $sInfo["height"] - $wInfo["height"];
        $posX = $sInfo["width"] - $wInfo["width"];
        // 生成混合图像
        imagecopymerge($sImage, $wImage, $posX, $posY, 0, 0, $wInfo['width'], $wInfo['height'], $alpha);
        // 输出图像
        $imageFun = 'Image' . $sInfo['type'];
        // 如果没有给出保存文件名,默认为原图像名
        if (! $savename) {
            $savename = $source;
            @unlink($source);
        }

        // 保存图像
        $sImage = null;
        $imageFun($sImage, $savename);
        imagedestroy($sImage);
        return true;
    }

    function showImg($imgFile, $text = '', $x = '10', $y = '10', $alpha = '50')
    {

        // 获取图像文件信息
        // 2007/6/26 增加图片水印输出,$text为图片的完整路径即可
        $info = Image::getImageInfo($imgFile);
        if ($info !== false) {
            $createFun = str_replace('/', 'createfrom', $info['mime']);
            $im = call_user_func($createFun, $imgFile);
            $imageFun = str_replace('/', '', $info['mime']);
            if ($im) {
                // 水印开始
                if (! empty($text)) {
                    $tc = imagecolorallocate($im, 0, 0, 0);
                    if (is_file($text) && file_exists($text)) { // 判断$text是否是图片路径
                        // 取得水印信息
                        $textInfo = Image::getImageInfo($text);
                        $createFun2 = str_replace('/', 'createfrom', $textInfo['mime']);
                        $waterMark = call_user_func($createFun2, $text);
                        $imgW = $info["width"];
                        $imgH = $info["width"] * $textInfo["height"] / $textInfo["width"];
                        // 设置水印的显示位置和透明度支持各种图片格式
                        imagecopymerge($im, $waterMark, $x, $y, 0, 0, $textInfo['width'], $textInfo['height'], $alpha);
                    } else {
                        imagestring($im, 80, $x, $y, $text, $tc);
                    }
                }
                // 水印结束
                if ($info['type'] == 'png' || $info['type'] == 'gif') {
                    imagealphablending($im, false); // 取消默认的混色模式
                    imagesavealpha($im, true); // 设定保存完整的 alpha 通道信息
                }
                Header("Content-type: " . $info['mime']);
                call_user_func($imageFun, $im);
                @ImageDestroy($im);

                return;
            }
            // 保存图像
            $sImage = null;
            $savename = null;
            call_user_func_array($imageFun, array($sImage, $savename));
            imagedestroy($sImage);
            // 获取或者创建图像文件失败则生成空白PNG图片
            $im = imagecreatetruecolor(80, 30);
            $bgc = imagecolorallocate($im, 255, 255, 255);
            $tc = imagecolorallocate($im, 0, 0, 0);
            imagefilledrectangle($im, 0, 0, 150, 30, $bgc);
            imagestring($im, 4, 5, 5, "no pic", $tc);
            Image::output($im);

            return;
        }
    }

    /**
     * 生成缩略图
     *
     * @static
     *
     * @access public
     *
     * @param string  $image     原图
     * @param string  $type      图像格式
     * @param string  $thumbname 缩略图文件名
     * @param int     $maxWidth  宽度
     * @param int     $maxHeight 高度
     * @param boolean $interlace 启用隔行扫描
     *
     * @return mixed
     */
    static function thumb($image, $thumbname, $type = '', $maxWidth = 200, $maxHeight = 50, $interlace = true)
    {

        // 获取原图信息
        $info = Image::getImageInfo($image);
        if ($info !== false) {
            $srcWidth = $info['width'];
            $srcHeight = $info['height'];
            $type = empty($type) ? $info['type'] : $type;
            $type = strtolower($type);
            $interlace = $interlace ? 1 : 0;
            unset($info);
            $scale = min($maxWidth / $srcWidth, $maxHeight / $srcHeight); // 计算缩放比例
            if ($scale >= 1) {
                // 超过原图大小不再缩略
                $width = $srcWidth;
                $height = $srcHeight;
            } else {
                // 缩略图尺寸
                $width = (int)($srcWidth * $scale);
                $height = (int)($srcHeight * $scale);
            }

            // 载入原图
            $createFun = 'ImageCreateFrom' . ($type == 'jpg' ? 'jpeg' : $type);
            if (! function_exists($createFun)) {
                return false;
            }
            $srcImg = $createFun($image);
            // 创建缩略图
            if ($type != 'gif' && function_exists('imagecreatetruecolor')) {
                $thumbImg = imagecreatetruecolor($width, $height);
            } else {
                $thumbImg = imagecreate($width, $height);
            }
            // png和gif的透明处理 by luofei614
            if ('png' == $type) {
                imagealphablending($thumbImg, false); // 取消默认的混色模式(为解决阴影为绿色的问题)
                imagesavealpha($thumbImg, true); // 设定保存完整的 alpha 通道信息(为解决阴影为绿色的问题)
            } elseif ('gif' == $type) {
                $trnprt_indx = imagecolortransparent($srcImg);
                if ($trnprt_indx >= 0) {
                    // its transparent
                    $trnprt_color = imagecolorsforindex($srcImg, $trnprt_indx);
                    $trnprt_indx = imagecolorallocate($thumbImg, $trnprt_color['red'], $trnprt_color['green'], $trnprt_color['blue']);
                    imagefill($thumbImg, 0, 0, $trnprt_indx);
                    imagecolortransparent($thumbImg, $trnprt_indx);
                }
            }
            // 复制图片
            if (function_exists("ImageCopyResampled")) {
                imagecopyresampled($thumbImg, $srcImg, 0, 0, 0, 0, $width, $height, $srcWidth, $srcHeight);
            } else {
                imagecopyresized($thumbImg, $srcImg, 0, 0, 0, 0, $width, $height, $srcWidth, $srcHeight);
            }
            // 对jpeg图形设置隔行扫描
            if ('jpg' == $type || 'jpeg' == $type) {
                imageinterlace($thumbImg, $interlace);
            }
            // 生成图片
            $imageFun = 'image' . ($type == 'jpg' ? 'jpeg' : $type);
            $imageFun($thumbImg, $thumbname);
            imagedestroy($thumbImg);
            imagedestroy($srcImg);

            return $thumbname;
        }

        return false;
    }

    /**
     * 根据给定的字符串生成图像
     *
     * @static
     * @access public
     *
     * @param string $string   字符串
     * @param string $rgb      颜色 array()
     * @param string $filename
     * @param string $type     图像格式 默认PNG
     * @param int    $disturb  是否干扰 1 点干扰 2 线干扰 3 复合干扰 0 无干扰
     * @param int    $angle    倾斜角度
     * @param int    $marginX  坐标
     * @param int    $marginY  坐标
     * @param int    $fontSize 字体宽度
     * @param bool   $bgalpha  背景透明
     *
     * @return string
     */
    static function buildString($string, $rgb, $filename = '', $type = 'png', $disturb = 0, $angle = 0, $marginX = 0, $marginY = 0, $fontSize = 12, $bgalpha = false)
    {

        if (empty($rgb)) {
            $rgb = array(102, 104, 104);
        }

        $length = mb_strlen($string, 'utf-8');
        $width = $length * $fontSize;
        $rad = deg2rad($angle);
        if (0 == $angle) {
            $height = $fontSize;
        } else {
            $deg = rad2deg(($fontSize) / $width);
            $height = sqrt(pow($width, 2) + pow($fontSize, 2)) * sin(deg2rad($deg + $angle));
            $width = $width * cos($rad) + $fontSize * sin($rad);
        }
        $height += $marginY * 2;
        $width += $marginX * 2;
        $x = $marginX + $fontSize * sin($rad);
        $y = $height - $marginY;

        if ($type != 'gif' && function_exists('imagecreatetruecolor')) {
            $im = @imagecreatetruecolor($width, $height);

            // 背景透明
            if ($bgalpha) {
                imagealphablending($im, false);
                imagesavealpha($im, true);
            }
        } else {
            $im = @imagecreate($width, $height);
        }
        if (empty($rgb)) {
            $color = imagecolorallocate($im, 102, 104, 104);
        } else {
            $color = imagecolorallocate($im, $rgb[0], $rgb[1], $rgb[2]);
        }

        // 背景透明
        if ($bgalpha) {
            $backColor = imagecolorallocatealpha($im, 0, 0, 0, 127);
        } else {
            $backColor = imagecolorallocate($im, 255, 255, 255); // 背景色(随机)
        }

        @imagefilledrectangle($im, 0, 0, $width - 1, $height - 1, $backColor);
        //$borderColor = imagecolorallocate($im, 100, 100, 100); // 边框色
        //@imagerectangle($im, 0, 0, $width - 1, $height - 1, $borderColor);
        //@imagestring($im, 5, 5, 3, $string, $color);
        //$size = mb_strlen($string, 'utf-8') > 6 ? 10 : 20;
        @imagettftext($im, $fontSize, $angle, $x, $y, $color, cfg('FONT_CN'), $string);
        if (! empty($disturb)) {
            $pointColor = imagecolorallocate($im, mt_rand(0, 255), mt_rand(0, 255), mt_rand(0, 255)); // 点颜色
            // 添加干扰
            if ($disturb == 1 || $disturb == 3) {
                for ($i = 0; $i < 25; $i ++) {
                    imagesetpixel($im, mt_rand(0, $width), mt_rand(0, $height), $pointColor);
                }
            } elseif ($disturb == 2 || $disturb == 3) {
                for ($i = 0; $i < 10; $i ++) {
                    imagearc($im, mt_rand(- 10, $width), mt_rand(- 10, $height), mt_rand(30, 300), mt_rand(20, 200), 55, 44, $pointColor);
                }
            }
        }

        Image::output($im, $type, $filename);
    }

    /**
     * 生成图像验证码
     *
     * @static
     *
     * @access public
     *
     * @param int    $length 位数
     * @param int    $mode   类型
     * @param string $type   图像格式
     * @param int    $width  宽度
     * @param int    $height 高度
     * @param string $verifyName
     *
     * @return string
     */
    static function buildImageVerify($length = 4, $mode = 1, $type = 'png', $width = 48, $height = 22, $verifyName = 'verify')
    {

        import('ORG.Util.String');
        $randval = String::randString($length, $mode);
        session($verifyName, md5($randval));
        $width = ($length * 10 + 10) > $width ? $length * 10 + 10 : $width;
        if ($type != 'gif' && function_exists('imagecreatetruecolor')) {
            $im = imagecreatetruecolor($width, $height);
        } else {
            $im = imagecreate($width, $height);
        }
        $r = Array(225, 255, 255, 223);
        $g = Array(225, 236, 237, 255);
        $b = Array(225, 236, 166, 125);
        $key = mt_rand(0, 3);
        $backColor = imagecolorallocate($im, $r[$key], $g[$key], $b[$key]); // 背景色(随机)
        $borderColor = imagecolorallocate($im, 100, 100, 100); // 边框色
        imagefilledrectangle($im, 0, 0, $width - 1, $height - 1, $backColor);
        imagerectangle($im, 0, 0, $width - 1, $height - 1, $borderColor);
        $stringColor = imagecolorallocate($im, mt_rand(0, 200), mt_rand(0, 120), mt_rand(0, 120));
        // 干扰
        for ($i = 0; $i < 10; $i ++) {
            imagearc($im, mt_rand(- 10, $width), mt_rand(- 10, $height), mt_rand(30, 300), mt_rand(20, 200), 55, 44, $stringColor);
        }
        for ($i = 0; $i < 25; $i ++) {
            imagesetpixel($im, mt_rand(0, $width), mt_rand(0, $height), $stringColor);
        }
        for ($i = 0; $i < $length; $i ++) {
            imagestring($im, 5, $i * 10 + 5, mt_rand(1, 8), $randval{$i}, $stringColor);
        }
        Image::output($im, $type);
    }

    // 中文验证码
    static function GBVerify($length = 4, $type = 'png', $width = 180, $height = 50, $fontface = 'simhei.ttf', $verifyName = 'verify')
    {

        import('ORG.Util.String');
        $code = String::randString($length, 4);
        $width = ($length * 45) > $width ? $length * 45 : $width;
        session($verifyName, md5($code));
        $im = imagecreatetruecolor($width, $height);
        $borderColor = imagecolorallocate($im, 100, 100, 100); // 边框色
        $bkcolor = imagecolorallocate($im, 250, 250, 250);
        imagefill($im, 0, 0, $bkcolor);
        @imagerectangle($im, 0, 0, $width - 1, $height - 1, $borderColor);
        // 干扰
        for ($i = 0; $i < 15; $i ++) {
            $fontcolor = imagecolorallocate($im, mt_rand(0, 255), mt_rand(0, 255), mt_rand(0, 255));
            imagearc($im, mt_rand(- 10, $width), mt_rand(- 10, $height), mt_rand(30, 300), mt_rand(20, 200), 55, 44, $fontcolor);
        }
        for ($i = 0; $i < 255; $i ++) {
            $fontcolor = imagecolorallocate($im, mt_rand(0, 255), mt_rand(0, 255), mt_rand(0, 255));
            imagesetpixel($im, mt_rand(0, $width), mt_rand(0, $height), $fontcolor);
        }
        if (! is_file($fontface)) {
            $fontface = dirname(__FILE__) . "/" . $fontface;
        }
        for ($i = 0; $i < $length; $i ++) {
            $fontcolor = imagecolorallocate($im, mt_rand(0, 120), mt_rand(0, 120), mt_rand(0, 120)); // 这样保证随机出来的颜色较深。
            $codex = String::msubstr($code, $i, 1);
            imagettftext($im, mt_rand(16, 20), mt_rand(- 60, 60), 40 * $i + 20, mt_rand(30, 35), $fontcolor, $fontface, $codex);
        }
        Image::output($im, $type);
    }

    /**
     * 把图像转换成字符显示
     *
     * @static
     *
     * @access public
     *
     * @param string $image  要显示的图像
     * @param string $string 字符串
     * @param string $type   图像类型,默认自动获取
     *
     * @return string
     */
    static function showASCIIImg($image, $string = '', $type = '')
    {

        $info = Image::getImageInfo($image);
        if ($info !== false) {
            $type = empty($type) ? $info['type'] : $type;
            unset($info);
            // 载入原图
            $createFun = 'ImageCreateFrom' . ($type == 'jpg' ? 'jpeg' : $type);
            $im = $createFun($image);
            $dx = imagesx($im);
            $dy = imagesy($im);
            $i = 0;
            $out = '<span style="padding:0px;margin:0;line-height:100%;font-size:1px;">';
            set_time_limit(0);
            for ($y = 0; $y < $dy; $y ++) {
                for ($x = 0; $x < $dx; $x ++) {
                    $col = imagecolorat($im, $x, $y);
                    $rgb = imagecolorsforindex($im, $col);
                    $str = empty($string) ? '*' : $string[$i ++];
                    $out .= sprintf('<span style="margin:0px;color:#%02x%02x%02x">' . $str . '</span>', $rgb['red'], $rgb['green'], $rgb['blue']);
                }
                $out .= "<br>\n";
            }
            $out .= '</span>';
            imagedestroy($im);

            return $out;
        }

        return false;
    }

    /**
     * 生成UPC-A条形码
     *
     * @static
     *
     * @param string $type 图像格式
     * @param string $type 图像格式
     * @param int    $lw   单元宽度
     * @param int    $hi   条码高度
     *
     * @return string
     */
    static function UPCA($code, $type = 'png', $lw = 2, $hi = 100)
    {

        static $Lencode = array(
            '0001101',
            '0011001',
            '0010011',
            '0111101',
            '0100011',
            '0110001',
            '0101111',
            '0111011',
            '0110111',
            '0001011'
        );
        static $Rencode = array(
            '1110010',
            '1100110',
            '1101100',
            '1000010',
            '1011100',
            '1001110',
            '1010000',
            '1000100',
            '1001000',
            '1110100'
        );
        $ends = '101';
        $center = '01010';
        /* UPC-A Must be 11 digits, we compute the checksum. */
        if (strlen($code) != 11) {
            die("UPC-A Must be 11 digits.");
        }
        /* Compute the EAN-13 Checksum digit */
        $ncode = '0' . $code;
        $even = 0;
        $odd = 0;
        for ($x = 0; $x < 12; $x ++) {
            if ($x % 2) {
                $odd += $ncode[$x];
            } else {
                $even += $ncode[$x];
            }
        }
        $code .= (10 - (($odd * 3 + $even) % 10)) % 10;
        /* Create the bar encoding using a binary string */
        $bars = $ends;
        $bars .= $Lencode[$code[0]];
        for ($x = 1; $x < 6; $x ++) {
            $bars .= $Lencode[$code[$x]];
        }
        $bars .= $center;
        for ($x = 6; $x < 12; $x ++) {
            $bars .= $Rencode[$code[$x]];
        }
        $bars .= $ends;
        /* Generate the Barcode Image */
        if ($type != 'gif' && function_exists('imagecreatetruecolor')) {
            $im = imagecreatetruecolor($lw * 95 + 30, $hi + 30);
        } else {
            $im = imagecreate($lw * 95 + 30, $hi + 30);
        }
        $fg = ImageColorAllocate($im, 0, 0, 0);
        $bg = ImageColorAllocate($im, 255, 255, 255);
        ImageFilledRectangle($im, 0, 0, $lw * 95 + 30, $hi + 30, $bg);
        $shift = 10;
        for ($x = 0; $x < strlen($bars); $x ++) {
            if (($x < 10) || ($x >= 45 && $x < 50) || ($x >= 85)) {
                $sh = 10;
            } else {
                $sh = 0;
            }
            if ($bars[$x] == '1') {
                $color = $fg;
            } else {
                $color = $bg;
            }
            ImageFilledRectangle($im, ($x * $lw) + 15, 5, ($x + 1) * $lw + 14, $hi + 5 + $sh, $color);
        }
        /* Add the Human Readable Label */
        ImageString($im, 4, 5, $hi - 5, $code[0], $fg);
        for ($x = 0; $x < 5; $x ++) {
            ImageString($im, 5, $lw * (13 + $x * 6) + 15, $hi + 5, $code[$x + 1], $fg);
            ImageString($im, 5, $lw * (53 + $x * 6) + 15, $hi + 5, $code[$x + 6], $fg);
        }
        ImageString($im, 4, $lw * 95 + 17, $hi - 5, $code[11], $fg);
        /* Output the Header and Content. */
        Image::output($im, $type);
    }

    static function output($im, $type = 'png', $filename = '')
    {

        header("Content-type: image/" . $type);
        $ImageFun = 'image' . $type;
        if (empty($filename)) {
            $ImageFun($im);
        } else {
            $ImageFun($im, $filename);
        }

        imagedestroy($im);
    }
}