Subversion Repositories Sites.obs-saisons.fr

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

<?php
//=======================================================================
// File:        JPGRAPH_LED.PHP
// Description: Module to generate Dotted LED-like digits
// Created:     2006-11-26
// Ver:         $Id: jpgraph_led.php 1077 2008-09-19 15:44:30Z ljp $
//
// Copyright 2006 (c) Aditus Consulting. All rights reserved.
//
// Changed: 2007-08-06 by Alexander Kurochkin (inspector@list.ru)
// Added: Decipher 4-bit mask.
// Added: Chars Latin > 'L', Cyrilic, other symbols and special symbols for 
//        simulation some latin and cyrilic chars.
// Added: New Color schemas.
// Deleted: Some minor bugs (StrokeNumber first parameter may be eq empty string, 
//      false or null - added check see line 294;
//      change color schema check for easy maintenance: 291;
//      change check on key exist in chars array: moved from StrokeNumber 
//      function to _GetLED: 251;
//
//========================================================================

// Samples for troubled chars: "Ô¡ Ø\r Ù\r Û| ÞÎ Ì\r >\n< W\r"
//                                                              Ô  Ø   Ù   Û  Þ  Ì   Æ    W

//----------------------------------------------------------------------------
// Each character is encoded line by line with the "On"-LEDs corresponding to
// a '1' in the bianry mask of 4 bits. 
//
// 4-bit mask:
//
// 0    ____
// 1    ___x
// 2    __x_
// 3    __xx
// 4    _x__
// 5    _x_x
// 6    _xx_
// 7    _xxx
// 8    x___
// 9    x__x
// 10   x_x_
// 11   x_xx
// 12   xx__
// 13   xx_x
// 14   xxx_
// 15   xxxx
//----------------------------------------------------------------------------

// Constants for color schema. See definition of iColorSchema below
DEFINE('LEDC_RED', 0);
DEFINE('LEDC_GREEN', 1);
DEFINE('LEDC_BLUE', 2);
DEFINE('LEDC_YELLOW', 3);
DEFINE('LEDC_GRAY', 4);
DEFINE('LEDC_CHOCOLATE', 5);
DEFINE('LEDC_PERU', 6);
DEFINE('LEDC_GOLDENROD', 7);
DEFINE('LEDC_KHAKI', 8);
DEFINE('LEDC_OLIVE', 9);
DEFINE('LEDC_LIMEGREEN', 10);
DEFINE('LEDC_FORESTGREEN', 11);
DEFINE('LEDC_TEAL', 12);
DEFINE('LEDC_STEELBLUE', 13);
DEFINE('LEDC_NAVY', 14);
DEFINE('LEDC_INVERTGRAY', 15);
// ! It correlate with two-dimensional array $iColorSchema

//========================================================================
// CLASS DigitalLED74
// Description: 
// Construct a number as an image that looks like LED numbers in a
// 7x4 digital matrix
//========================================================================
class DigitalLED74
{
    var $iLED_X = 4, $iLED_Y=7,

        // fg-up, fg-down, bg
        $iColorSchema = array(
            LEDC_RED            => array('red','darkred:0.9','red:0.3'),// 0
            LEDC_GREEN          => array('green','darkgreen','green:0.3'),// 1
            LEDC_BLUE           => array('lightblue:0.9','darkblue:0.85','darkblue:0.7'),// 2
            LEDC_YELLOW         => array('yellow','yellow:0.4','yellow:0.3'),// 3
            LEDC_GRAY           => array('gray:1.4','darkgray:0.85','darkgray:0.7'),
            LEDC_CHOCOLATE      => array('chocolate','chocolate:0.7','chocolate:0.5'),
            LEDC_PERU           => array('peru:0.95','peru:0.6','peru:0.5'),
            LEDC_GOLDENROD      => array('goldenrod','goldenrod:0.6','goldenrod:0.5'),
            LEDC_KHAKI          => array('khaki:0.7','khaki:0.4','khaki:0.3'),
            LEDC_OLIVE          => array('#808000','#808000:0.7','#808000:0.6'),
            LEDC_LIMEGREEN      => array('limegreen:0.9','limegreen:0.5','limegreen:0.4'),
            LEDC_FORESTGREEN    => array('forestgreen','forestgreen:0.7','forestgreen:0.5'),
            LEDC_TEAL           => array('teal','teal:0.7','teal:0.5'),
            LEDC_STEELBLUE      => array('steelblue','steelblue:0.65','steelblue:0.5'),
            LEDC_NAVY           => array('navy:1.3','navy:0.95','navy:0.8'),//14
            LEDC_INVERTGRAY     => array('darkgray','lightgray:1.5','white')//15
            ),

        $iLEDSpec = array(
            0 => array(6,9,11,15,13,9,6),
            //0 => array(6,9,9,9,9,9,6),
            //0 => array(15,9,9,9,9,9,15),
            1 => array(2,6,10,2,2,2,2),
            2 => array(6,9,1,2,4,8,15),
            3 => array(6,9,1,6,1,9,6),
            4 => array(1,3,5,9,15,1,1),
            5 => array(15,8,8,14,1,9,6),
            6 => array(6,8,8,14,9,9,6),
            7 => array(15,1,1,2,4,4,4),
            8 => array(6,9,9,6,9,9,6),
            9 => array(6,9,9,7,1,1,6),
            '!' => array(4,4,4,4,4,0,4),
            '?' => array(6,9,1,2,2,0,2),
            '#' => array(0,9,15,9,15,9,0),
            '@' => array(6,9,11,11,10,9,6),
            '-' => array(0,0,0,15,0,0,0),
            '_' => array(0,0,0,0,0,0,15),
            '=' => array(0,0,15,0,15,0,0),
            '+' => array(0,0,4,14,4,0,0),
            '|' => array(4,4,4,4,4,4,4), //vertical line, used for simulate rus 'Û'
            ',' => array(0,0,0,0,0,12,4),
            '.' => array(0,0,0,0,0,12,12),
            ':' => array(12,12,0,0,0,12,12),
            ';' => array(12,12,0,0,0,12,4),
            '[' => array(3,2,2,2,2,2,3),
            ']' => array(12,4,4,4,4,4,12),
            '(' => array(1,2,2,2,2,2,1),
            ')' => array(8,4,4,4,4,4,8),
            '{' => array(3,2,2,6,2,2,3),
            '}' => array(12,4,4,6,4,4,12),
            '<' => array(1,2,4,8,4,2,1),
            '>' => array(8,4,2,1,2,4,8),
            '*' => array(9,6,15,6,9,0,0),
            '"' => array(10,10,0,0,0,0,0),
            '\'' => array(4,4,0,0,0,0,0),
            '`' => array(4,2,0,0,0,0,0),
            '~' => array(13,11,0,0,0,0,0),
            '^' => array(4,10,0,0,0,0,0),
            '\\' => array(8,8,4,6,2,1,1),
            '/' => array(1,1,2,6,4,8,8),
            '%' => array(1,9,2,6,4,9,8),
            '&' => array(0,4,10,4,11,10,5),
            '$' => array(2,7,8,6,1,14,4),
            ' ' => array(0,0,0,0,0,0,0),
            '•' => array(0,0,6,6,0,0,0), //149
            '°' => array(14,10,14,0,0,0,0), //176
            '†' => array(4,4,14,4,4,4,4), //134
            '‡' => array(4,4,14,4,14,4,4), //135
            '±' => array(0,4,14,4,0,14,0), //177
            '‰' => array(0,4,2,15,2,4,0), //137 show right arrow
            '™' => array(0,2,4,15,4,2,0), //156 show left arrow
            '¡' => array(0,0,8,8,0,0,0), //159 show small hi-stick - that need for simulate rus 'Ô'
            "\t" => array(8,8,8,0,0,0,0), //show hi-stick - that need for simulate rus 'Ó'
            "\r" => array(8,8,8,8,8,8,8), //vertical line - that need for simulate 'M', 'W' and rus 'Ì','Ø' ,'Ù'
            "\n" => array(15,15,15,15,15,15,15), //fill up - that need for simulate rus 'Æ'
            "¥" => array(10,5,10,5,10,5,10), //chess
            "µ" => array(15,0,15,0,15,0,15), //4 horizontal lines
// latin
            'A' => array(6,9,9,15,9,9,9),
            'B' => array(14,9,9,14,9,9,14),
            'C' => array(6,9,8,8,8,9,6),
            'D' => array(14,9,9,9,9,9,14),
            'E' => array(15,8,8,14,8,8,15),
            'F' => array(15,8,8,14,8,8,8),
            'G' => array(6,9,8,8,11,9,6),
            'H' => array(9,9,9,15,9,9,9),
            'I' => array(14,4,4,4,4,4,14),
            'J' => array(15,1,1,1,1,9,6),
            'K' => array(8,9,10,12,12,10,9),
            'L' => array(8,8,8,8,8,8,15),
            'M' => array(8,13,10,8,8,8,8),// need to add \r
            'N' => array(9,9,13,11,9,9,9),
            //'O' => array(0,6,9,9,9,9,6),
            'O' => array(6,9,9,9,9,9,6),
            'P' => array(14,9,9,14,8,8,8),
            'Q' => array(6,9,9,9,13,11,6),
            'R' => array(14,9,9,14,12,10,9),
            'S' => array(6,9,8,6,1,9,6),
            'T' => array(14,4,4,4,4,4,4),
            'U' => array(9,9,9,9,9,9,6),
            'V' => array(0,0,0,10,10,10,4),
            'W' => array(8,8,8,8,10,13,8),// need to add \r
            'X' => array(9,9,6,6,6,9,9),
            //'Y' => array(9,9,9,9,6,6,6),
            'Y' => array(10,10,10,10,4,4,4),
            'Z' => array(15,1,2,6,4,8,15),
// russian cp1251
            'À' => array(6,9,9,15,9,9,9),
            'Á' => array(14,8,8,14,9,9,14),
            'Â' => array(14,9,9,14,9,9,14),
            'Ã' => array(15,8,8,8,8,8,8),
            'Ä' => array(14,9,9,9,9,9,14),
            'Å' => array(15,8,8,14,8,8,15),
            '¨' => array(6,15,8,14,8,8,15),
            //Æ is combine: >\n<
            'Ç' => array(6,9,1,2,1,9,6),
            'È' => array(9,9,9,11,13,9,9),
            'É' => array(13,9,9,11,13,9,9),
            'Ê' => array(9,10,12,10,9,9,9),
            'Ë' => array(7,9,9,9,9,9,9),
            'Ì' => array(8,13,10,8,8,8,8),// need to add \r
            'Í' => array(9,9,9,15,9,9,9),
            'Î' => array(6,9,9,9,9,9,6),
            'Ï' => array(15,9,9,9,9,9,9),
            'Ð' => array(14,9,9,14,8,8,8),
            'Ñ' => array(6,9,8,8,8,9,6),
            'Ò' => array(14,4,4,4,4,4,4),
            'Ó' => array(9,9,9,7,1,9,6),
            'Ô' => array(2,7,10,10,7,2,2),// need to add ¡
            'Õ' => array(9,9,6,6,6,9,9),
            'Ö' => array(10,10,10,10,10,15,1),
            '×' => array(9,9,9,7,1,1,1),
            'Ø' => array(10,10,10,10,10,10,15),// \r
            'Ù' => array(10,10,10,10,10,15,0),// need to add \r
            'Ú' => array(12,4,4,6,5,5,6),
            'Û' => array(8,8,8,14,9,9,14),// need to add |
            'Ü' => array(8,8,8,14,9,9,14),
            'Ý' => array(6,9,1,7,1,9,6),
            'Þ' => array(2,2,2,3,2,2,2),// need to add O
            'ß' => array(7,9,9,7,3,5,9)
            ),

        $iSuperSampling = 3, $iMarg = 1, $iRad = 4;
         
    function DigitalLED74($aRadius = 2, $aMargin= 0.6) {
        $this->iRad = $aRadius;
        $this->iMarg = $aMargin;
    }
    
    function SetSupersampling($aSuperSampling = 2)      {
        $this->iSuperSampling = $aSuperSampling;
    }

    function _GetLED($aLedIdx, $aColor = 0)     {
        $width=  $this->iLED_X*$this->iRad*2 +  ($this->iLED_X+1)*$this->iMarg + $this->iRad ;
        $height= $this->iLED_Y*$this->iRad*2 +  ($this->iLED_Y)*$this->iMarg + $this->iRad * 2;

        // Adjust radious for supersampling
        $rad = $this->iRad * $this->iSuperSampling;

        // Margin in between "Led" dots
        $marg = $this->iMarg * $this->iSuperSampling;
        
        $swidth = $width*$this->iSuperSampling;
        $sheight = $height*$this->iSuperSampling;

        $simg = new RotImage($swidth, $sheight, 0, DEFAULT_GFORMAT, false);
        $simg->SetColor($this->iColorSchema[$aColor][2]);
        $simg->FilledRectangle(0, 0, $swidth-1, $sheight-1);

        if(array_key_exists($aLedIdx, $this->iLEDSpec)) {
            $d = $this->iLEDSpec[$aLedIdx];
        }
        else {
            $d = array(0,0,0,0,0,0,0);
        }

        for($r = 0; $r < 7; ++$r) {
            $dr = $d[$r];
            for($c = 0; $c < 4; ++$c) {
                if( ($dr & pow(2,3-$c)) !== 0 ) {
                    $color = $this->iColorSchema[$aColor][0];
                }
                else {
                    $color = $this->iColorSchema[$aColor][1];
                }

                $x = 2*$rad*$c+$rad + ($c+1)*$marg + $rad ;
                $y = 2*$rad*$r+$rad + ($r+1)*$marg + $rad ;

                $simg->SetColor($color);
                $simg->FilledCircle($x,$y,$rad);
            }
        }

        $img =  new Image($width, $height, DEFAULT_GFORMAT, false);
        $img->Copy($simg->img, 0, 0, 0, 0, $width, $height, $swidth, $sheight);
        $simg->Destroy();
        unset($simg);
        return $img;
    }

    function StrokeNumber($aValStr, $aColor = 0) {
        if($aColor < 0 || $aColor >= sizeof($this->iColorSchema))
            $aColor = 0;

        if(($n = strlen($aValStr)) == 0) {
            $aValStr = ' ';
            $n = 1;
        }

        for($i = 0; $i < $n; ++$i) {
            $d = substr($aValStr, $i, 1);
            if(  $d >= '0' && $d <= '9' ) {
                $d = (int)$d;
            }
            else {
                $d = strtoupper($d);
            }
            $digit_img[$i] = $this->_GetLED($d, $aColor);
        }

        $w = imagesx($digit_img[0]->img);
        $h = imagesy($digit_img[0]->img);

        $number_img = new Image($w*$n, $h, DEFAULT_GFORMAT, false);

        for($i = 0; $i < $n; ++$i) {
            $number_img->Copy($digit_img[$i]->img, $i*$w, 0, 0, 0, $w, $h, $w, $h);
        }

        $number_img->Headers();
        $number_img->Stream();
    }
}
?>