Mercurial > hg > soundsoftware-site

annotate vendor/plugins/rfpdf/lib/barcode/c128aobject.rb @ 1181:27b6f53331d5 bug_320

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Close obsolete branch bug_320
author Chris Cannam
date Wed, 09 Nov 2011 14:19:49 +0000
parents cbce1fd3b1b7
children
rev   line source
Chris@441 1
Chris@441 2 #============================================================+
Chris@441 3 # File name : c128aobject.rb
Chris@441 4 # Begin : 2002-07-31
Chris@441 5 # Last Update : 2004-12-29
Chris@441 6 # Author : Karim Mribti [barcode@mribti.com]
Chris@441 7 # Version : 0.0.8a 2001-04-01 (original code)
Chris@441 8 # License : GNU LGPL (Lesser General Public License) 2.1
Chris@441 9 # http://www.gnu.org/copyleft/lesser.txt
Chris@441 10 # Source Code : http://www.mribti.com/barcode/
Chris@441 11 #
Chris@441 12 # Description : Code 128-A Barcode Render Class for PHP using
Chris@441 13 # the GD graphics library.
Chris@441 14 # Code 128-A is a continuous, multilevel and
Chris@441 15 # include all upper case alphanumeric characters
Chris@441 16 # and ASCII control characters.
Chris@441 17 #
Chris@441 18 # NOTE:
Chris@441 19 # This version contains changes by Nicola Asuni:
Chris@441 20 # - porting to Ruby
Chris@441 21 # - code style and formatting
Chris@441 22 # - automatic php documentation in PhpDocumentor Style
Chris@441 23 # (www.phpdoc.org)
Chris@441 24 # - minor bug fixing
Chris@441 25 #============================================================+
Chris@441 26
Chris@441 27 #
Chris@441 28 # Code 128-A Barcode Render Class for PHP using the GD graphics library.<br>
Chris@441 29 # Code 128-A is a continuous, multilevel and include all upper case alphanumeric characters and ASCII control characters.
Chris@441 30 # @author Karim Mribti, Nicola Asuni
Chris@441 31 # @name BarcodeObject
Chris@441 32 # @package com.tecnick.tcpdf
Chris@441 33 # @@version 0.0.8a 2001-04-01 (original code)
Chris@441 34 # @since 2001-03-25
Chris@441 35 # @license http://www.gnu.org/copyleft/lesser.html LGPL
Chris@441 36 #
Chris@441 37
Chris@441 38 #
Chris@441 39 # Code 128-A Barcode Render Class for PHP using the GD graphics library.<br>
Chris@441 40 # Code 128-A is a continuous, multilevel and include all upper case alphanumeric characters and ASCII control characters.
Chris@441 41 # @author Karim Mribti, Nicola Asuni
Chris@441 42 # @name BarcodeObject
Chris@441 43 # @package com.tecnick.tcpdf
Chris@441 44 # @@version 0.0.8a 2001-04-01 (original code)
Chris@441 45 # @since 2001-03-25
Chris@441 46 # @license http://www.gnu.org/copyleft/lesser.html LGPL
Chris@441 47 #
Chris@441 48 class C128AObject extends BarcodeObject {
Chris@441 49
Chris@441 50 #
Chris@441 51 # Class Constructor.
Chris@441 52 # @param int $Width Image width in pixels.
Chris@441 53 # @param int $Height Image height in pixels.
Chris@441 54 # @param int $Style Barcode style.
Chris@441 55 # @param int $Value value to print on barcode.
Chris@441 56 #
Chris@441 57 def __construct($Width, $Height, $Style, $Value)
Chris@441 58 parent::__construct($Width, $Height, $Style);
Chris@441 59 @mValue = $Value;
Chris@441 60 @mChars = " !\"#$%&'()*+�-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_";
Chris@441 61 @mCharSet = array (
Chris@441 62 "212222", # 00#
Chris@441 63 "222122", # 01#
Chris@441 64 "222221", # 02#
Chris@441 65 "121223", # 03#
Chris@441 66 "121322", # 04#
Chris@441 67 "131222", # 05#
Chris@441 68 "122213", # 06#
Chris@441 69 "122312", # 07#
Chris@441 70 "132212", # 08#
Chris@441 71 "221213", # 09#
Chris@441 72 "221312", # 10#
Chris@441 73 "231212", # 11#
Chris@441 74 "112232", # 12#
Chris@441 75 "122132", # 13#
Chris@441 76 "122231", # 14#
Chris@441 77 "113222", # 15#
Chris@441 78 "123122", # 16#
Chris@441 79 "123221", # 17#
Chris@441 80 "223211", # 18#
Chris@441 81 "221132", # 19#
Chris@441 82 "221231", # 20#
Chris@441 83 "213212", # 21#
Chris@441 84 "223112", # 22#
Chris@441 85 "312131", # 23#
Chris@441 86 "311222", # 24#
Chris@441 87 "321122", # 25#
Chris@441 88 "321221", # 26#
Chris@441 89 "312212", # 27#
Chris@441 90 "322112", # 28#
Chris@441 91 "322211", # 29#
Chris@441 92 "212123", # 30#
Chris@441 93 "212321", # 31#
Chris@441 94 "232121", # 32#
Chris@441 95 "111323", # 33#
Chris@441 96 "131123", # 34#
Chris@441 97 "131321", # 35#
Chris@441 98 "112313", # 36#
Chris@441 99 "132113", # 37#
Chris@441 100 "132311", # 38#
Chris@441 101 "211313", # 39#
Chris@441 102 "231113", # 40#
Chris@441 103 "231311", # 41#
Chris@441 104 "112133", # 42#
Chris@441 105 "112331", # 43#
Chris@441 106 "132131", # 44#
Chris@441 107 "113123", # 45#
Chris@441 108 "113321", # 46#
Chris@441 109 "133121", # 47#
Chris@441 110 "313121", # 48#
Chris@441 111 "211331", # 49#
Chris@441 112 "231131", # 50#
Chris@441 113 "213113", # 51#
Chris@441 114 "213311", # 52#
Chris@441 115 "213131", # 53#
Chris@441 116 "311123", # 54#
Chris@441 117 "311321", # 55#
Chris@441 118 "331121", # 56#
Chris@441 119 "312113", # 57#
Chris@441 120 "312311", # 58#
Chris@441 121 "332111", # 59#
Chris@441 122 "314111", # 60#
Chris@441 123 "221411", # 61#
Chris@441 124 "431111", # 62#
Chris@441 125 "111224", # 63#
Chris@441 126 "111422", # 64#
Chris@441 127 "121124", # 65#
Chris@441 128 "121421", # 66#
Chris@441 129 "141122", # 67#
Chris@441 130 "141221", # 68#
Chris@441 131 "112214", # 69#
Chris@441 132 "112412", # 70#
Chris@441 133 "122114", # 71#
Chris@441 134 "122411", # 72#
Chris@441 135 "142112", # 73#
Chris@441 136 "142211", # 74#
Chris@441 137 "241211", # 75#
Chris@441 138 "221114", # 76#
Chris@441 139 "413111", # 77#
Chris@441 140 "241112", # 78#
Chris@441 141 "134111", # 79#
Chris@441 142 "111242", # 80#
Chris@441 143 "121142", # 81#
Chris@441 144 "121241", # 82#
Chris@441 145 "114212", # 83#
Chris@441 146 "124112", # 84#
Chris@441 147 "124211", # 85#
Chris@441 148 "411212", # 86#
Chris@441 149 "421112", # 87#
Chris@441 150 "421211", # 88#
Chris@441 151 "212141", # 89#
Chris@441 152 "214121", # 90#
Chris@441 153 "412121", # 91#
Chris@441 154 "111143", # 92#
Chris@441 155 "111341", # 93#
Chris@441 156 "131141", # 94#
Chris@441 157 "114113", # 95#
Chris@441 158 "114311", # 96#
Chris@441 159 "411113", # 97#
Chris@441 160 "411311", # 98#
Chris@441 161 "113141", # 99#
Chris@441 162 "114131", # 100#
Chris@441 163 "311141", # 101#
Chris@441 164 "411131" # 102#
Chris@441 165 );
Chris@441 166 end
Chris@441 167
Chris@441 168 #
Chris@441 169 # Returns the character index.
Chris@441 170 # @param char $char character.
Chris@441 171 # @return int character index or -1 in case of error.
Chris@441 172 # @access private
Chris@441 173 #
Chris@441 174 def GetCharIndex($char)
Chris@441 175 for ($i=0;$i<64;$i++)
Chris@441 176 if (@mChars[$i] == $char)
Chris@441 177 return $i;
Chris@441 178 end
Chris@441 179 end
Chris@441 180 return -1;
Chris@441 181 end
Chris@441 182
Chris@441 183 #
Chris@441 184 # Returns the bar size.
Chris@441 185 # @param int $xres Horizontal resolution.
Chris@441 186 # @param char $char Character.
Chris@441 187 # @return int barcode size.
Chris@441 188 # @access private
Chris@441 189 #
Chris@441 190 def GetBarSize($xres, $char)
Chris@441 191 switch ($char)
Chris@441 192 case '1'
Chris@441 193 $cVal = BCD_C128_BAR_1;
Chris@441 194
Chris@441 195 case '2'
Chris@441 196 $cVal = BCD_C128_BAR_2;
Chris@441 197
Chris@441 198 case '3'
Chris@441 199 $cVal = BCD_C128_BAR_3;
Chris@441 200
Chris@441 201 case '4'
Chris@441 202 $cVal = BCD_C128_BAR_4;
Chris@441 203
Chris@441 204 default
Chris@441 205 $cVal = 0;
Chris@441 206 end
Chris@441 207 end
Chris@441 208 return $cVal# $xres;
Chris@441 209 end
Chris@441 210
Chris@441 211 #
Chris@441 212 # Returns barcode size.
Chris@441 213 # @param int $xres Horizontal resolution.
Chris@441 214 # @return barcode size.
Chris@441 215 # @access private
Chris@441 216 #
Chris@441 217 def GetSize($xres)
Chris@441 218 $len = @mValue.length;
Chris@441 219
Chris@441 220 if ($len == 0) {
Chris@441 221 @mError = "Null value";
Chris@441 222 return false;
Chris@441 223 end
Chris@441 224 $ret = 0;
Chris@441 225 for ($i=0;$i<$len;$i++)
Chris@441 226 if (($id = GetCharIndex(@mValue[$i])) == -1)
Chris@441 227 @mError = "C128A not include the char '".@mValue[$i]."'";
Chris@441 228 return false;
Chris@441 229 else
Chris@441 230 $cset = @mCharSet[$id];
Chris@441 231 $ret += GetBarSize($xres, $cset[0]);
Chris@441 232 $ret += GetBarSize($xres, $cset[1]);
Chris@441 233 $ret += GetBarSize($xres, $cset[2]);
Chris@441 234 $ret += GetBarSize($xres, $cset[3]);
Chris@441 235 $ret += GetBarSize($xres, $cset[4]);
Chris@441 236 $ret += GetBarSize($xres, $cset[5]);
Chris@441 237 end
Chris@441 238 end
Chris@441 239
Chris@441 240 # length of Check character#
Chris@441 241 $cset = GetCheckCharValue();
Chris@441 242 $CheckSize = 0;
Chris@441 243 for ($i=0;$i<6;$i++)
Chris@441 244 $CheckSize += GetBarSize($cset[$i], $xres);
Chris@441 245 end
Chris@441 246 $StartSize = 2*BCD_C128_BAR_2*$xres + 3*BCD_C128_BAR_1*$xres + BCD_C128_BAR_4*$xres;
Chris@441 247 $StopSize = 2*BCD_C128_BAR_2*$xres + 3*BCD_C128_BAR_1*$xres + 2*BCD_C128_BAR_3*$xres;
Chris@441 248 return $StartSize + $ret + $CheckSize + $StopSize;
Chris@441 249 end
Chris@441 250
Chris@441 251 #
Chris@441 252 # Returns the check-char value.
Chris@441 253 # @return string.
Chris@441 254 # @access private
Chris@441 255 #
Chris@441 256 def GetCheckCharValue()
Chris@441 257 $len = @mValue.length;
Chris@441 258 $sum = 103; # 'A' type;
Chris@441 259 for ($i=0;$i<$len;$i++)
Chris@441 260 $sum += GetCharIndex(@mValue[$i])# ($i+1);
Chris@441 261 end
Chris@441 262 $check = $sum % 103;
Chris@441 263 return @mCharSet[$check];
Chris@441 264 end
Chris@441 265
Chris@441 266 #
Chris@441 267 # Draws the start code.
Chris@441 268 # @param int $DrawPos Drawing position.
Chris@441 269 # @param int $yPos Vertical position.
Chris@441 270 # @param int $ySize Vertical size.
Chris@441 271 # @param int $xres Horizontal resolution.
Chris@441 272 # @return int drawing position.
Chris@441 273 # @access private
Chris@441 274 #
Chris@441 275 def DrawStart($DrawPos, $yPos, $ySize, $xres)
Chris@441 276 # Start code is '211412'#
Chris@441 277 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize('2', $xres) , $ySize);
Chris@441 278 $DrawPos += GetBarSize('2', $xres);
Chris@441 279 $DrawPos += GetBarSize('1', $xres);
Chris@441 280 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize('1', $xres) , $ySize);
Chris@441 281 $DrawPos += GetBarSize('1', $xres);
Chris@441 282 $DrawPos += GetBarSize('4', $xres);
Chris@441 283 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize('1', $xres) , $ySize);
Chris@441 284 $DrawPos += GetBarSize('1', $xres);
Chris@441 285 $DrawPos += GetBarSize('2', $xres);
Chris@441 286 return $DrawPos;
Chris@441 287 end
Chris@441 288
Chris@441 289 #
Chris@441 290 # Draws the stop code.
Chris@441 291 # @param int $DrawPos Drawing position.
Chris@441 292 # @param int $yPos Vertical position.
Chris@441 293 # @param int $ySize Vertical size.
Chris@441 294 # @param int $xres Horizontal resolution.
Chris@441 295 # @return int drawing position.
Chris@441 296 # @access private
Chris@441 297 #
Chris@441 298 def DrawStop($DrawPos, $yPos, $ySize, $xres)
Chris@441 299 # Stop code is '2331112'#
Chris@441 300 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize('2', $xres) , $ySize);
Chris@441 301 $DrawPos += GetBarSize('2', $xres);
Chris@441 302 $DrawPos += GetBarSize('3', $xres);
Chris@441 303 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize('3', $xres) , $ySize);
Chris@441 304 $DrawPos += GetBarSize('3', $xres);
Chris@441 305 $DrawPos += GetBarSize('1', $xres);
Chris@441 306 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize('1', $xres) , $ySize);
Chris@441 307 $DrawPos += GetBarSize('1', $xres);
Chris@441 308 $DrawPos += GetBarSize('1', $xres);
Chris@441 309 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize('2', $xres) , $ySize);
Chris@441 310 $DrawPos += GetBarSize('2', $xres);
Chris@441 311 return $DrawPos;
Chris@441 312 end
Chris@441 313
Chris@441 314 #
Chris@441 315 # Draws the check-char code.
Chris@441 316 # @param int $DrawPos Drawing position.
Chris@441 317 # @param int $yPos Vertical position.
Chris@441 318 # @param int $ySize Vertical size.
Chris@441 319 # @param int $xres Horizontal resolution.
Chris@441 320 # @return int drawing position.
Chris@441 321 # @access private
Chris@441 322 #
Chris@441 323 def DrawCheckChar($DrawPos, $yPos, $ySize, $xres)
Chris@441 324 $cset = GetCheckCharValue();
Chris@441 325 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize($cset[0], $xres) , $ySize);
Chris@441 326 $DrawPos += GetBarSize($cset[0], $xres);
Chris@441 327 $DrawPos += GetBarSize($cset[1], $xres);
Chris@441 328 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize($cset[2], $xres) , $ySize);
Chris@441 329 $DrawPos += GetBarSize($cset[2], $xres);
Chris@441 330 $DrawPos += GetBarSize($cset[3], $xres);
Chris@441 331 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize($cset[4], $xres) , $ySize);
Chris@441 332 $DrawPos += GetBarSize($cset[4], $xres);
Chris@441 333 $DrawPos += GetBarSize($cset[5], $xres);
Chris@441 334 return $DrawPos;
Chris@441 335 end
Chris@441 336
Chris@441 337 #
Chris@441 338 # Draws the barcode object.
Chris@441 339 # @param int $xres Horizontal resolution.
Chris@441 340 # @return bool true in case of success.
Chris@441 341 #
Chris@441 342 def DrawObject($xres)
Chris@441 343 $len = @mValue.length;
Chris@441 344 if (($size = GetSize($xres))==0)
Chris@441 345 return false;
Chris@441 346 end
Chris@441 347
Chris@441 348 if (@mStyle & BCS_ALIGN_CENTER) $sPos = (integer)((@mWidth - $size ) / 2);
Chris@441 349 elsif (@mStyle & BCS_ALIGN_RIGHT) $sPos = @mWidth - $size;
Chris@441 350 else $sPos = 0;
Chris@441 351
Chris@441 352 # Total height of bar code -Bars only-#
Chris@441 353 if (@mStyle & BCS_DRAW_TEXT) $ysize = @mHeight - BCD_DEFAULT_MAR_Y1 - BCD_DEFAULT_MAR_Y2 - GetFontHeight(@mFont);
Chris@441 354 else $ysize = @mHeight - BCD_DEFAULT_MAR_Y1 - BCD_DEFAULT_MAR_Y2;
Chris@441 355
Chris@441 356 # Draw text#
Chris@441 357 if (@mStyle & BCS_DRAW_TEXT)
Chris@441 358 if (@mStyle & BCS_STRETCH_TEXT)
Chris@441 359 for ($i=0;$i<$len;$i++)
Chris@441 360 @DrawChar(@mFont, $sPos+(2*BCD_C128_BAR_2*$xres + 3*BCD_C128_BAR_1*$xres + BCD_C128_BAR_4*$xres)+($size/$len)*$i,
Chris@441 361 $ysize + BCD_DEFAULT_MAR_Y1 + BCD_DEFAULT_TEXT_OFFSET, @mValue[$i]);
Chris@441 362 else# Center#
Chris@441 363 $text_width = GetFontWidth(@mFont)# @mValue.length;
Chris@441 364 @DrawText(@mFont, $sPos+(($size-$text_width)/2)+(2*BCD_C128_BAR_2*$xres + 3*BCD_C128_BAR_1*$xres + BCD_C128_BAR_4*$xres),
Chris@441 365 $ysize + BCD_DEFAULT_MAR_Y1 + BCD_DEFAULT_TEXT_OFFSET, @mValue);
Chris@441 366 end
Chris@441 367 end
Chris@441 368
Chris@441 369 $cPos = 0;
Chris@441 370 $DrawPos = @DrawStart($sPos, BCD_DEFAULT_MAR_Y1 , $ysize, $xres);
Chris@441 371 do {
Chris@441 372 $c = GetCharIndex(@mValue[$cPos]);
Chris@441 373 $cset = @mCharSet[$c];
Chris@441 374 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize($cset[0], $xres) , $ysize);
Chris@441 375 $DrawPos += GetBarSize($cset[0], $xres);
Chris@441 376 $DrawPos += GetBarSize($cset[1], $xres);
Chris@441 377 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize($cset[2], $xres) , $ysize);
Chris@441 378 $DrawPos += GetBarSize($cset[2], $xres);
Chris@441 379 $DrawPos += GetBarSize($cset[3], $xres);
Chris@441 380 @DrawSingleBar($DrawPos, BCD_DEFAULT_MAR_Y1, GetBarSize($cset[4], $xres) , $ysize);
Chris@441 381 $DrawPos += GetBarSize($cset[4], $xres);
Chris@441 382 $DrawPos += GetBarSize($cset[5], $xres);
Chris@441 383 $cPos += 1;
Chris@441 384 end while ($cPos<$len);
Chris@441 385 $DrawPos = @DrawCheckChar($DrawPos, BCD_DEFAULT_MAR_Y1 , $ysize, $xres);
Chris@441 386 $DrawPos = @DrawStop($DrawPos, BCD_DEFAULT_MAR_Y1 , $ysize, $xres);
Chris@441 387 return true;
Chris@441 388 end
Chris@441 389 }
Chris@441 390
Chris@441 391 #============================================================+
Chris@441 392 # END OF FILE
Chris@441 393 #============================================================+