Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

barcodes.php@ 412

Last change on this file since 412 was 349, checked in by roby, 4 years ago

File size: 59.1 KB

Rev	Line
[349]	1	<?php
	2	//============================================================+
	3	// File name : barcodes.php
	4	// Begin : 2008-06-09
	5	// Last Update : 2009-08-26
	6	// Version : 1.0.009
	7	// License : GNU LGPL (http://www.gnu.org/copyleft/lesser.html)
	8	// ----------------------------------------------------------------------------
	9	// Copyright (C) 2008-2009 Nicola Asuni - Tecnick.com S.r.l.
	10	//
	11	// This program is free software: you can redistribute it and/or modify
	12	// it under the terms of the GNU Lesser General Public License as published by
	13	// the Free Software Foundation, either version 2.1 of the License, or
	14	// (at your option) any later version.
	15	//
	16	// This program is distributed in the hope that it will be useful,
	17	// but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	// GNU Lesser General Public License for more details.
	20	//
	21	// You should have received a copy of the GNU Lesser General Public License
	22	// along with this program. If not, see <http://www.gnu.org/licenses/>.
	23	//
	24	// See LICENSE.TXT file for more information.
	25	// ----------------------------------------------------------------------------
	26	//
	27	// Description : PHP class to creates array representations for
	28	// common 1D barcodes to be used with TCPDF.
	29	//
	30	// Author: Nicola Asuni
	31	//
	32	// (c) Copyright:
	33	// Nicola Asuni
	34	// Tecnick.com S.r.l.
	35	// Via della Pace, 11
	36	// 09044 Quartucciu (CA)
	37	// ITALY
	38	// www.tecnick.com
	39	// info@tecnick.com
	40	//============================================================+
	41
	42	/**
	43	* PHP class to creates array representations for common 1D barcodes to be used with TCPDF.
	44	* @package com.tecnick.tcpdf
	45	* @abstract Functions for generating string representation of common 1D barcodes.
	46	* @author Nicola Asuni
	47	* @copyright 2008-2009 Nicola Asuni - Tecnick.com S.r.l (www.tecnick.com) Via Della Pace, 11 - 09044 - Quartucciu (CA) - ITALY - www.tecnick.com - info@tecnick.com
	48	* @link http://www.tcpdf.org
	49	* @license http://www.gnu.org/copyleft/lesser.html LGPL
	50	* @version 1.0.008
	51	*/
	52
	53	/**
	54	* PHP class to creates array representations for common 1D barcodes to be used with TCPDF (http://www.tcpdf.org).<br>
	55	* @name TCPDFBarcode
	56	* @package com.tecnick.tcpdf
	57	* @version 1.0.008
	58	* @author Nicola Asuni
	59	* @link http://www.tcpdf.org
	60	* @license http://www.gnu.org/copyleft/lesser.html LGPL
	61	*/
	62	class TCPDFBarcode {
	63
	64	/**
	65	* @var array representation of barcode.
	66	* @access protected
	67	*/
	68	protected $barcode_array;
	69
	70	/**
	71	* This is the class constructor.
	72	* Return an array representations for common 1D barcodes:<ul>
	73	* <li>$arrcode['code'] code to be printed on text label</li>
	74	* <li>$arrcode['maxh'] max bar height</li>
	75	* <li>$arrcode['maxw'] max bar width</li>
	76	* <li>$arrcode['bcode'][$k] single bar or space in $k position</li>
	77	* <li>$arrcode['bcode'][$k]['t'] bar type: true = bar, false = space.</li>
	78	* <li>$arrcode['bcode'][$k]['w'] bar width in units.</li>
	79	* <li>$arrcode['bcode'][$k]['h'] bar height in units.</li>
	80	* <li>$arrcode['bcode'][$k]['p'] bar top position (0 = top, 1 = middle)</li></ul>
	81	* @param string $code code to print
	82	* @param string $type type of barcode: <ul><li>C39 : CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.</li><li>C39+ : CODE 39 with checksum</li><li>C39E : CODE 39 EXTENDED</li><li>C39E+ : CODE 39 EXTENDED + CHECKSUM</li><li>C93 : CODE 93 - USS-93</li><li>S25 : Standard 2 of 5</li><li>S25+ : Standard 2 of 5 + CHECKSUM</li><li>I25 : Interleaved 2 of 5</li><li>I25+ : Interleaved 2 of 5 + CHECKSUM</li><li>C128A : CODE 128 A</li><li>C128B : CODE 128 B</li><li>C128C : CODE 128 C</li><li>EAN2 : 2-Digits UPC-Based Extention</li><li>EAN5 : 5-Digits UPC-Based Extention</li><li>EAN8 : EAN 8</li><li>EAN13 : EAN 13</li><li>UPCA : UPC-A</li><li>UPCE : UPC-E</li><li>MSI : MSI (Variation of Plessey code)</li><li>MSI+ : MSI + CHECKSUM (modulo 11)</li><li>POSTNET : POSTNET</li><li>PLANET : PLANET</li><li>RMS4CC : RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)</li><li>KIX : KIX (Klant index - Customer index)</li><li>IMB: Intelligent Mail Barcode - Onecode - USPS-B-3200</li><li>CODABAR : CODABAR</li><li>CODE11 : CODE 11</li><li>PHARMA : PHARMACODE</li><li>PHARMA2T : PHARMACODE TWO-TRACKS</li></ul>
	83	*/
	84	public function __construct($code, $type) {
	85	$this->setBarcode($code, $type);
	86	}
	87
	88	/**
	89	* Return an array representations of barcode.
	90	* @return array
	91	*/
	92	public function getBarcodeArray() {
	93	return $this->barcode_array;
	94	}
	95
	96	/**
	97	* Set the barcode.
	98	* @param string $code code to print
	99	* @param string $type type of barcode: <ul><li>C39 : CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.</li><li>C39+ : CODE 39 with checksum</li><li>C39E : CODE 39 EXTENDED</li><li>C39E+ : CODE 39 EXTENDED + CHECKSUM</li><li>C93 : CODE 93 - USS-93</li><li>S25 : Standard 2 of 5</li><li>S25+ : Standard 2 of 5 + CHECKSUM</li><li>I25 : Interleaved 2 of 5</li><li>I25+ : Interleaved 2 of 5 + CHECKSUM</li><li>C128A : CODE 128 A</li><li>C128B : CODE 128 B</li><li>C128C : CODE 128 C</li><li>EAN2 : 2-Digits UPC-Based Extention</li><li>EAN5 : 5-Digits UPC-Based Extention</li><li>EAN8 : EAN 8</li><li>EAN13 : EAN 13</li><li>UPCA : UPC-A</li><li>UPCE : UPC-E</li><li>MSI : MSI (Variation of Plessey code)</li><li>MSI+ : MSI + CHECKSUM (modulo 11)</li><li>POSTNET : POSTNET</li><li>PLANET : PLANET</li><li>RMS4CC : RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)</li><li>KIX : KIX (Klant index - Customer index)</li><li>IMB: Intelligent Mail Barcode - Onecode - USPS-B-3200</li><li>CODABAR : CODABAR</li><li>CODE11 : CODE 11</li><li>PHARMA : PHARMACODE</li><li>PHARMA2T : PHARMACODE TWO-TRACKS</li></ul>
	100	* @return array
	101	*/
	102	public function setBarcode($code, $type) {
	103	switch (strtoupper($type)) {
	104	case 'C39': { // CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
	105	$arrcode = $this->barcode_code39($code, false, false);
	106	break;
	107	}
	108	case 'C39+': { // CODE 39 with checksum
	109	$arrcode = $this->barcode_code39($code, false, true);
	110	break;
	111	}
	112	case 'C39E': { // CODE 39 EXTENDED
	113	$arrcode = $this->barcode_code39($code, true, false);
	114	break;
	115	}
	116	case 'C39E+': { // CODE 39 EXTENDED + CHECKSUM
	117	$arrcode = $this->barcode_code39($code, true, true);
	118	break;
	119	}
	120	case 'C93': { // CODE 93 - USS-93
	121	$arrcode = $this->barcode_code93($code);
	122	break;
	123	}
	124	case 'S25': { // Standard 2 of 5
	125	$arrcode = $this->barcode_s25($code, false);
	126	break;
	127	}
	128	case 'S25+': { // Standard 2 of 5 + CHECKSUM
	129	$arrcode = $this->barcode_s25($code, true);
	130	break;
	131	}
	132	case 'I25': { // Interleaved 2 of 5
	133	$arrcode = $this->barcode_i25($code, false);
	134	break;
	135	}
	136	case 'I25+': { // Interleaved 2 of 5 + CHECKSUM
	137	$arrcode = $this->barcode_i25($code, true);
	138	break;
	139	}
	140	case 'C128A': { // CODE 128 A
	141	$arrcode = $this->barcode_c128($code, 'A');
	142	break;
	143	}
	144	case 'C128B': { // CODE 128 B
	145	$arrcode = $this->barcode_c128($code, 'B');
	146	break;
	147	}
	148	case 'C128C': { // CODE 128 C
	149	$arrcode = $this->barcode_c128($code, 'C');
	150	break;
	151	}
	152	case 'EAN2': { // 2-Digits UPC-Based Extention
	153	$arrcode = $this->barcode_eanext($code, 2);
	154	break;
	155	}
	156	case 'EAN5': { // 5-Digits UPC-Based Extention
	157	$arrcode = $this->barcode_eanext($code, 5);
	158	break;
	159	}
	160	case 'EAN8': { // EAN 8
	161	$arrcode = $this->barcode_eanupc($code, 8);
	162	break;
	163	}
	164	case 'EAN13': { // EAN 13
	165	$arrcode = $this->barcode_eanupc($code, 13);
	166	break;
	167	}
	168	case 'UPCA': { // UPC-A
	169	$arrcode = $this->barcode_eanupc($code, 12);
	170	break;
	171	}
	172	case 'UPCE': { // UPC-E
	173	$arrcode = $this->barcode_eanupc($code, 6);
	174	break;
	175	}
	176	case 'MSI': { // MSI (Variation of Plessey code)
	177	$arrcode = $this->barcode_msi($code, false);
	178	break;
	179	}
	180	case 'MSI+': { // MSI + CHECKSUM (modulo 11)
	181	$arrcode = $this->barcode_msi($code, true);
	182	break;
	183	}
	184	case 'POSTNET': { // POSTNET
	185	$arrcode = $this->barcode_postnet($code, false);
	186	break;
	187	}
	188	case 'PLANET': { // PLANET
	189	$arrcode = $this->barcode_postnet($code, true);
	190	break;
	191	}
	192	case 'RMS4CC': { // RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)
	193	$arrcode = $this->barcode_rms4cc($code, false);
	194	break;
	195	}
	196	case 'KIX': { // KIX (Klant index - Customer index)
	197	$arrcode = $this->barcode_rms4cc($code, true);
	198	break;
	199	}
	200	case 'IMB': { // IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
	201	$arrcode = $this->barcode_imb($code);
	202	break;
	203	}
	204	case 'CODABAR': { // CODABAR
	205	$arrcode = $this->barcode_codabar($code);
	206	break;
	207	}
	208	case 'CODE11': { // CODE 11
	209	$arrcode = $this->barcode_code11($code);
	210	break;
	211	}
	212	case 'PHARMA': { // PHARMACODE
	213	$arrcode = $this->barcode_pharmacode($code);
	214	break;
	215	}
	216	case 'PHARMA2T': { // PHARMACODE TWO-TRACKS
	217	$arrcode = $this->barcode_pharmacode2t($code);
	218	break;
	219	}
	220	default: {
	221	$this->barcode_array = false;
	222	$arrcode = false;
	223	break;
	224	}
	225	}
	226	$this->barcode_array = $arrcode;
	227	}
	228
	229	/**
	230	* CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
	231	* General-purpose code in very wide use world-wide
	232	* @param string $code code to represent.
	233	* @param boolean $checksum if true add a checksum to the code
	234	* @return array barcode representation.
	235	* @access protected
	236	*/
	237	protected function barcode_code39($code, $extended=false, $checksum=false) {
	238	$chr['0'] = '111221211';
	239	$chr['1'] = '211211112';
	240	$chr['2'] = '112211112';
	241	$chr['3'] = '212211111';
	242	$chr['4'] = '111221112';
	243	$chr['5'] = '211221111';
	244	$chr['6'] = '112221111';
	245	$chr['7'] = '111211212';
	246	$chr['8'] = '211211211';
	247	$chr['9'] = '112211211';
	248	$chr['A'] = '211112112';
	249	$chr['B'] = '112112112';
	250	$chr['C'] = '212112111';
	251	$chr['D'] = '111122112';
	252	$chr['E'] = '211122111';
	253	$chr['F'] = '112122111';
	254	$chr['G'] = '111112212';
	255	$chr['H'] = '211112211';
	256	$chr['I'] = '112112211';
	257	$chr['J'] = '111122211';
	258	$chr['K'] = '211111122';
	259	$chr['L'] = '112111122';
	260	$chr['M'] = '212111121';
	261	$chr['N'] = '111121122';
	262	$chr['O'] = '211121121';
	263	$chr['P'] = '112121121';
	264	$chr['Q'] = '111111222';
	265	$chr['R'] = '211111221';
	266	$chr['S'] = '112111221';
	267	$chr['T'] = '111121221';
	268	$chr['U'] = '221111112';
	269	$chr['V'] = '122111112';
	270	$chr['W'] = '222111111';
	271	$chr['X'] = '121121112';
	272	$chr['Y'] = '221121111';
	273	$chr['Z'] = '122121111';
	274	$chr['-'] = '121111212';
	275	$chr['.'] = '221111211';
	276	$chr[' '] = '122111211';
	277	$chr['$'] = '121212111';
	278	$chr['/'] = '121211121';
	279	$chr['+'] = '121112121';
	280	$chr['%'] = '111212121';
	281	$chr['*'] = '121121211';
	282
	283	$code = strtoupper($code);
	284	if ($extended) {
	285	// extended mode
	286	$code = $this->encode_code39_ext($code);
	287	}
	288	if ($code === false) {
	289	return false;
	290	}
	291	if ($checksum) {
	292	// checksum
	293	$code .= $this->checksum_code39($code);
	294	}
	295	// add start and stop codes
	296	$code = ''.$code.'';
	297
	298	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	299	$k = 0;
	300	$clen = strlen($code);
	301	for ($i = 0; $i < $clen; ++$i) {
	302	$char = $code{$i};
	303	if(!isset($chr[$char])) {
	304	// invalid character
	305	return false;
	306	}
	307	for ($j = 0; $j < 9; ++$j) {
	308	if (($j % 2) == 0) {
	309	$t = true; // bar
	310	} else {
	311	$t = false; // space
	312	}
	313	$w = $chr[$char]{$j};
	314	$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
	315	$bararray['maxw'] += $w;
	316	++$k;
	317	}
	318	$bararray['bcode'][$k] = array('t' => false, 'w' => 1, 'h' => 1, 'p' => 0);
	319	$bararray['maxw'] += 1;
	320	++$k;
	321	}
	322	return $bararray;
	323	}
	324
	325	/**
	326	* Encode a string to be used for CODE 39 Extended mode.
	327	* @param string $code code to represent.
	328	* @return encoded string.
	329	* @access protected
	330	*/
	331	protected function encode_code39_ext($code) {
	332	$encode = array(
	333	chr(0) => '%U', chr(1) => '$A', chr(2) => '$B', chr(3) => '$C',
	334	chr(4) => '$D', chr(5) => '$E', chr(6) => '$F', chr(7) => '$G',
	335	chr(8) => '$H', chr(9) => '$I', chr(10) => '$J', chr(11) => 'Â£K',
	336	chr(12) => '$L', chr(13) => '$M', chr(14) => '$N', chr(15) => '$O',
	337	chr(16) => '$P', chr(17) => '$Q', chr(18) => '$R', chr(19) => '$S',
	338	chr(20) => '$T', chr(21) => '$U', chr(22) => '$V', chr(23) => '$W',
	339	chr(24) => '$X', chr(25) => '$Y', chr(26) => '$Z', chr(27) => '%A',
	340	chr(28) => '%B', chr(29) => '%C', chr(30) => '%D', chr(31) => '%E',
	341	chr(32) => ' ', chr(33) => '/A', chr(34) => '/B', chr(35) => '/C',
	342	chr(36) => '/D', chr(37) => '/E', chr(38) => '/F', chr(39) => '/G',
	343	chr(40) => '/H', chr(41) => '/I', chr(42) => '/J', chr(43) => '/K',
	344	chr(44) => '/L', chr(45) => '-', chr(46) => '.', chr(47) => '/O',
	345	chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
	346	chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
	347	chr(56) => '8', chr(57) => '9', chr(58) => '/Z', chr(59) => '%F',
	348	chr(60) => '%G', chr(61) => '%H', chr(62) => '%I', chr(63) => '%J',
	349	chr(64) => '%V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
	350	chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
	351	chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
	352	chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
	353	chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
	354	chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
	355	chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => '%K',
	356	chr(92) => '%L', chr(93) => '%M', chr(94) => '%N', chr(95) => '%O',
	357	chr(96) => '%W', chr(97) => '+A', chr(98) => '+B', chr(99) => '+C',
	358	chr(100) => '+D', chr(101) => '+E', chr(102) => '+F', chr(103) => '+G',
	359	chr(104) => '+H', chr(105) => '+I', chr(106) => '+J', chr(107) => '+K',
	360	chr(108) => '+L', chr(109) => '+M', chr(110) => '+N', chr(111) => '+O',
	361	chr(112) => '+P', chr(113) => '+Q', chr(114) => '+R', chr(115) => '+S',
	362	chr(116) => '+T', chr(117) => '+U', chr(118) => '+V', chr(119) => '+W',
	363	chr(120) => '+X', chr(121) => '+Y', chr(122) => '+Z', chr(123) => '%P',
	364	chr(124) => '%Q', chr(125) => '%R', chr(126) => '%S', chr(127) => '%T');
	365	$code_ext = '';
	366	$clen = strlen($code);
	367	for ($i = 0 ; $i < $clen; ++$i) {
	368	if (ord($code{$i}) > 127) {
	369	return false;
	370	}
	371	$code_ext .= $encode[$code{$i}];
	372	}
	373	return $code_ext;
	374	}
	375
	376	/**
	377	* Calculate CODE 39 checksum (modulo 43).
	378	* @param string $code code to represent.
	379	* @return char checksum.
	380	* @access protected
	381	*/
	382	protected function checksum_code39($code) {
	383	$chars = array(
	384	'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
	385	'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
	386	'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
	387	'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%');
	388	$sum = 0;
	389	$clen = strlen($code);
	390	for ($i = 0 ; $i < $clen; ++$i) {
	391	$k = array_keys($chars, $code{$i});
	392	$sum += $k[0];
	393	}
	394	$j = ($sum % 43);
	395	return $chars[$j];
	396	}
	397
	398	/**
	399	* CODE 93 - USS-93
	400	* Compact code similar to Code 39
	401	* @param string $code code to represent.
	402	* @param boolean $checksum if true add a checksum to the code
	403	* @return array barcode representation.
	404	* @access protected
	405	*/
	406	protected function barcode_code93($code) {
	407	$chr['0'] = '131112';
	408	$chr['1'] = '111213';
	409	$chr['2'] = '111312';
	410	$chr['3'] = '111411';
	411	$chr['4'] = '121113';
	412	$chr['5'] = '121212';
	413	$chr['6'] = '121311';
	414	$chr['7'] = '111114';
	415	$chr['8'] = '131211';
	416	$chr['9'] = '141111';
	417	$chr['A'] = '211113';
	418	$chr['B'] = '211212';
	419	$chr['C'] = '211311';
	420	$chr['D'] = '221112';
	421	$chr['E'] = '221211';
	422	$chr['F'] = '231111';
	423	$chr['G'] = '112113';
	424	$chr['H'] = '112212';
	425	$chr['I'] = '112311';
	426	$chr['J'] = '122112';
	427	$chr['K'] = '132111';
	428	$chr['L'] = '111123';
	429	$chr['M'] = '111222';
	430	$chr['N'] = '111321';
	431	$chr['O'] = '121122';
	432	$chr['P'] = '131121';
	433	$chr['Q'] = '212112';
	434	$chr['R'] = '212211';
	435	$chr['S'] = '211122';
	436	$chr['T'] = '211221';
	437	$chr['U'] = '221121';
	438	$chr['V'] = '222111';
	439	$chr['W'] = '112122';
	440	$chr['X'] = '112221';
	441	$chr['Y'] = '122121';
	442	$chr['Z'] = '123111';
	443	$chr['-'] = '121131';
	444	$chr['.'] = '311112';
	445	$chr[' '] = '311211';
	446	$chr['$'] = '321111';
	447	$chr['/'] = '112131';
	448	$chr['+'] = '113121';
	449	$chr['%'] = '211131';
	450	$chr[128] = '121221'; // ($)
	451	$chr[129] = '311121'; // (/)
	452	$chr[130] = '122211'; // (+)
	453	$chr[131] = '312111'; // (%)
	454	$chr['*'] = '111141';
	455	$code = strtoupper($code);
	456	$encode = array(
	457	chr(0) => chr(131).'U', chr(1) => chr(128).'A', chr(2) => chr(128).'B', chr(3) => chr(128).'C',
	458	chr(4) => chr(128).'D', chr(5) => chr(128).'E', chr(6) => chr(128).'F', chr(7) => chr(128).'G',
	459	chr(8) => chr(128).'H', chr(9) => chr(128).'I', chr(10) => chr(128).'J', chr(11) => 'Â£K',
	460	chr(12) => chr(128).'L', chr(13) => chr(128).'M', chr(14) => chr(128).'N', chr(15) => chr(128).'O',
	461	chr(16) => chr(128).'P', chr(17) => chr(128).'Q', chr(18) => chr(128).'R', chr(19) => chr(128).'S',
	462	chr(20) => chr(128).'T', chr(21) => chr(128).'U', chr(22) => chr(128).'V', chr(23) => chr(128).'W',
	463	chr(24) => chr(128).'X', chr(25) => chr(128).'Y', chr(26) => chr(128).'Z', chr(27) => chr(131).'A',
	464	chr(28) => chr(131).'B', chr(29) => chr(131).'C', chr(30) => chr(131).'D', chr(31) => chr(131).'E',
	465	chr(32) => ' ', chr(33) => chr(129).'A', chr(34) => chr(129).'B', chr(35) => chr(129).'C',
	466	chr(36) => chr(129).'D', chr(37) => chr(129).'E', chr(38) => chr(129).'F', chr(39) => chr(129).'G',
	467	chr(40) => chr(129).'H', chr(41) => chr(129).'I', chr(42) => chr(129).'J', chr(43) => chr(129).'K',
	468	chr(44) => chr(129).'L', chr(45) => '-', chr(46) => '.', chr(47) => chr(129).'O',
	469	chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
	470	chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
	471	chr(56) => '8', chr(57) => '9', chr(58) => chr(129).'Z', chr(59) => chr(131).'F',
	472	chr(60) => chr(131).'G', chr(61) => chr(131).'H', chr(62) => chr(131).'I', chr(63) => chr(131).'J',
	473	chr(64) => chr(131).'V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
	474	chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
	475	chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
	476	chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
	477	chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
	478	chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
	479	chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => chr(131).'K',
	480	chr(92) => chr(131).'L', chr(93) => chr(131).'M', chr(94) => chr(131).'N', chr(95) => chr(131).'O',
	481	chr(96) => chr(131).'W', chr(97) => chr(130).'A', chr(98) => chr(130).'B', chr(99) => chr(130).'C',
	482	chr(100) => chr(130).'D', chr(101) => chr(130).'E', chr(102) => chr(130).'F', chr(103) => chr(130).'G',
	483	chr(104) => chr(130).'H', chr(105) => chr(130).'I', chr(106) => chr(130).'J', chr(107) => chr(130).'K',
	484	chr(108) => chr(130).'L', chr(109) => chr(130).'M', chr(110) => chr(130).'N', chr(111) => chr(130).'O',
	485	chr(112) => chr(130).'P', chr(113) => chr(130).'Q', chr(114) => chr(130).'R', chr(115) => chr(130).'S',
	486	chr(116) => chr(130).'T', chr(117) => chr(130).'U', chr(118) => chr(130).'V', chr(119) => chr(130).'W',
	487	chr(120) => chr(130).'X', chr(121) => chr(130).'Y', chr(122) => chr(130).'Z', chr(123) => chr(131).'P',
	488	chr(124) => chr(131).'Q', chr(125) => chr(131).'R', chr(126) => chr(131).'S', chr(127) => chr(131).'T');
	489	$code_ext = '';
	490	$clen = strlen($code);
	491	for ($i = 0 ; $i < $clen; ++$i) {
	492	if (ord($code{$i}) > 127) {
	493	return false;
	494	}
	495	$code_ext .= $encode[$code{$i}];
	496	}
	497	// checksum
	498	$code .= $this->checksum_code93($code);
	499	// add start and stop codes
	500	$code = ''.$code.'';
	501	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	502	$k = 0;
	503	$clen = strlen($code);
	504	for ($i = 0; $i < $clen; ++$i) {
	505	$char = $code{$i};
	506	if(!isset($chr[$char])) {
	507	// invalid character
	508	return false;
	509	}
	510	for ($j = 0; $j < 6; ++$j) {
	511	if (($j % 2) == 0) {
	512	$t = true; // bar
	513	} else {
	514	$t = false; // space
	515	}
	516	$w = $chr[$char]{$j};
	517	$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
	518	$bararray['maxw'] += $w;
	519	++$k;
	520	}
	521	}
	522	$bararray['bcode'][$k] = array('t' => true, 'w' => 1, 'h' => 1, 'p' => 0);
	523	$bararray['maxw'] += 1;
	524	++$k;
	525	return $bararray;
	526	}
	527
	528	/**
	529	* Calculate CODE 93 checksum (modulo 47).
	530	* @param string $code code to represent.
	531	* @return string checksum code.
	532	* @access protected
	533	*/
	534	protected function checksum_code93($code) {
	535	$chars = array(
	536	'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
	537	'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
	538	'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
	539	'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%');
	540	// translate special characters
	541	$code = strtr($code, chr(128).chr(129).chr(130).chr(131), '$/+%');
	542	$len = strlen($code);
	543	// calculate check digit C
	544	$p = 1;
	545	$check = 0;
	546	for ($i = ($len - 1); $i >= 0; --$i) {
	547	$k = array_keys($chars, $code{$i});
	548	$check += ($k[0] * $p);
	549	++$p;
	550	if ($p > 20) {
	551	$p = 1;
	552	}
	553	}
	554	$check %= 47;
	555	$c = $chars[$check];
	556	$code .= $c;
	557	// calculate check digit K
	558	$p = 1;
	559	$check = 0;
	560	for ($i = $len; $i >= 0; --$i) {
	561	$k = array_keys($chars, $code{$i});
	562	$check += ($k[0] * $p);
	563	++$p;
	564	if ($p > 15) {
	565	$p = 1;
	566	}
	567	}
	568	$check %= 47;
	569	$k = $chars[$check];
	570	return $c.$k;
	571	}
	572
	573	/**
	574	* Checksum for standard 2 of 5 barcodes.
	575	* @param string $code code to process.
	576	* @return int checksum.
	577	* @access protected
	578	*/
	579	protected function checksum_s25($code) {
	580	$len = strlen($code);
	581	$sum = 0;
	582	for ($i = 0; $i < $len; $i+=2) {
	583	$sum += $code{$i};
	584	}
	585	$sum *= 3;
	586	for ($i = 1; $i < $len; $i+=2) {
	587	$sum += ($code{$i});
	588	}
	589	$r = $sum % 10;
	590	if($r > 0) {
	591	$r = (10 - $r);
	592	}
	593	return $r;
	594	}
	595
	596	/**
	597	* MSI.
	598	* Variation of Plessey code, with similar applications
	599	* Contains digits (0 to 9) and encodes the data only in the width of bars.
	600	* @param string $code code to represent.
	601	* @param boolean $checksum if true add a checksum to the code (modulo 11)
	602	* @return array barcode representation.
	603	* @access protected
	604	*/
	605	protected function barcode_msi($code, $checksum=false) {
	606	$chr['0'] = '100100100100';
	607	$chr['1'] = '100100100110';
	608	$chr['2'] = '100100110100';
	609	$chr['3'] = '100100110110';
	610	$chr['4'] = '100110100100';
	611	$chr['5'] = '100110100110';
	612	$chr['6'] = '100110110100';
	613	$chr['7'] = '100110110110';
	614	$chr['8'] = '110100100100';
	615	$chr['9'] = '110100100110';
	616	$chr['A'] = '110100110100';
	617	$chr['B'] = '110100110110';
	618	$chr['C'] = '110110100100';
	619	$chr['D'] = '110110100110';
	620	$chr['E'] = '110110110100';
	621	$chr['F'] = '110110110110';
	622	if ($checksum) {
	623	// add checksum
	624	$clen = strlen($code);
	625	$p = 2;
	626	$check = 0;
	627	for ($i = ($clen - 1); $i >= 0; --$i) {
	628	$check += (hexdec($code{$i}) * $p);
	629	++$p;
	630	if ($p > 7) {
	631	$p = 2;
	632	}
	633	}
	634	$check %= 11;
	635	if ($check > 0) {
	636	$check = 11 - $check;
	637	}
	638	$code .= $check;
	639	}
	640	$seq = '110'; // left guard
	641	$clen = strlen($code);
	642	for ($i = 0; $i < $clen; ++$i) {
	643	$digit = $code{$i};
	644	if (!isset($chr[$digit])) {
	645	// invalid character
	646	return false;
	647	}
	648	$seq .= $chr[$digit];
	649	}
	650	$seq .= '1001'; // right guard
	651	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	652	return $this->binseq_to_array($seq, $bararray);
	653	}
	654
	655	/**
	656	* Standard 2 of 5 barcodes.
	657	* Used in airline ticket marking, photofinishing
	658	* Contains digits (0 to 9) and encodes the data only in the width of bars.
	659	* @param string $code code to represent.
	660	* @param boolean $checksum if true add a checksum to the code
	661	* @return array barcode representation.
	662	* @access protected
	663	*/
	664	protected function barcode_s25($code, $checksum=false) {
	665	$chr['0'] = '10101110111010';
	666	$chr['1'] = '11101010101110';
	667	$chr['2'] = '10111010101110';
	668	$chr['3'] = '11101110101010';
	669	$chr['4'] = '10101110101110';
	670	$chr['5'] = '11101011101010';
	671	$chr['6'] = '10111011101010';
	672	$chr['7'] = '10101011101110';
	673	$chr['8'] = '10101110111010';
	674	$chr['9'] = '10111010111010';
	675	if ($checksum) {
	676	// add checksum
	677	$code .= $this->checksum_s25($code);
	678	}
	679	if((strlen($code) % 2) != 0) {
	680	// add leading zero if code-length is odd
	681	$code = '0'.$code;
	682	}
	683	$seq = '11011010';
	684	$clen = strlen($code);
	685	for ($i = 0; $i < $clen; ++$i) {
	686	$digit = $code{$i};
	687	if (!isset($chr[$digit])) {
	688	// invalid character
	689	return false;
	690	}
	691	$seq .= $chr[$digit];
	692	}
	693	$seq .= '1101011';
	694	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	695	return $this->binseq_to_array($seq, $bararray);
	696	}
	697
	698	/**
	699	* Convert binary barcode sequence to TCPDF barcode array
	700	* @param string $seq barcode as binary sequence
	701	* Ã²param array $bararray TCPDF barcode array to fill up
	702	* @return array barcode representation.
	703	* @access protected
	704	*/
	705	protected function binseq_to_array($seq, $bararray) {
	706	$len = strlen($seq);
	707	$w = 0;
	708	$k = 0;
	709	for ($i = 0; $i < $len; ++$i) {
	710	$w += 1;
	711	if (($i == ($len - 1)) OR (($i < ($len - 1)) AND ($seq{$i} != $seq{($i+1)}))) {
	712	if ($seq{$i} == '1') {
	713	$t = true; // bar
	714	} else {
	715	$t = false; // space
	716	}
	717	$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
	718	$bararray['maxw'] += $w;
	719	++$k;
	720	$w = 0;
	721	}
	722	}
	723	return $bararray;
	724	}
	725
	726	/**
	727	* Interleaved 2 of 5 barcodes.
	728	* Compact numeric code, widely used in industry, air cargo
	729	* Contains digits (0 to 9) and encodes the data in the width of both bars and spaces.
	730	* @param string $code code to represent.
	731	* @param boolean $checksum if true add a checksum to the code
	732	* @return array barcode representation.
	733	* @access protected
	734	*/
	735	protected function barcode_i25($code, $checksum=false) {
	736	$chr['0'] = '11221';
	737	$chr['1'] = '21112';
	738	$chr['2'] = '12112';
	739	$chr['3'] = '22111';
	740	$chr['4'] = '11212';
	741	$chr['5'] = '21211';
	742	$chr['6'] = '12211';
	743	$chr['7'] = '11122';
	744	$chr['8'] = '21121';
	745	$chr['9'] = '12121';
	746	$chr['A'] = '11';
	747	$chr['Z'] = '21';
	748	if ($checksum) {
	749	// add checksum
	750	$code .= $this->checksum_s25($code);
	751	}
	752	if((strlen($code) % 2) != 0) {
	753	// add leading zero if code-length is odd
	754	$code = '0'.$code;
	755	}
	756	// add start and stop codes
	757	$code = 'AA'.strtolower($code).'ZA';
	758
	759	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	760	$k = 0;
	761	$clen = strlen($code);
	762	for ($i = 0; $i < $clen; $i = ($i + 2)) {
	763	$char_bar = $code{$i};
	764	$char_space = $code{$i+1};
	765	if((!isset($chr[$char_bar])) OR (!isset($chr[$char_space]))) {
	766	// invalid character
	767	return false;
	768	}
	769	// create a bar-space sequence
	770	$seq = '';
	771	$chrlen = strlen($chr[$char_bar]);
	772	for ($s = 0; $s < $chrlen; $s++){
	773	$seq .= $chr[$char_bar]{$s} . $chr[$char_space]{$s};
	774	}
	775	$seqlen = strlen($seq);
	776	for ($j = 0; $j < $seqlen; ++$j) {
	777	if (($j % 2) == 0) {
	778	$t = true; // bar
	779	} else {
	780	$t = false; // space
	781	}
	782	$w = $seq{$j};
	783	$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
	784	$bararray['maxw'] += $w;
	785	++$k;
	786	}
	787	}
	788	return $bararray;
	789	}
	790
	791	/**
	792	* C128 barcodes.
	793	* Very capable code, excellent density, high reliability; in very wide use world-wide
	794	* @param string $code code to represent.
	795	* @param string $type barcode type: A, B or C
	796	* @return array barcode representation.
	797	* @access protected
	798	*/
	799	protected function barcode_c128($code, $type='B') {
	800	$chr = array(
	801	'212222', /* 00 */
	802	'222122', /* 01 */
	803	'222221', /* 02 */
	804	'121223', /* 03 */
	805	'121322', /* 04 */
	806	'131222', /* 05 */
	807	'122213', /* 06 */
	808	'122312', /* 07 */
	809	'132212', /* 08 */
	810	'221213', /* 09 */
	811	'221312', /* 10 */
	812	'231212', /* 11 */
	813	'112232', /* 12 */
	814	'122132', /* 13 */
	815	'122231', /* 14 */
	816	'113222', /* 15 */
	817	'123122', /* 16 */
	818	'123221', /* 17 */
	819	'223211', /* 18 */
	820	'221132', /* 19 */
	821	'221231', /* 20 */
	822	'213212', /* 21 */
	823	'223112', /* 22 */
	824	'312131', /* 23 */
	825	'311222', /* 24 */
	826	'321122', /* 25 */
	827	'321221', /* 26 */
	828	'312212', /* 27 */
	829	'322112', /* 28 */
	830	'322211', /* 29 */
	831	'212123', /* 30 */
	832	'212321', /* 31 */
	833	'232121', /* 32 */
	834	'111323', /* 33 */
	835	'131123', /* 34 */
	836	'131321', /* 35 */
	837	'112313', /* 36 */
	838	'132113', /* 37 */
	839	'132311', /* 38 */
	840	'211313', /* 39 */
	841	'231113', /* 40 */
	842	'231311', /* 41 */
	843	'112133', /* 42 */
	844	'112331', /* 43 */
	845	'132131', /* 44 */
	846	'113123', /* 45 */
	847	'113321', /* 46 */
	848	'133121', /* 47 */
	849	'313121', /* 48 */
	850	'211331', /* 49 */
	851	'231131', /* 50 */
	852	'213113', /* 51 */
	853	'213311', /* 52 */
	854	'213131', /* 53 */
	855	'311123', /* 54 */
	856	'311321', /* 55 */
	857	'331121', /* 56 */
	858	'312113', /* 57 */
	859	'312311', /* 58 */
	860	'332111', /* 59 */
	861	'314111', /* 60 */
	862	'221411', /* 61 */
	863	'431111', /* 62 */
	864	'111224', /* 63 */
	865	'111422', /* 64 */
	866	'121124', /* 65 */
	867	'121421', /* 66 */
	868	'141122', /* 67 */
	869	'141221', /* 68 */
	870	'112214', /* 69 */
	871	'112412', /* 70 */
	872	'122114', /* 71 */
	873	'122411', /* 72 */
	874	'142112', /* 73 */
	875	'142211', /* 74 */
	876	'241211', /* 75 */
	877	'221114', /* 76 */
	878	'413111', /* 77 */
	879	'241112', /* 78 */
	880	'134111', /* 79 */
	881	'111242', /* 80 */
	882	'121142', /* 81 */
	883	'121241', /* 82 */
	884	'114212', /* 83 */
	885	'124112', /* 84 */
	886	'124211', /* 85 */
	887	'411212', /* 86 */
	888	'421112', /* 87 */
	889	'421211', /* 88 */
	890	'212141', /* 89 */
	891	'214121', /* 90 */
	892	'412121', /* 91 */
	893	'111143', /* 92 */
	894	'111341', /* 93 */
	895	'131141', /* 94 */
	896	'114113', /* 95 */
	897	'114311', /* 96 */
	898	'411113', /* 97 */
	899	'411311', /* 98 */
	900	'113141', /* 99 */
	901	'114131', /* 100 */
	902	'311141', /* 101 */
	903	'411131', /* 102 */
	904	'211412', /* 103 START A */
	905	'211214', /* 104 START B */
	906	'211232', /* 105 START C */
	907	'233111', /* STOP */
	908	'200000' /* END */
	909	);
	910	$keys = '';
	911	switch(strtoupper($type)) {
	912	case 'A': {
	913	$startid = 103;
	914	$keys = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_';
	915	for ($i = 0; $i < 32; ++$i) {
	916	$keys .= chr($i);
	917	}
	918	break;
	919	}
	920	case 'B': {
	921	$startid = 104;
	922	$keys = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{\|}~'.chr(127);
	923	break;
	924	}
	925	case 'C': {
	926	$startid = 105;
	927	$keys = '';
	928	if ((strlen($code) % 2) != 0) {
	929	// The length of barcode value must be even ($code). You must pad the number with zeros
	930	return false;
	931	}
	932	for ($i = 0; $i <= 99; ++$i) {
	933	$keys .= chr($i);
	934	}
	935	$new_code = '';
	936	$hclen = (strlen($code) / 2);
	937	for ($i = 0; $i < $hclen; ++$i) {
	938	$new_code .= chr(intval($code{(2 * $i)}.$code{(2 * $i + 1)}));
	939	}
	940	$code = $new_code;
	941	break;
	942	}
	943	default: {
	944	return false;
	945	}
	946	}
	947	// calculate check character
	948	$sum = $startid;
	949	$clen = strlen($code);
	950	for ($i = 0; $i < $clen; ++$i) {
	951	$sum += (strpos($keys, $code{$i}) * ($i+1));
	952	}
	953	$check = ($sum % 103);
	954	// add start, check and stop codes
	955	$code = chr($startid).$code.chr($check).chr(106).chr(107);
	956	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	957	$k = 0;
	958	$len = strlen($code);
	959	for ($i = 0; $i < $len; ++$i) {
	960	$ck = strpos($keys, $code{$i});
	961	if (($i == 0) OR ($i > ($len-4))) {
	962	$char_num = ord($code{$i});
	963	$seq = $chr[$char_num];
	964	} elseif(($ck >= 0) AND isset($chr[$ck])) {
	965	$seq = $chr[$ck];
	966	} else {
	967	// invalid character
	968	return false;
	969	}
	970	for ($j = 0; $j < 6; ++$j) {
	971	if (($j % 2) == 0) {
	972	$t = true; // bar
	973	} else {
	974	$t = false; // space
	975	}
	976	$w = $seq{$j};
	977	$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
	978	$bararray['maxw'] += $w;
	979	++$k;
	980	}
	981	}
	982	return $bararray;
	983	}
	984
	985	/**
	986	* EAN13 and UPC-A barcodes.
	987	* EAN13: European Article Numbering international retail product code
	988	* UPC-A: Universal product code seen on almost all retail products in the USA and Canada
	989	* UPC-E: Short version of UPC symbol
	990	* @param string $code code to represent.
	991	* @param string $len barcode type: 6 = UPC-E, 8 = EAN8, 13 = EAN13, 12 = UPC-A
	992	* @return array barcode representation.
	993	* @access protected
	994	*/
	995	protected function barcode_eanupc($code, $len=13) {
	996	$upce = false;
	997	if ($len == 6) {
	998	$len = 12; // UPC-A
	999	$upce = true; // UPC-E mode
	1000	}
	1001	$data_len = $len - 1;
	1002	//Padding
	1003	$code = str_pad($code, $data_len, '0', STR_PAD_LEFT);
	1004	$code_len = strlen($code);
	1005	// calculate check digit
	1006	$sum_a = 0;
	1007	for ($i = 1; $i < $data_len; $i+=2) {
	1008	$sum_a += $code{$i};
	1009	}
	1010	if ($len > 12) {
	1011	$sum_a *= 3;
	1012	}
	1013	$sum_b = 0;
	1014	for ($i = 0; $i < $data_len; $i+=2) {
	1015	$sum_b += ($code{$i});
	1016	}
	1017	if ($len < 13) {
	1018	$sum_b *= 3;
	1019	}
	1020	$r = ($sum_a + $sum_b) % 10;
	1021	if($r > 0) {
	1022	$r = (10 - $r);
	1023	}
	1024	if ($code_len == $data_len) {
	1025	// add check digit
	1026	$code .= $r;
	1027	} elseif ($r !== intval($code{$data_len})) {
	1028	// wrong checkdigit
	1029	return false;
	1030	}
	1031	if ($len == 12) {
	1032	// UPC-A
	1033	$code = '0'.$code;
	1034	++$len;
	1035	}
	1036	if ($upce) {
	1037	// convert UPC-A to UPC-E
	1038	$tmp = substr($code, 4, 3);
	1039	if (($tmp == '000') OR ($tmp == '100') OR ($tmp == '200')) {
	1040	// manufacturer code ends in 000, 100, or 200
	1041	$upce_code = substr($code, 2, 2).substr($code, 9, 3).substr($code, 4, 1);
	1042	} else {
	1043	$tmp = substr($code, 5, 2);
	1044	if ($tmp == '00') {
	1045	// manufacturer code ends in 00
	1046	$upce_code = substr($code, 2, 3).substr($code, 10, 2).'3';
	1047	} else {
	1048	$tmp = substr($code, 6, 1);
	1049	if ($tmp == '0') {
	1050	// manufacturer code ends in 0
	1051	$upce_code = substr($code, 2, 4).substr($code, 11, 1).'4';
	1052	} else {
	1053	// manufacturer code does not end in zero
	1054	$upce_code = substr($code, 2, 5).substr($code, 11, 1);
	1055	}
	1056	}
	1057	}
	1058	}
	1059	//Convert digits to bars
	1060	$codes = array(
	1061	'A'=>array( // left odd parity
	1062	'0'=>'0001101',
	1063	'1'=>'0011001',
	1064	'2'=>'0010011',
	1065	'3'=>'0111101',
	1066	'4'=>'0100011',
	1067	'5'=>'0110001',
	1068	'6'=>'0101111',
	1069	'7'=>'0111011',
	1070	'8'=>'0110111',
	1071	'9'=>'0001011'),
	1072	'B'=>array( // left even parity
	1073	'0'=>'0100111',
	1074	'1'=>'0110011',
	1075	'2'=>'0011011',
	1076	'3'=>'0100001',
	1077	'4'=>'0011101',
	1078	'5'=>'0111001',
	1079	'6'=>'0000101',
	1080	'7'=>'0010001',
	1081	'8'=>'0001001',
	1082	'9'=>'0010111'),
	1083	'C'=>array( // right
	1084	'0'=>'1110010',
	1085	'1'=>'1100110',
	1086	'2'=>'1101100',
	1087	'3'=>'1000010',
	1088	'4'=>'1011100',
	1089	'5'=>'1001110',
	1090	'6'=>'1010000',
	1091	'7'=>'1000100',
	1092	'8'=>'1001000',
	1093	'9'=>'1110100')
	1094	);
	1095	$parities = array(
	1096	'0'=>array('A','A','A','A','A','A'),
	1097	'1'=>array('A','A','B','A','B','B'),
	1098	'2'=>array('A','A','B','B','A','B'),
	1099	'3'=>array('A','A','B','B','B','A'),
	1100	'4'=>array('A','B','A','A','B','B'),
	1101	'5'=>array('A','B','B','A','A','B'),
	1102	'6'=>array('A','B','B','B','A','A'),
	1103	'7'=>array('A','B','A','B','A','B'),
	1104	'8'=>array('A','B','A','B','B','A'),
	1105	'9'=>array('A','B','B','A','B','A')
	1106	);
	1107	$upce_parities = array();
	1108	$upce_parities[0] = array(
	1109	'0'=>array('B','B','B','A','A','A'),
	1110	'1'=>array('B','B','A','B','A','A'),
	1111	'2'=>array('B','B','A','A','B','A'),
	1112	'3'=>array('B','B','A','A','A','B'),
	1113	'4'=>array('B','A','B','B','A','A'),
	1114	'5'=>array('B','A','A','B','B','A'),
	1115	'6'=>array('B','A','A','A','B','B'),
	1116	'7'=>array('B','A','B','A','B','A'),
	1117	'8'=>array('B','A','B','A','A','B'),
	1118	'9'=>array('B','A','A','B','A','B')
	1119	);
	1120	$upce_parities[1] = array(
	1121	'0'=>array('A','A','A','B','B','B'),
	1122	'1'=>array('A','A','B','A','B','B'),
	1123	'2'=>array('A','A','B','B','A','B'),
	1124	'3'=>array('A','A','B','B','B','A'),
	1125	'4'=>array('A','B','A','A','B','B'),
	1126	'5'=>array('A','B','B','A','A','B'),
	1127	'6'=>array('A','B','B','B','A','A'),
	1128	'7'=>array('A','B','A','B','A','B'),
	1129	'8'=>array('A','B','A','B','B','A'),
	1130	'9'=>array('A','B','B','A','B','A')
	1131	);
	1132	$k = 0;
	1133	$seq = '101'; // left guard bar
	1134	if ($upce) {
	1135	$bararray = array('code' => $upce_code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	1136	$p = $upce_parities[$code{1}][$r];
	1137	for ($i = 0; $i < 6; ++$i) {
	1138	$seq .= $codes[$p[$i]][$upce_code{$i}];
	1139	}
	1140	$seq .= '010101'; // right guard bar
	1141	} else {
	1142	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	1143	$half_len = ceil($len / 2);
	1144	if ($len == 8) {
	1145	for ($i = 0; $i < $half_len; ++$i) {
	1146	$seq .= $codes['A'][$code{$i}];
	1147	}
	1148	} else {
	1149	$p = $parities[$code{0}];
	1150	for ($i = 1; $i < $half_len; ++$i) {
	1151	$seq .= $codes[$p[$i-1]][$code{$i}];
	1152	}
	1153	}
	1154	$seq .= '01010'; // center guard bar
	1155	for ($i = $half_len; $i < $len; ++$i) {
	1156	$seq .= $codes['C'][$code{$i}];
	1157	}
	1158	$seq .= '101'; // right guard bar
	1159	}
	1160	$clen = strlen($seq);
	1161	$w = 0;
	1162	for ($i = 0; $i < $clen; ++$i) {
	1163	$w += 1;
	1164	if (($i == ($clen - 1)) OR (($i < ($clen - 1)) AND ($seq{$i} != $seq{($i+1)}))) {
	1165	if ($seq{$i} == '1') {
	1166	$t = true; // bar
	1167	} else {
	1168	$t = false; // space
	1169	}
	1170	$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
	1171	$bararray['maxw'] += $w;
	1172	++$k;
	1173	$w = 0;
	1174	}
	1175	}
	1176	return $bararray;
	1177	}
	1178
	1179	/**
	1180	* UPC-Based Extentions
	1181	* 2-Digit Ext.: Used to indicate magazines and newspaper issue numbers
	1182	* 5-Digit Ext.: Used to mark suggested retail price of books
	1183	* @param string $code code to represent.
	1184	* @param string $len barcode type: 2 = 2-Digit, 5 = 5-Digit
	1185	* @return array barcode representation.
	1186	* @access protected
	1187	*/
	1188	protected function barcode_eanext($code, $len=5) {
	1189	//Padding
	1190	$code = str_pad($code, $len, '0', STR_PAD_LEFT);
	1191	// calculate check digit
	1192	if ($len == 2) {
	1193	$r = $code % 4;
	1194	} elseif ($len == 5) {
	1195	$r = (3 * ($code{0} + $code{2} + $code{4})) + (9 * ($code{1} + $code{3}));
	1196	$r %= 10;
	1197	} else {
	1198	return false;
	1199	}
	1200	//Convert digits to bars
	1201	$codes = array(
	1202	'A'=>array( // left odd parity
	1203	'0'=>'0001101',
	1204	'1'=>'0011001',
	1205	'2'=>'0010011',
	1206	'3'=>'0111101',
	1207	'4'=>'0100011',
	1208	'5'=>'0110001',
	1209	'6'=>'0101111',
	1210	'7'=>'0111011',
	1211	'8'=>'0110111',
	1212	'9'=>'0001011'),
	1213	'B'=>array( // left even parity
	1214	'0'=>'0100111',
	1215	'1'=>'0110011',
	1216	'2'=>'0011011',
	1217	'3'=>'0100001',
	1218	'4'=>'0011101',
	1219	'5'=>'0111001',
	1220	'6'=>'0000101',
	1221	'7'=>'0010001',
	1222	'8'=>'0001001',
	1223	'9'=>'0010111')
	1224	);
	1225	$parities = array();
	1226	$parities[2] = array(
	1227	'0'=>array('A','A'),
	1228	'1'=>array('A','B'),
	1229	'2'=>array('B','A'),
	1230	'3'=>array('B','B')
	1231	);
	1232	$parities[5] = array(
	1233	'0'=>array('B','B','A','A','A'),
	1234	'1'=>array('B','A','B','A','A'),
	1235	'2'=>array('B','A','A','B','A'),
	1236	'3'=>array('B','A','A','A','B'),
	1237	'4'=>array('A','B','B','A','A'),
	1238	'5'=>array('A','A','B','B','A'),
	1239	'6'=>array('A','A','A','B','B'),
	1240	'7'=>array('A','B','A','B','A'),
	1241	'8'=>array('A','B','A','A','B'),
	1242	'9'=>array('A','A','B','A','B')
	1243	);
	1244	$p = $parities[$len][$r];
	1245	$seq = '1011'; // left guard bar
	1246	$seq .= $codes[$p[0]][$code{0}];
	1247	for ($i = 1; $i < $len; ++$i) {
	1248	$seq .= '01'; // separator
	1249	$seq .= $codes[$p[$i]][$code{$i}];
	1250	}
	1251	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	1252	return $this->binseq_to_array($seq, $bararray);
	1253	}
	1254
	1255	/**
	1256	* POSTNET and PLANET barcodes.
	1257	* Used by U.S. Postal Service for automated mail sorting
	1258	* @param string $code zip code to represent. Must be a string containing a zip code of the form DDDDD or DDDDD-DDDD.
	1259	* @param boolean $planet if true print the PLANET barcode, otherwise print POSTNET
	1260	* @return array barcode representation.
	1261	* @access protected
	1262	*/
	1263	protected function barcode_postnet($code, $planet=false) {
	1264	// bar lenght
	1265	if ($planet) {
	1266	$barlen = Array(
	1267	0 => Array(1,1,2,2,2),
	1268	1 => Array(2,2,2,1,1),
	1269	2 => Array(2,2,1,2,1),
	1270	3 => Array(2,2,1,1,2),
	1271	4 => Array(2,1,2,2,1),
	1272	5 => Array(2,1,2,1,2),
	1273	6 => Array(2,1,1,2,2),
	1274	7 => Array(1,2,2,2,1),
	1275	8 => Array(1,2,2,1,2),
	1276	9 => Array(1,2,1,2,2)
	1277	);
	1278	} else {
	1279	$barlen = Array(
	1280	0 => Array(2,2,1,1,1),
	1281	1 => Array(1,1,1,2,2),
	1282	2 => Array(1,1,2,1,2),
	1283	3 => Array(1,1,2,2,1),
	1284	4 => Array(1,2,1,1,2),
	1285	5 => Array(1,2,1,2,1),
	1286	6 => Array(1,2,2,1,1),
	1287	7 => Array(2,1,1,1,2),
	1288	8 => Array(2,1,1,2,1),
	1289	9 => Array(2,1,2,1,1)
	1290	);
	1291	}
	1292	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 2, 'bcode' => array());
	1293	$k = 0;
	1294	$code = str_replace('-', '', $code);
	1295	$code = str_replace(' ', '', $code);
	1296	$len = strlen($code);
	1297	// calculate checksum
	1298	$sum = 0;
	1299	for ($i = 0; $i < $len; ++$i) {
	1300	$sum += intval($code{$i});
	1301	}
	1302	$chkd = ($sum % 10);
	1303	if($chkd > 0) {
	1304	$chkd = (10 - $chkd);
	1305	}
	1306	$code .= $chkd;
	1307	$len = strlen($code);
	1308	// start bar
	1309	$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
	1310	$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
	1311	$bararray['maxw'] += 2;
	1312	for ($i = 0; $i < $len; ++$i) {
	1313	for ($j = 0; $j < 5; ++$j) {
	1314	$h = $barlen[$code{$i}][$j];
	1315	$p = floor(1 / $h);
	1316	$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
	1317	$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
	1318	$bararray['maxw'] += 2;
	1319	}
	1320	}
	1321	// end bar
	1322	$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
	1323	$bararray['maxw'] += 1;
	1324	return $bararray;
	1325	}
	1326
	1327	/**
	1328	* RMS4CC - CBC - KIX
	1329	* RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code) - KIX (Klant index - Customer index)
	1330	* RM4SCC is the name of the barcode symbology used by the Royal Mail for its Cleanmail service.
	1331	* @param string $code code to print
	1332	* @param boolean $kix if true prints the KIX variation (doesn't use the start and end symbols, and the checksum) - in this case the house number must be sufficed with an X and placed at the end of the code.
	1333	* @return array barcode representation.
	1334	* @access protected
	1335	*/
	1336	protected function barcode_rms4cc($code, $kix=false) {
	1337	$notkix = !$kix;
	1338	// bar mode
	1339	// 1 = pos 1, length 2
	1340	// 2 = pos 1, length 3
	1341	// 3 = pos 2, length 1
	1342	// 4 = pos 2, length 2
	1343	$barmode = array(
	1344	'0' => array(3,3,2,2),
	1345	'1' => array(3,4,1,2),
	1346	'2' => array(3,4,2,1),
	1347	'3' => array(4,3,1,2),
	1348	'4' => array(4,3,2,1),
	1349	'5' => array(4,4,1,1),
	1350	'6' => array(3,1,4,2),
	1351	'7' => array(3,2,3,2),
	1352	'8' => array(3,2,4,1),
	1353	'9' => array(4,1,3,2),
	1354	'A' => array(4,1,4,1),
	1355	'B' => array(4,2,3,1),
	1356	'C' => array(3,1,2,4),
	1357	'D' => array(3,2,1,4),
	1358	'E' => array(3,2,2,3),
	1359	'F' => array(4,1,1,4),
	1360	'G' => array(4,1,2,3),
	1361	'H' => array(4,2,1,3),
	1362	'I' => array(1,3,4,2),
	1363	'J' => array(1,4,3,2),
	1364	'K' => array(1,4,4,1),
	1365	'L' => array(2,3,3,2),
	1366	'M' => array(2,3,4,1),
	1367	'N' => array(2,4,3,1),
	1368	'O' => array(1,3,2,4),
	1369	'P' => array(1,4,1,4),
	1370	'Q' => array(1,4,2,3),
	1371	'R' => array(2,3,1,4),
	1372	'S' => array(2,3,2,3),
	1373	'T' => array(2,4,1,3),
	1374	'U' => array(1,1,4,4),
	1375	'V' => array(1,2,3,4),
	1376	'W' => array(1,2,4,3),
	1377	'X' => array(2,1,3,4),
	1378	'Y' => array(2,1,4,3),
	1379	'Z' => array(2,2,3,3)
	1380	);
	1381	$code = strtoupper($code);
	1382	$len = strlen($code);
	1383	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 3, 'bcode' => array());
	1384	if ($notkix) {
	1385	// table for checksum calculation (row,col)
	1386	$checktable = array(
	1387	'0' => array(1,1),
	1388	'1' => array(1,2),
	1389	'2' => array(1,3),
	1390	'3' => array(1,4),
	1391	'4' => array(1,5),
	1392	'5' => array(1,0),
	1393	'6' => array(2,1),
	1394	'7' => array(2,2),
	1395	'8' => array(2,3),
	1396	'9' => array(2,4),
	1397	'A' => array(2,5),
	1398	'B' => array(2,0),
	1399	'C' => array(3,1),
	1400	'D' => array(3,2),
	1401	'E' => array(3,3),
	1402	'F' => array(3,4),
	1403	'G' => array(3,5),
	1404	'H' => array(3,0),
	1405	'I' => array(4,1),
	1406	'J' => array(4,2),
	1407	'K' => array(4,3),
	1408	'L' => array(4,4),
	1409	'M' => array(4,5),
	1410	'N' => array(4,0),
	1411	'O' => array(5,1),
	1412	'P' => array(5,2),
	1413	'Q' => array(5,3),
	1414	'R' => array(5,4),
	1415	'S' => array(5,5),
	1416	'T' => array(5,0),
	1417	'U' => array(0,1),
	1418	'V' => array(0,2),
	1419	'W' => array(0,3),
	1420	'X' => array(0,4),
	1421	'Y' => array(0,5),
	1422	'Z' => array(0,0)
	1423	);
	1424	$row = 0;
	1425	$col = 0;
	1426	for ($i = 0; $i < $len; ++$i) {
	1427	$row += $checktable[$code{$i}][0];
	1428	$col += $checktable[$code{$i}][1];
	1429	}
	1430	$row %= 6;
	1431	$col %= 6;
	1432	$chk = array_keys($checktable, array($row,$col));
	1433	$code .= $chk[0];
	1434	++$len;
	1435	}
	1436	$k = 0;
	1437	if ($notkix) {
	1438	// start bar
	1439	$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
	1440	$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
	1441	$bararray['maxw'] += 2;
	1442	}
	1443	for ($i = 0; $i < $len; ++$i) {
	1444	for ($j = 0; $j < 4; ++$j) {
	1445	switch ($barmode[$code{$i}][$j]) {
	1446	case 1: {
	1447	$p = 0;
	1448	$h = 2;
	1449	break;
	1450	}
	1451	case 2: {
	1452	$p = 0;
	1453	$h = 3;
	1454	break;
	1455	}
	1456	case 3: {
	1457	$p = 1;
	1458	$h = 1;
	1459	break;
	1460	}
	1461	case 4: {
	1462	$p = 1;
	1463	$h = 2;
	1464	break;
	1465	}
	1466	}
	1467	$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
	1468	$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
	1469	$bararray['maxw'] += 2;
	1470	}
	1471	}
	1472	if ($notkix) {
	1473	// stop bar
	1474	$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 3, 'p' => 0);
	1475	$bararray['maxw'] += 1;
	1476	}
	1477	return $bararray;
	1478	}
	1479
	1480	/**
	1481	* CODABAR barcodes.
	1482	* Older code often used in library systems, sometimes in blood banks
	1483	* @param string $code code to represent.
	1484	* @return array barcode representation.
	1485	* @access protected
	1486	*/
	1487	protected function barcode_codabar($code) {
	1488	$chr = array(
	1489	'0' => '11111221',
	1490	'1' => '11112211',
	1491	'2' => '11121121',
	1492	'3' => '22111111',
	1493	'4' => '11211211',
	1494	'5' => '21111211',
	1495	'6' => '12111121',
	1496	'7' => '12112111',
	1497	'8' => '12211111',
	1498	'9' => '21121111',
	1499	'-' => '11122111',
	1500	'$' => '11221111',
	1501	':' => '21112121',
	1502	'/' => '21211121',
	1503	'.' => '21212111',
	1504	'+' => '11222221',
	1505	'A' => '11221211',
	1506	'B' => '12121121',
	1507	'C' => '11121221',
	1508	'D' => '11122211'
	1509	);
	1510	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	1511	$k = 0;
	1512	$w = 0;
	1513	$seq = '';
	1514	$code = 'A'.strtoupper($code).'A';
	1515	$len = strlen($code);
	1516	for ($i = 0; $i < $len; ++$i) {
	1517	if (!isset($chr[$code{$i}])) {
	1518	return false;
	1519	}
	1520	$seq = $chr[$code{$i}];
	1521	for ($j = 0; $j < 8; ++$j) {
	1522	if (($j % 2) == 0) {
	1523	$t = true; // bar
	1524	} else {
	1525	$t = false; // space
	1526	}
	1527	$w = $seq{$j};
	1528	$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
	1529	$bararray['maxw'] += $w;
	1530	++$k;
	1531	}
	1532	}
	1533	return $bararray;
	1534	}
	1535
	1536	/**
	1537	* CODE11 barcodes.
	1538	* Used primarily for labeling telecommunications equipment
	1539	* @param string $code code to represent.
	1540	* @return array barcode representation.
	1541	* @access protected
	1542	*/
	1543	protected function barcode_code11($code) {
	1544	$chr = array(
	1545	'0' => '111121',
	1546	'1' => '211121',
	1547	'2' => '121121',
	1548	'3' => '221111',
	1549	'4' => '112121',
	1550	'5' => '212111',
	1551	'6' => '122111',
	1552	'7' => '111221',
	1553	'8' => '211211',
	1554	'9' => '211111',
	1555	'-' => '112111',
	1556	'S' => '112211'
	1557	);
	1558
	1559	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	1560	$k = 0;
	1561	$w = 0;
	1562	$seq = '';
	1563	$len = strlen($code);
	1564	// calculate check digit C
	1565	$p = 1;
	1566	$check = 0;
	1567	for ($i = ($len - 1); $i >= 0; --$i) {
	1568	$digit = $code{$i};
	1569	if ($digit == '-') {
	1570	$dval = 10;
	1571	} else {
	1572	$dval = intval($digit);
	1573	}
	1574	$check += ($dval * $p);
	1575	++$p;
	1576	if ($p > 10) {
	1577	$p = 1;
	1578	}
	1579	}
	1580	$check %= 11;
	1581	if ($check == 10) {
	1582	$check = '-';
	1583	}
	1584	$code .= $check;
	1585	if ($len > 10) {
	1586	// calculate check digit K
	1587	$p = 1;
	1588	$check = 0;
	1589	for ($i = $len; $i >= 0; --$i) {
	1590	$digit = $code{$i};
	1591	if ($digit == '-') {
	1592	$dval = 10;
	1593	} else {
	1594	$dval = intval($digit);
	1595	}
	1596	$check += ($dval * $p);
	1597	++$p;
	1598	if ($p > 9) {
	1599	$p = 1;
	1600	}
	1601	}
	1602	$check %= 11;
	1603	$code .= $check;
	1604	++$len;
	1605	}
	1606	$code = 'S'.$code.'S';
	1607	$len += 3;
	1608	for ($i = 0; $i < $len; ++$i) {
	1609	if (!isset($chr[$code{$i}])) {
	1610	return false;
	1611	}
	1612	$seq = $chr[$code{$i}];
	1613	for ($j = 0; $j < 6; ++$j) {
	1614	if (($j % 2) == 0) {
	1615	$t = true; // bar
	1616	} else {
	1617	$t = false; // space
	1618	}
	1619	$w = $seq{$j};
	1620	$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
	1621	$bararray['maxw'] += $w;
	1622	++$k;
	1623	}
	1624	}
	1625	return $bararray;
	1626	}
	1627
	1628	/**
	1629	* Pharmacode
	1630	* Contains digits (0 to 9)
	1631	* @param string $code code to represent.
	1632	* @return array barcode representation.
	1633	* @access protected
	1634	*/
	1635	protected function barcode_pharmacode($code) {
	1636	$seq = '';
	1637	$code = intval($code);
	1638	while ($code > 0) {
	1639	if (($code % 2) == 0) {
	1640	$seq .= '11100';
	1641	$code -= 2;
	1642	} else {
	1643	$seq .= '100';
	1644	$code -= 1;
	1645	}
	1646	$code /= 2;
	1647	}
	1648	$seq = substr($seq, 0, -2);
	1649	$seq = strrev($seq);
	1650	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
	1651	return $this->binseq_to_array($seq, $bararray);
	1652	}
	1653
	1654	/**
	1655	* Pharmacode two-track
	1656	* Contains digits (0 to 9)
	1657	* @param string $code code to represent.
	1658	* @return array barcode representation.
	1659	* @access protected
	1660	*/
	1661	protected function barcode_pharmacode2t($code) {
	1662	$seq = '';
	1663	$code = intval($code);
	1664	do {
	1665	switch ($code % 3) {
	1666	case 0: {
	1667	$seq .= '3';
	1668	$code = ($code - 3) / 3;
	1669	break;
	1670	}
	1671	case 1: {
	1672	$seq .= '1';
	1673	$code = ($code - 1) / 3;
	1674	break;
	1675	}
	1676	case 2: {
	1677	$seq .= '2';
	1678	$code = ($code - 2) / 3;
	1679	break;
	1680	}
	1681	}
	1682	} while($code != 0);
	1683	$seq = strrev($seq);
	1684	$k = 0;
	1685	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 2, 'bcode' => array());
	1686	$len = strlen($seq);
	1687	for ($i = 0; $i < $len; ++$i) {
	1688	switch ($seq{$i}) {
	1689	case '1': {
	1690	$p = 1;
	1691	$h = 1;
	1692	break;
	1693	}
	1694	case '2': {
	1695	$p = 0;
	1696	$h = 1;
	1697	break;
	1698	}
	1699	case '3': {
	1700	$p = 0;
	1701	$h = 2;
	1702	break;
	1703	}
	1704	}
	1705	$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
	1706	$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
	1707	$bararray['maxw'] += 2;
	1708	}
	1709	unset($bararray['bcode'][($k - 1)]);
	1710	--$bararray['maxw'];
	1711	return $bararray;
	1712	}
	1713
	1714
	1715	/**
	1716	* IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
	1717	* (requires PHP bcmath extension)
	1718	* Intelligent Mail barcode is a 65-bar code for use on mail in the United States.
	1719	* The fields are described as follows:<ul><li>The Barcode Identifier shall be assigned by USPS to encode the presort identification that is currently printed in human readable form on the optional endorsement line (OEL) as well as for future USPS use. This shall be two digits, with the second digit in the range of 0â4. The allowable encoding ranges shall be 00â04, 10â14, 20â24, 30â34, 40â44, 50â54, 60â64, 70â74, 80â84, and 90â94.</li><li>The Service Type Identifier shall be assigned by USPS for any combination of services requested on the mailpiece. The allowable encoding range shall be 000http://it2.php.net/manual/en/function.dechex.phpâ999. Each 3-digit value shall correspond to a particular mail class with a particular combination of service(s). Each service program, such as OneCode Confirm and OneCode ACS, shall provide the list of Service Type Identifier values.</li><li>The Mailer or Customer Identifier shall be assigned by USPS as a unique, 6 or 9 digit number that identifies a business entity. The allowable encoding range for the 6 digit Mailer ID shall be 000000- 899999, while the allowable encoding range for the 9 digit Mailer ID shall be 900000000-999999999.</li><li>The Serial or Sequence Number shall be assigned by the mailer for uniquely identifying and tracking mailpieces. The allowable encoding range shall be 000000000â999999999 when used with a 6 digit Mailer ID and 000000-999999 when used with a 9 digit Mailer ID. e. The Delivery Point ZIP Code shall be assigned by the mailer for routing the mailpiece. This shall replace POSTNET for routing the mailpiece to its final delivery point. The length may be 0, 5, 9, or 11 digits. The allowable encoding ranges shall be no ZIP Code, 00000â99999, 000000000â999999999, and 00000000000â99999999999.</li></ul>
	1720	* @param string $code code to print, separate the ZIP (routing code) from the rest using a minus char '-' (BarcodeID_ServiceTypeID_MailerID_SerialNumber-RoutingCode)
	1721	* @return array barcode representation.
	1722	* @access protected
	1723	*/
	1724	protected function barcode_imb($code) {
	1725	$asc_chr = array(4,0,2,6,3,5,1,9,8,7,1,2,0,6,4,8,2,9,5,3,0,1,3,7,4,6,8,9,2,0,5,1,9,4,3,8,6,7,1,2,4,3,9,5,7,8,3,0,2,1,4,0,9,1,7,0,2,4,6,3,7,1,9,5,8);
	1726	$dsc_chr = array(7,1,9,5,8,0,2,4,6,3,5,8,9,7,3,0,6,1,7,4,6,8,9,2,5,1,7,5,4,3,8,7,6,0,2,5,4,9,3,0,1,6,8,2,0,4,5,9,6,7,5,2,6,3,8,5,1,9,8,7,4,0,2,6,3);
	1727	$asc_pos = array(3,0,8,11,1,12,8,11,10,6,4,12,2,7,9,6,7,9,2,8,4,0,12,7,10,9,0,7,10,5,7,9,6,8,2,12,1,4,2,0,1,5,4,6,12,1,0,9,4,7,5,10,2,6,9,11,2,12,6,7,5,11,0,3,2);
	1728	$dsc_pos = array(2,10,12,5,9,1,5,4,3,9,11,5,10,1,6,3,4,1,10,0,2,11,8,6,1,12,3,8,6,4,4,11,0,6,1,9,11,5,3,7,3,10,7,11,8,2,10,3,5,8,0,3,12,11,8,4,5,1,3,0,7,12,9,8,10);
	1729	$code_arr = explode('-', $code);
	1730	$tracking_number = $code_arr[0];
	1731	if (isset($code_arr[1])) {
	1732	$routing_code = $code_arr[1];
	1733	} else {
	1734	$routing_code = '';
	1735	}
	1736	// Conversion of Routing Code
	1737	switch (strlen($routing_code)) {
	1738	case 0: {
	1739	$binary_code = 0;
	1740	break;
	1741	}
	1742	case 5: {
	1743	$binary_code = bcadd($routing_code, '1');
	1744	break;
	1745	}
	1746	case 9: {
	1747	$binary_code = bcadd($routing_code, '100001');
	1748	break;
	1749	}
	1750	case 11: {
	1751	$binary_code = bcadd($routing_code, '1000100001');
	1752	break;
	1753	}
	1754	default: {
	1755	return false;
	1756	break;
	1757	}
	1758	}
	1759	$binary_code = bcmul($binary_code, 10);
	1760	$binary_code = bcadd($binary_code, $tracking_number{0});
	1761	$binary_code = bcmul($binary_code, 5);
	1762	$binary_code = bcadd($binary_code, $tracking_number{1});
	1763	$binary_code .= substr($tracking_number, 2, 18);
	1764	// convert to hexadecimal
	1765	$binary_code = $this->dec_to_hex($binary_code);
	1766	// pad to get 13 bytes
	1767	$binary_code = str_pad($binary_code, 26, '0', STR_PAD_LEFT);
	1768	// convert string to array of bytes
	1769	$binary_code_arr = chunk_split($binary_code, 2, "\r");
	1770	$binary_code_arr = substr($binary_code_arr, 0, -1);
	1771	$binary_code_arr = explode("\r", $binary_code_arr);
	1772	// calculate frame check sequence
	1773	$fcs = $this->imb_crc11fcs($binary_code_arr);
	1774	// exclude first 2 bits from first byte
	1775	$first_byte = sprintf('%2s', dechex((hexdec($binary_code_arr[0]) << 2) >> 2));
	1776	$binary_code_102bit = $first_byte.substr($binary_code, 2);
	1777	// convert binary data to codewords
	1778	$codewords = array();
	1779	$data = $this->hex_to_dec($binary_code_102bit);
	1780	$codewords[0] = bcmod($data, 636) * 2;
	1781	$data = bcdiv($data, 636);
	1782	for ($i = 1; $i < 9; ++$i) {
	1783	$codewords[$i] = bcmod($data, 1365);
	1784	$data = bcdiv($data, 1365);
	1785	}
	1786	$codewords[9] = $data;
	1787	if (($fcs >> 10) == 1) {
	1788	$codewords[9] += 659;
	1789	}
	1790	// generate lookup tables
	1791	$table2of13 = $this->imb_tables(2, 78);
	1792	$table5of13 = $this->imb_tables(5, 1287);
	1793	// convert codewords to characters
	1794	$characters = array();
	1795	$bitmask = 512;
	1796	foreach($codewords as $k => $val) {
	1797	if ($val <= 1286) {
	1798	$chrcode = $table5of13[$val];
	1799	} else {
	1800	$chrcode = $table2of13[($val - 1287)];
	1801	}
	1802	if (($fcs & $bitmask) > 0) {
	1803	// bitwise invert
	1804	$chrcode = ((~$chrcode) & 8191);
	1805	}
	1806	$characters[] = $chrcode;
	1807	$bitmask /= 2;
	1808	}
	1809	$characters = array_reverse($characters);
	1810	// build bars
	1811	$k = 0;
	1812	$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 3, 'bcode' => array());
	1813	for ($i = 0; $i < 65; ++$i) {
	1814	$asc = (($characters[$asc_chr[$i]] & pow(2, $asc_pos[$i])) > 0);
	1815	$dsc = (($characters[$dsc_chr[$i]] & pow(2, $dsc_pos[$i])) > 0);
	1816	if ($asc AND $dsc) {
	1817	// full bar (F)
	1818	$p = 0;
	1819	$h = 3;
	1820	} elseif ($asc) {
	1821	// ascender (A)
	1822	$p = 0;
	1823	$h = 2;
	1824	} elseif ($dsc) {
	1825	// descender (D)
	1826	$p = 1;
	1827	$h = 2;
	1828	} else {
	1829	// tracker (T)
	1830	$p = 1;
	1831	$h = 1;
	1832	}
	1833	$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
	1834	$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
	1835	$bararray['maxw'] += 2;
	1836	}
	1837	unset($bararray['bcode'][($k - 1)]);
	1838	--$bararray['maxw'];
	1839	return $bararray;
	1840	}
	1841
	1842	/**
	1843	* Convert large integer number to hexadecimal representation.
	1844	* (requires PHP bcmath extension)
	1845	* @param string $number number to convert specified as a string
	1846	* @return string hexadecimal representation
	1847	*/
	1848	public function dec_to_hex($number) {
	1849	$i = 0;
	1850	$hex = array();
	1851	if($number == 0) {
	1852	return '00';
	1853	}
	1854	while($number > 0) {
	1855	if($number == 0) {
	1856	array_push($hex, '0');
	1857	} else {
	1858	array_push($hex, strtoupper(dechex(bcmod($number, '16'))));
	1859	$number = bcdiv($number, '16', 0);
	1860	}
	1861	}
	1862	$hex = array_reverse($hex);
	1863	return implode($hex);
	1864	}
	1865
	1866	/**
	1867	* Convert large hexadecimal number to decimal representation (string).
	1868	* (requires PHP bcmath extension)
	1869	* @param string $hex hexadecimal number to convert specified as a string
	1870	* @return string hexadecimal representation
	1871	*/
	1872	public function hex_to_dec($hex) {
	1873	$dec = 0;
	1874	$bitval = 1;
	1875	$len = strlen($hex);
	1876	for($pos = ($len - 1); $pos >= 0; --$pos) {
	1877	$dec = bcadd($dec, bcmul(hexdec($hex{$pos}), $bitval));
	1878	$bitval = bcmul($bitval, 16);
	1879	}
	1880	return $dec;
	1881	}
	1882
	1883	/**
	1884	* Intelligent Mail Barcode calculation of Frame Check Sequence
	1885	* @param string $code_arr array of hexadecimal values (13 bytes holding 102 bits right justified).
	1886	* @return int 11 bit Frame Check Sequence as integer (decimal base)
	1887	* @access protected
	1888	*/
	1889	protected function imb_crc11fcs($code_arr) {
	1890	$genpoly = 0x0F35; // generator polynomial
	1891	$fcs = 0x07FF; // Frame Check Sequence
	1892	// do most significant byte skipping the 2 most significant bits
	1893	$data = hexdec($code_arr[0]) << 5;
	1894	for ($bit = 2; $bit < 8; ++$bit) {
	1895	if (($fcs ^ $data) & 0x400) {
	1896	$fcs = ($fcs << 1) ^ $genpoly;
	1897	} else {
	1898	$fcs = ($fcs << 1);
	1899	}
	1900	$fcs &= 0x7FF;
	1901	$data <<= 1;
	1902	}
	1903	// do rest of bytes
	1904	for ($byte = 1; $byte < 13; ++$byte) {
	1905	$data = hexdec($code_arr[$byte]) << 3;
	1906	for ($bit = 0; $bit < 8; ++$bit) {
	1907	if (($fcs ^ $data) & 0x400) {
	1908	$fcs = ($fcs << 1) ^ $genpoly;
	1909	} else {
	1910	$fcs = ($fcs << 1);
	1911	}
	1912	$fcs &= 0x7FF;
	1913	$data <<= 1;
	1914	}
	1915	}
	1916	return $fcs;
	1917	}
	1918
	1919	/**
	1920	* Reverse unsigned short value
	1921	* @param int $num value to reversr
	1922	* @return int reversed value
	1923	* @access protected
	1924	*/
	1925	protected function imb_reverse_us($num) {
	1926	$rev = 0;
	1927	for ($i = 0; $i < 16; ++$i) {
	1928	$rev <<= 1;
	1929	$rev \|= ($num & 1);
	1930	$num >>= 1;
	1931	}
	1932	return $rev;
	1933	}
	1934
	1935	/**
	1936	* generate Nof13 tables used for Intelligent Mail Barcode
	1937	* @param int $n is the type of table: 2 for 2of13 table, 5 for 5of13table
	1938	* @param int $size size of table (78 for n=2 and 1287 for n=5)
	1939	* @return array requested table
	1940	* @access protected
	1941	*/
	1942	protected function imb_tables($n, $size) {
	1943	$table = array();
	1944	$lli = 0; // LUT lower index
	1945	$lui = $size - 1; // LUT upper index
	1946	for ($count = 0; $count < 8192; ++$count) {
	1947	$bit_count = 0;
	1948	for ($bit_index = 0; $bit_index < 13; ++$bit_index) {
	1949	$bit_count += intval(($count & (1 << $bit_index)) != 0);
	1950	}
	1951	// if we don't have the right number of bits on, go on to the next value
	1952	if ($bit_count == $n) {
	1953	$reverse = ($this->imb_reverse_us($count) >> 3);
	1954	// if the reverse is less than count, we have already visited this pair before
	1955	if ($reverse >= $count) {
	1956	// If count is symmetric, place it at the first free slot from the end of the list.
	1957	// Otherwise, place it at the first free slot from the beginning of the list AND place $reverse ath the next free slot from the beginning of the list
	1958	if ($reverse == $count) {
	1959	$table[$lui] = $count;
	1960	--$lui;
	1961	} else {
	1962	$table[$lli] = $count;
	1963	++$lli;
	1964	$table[$lli] = $reverse;
	1965	++$lli;
	1966	}
	1967	}
	1968	}
	1969	}
	1970	return $table;
	1971	}
	1972
	1973	} // end of class
	1974
	1975	//============================================================+
	1976	// END OF FILE
	1977	//============================================================+
	1978	?>

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: trunk/client/inc/hpdf403/_tcpdf_5.0.002/barcodes.php@ 412

Download in other formats: