com-tecnick-tcpdf
[ class tree: com-tecnick-tcpdf ] [ index: com-tecnick-tcpdf ] [ all elements ]
Packages:
PHPExcel
com-tecnick-tcpdf
JAMA
Math_Stats
PHPExcel_CachedObjectStorage
PHPExcel_Calculation
PHPExcel_Cell
PHPExcel_Reader
PHPExcel_Reader_Excel5
PHPExcel_RichText
PHPExcel_Settings
PHPExcel_Shared
PHPExcel_Shared_Best_Fit
PHPExcel_Shared_Escher
PHPExcel_Shared_OLE
PHPExcel_Style
PHPExcel_Worksheet
PHPExcel_Worksheet_Drawing
PHPExcel_Writer
PHPExcel_Writer_Excel5
PHPExcel_Writer_Excel2007

Source for file barcodes.php

Documentation is available at barcodes.php

  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. ?>
Documentation generated on Tue, 01 Jun 2010 17:02:07 +0200 by phpDocumentor 1.4.3