[42] | 1 | <?php |
---|
| 2 | //======================================================================= |
---|
| 3 | // File: JPGRAPH_LED.PHP |
---|
| 4 | // Description: Module to generate Dotted LED-like digits |
---|
| 5 | // Created: 2006-11-26 |
---|
| 6 | // Ver: $Id: jpgraph_led.php 1674 2009-07-22 19:42:23Z ljp $ |
---|
| 7 | // |
---|
| 8 | // Copyright 2006 (c) Asial Corporation. All rights reserved. |
---|
| 9 | // |
---|
| 10 | // Changed: 2007-08-06 by Alexander Kurochkin (inspector@list.ru) |
---|
| 11 | //======================================================================== |
---|
| 12 | |
---|
| 13 | // Constants for color schema |
---|
| 14 | DEFINE('LEDC_RED', 0); |
---|
| 15 | DEFINE('LEDC_GREEN', 1); |
---|
| 16 | DEFINE('LEDC_BLUE', 2); |
---|
| 17 | DEFINE('LEDC_YELLOW', 3); |
---|
| 18 | DEFINE('LEDC_GRAY', 4); |
---|
| 19 | DEFINE('LEDC_CHOCOLATE', 5); |
---|
| 20 | DEFINE('LEDC_PERU', 6); |
---|
| 21 | DEFINE('LEDC_GOLDENROD', 7); |
---|
| 22 | DEFINE('LEDC_KHAKI', 8); |
---|
| 23 | DEFINE('LEDC_OLIVE', 9); |
---|
| 24 | DEFINE('LEDC_LIMEGREEN', 10); |
---|
| 25 | DEFINE('LEDC_FORESTGREEN', 11); |
---|
| 26 | DEFINE('LEDC_TEAL', 12); |
---|
| 27 | DEFINE('LEDC_STEELBLUE', 13); |
---|
| 28 | DEFINE('LEDC_NAVY', 14); |
---|
| 29 | DEFINE('LEDC_INVERTGRAY', 15); |
---|
| 30 | |
---|
| 31 | // Check that mb_strlen() is available |
---|
| 32 | if( ! function_exists('mb_strlen') ) { |
---|
| 33 | JpGraphError::RaiseL(25500); |
---|
| 34 | //'Multibyte strings must be enabled in the PHP installation in order to run the LED module |
---|
| 35 | // so that the function mb_strlen() is available. See PHP documentation for more information.' |
---|
| 36 | } |
---|
| 37 | |
---|
| 38 | //======================================================================== |
---|
| 39 | // CLASS DigitalLED74 |
---|
| 40 | // Description: |
---|
| 41 | // Construct a number as an image that looks like LED numbers in a |
---|
| 42 | // 7x4 digital matrix |
---|
| 43 | //======================================================================== |
---|
| 44 | class DigitalLED74 |
---|
| 45 | { |
---|
| 46 | private $iLED_X = 4, $iLED_Y=7, |
---|
| 47 | |
---|
| 48 | // fg-up, fg-down, bg |
---|
| 49 | $iColorSchema = array( |
---|
| 50 | LEDC_RED => array('red','darkred:0.9','red:0.3'),// 0 |
---|
| 51 | LEDC_GREEN => array('green','darkgreen','green:0.3'),// 1 |
---|
| 52 | LEDC_BLUE => array('lightblue:0.9','darkblue:0.85','darkblue:0.7'),// 2 |
---|
| 53 | LEDC_YELLOW => array('yellow','yellow:0.4','yellow:0.3'),// 3 |
---|
| 54 | LEDC_GRAY => array('gray:1.4','darkgray:0.85','darkgray:0.7'), |
---|
| 55 | LEDC_CHOCOLATE => array('chocolate','chocolate:0.7','chocolate:0.5'), |
---|
| 56 | LEDC_PERU => array('peru:0.95','peru:0.6','peru:0.5'), |
---|
| 57 | LEDC_GOLDENROD => array('goldenrod','goldenrod:0.6','goldenrod:0.5'), |
---|
| 58 | LEDC_KHAKI => array('khaki:0.7','khaki:0.4','khaki:0.3'), |
---|
| 59 | LEDC_OLIVE => array('#808000','#808000:0.7','#808000:0.6'), |
---|
| 60 | LEDC_LIMEGREEN => array('limegreen:0.9','limegreen:0.5','limegreen:0.4'), |
---|
| 61 | LEDC_FORESTGREEN => array('forestgreen','forestgreen:0.7','forestgreen:0.5'), |
---|
| 62 | LEDC_TEAL => array('teal','teal:0.7','teal:0.5'), |
---|
| 63 | LEDC_STEELBLUE => array('steelblue','steelblue:0.65','steelblue:0.5'), |
---|
| 64 | LEDC_NAVY => array('navy:1.3','navy:0.95','navy:0.8'),//14 |
---|
| 65 | LEDC_INVERTGRAY => array('darkgray','lightgray:1.5','white')//15 |
---|
| 66 | ), |
---|
| 67 | |
---|
| 68 | /* Each line of the character is encoded as a 4 bit value |
---|
| 69 | 0 ____ |
---|
| 70 | 1 ___x |
---|
| 71 | 2 __x_ |
---|
| 72 | 3 __xx |
---|
| 73 | 4 _x__ |
---|
| 74 | 5 _x_x |
---|
| 75 | 6 _xx_ |
---|
| 76 | 7 _xxx |
---|
| 77 | 8 x___ |
---|
| 78 | 9 x__x |
---|
| 79 | 10 x_x_ |
---|
| 80 | 11 x_xx |
---|
| 81 | 12 xx__ |
---|
| 82 | 13 xx_x |
---|
| 83 | 14 xxx_ |
---|
| 84 | 15 xxxx |
---|
| 85 | */ |
---|
| 86 | |
---|
| 87 | $iLEDSpec = array( |
---|
| 88 | 0 => array(6,9,11,15,13,9,6), |
---|
| 89 | 1 => array(2,6,10,2,2,2,2), |
---|
| 90 | 2 => array(6,9,1,2,4,8,15), |
---|
| 91 | 3 => array(6,9,1,6,1,9,6), |
---|
| 92 | 4 => array(1,3,5,9,15,1,1), |
---|
| 93 | 5 => array(15,8,8,14,1,9,6), |
---|
| 94 | 6 => array(6,8,8,14,9,9,6), |
---|
| 95 | 7 => array(15,1,1,2,4,4,4), |
---|
| 96 | 8 => array(6,9,9,6,9,9,6), |
---|
| 97 | 9 => array(6,9,9,7,1,1,6), |
---|
| 98 | '!' => array(4,4,4,4,4,0,4), |
---|
| 99 | '?' => array(6,9,1,2,2,0,2), |
---|
| 100 | '#' => array(0,9,15,9,15,9,0), |
---|
| 101 | '@' => array(6,9,11,11,10,9,6), |
---|
| 102 | '-' => array(0,0,0,15,0,0,0), |
---|
| 103 | '_' => array(0,0,0,0,0,0,15), |
---|
| 104 | '=' => array(0,0,15,0,15,0,0), |
---|
| 105 | '+' => array(0,0,4,14,4,0,0), |
---|
| 106 | '|' => array(4,4,4,4,4,4,4), //vertical line, used for simulate rus 'Ы' |
---|
| 107 | ',' => array(0,0,0,0,0,12,4), |
---|
| 108 | '.' => array(0,0,0,0,0,12,12), |
---|
| 109 | ':' => array(12,12,0,0,0,12,12), |
---|
| 110 | ';' => array(12,12,0,0,0,12,4), |
---|
| 111 | '[' => array(3,2,2,2,2,2,3), |
---|
| 112 | ']' => array(12,4,4,4,4,4,12), |
---|
| 113 | '(' => array(1,2,2,2,2,2,1), |
---|
| 114 | ')' => array(8,4,4,4,4,4,8), |
---|
| 115 | '{' => array(3,2,2,6,2,2,3), |
---|
| 116 | '}' => array(12,4,4,6,4,4,12), |
---|
| 117 | '<' => array(1,2,4,8,4,2,1), |
---|
| 118 | '>' => array(8,4,2,1,2,4,8), |
---|
| 119 | '*' => array(9,6,15,6,9,0,0), |
---|
| 120 | '"' => array(10,10,0,0,0,0,0), |
---|
| 121 | '\'' => array(4,4,0,0,0,0,0), |
---|
| 122 | '`' => array(4,2,0,0,0,0,0), |
---|
| 123 | '~' => array(13,11,0,0,0,0,0), |
---|
| 124 | '^' => array(4,10,0,0,0,0,0), |
---|
| 125 | '\\' => array(8,8,4,6,2,1,1), |
---|
| 126 | '/' => array(1,1,2,6,4,8,8), |
---|
| 127 | '%' => array(1,9,2,6,4,9,8), |
---|
| 128 | '&' => array(0,4,10,4,11,10,5), |
---|
| 129 | '$' => array(2,7,8,6,1,14,4), |
---|
| 130 | ' ' => array(0,0,0,0,0,0,0), |
---|
| 131 | 'â¢' => array(0,0,6,6,0,0,0), //149 |
---|
| 132 | '°' => array(14,10,14,0,0,0,0), //176 |
---|
| 133 | 'â ' => array(4,4,14,4,4,4,4), //134 |
---|
| 134 | 'â¡' => array(4,4,14,4,14,4,4), //135 |
---|
| 135 | '±' => array(0,4,14,4,0,14,0), //177 |
---|
| 136 | 'â°' => array(0,4,2,15,2,4,0), //137 show right arrow |
---|
| 137 | 'â¢' => array(0,2,4,15,4,2,0), //156 show left arrow |
---|
| 138 | 'Ð' => array(0,0,8,8,0,0,0), //159 show small hi-stick - that need for simulate rus 'Ѐ' |
---|
| 139 | "\t" => array(8,8,8,0,0,0,0), //show hi-stick - that need for simulate rus 'У' |
---|
| 140 | "\r" => array(8,8,8,8,8,8,8), //vertical line - that need for simulate 'M', 'W' and rus 'Ð','К' ,'Щ' |
---|
| 141 | "\n" => array(15,15,15,15,15,15,15), //fill up - that need for simulate rus 'Ð' |
---|
| 142 | "Ò" => array(10,5,10,5,10,5,10), //chess |
---|
| 143 | "µ" => array(15,0,15,0,15,0,15), //4 horizontal lines |
---|
| 144 | // latin |
---|
| 145 | 'A' => array(6,9,9,15,9,9,9), |
---|
| 146 | 'B' => array(14,9,9,14,9,9,14), |
---|
| 147 | 'C' => array(6,9,8,8,8,9,6), |
---|
| 148 | 'D' => array(14,9,9,9,9,9,14), |
---|
| 149 | 'E' => array(15,8,8,14,8,8,15), |
---|
| 150 | 'F' => array(15,8,8,14,8,8,8), |
---|
| 151 | 'G' => array(6,9,8,8,11,9,6), |
---|
| 152 | 'H' => array(9,9,9,15,9,9,9), |
---|
| 153 | 'I' => array(14,4,4,4,4,4,14), |
---|
| 154 | 'J' => array(15,1,1,1,1,9,6), |
---|
| 155 | 'K' => array(8,9,10,12,12,10,9), |
---|
| 156 | 'L' => array(8,8,8,8,8,8,15), |
---|
| 157 | 'M' => array(8,13,10,8,8,8,8),// need to add \r |
---|
| 158 | 'N' => array(9,9,13,11,9,9,9), |
---|
| 159 | 'O' => array(6,9,9,9,9,9,6), |
---|
| 160 | 'P' => array(14,9,9,14,8,8,8), |
---|
| 161 | 'Q' => array(6,9,9,9,13,11,6), |
---|
| 162 | 'R' => array(14,9,9,14,12,10,9), |
---|
| 163 | 'S' => array(6,9,8,6,1,9,6), |
---|
| 164 | 'T' => array(14,4,4,4,4,4,4), |
---|
| 165 | 'U' => array(9,9,9,9,9,9,6), |
---|
| 166 | 'V' => array(0,0,0,10,10,10,4), |
---|
| 167 | 'W' => array(8,8,8,8,10,13,8),// need to add \r |
---|
| 168 | 'X' => array(9,9,6,6,6,9,9), |
---|
| 169 | 'Y' => array(10,10,10,10,4,4,4), |
---|
| 170 | 'Z' => array(15,1,2,6,4,8,15), |
---|
| 171 | // russian utf-8 |
---|
| 172 | 'Ð' => array(6,9,9,15,9,9,9), |
---|
| 173 | 'Ð' => array(14,8,8,14,9,9,14), |
---|
| 174 | 'Ð' => array(14,9,9,14,9,9,14), |
---|
| 175 | 'Ð' => array(15,8,8,8,8,8,8), |
---|
| 176 | 'Ð' => array(14,9,9,9,9,9,14), |
---|
| 177 | 'Ð' => array(15,8,8,14,8,8,15), |
---|
| 178 | 'Ð' => array(6,15,8,14,8,8,15), |
---|
| 179 | //Ð is combine: >\n< |
---|
| 180 | 'Ð' => array(6,9,1,2,1,9,6), |
---|
| 181 | 'Ð' => array(9,9,9,11,13,9,9), |
---|
| 182 | 'Ð' => array(13,9,9,11,13,9,9), |
---|
| 183 | 'Ð' => array(9,10,12,10,9,9,9), |
---|
| 184 | 'Ð' => array(7,9,9,9,9,9,9), |
---|
| 185 | 'Ð' => array(8,13,10,8,8,8,8),// need to add \r |
---|
| 186 | 'Ð' => array(9,9,9,15,9,9,9), |
---|
| 187 | 'Ð' => array(6,9,9,9,9,9,6), |
---|
| 188 | 'Ð' => array(15,9,9,9,9,9,9), |
---|
| 189 | 'Ð ' => array(14,9,9,14,8,8,8), |
---|
| 190 | 'С' => array(6,9,8,8,8,9,6), |
---|
| 191 | 'Т' => array(14,4,4,4,4,4,4), |
---|
| 192 | 'У' => array(9,9,9,7,1,9,6), |
---|
| 193 | 'Ѐ' => array(2,7,10,10,7,2,2),// need to add Р|
---|
| 194 | 'Ð¥' => array(9,9,6,6,6,9,9), |
---|
| 195 | 'Њ' => array(10,10,10,10,10,15,1), |
---|
| 196 | 'Ч' => array(9,9,9,7,1,1,1), |
---|
| 197 | 'К' => array(10,10,10,10,10,10,15),// \r |
---|
| 198 | 'Щ' => array(10,10,10,10,10,15,0),// need to add \r |
---|
| 199 | 'Ъ' => array(12,4,4,6,5,5,6), |
---|
| 200 | 'Ы' => array(8,8,8,14,9,9,14),// need to add | |
---|
| 201 | 'Ь' => array(8,8,8,14,9,9,14), |
---|
| 202 | 'Ð' => array(6,9,1,7,1,9,6), |
---|
| 203 | 'Ю' => array(2,2,2,3,2,2,2),// need to add O |
---|
| 204 | 'Я' => array(7,9,9,7,3,5,9) |
---|
| 205 | ), |
---|
| 206 | |
---|
| 207 | $iSuperSampling = 3, $iMarg = 1, $iRad = 4; |
---|
| 208 | |
---|
| 209 | function __construct($aRadius = 2, $aMargin= 0.6) { |
---|
| 210 | $this->iRad = $aRadius; |
---|
| 211 | $this->iMarg = $aMargin; |
---|
| 212 | } |
---|
| 213 | |
---|
| 214 | function SetSupersampling($aSuperSampling = 2) { |
---|
| 215 | $this->iSuperSampling = $aSuperSampling; |
---|
| 216 | } |
---|
| 217 | |
---|
| 218 | function _GetLED($aLedIdx, $aColor = 0) { |
---|
| 219 | $width= $this->iLED_X*$this->iRad*2 + ($this->iLED_X+1)*$this->iMarg + $this->iRad ; |
---|
| 220 | $height= $this->iLED_Y*$this->iRad*2 + ($this->iLED_Y)*$this->iMarg + $this->iRad * 2; |
---|
| 221 | |
---|
| 222 | // Adjust radious for supersampling |
---|
| 223 | $rad = $this->iRad * $this->iSuperSampling; |
---|
| 224 | |
---|
| 225 | // Margin in between "Led" dots |
---|
| 226 | $marg = $this->iMarg * $this->iSuperSampling; |
---|
| 227 | |
---|
| 228 | $swidth = $width*$this->iSuperSampling; |
---|
| 229 | $sheight = $height*$this->iSuperSampling; |
---|
| 230 | |
---|
| 231 | $simg = new RotImage($swidth, $sheight, 0, DEFAULT_GFORMAT, false); |
---|
| 232 | $simg->SetColor($this->iColorSchema[$aColor][2]); |
---|
| 233 | $simg->FilledRectangle(0, 0, $swidth-1, $sheight-1); |
---|
| 234 | |
---|
| 235 | if( array_key_exists($aLedIdx, $this->iLEDSpec) ) { |
---|
| 236 | $d = $this->iLEDSpec[$aLedIdx]; |
---|
| 237 | } |
---|
| 238 | else { |
---|
| 239 | $d = array(0,0,0,0,0,0,0); |
---|
| 240 | } |
---|
| 241 | |
---|
| 242 | for($r = 0; $r < 7; ++$r) { |
---|
| 243 | $dr = $d[$r]; |
---|
| 244 | for($c = 0; $c < 4; ++$c) { |
---|
| 245 | if( ($dr & pow(2,3-$c)) !== 0 ) { |
---|
| 246 | $color = $this->iColorSchema[$aColor][0]; |
---|
| 247 | } |
---|
| 248 | else { |
---|
| 249 | $color = $this->iColorSchema[$aColor][1]; |
---|
| 250 | } |
---|
| 251 | |
---|
| 252 | $x = 2*$rad*$c+$rad + ($c+1)*$marg + $rad ; |
---|
| 253 | $y = 2*$rad*$r+$rad + ($r+1)*$marg + $rad ; |
---|
| 254 | |
---|
| 255 | $simg->SetColor($color); |
---|
| 256 | $simg->FilledCircle($x,$y,$rad); |
---|
| 257 | } |
---|
| 258 | } |
---|
| 259 | |
---|
| 260 | $img = new Image($width, $height, DEFAULT_GFORMAT, false); |
---|
| 261 | $img->Copy($simg->img, 0, 0, 0, 0, $width, $height, $swidth, $sheight); |
---|
| 262 | $simg->Destroy(); |
---|
| 263 | unset($simg); |
---|
| 264 | return $img; |
---|
| 265 | } |
---|
| 266 | |
---|
| 267 | |
---|
| 268 | function Stroke($aValStr, $aColor = 0, $aFileName = '') { |
---|
| 269 | $this->StrokeNumber($aValStr, $aColor, $aFileName); |
---|
| 270 | } |
---|
| 271 | |
---|
| 272 | |
---|
| 273 | function StrokeNumber($aValStr, $aColor = 0, $aFileName = '') { |
---|
| 274 | if( $aColor < 0 || $aColor >= sizeof($this->iColorSchema) ) { |
---|
| 275 | $aColor = 0; |
---|
| 276 | } |
---|
| 277 | |
---|
| 278 | if(($n = mb_strlen($aValStr,'utf8')) == 0) { |
---|
| 279 | $aValStr = ' '; |
---|
| 280 | $n = 1; |
---|
| 281 | } |
---|
| 282 | |
---|
| 283 | for($i = 0; $i < $n; ++$i) { |
---|
| 284 | $d = mb_substr($aValStr, $i, 1, 'utf8'); |
---|
| 285 | if( ctype_digit($d) ) { |
---|
| 286 | $d = (int)$d; |
---|
| 287 | } |
---|
| 288 | else { |
---|
| 289 | $d = strtoupper($d); |
---|
| 290 | } |
---|
| 291 | $digit_img[$i] = $this->_GetLED($d, $aColor); |
---|
| 292 | } |
---|
| 293 | |
---|
| 294 | $w = imagesx($digit_img[0]->img); |
---|
| 295 | $h = imagesy($digit_img[0]->img); |
---|
| 296 | |
---|
| 297 | $number_img = new Image($w*$n, $h, DEFAULT_GFORMAT, false); |
---|
| 298 | |
---|
| 299 | for($i = 0; $i < $n; ++$i) { |
---|
| 300 | $number_img->Copy($digit_img[$i]->img, $i*$w, 0, 0, 0, $w, $h, $w, $h); |
---|
| 301 | } |
---|
| 302 | |
---|
| 303 | if( $aFileName != '' ) { |
---|
| 304 | $number_img->Stream($aFileName); |
---|
| 305 | } else { |
---|
| 306 | $number_img->Headers(); |
---|
| 307 | $number_img->Stream(); |
---|
| 308 | } |
---|
| 309 | } |
---|
| 310 | } |
---|
| 311 | ?> |
---|