Subversion Repositories Sites.obs-saisons.fr

<?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,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();

    }

}

?>