source: trunk/client/modules/Elezioni/grafici/jpgraph_led.php@ 421

Last change on this file since 421 was 284, checked in by roby, 6 years ago
File size: 11.7 KB
Line 
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
14DEFINE('LEDC_RED', 0);
15DEFINE('LEDC_GREEN', 1);
16DEFINE('LEDC_BLUE', 2);
17DEFINE('LEDC_YELLOW', 3);
18DEFINE('LEDC_GRAY', 4);
19DEFINE('LEDC_CHOCOLATE', 5);
20DEFINE('LEDC_PERU', 6);
21DEFINE('LEDC_GOLDENROD', 7);
22DEFINE('LEDC_KHAKI', 8);
23DEFINE('LEDC_OLIVE', 9);
24DEFINE('LEDC_LIMEGREEN', 10);
25DEFINE('LEDC_FORESTGREEN', 11);
26DEFINE('LEDC_TEAL', 12);
27DEFINE('LEDC_STEELBLUE', 13);
28DEFINE('LEDC_NAVY', 14);
29DEFINE('LEDC_INVERTGRAY', 15);
30
31// Check that mb_strlen() is available
32if( ! 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//========================================================================
44class 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?>
Note: See TracBrowser for help on using the repository browser.