diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-barcode')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro | 2453 |
1 files changed, 2112 insertions, 341 deletions
diff --git a/Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro b/Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro index efdca8a3bb0..b61c30e5e5c 100644 --- a/Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro +++ b/Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro @@ -1,9 +1,8 @@ %!PS - -% Barcode Writer in Pure PostScript - Version 2015-05-09 +% Barcode Writer in Pure PostScript - Version 2016-04-21 % http://bwipp.terryburton.co.uk % -% Copyright (c) 2004-2014 Terry Burton +% Copyright (c) 2004-2016 Terry Burton % % Permission is hereby granted, free of charge, to any % person obtaining a copy of this software and associated @@ -28,11 +27,11 @@ % CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN % CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS % IN THE SOFTWARE. -% + % --BEGIN TEMPLATE-- -% + % --BEGIN RESOURCE preamble-- -%%BeginResource: Category uk.co.terryburton.bwipp 0.0 2015050900 31191 34576 +%%BeginResource: Category uk.co.terryburton.bwipp 0.0 2016042100 31191 34576 %%BeginData: 6 ASCII Lines currentglobal true setglobal @@ -43,10 +42,10 @@ setglobal %%EndData %%EndResource % --END RESOURCE preamble-- -% + % --BEGIN RESOURCE raiseerror-- % --REQUIRES preamble-- -%%BeginResource: uk.co.terryburton.bwipp raiseerror 0.0 2015050900 44890 44440 +%%BeginResource: uk.co.terryburton.bwipp raiseerror 0.0 2016042100 44890 44440 %%BeginData: 13 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -67,18 +66,18 @@ end % --BEGIN RENDERER renlinear-- % --REQUIRES preamble raiseerror-- -%%BeginResource: uk.co.terryburton.bwipp renlinear 0.0 2015050900 76908 76502 +%%BeginResource: uk.co.terryburton.bwipp renlinear 0.0 2016042100 76908 76502 %%BeginData: 237 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put begin /renlinear { -% + 20 dict begin % Confine variables to local scope -% + /args exch def % We are given some arguments -% + % Default options /sbs [] def /bhs [] def @@ -114,11 +113,11 @@ begin /guardrightypos 0 def /guardwidth 6 def /guardheight 7 def -% + % Apply the renderer options and the user options args {def} forall opt {def} forall -% + /barcolor barcolor cvlit def /textcolor textcolor cvlit def /textxalign textxalign cvlit def @@ -146,7 +145,7 @@ begin /guardrightypos guardrightypos cvr def /guardwidth guardwidth cvr def /guardheight guardheight cvr def -% + % Create bar elements and put them into the bars array /bars sbs length 1 add 2 idiv array def /x 0.00 def /maxh 0 def @@ -312,7 +311,7 @@ end % --BEGIN RENDERER renmatrix-- % --REQUIRES preamble raiseerror-- -%%BeginResource: uk.co.terryburton.bwipp renmatrix 0.0 2015050900 54074 54076 +%%BeginResource: uk.co.terryburton.bwipp renmatrix 0.0 2016042100 54074 54076 %%BeginData: 66 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -386,7 +385,7 @@ end % --BEGIN RENDERER renmaximatrix-- % --REQUIRES preamble raiseerror-- -%%BeginResource: uk.co.terryburton.bwipp renmaximatrix 0.0 2015050900 55426 55272 +%%BeginResource: uk.co.terryburton.bwipp renmaximatrix 0.0 2016042100 55426 55272 %%BeginData: 79 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -477,7 +476,7 @@ end % --EXAM: 90200 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean5 0.0 2015050900 62897 62576 +%%BeginResource: uk.co.terryburton.bwipp ean5 0.0 2016042100 62897 62576 %%BeginData: 135 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -624,7 +623,7 @@ end % --EXAM: 05 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean2 0.0 2015050900 61678 61382 +%%BeginResource: uk.co.terryburton.bwipp ean2 0.0 2016042100 61678 61382 %%BeginData: 120 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -756,7 +755,7 @@ end % --EXAM: 2112345678900 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean13 0.0 2015050900 84460 87603 +%%BeginResource: uk.co.terryburton.bwipp ean13 0.0 2016042100 84460 87603 %%BeginData: 215 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -983,7 +982,7 @@ end % --EXAM: 02345673 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean8 0.0 2015050900 81954 85278 +%%BeginResource: uk.co.terryburton.bwipp ean8 0.0 2016042100 81954 85278 %%BeginData: 196 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -1191,7 +1190,7 @@ end % --EXAM: 416000336108 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp upca 0.0 2015050900 89013 91922 +%%BeginResource: uk.co.terryburton.bwipp upca 0.0 2016042100 89013 91922 %%BeginData: 248 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -1451,7 +1450,7 @@ end % --EXAM: 00123457 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp upce 0.0 2015050900 92938 99490 +%%BeginResource: uk.co.terryburton.bwipp upce 0.0 2016042100 92938 99490 %%BeginData: 287 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -1750,7 +1749,7 @@ end % --EXAM: 978-1-56581-231-4 52250 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp isbn 0.0 2015050900 97266 100181 +%%BeginResource: uk.co.terryburton.bwipp isbn 0.0 2016042100 97266 100181 %%BeginData: 252 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -2014,7 +2013,7 @@ end % --EXAM: 979-0-2605-3211-3 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ismn 0.0 2015050900 94206 93526 +%%BeginResource: uk.co.terryburton.bwipp ismn 0.0 2016042100 94206 93526 %%BeginData: 231 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -2257,7 +2256,7 @@ end % --EXAM: 0311-175X 00 17 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp issn 0.0 2015050900 85135 81376 +%%BeginResource: uk.co.terryburton.bwipp issn 0.0 2016042100 85135 81376 %%BeginData: 177 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -2443,11 +2442,11 @@ end % --BEGIN ENCODER code128-- % --REQUIRES preamble raiseerror renlinear-- % --DESC: Code 128 -% --EXAM: Count01234567^FNC2! -% --EXOP: includetext parsefnc +% --EXAM: Count01234567! +% --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code128 0.0 2015050900 112448 118940 -%%BeginData: 421 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp code128 0.0 2016042100 118230 128296 +%%BeginData: 455 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -2602,7 +2601,7 @@ begin (FNC1) fn1 (FNC2) fn2 (FNC3) fn3 - (FNC4) fn4 +% (FNC4) fn4 Not user accessible as encoded automatically (LNKA) lka (LNKC) lkc >> def @@ -2631,6 +2630,40 @@ begin /msglen msg length def /text text 0 j getinterval def + % Standard and extended ASCII runlength at position + /numSA [ msglen {0} repeat 0 ] def + /numEA [ msglen {0} repeat 0 ] def + msglen 1 sub -1 0 { + /i exch def + msg i get 0 ge { + msg i get 128 ge { + numEA i numEA i 1 add get 1 add put + } { + numSA i numSA i 1 add get 1 add put + } ifelse + } if + } for + + % FNC4 codeword insertion for extended ASCII + /ea false def /msgtmp [] def + 0 1 msglen 1 sub { + /i exch def + /c msg i get def + ea c 128 lt xor not c 0 ge and { % Other mode required + ea {numSA} {numEA} ifelse i get dup % Runlength of other mode + i add msglen eq {3} {5} ifelse % Does run terminate symbol + lt { % Shift + /msgtmp [ msgtmp aload pop fn4 ] def + } { % Latch + /msgtmp [ msgtmp aload pop fn4 fn4 ] def + /ea ea not def + } ifelse + } if + /msgtmp [ msgtmp aload pop c 0 ge {c 127 and} {c} ifelse ] def + } for + /msg msgtmp def + /msglen msg length def + % Determine digit runlength and characters from given position /numsscr { /n 0 def /s 0 def @@ -2879,7 +2912,7 @@ end % --EXAM: (01)95012345678903(3103)000123 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp gs1-128 0.0 2015050900 77611 77161 +%%BeginResource: uk.co.terryburton.bwipp gs1-128 0.0 2016042100 77699 77161 %%BeginData: 157 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3048,7 +3081,7 @@ end % --EXAM: (01) 0 46 01234 56789 3 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean14 0.0 2015050900 69977 69481 +%%BeginResource: uk.co.terryburton.bwipp ean14 0.0 2016042100 69977 69481 %%BeginData: 105 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3165,7 +3198,7 @@ end % --EXAM: (00) 0 0614141 123456789 0 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp sscc18 0.0 2015050900 69989 69488 +%%BeginResource: uk.co.terryburton.bwipp sscc18 0.0 2016042100 69989 69488 %%BeginData: 105 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3282,7 +3315,7 @@ end % --EXAM: THIS IS CODE 39 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code39 0.0 2015050900 67013 66837 +%%BeginResource: uk.co.terryburton.bwipp code39 0.0 2016042100 67013 66837 %%BeginData: 141 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3435,7 +3468,7 @@ end % --EXAM: Code39 Ext! % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code39ext 0.0 2015050900 65652 65486 +%%BeginResource: uk.co.terryburton.bwipp code39ext 0.0 2016042100 65588 65334 %%BeginData: 110 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3487,7 +3520,7 @@ begin } if % Validate the input - barcode 4 barcode length 4 sub getinterval { + barcode { 128 ge { /bwipp.code39extBadCharacter (Code 39 Extended must contain only ASCII characters) //raiseerror exec } if @@ -3557,7 +3590,7 @@ end % --EXAM: 01234567 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code32 0.0 2015050900 63549 63380 +%%BeginResource: uk.co.terryburton.bwipp code32 0.0 2016042100 63549 63380 %%BeginData: 99 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3668,7 +3701,7 @@ end % --EXAM: 123456 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp pzn 0.0 2015050900 63596 63384 +%%BeginResource: uk.co.terryburton.bwipp pzn 0.0 2016042100 63596 63384 %%BeginData: 100 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3780,7 +3813,7 @@ end % --EXAM: THIS IS CODE 93 % --EXOP: includetext includecheck % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code93 0.0 2015050900 65852 65716 +%%BeginResource: uk.co.terryburton.bwipp code93 0.0 2016042100 65852 65716 %%BeginData: 148 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3940,7 +3973,7 @@ end % --EXAM: Code93 Ext! % --EXOP: includetext includecheck % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code93ext 0.0 2015050900 65941 65711 +%%BeginResource: uk.co.terryburton.bwipp code93ext 0.0 2016042100 65941 65711 %%BeginData: 114 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4066,7 +4099,7 @@ end % --EXAM: 2401234567 % --EXOP: height=0.5 includecheck includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp interleaved2of5 0.0 2015050900 65832 65492 +%%BeginResource: uk.co.terryburton.bwipp interleaved2of5 0.0 2016042100 65832 65492 %%BeginData: 150 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4228,7 +4261,7 @@ end % --EXAM: 0 46 01234 56789 3 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp itf14 0.0 2015050900 65819 65737 +%%BeginResource: uk.co.terryburton.bwipp itf14 0.0 2016042100 65819 65737 %%BeginData: 109 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4349,7 +4382,7 @@ end % --EXAM: 563102430313 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp identcode 0.0 2015050900 62754 62576 +%%BeginResource: uk.co.terryburton.bwipp identcode 0.0 2016042100 62754 62576 %%BeginData: 91 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4452,7 +4485,7 @@ end % --EXAM: 21348075016401 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp leitcode 0.0 2015050900 62746 62572 +%%BeginResource: uk.co.terryburton.bwipp leitcode 0.0 2016042100 62746 62572 %%BeginData: 91 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4555,7 +4588,7 @@ end % --EXAM: (01)24012345678905 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databaromni 0.0 2015050900 112081 118257 +%%BeginResource: uk.co.terryburton.bwipp databaromni 0.0 2016042100 112081 118257 %%BeginData: 418 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4985,7 +5018,7 @@ end % --EXAM: (01)24012345678905 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarstacked 0.0 2015050900 67872 71029 +%%BeginResource: uk.co.terryburton.bwipp databarstacked 0.0 2016042100 67872 71029 %%BeginData: 73 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -5070,7 +5103,7 @@ end % --EXAM: (01)24012345678905 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarstackedomni 0.0 2015050900 67972 71109 +%%BeginResource: uk.co.terryburton.bwipp databarstackedomni 0.0 2016042100 67972 71109 %%BeginData: 73 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -5155,7 +5188,7 @@ end % --EXAM: (01)24012345678905 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databartruncated 0.0 2015050900 67898 71045 +%%BeginResource: uk.co.terryburton.bwipp databartruncated 0.0 2016042100 67898 71045 %%BeginData: 73 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -5240,7 +5273,7 @@ end % --EXAM: (01)15012345678907 % --EXOP: % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp databarlimited 0.0 2015050900 83260 86093 +%%BeginResource: uk.co.terryburton.bwipp databarlimited 0.0 2016042100 83260 86093 %%BeginData: 276 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -5528,7 +5561,7 @@ end % --EXAM: (01)95012345678903(3103)000123 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarexpanded 0.0 2015050900 197224 210202 +%%BeginResource: uk.co.terryburton.bwipp databarexpanded 0.0 2016042100 197224 210202 %%BeginData: 871 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6411,7 +6444,7 @@ end % --EXAM: (01)95012345678903(3103)000123 % --EXOP: segments=4 % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarexpandedstacked 0.0 2015050900 63589 66857 +%%BeginResource: uk.co.terryburton.bwipp databarexpandedstacked 0.0 2016042100 63589 66857 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6466,7 +6499,7 @@ end % --EXAM: 117480 % --EXOP: showborder % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp pharmacode 0.0 2015050900 60269 60124 +%%BeginResource: uk.co.terryburton.bwipp pharmacode 0.0 2016042100 60269 60124 %%BeginData: 91 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6569,7 +6602,7 @@ end % --EXAM: 117480 % --EXOP: includetext showborder % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp pharmacode2 0.0 2015050900 60956 60646 +%%BeginResource: uk.co.terryburton.bwipp pharmacode2 0.0 2016042100 60956 60646 %%BeginData: 96 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6677,7 +6710,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code2of5 0.0 2015050900 67430 67109 +%%BeginResource: uk.co.terryburton.bwipp code2of5 0.0 2016042100 67430 67109 %%BeginData: 150 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6839,7 +6872,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp industrial2of5 0.0 2015050900 57882 57606 +%%BeginResource: uk.co.terryburton.bwipp industrial2of5 0.0 2016042100 57882 57606 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6906,7 +6939,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp iata2of5 0.0 2015050900 57852 57582 +%%BeginResource: uk.co.terryburton.bwipp iata2of5 0.0 2016042100 57852 57582 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6973,7 +7006,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp matrix2of5 0.0 2015050900 57862 57590 +%%BeginResource: uk.co.terryburton.bwipp matrix2of5 0.0 2016042100 57862 57590 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7040,7 +7073,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp coop2of5 0.0 2015050900 57852 57582 +%%BeginResource: uk.co.terryburton.bwipp coop2of5 0.0 2016042100 57852 57582 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7107,7 +7140,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp datalogic2of5 0.0 2015050900 57877 57602 +%%BeginResource: uk.co.terryburton.bwipp datalogic2of5 0.0 2016042100 57877 57602 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7174,7 +7207,7 @@ end % --EXAM: 0123456789 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code11 0.0 2015050900 69086 68582 +%%BeginResource: uk.co.terryburton.bwipp code11 0.0 2016042100 69086 68582 %%BeginData: 158 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7344,7 +7377,7 @@ end % --EXAM: BC412 % --EXOP: semi includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp bc412 0.0 2015050900 64995 64541 +%%BeginResource: uk.co.terryburton.bwipp bc412 0.0 2016042100 64995 64541 %%BeginData: 148 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7504,7 +7537,7 @@ end % --EXAM: A0123456789B % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp rationalizedCodabar 0.0 2015050900 69398 68906 +%%BeginResource: uk.co.terryburton.bwipp rationalizedCodabar 0.0 2016042100 69398 68906 %%BeginData: 156 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7672,7 +7705,7 @@ end % --EXAM: 0123456709498765432101234567891 % --EXOP: barcolor=FF0000 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp onecode 0.0 2015050900 101896 104906 +%%BeginResource: uk.co.terryburton.bwipp onecode 0.0 2016042100 101896 104906 %%BeginData: 335 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8019,7 +8052,7 @@ end % --EXAM: 01234 % --EXOP: includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp postnet 0.0 2015050900 65689 65439 +%%BeginResource: uk.co.terryburton.bwipp postnet 0.0 2016042100 65689 65439 %%BeginData: 140 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8171,7 +8204,7 @@ end % --EXAM: 01234567890 % --EXOP: includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp planet 0.0 2015050900 65565 65215 +%%BeginResource: uk.co.terryburton.bwipp planet 0.0 2016042100 65565 65215 %%BeginData: 141 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8324,7 +8357,7 @@ end % --EXAM: LE28HS9Z % --EXOP: includetext barcolor=FF0000 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp royalmail 0.0 2015050900 66136 65853 +%%BeginResource: uk.co.terryburton.bwipp royalmail 0.0 2016042100 66136 65853 %%BeginData: 145 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8481,7 +8514,7 @@ end % --EXAM: 5956439111ABA 9 % --EXOP: includetext custinfoenc=character % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp auspost 0.0 2015050900 75628 75331 +%%BeginResource: uk.co.terryburton.bwipp auspost 0.0 2016042100 75628 75331 %%BeginData: 202 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8695,7 +8728,7 @@ end % --EXAM: 1231FZ13XHS % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp kix 0.0 2015050900 61942 61672 +%%BeginResource: uk.co.terryburton.bwipp kix 0.0 2016042100 61942 61672 %%BeginData: 111 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8818,7 +8851,7 @@ end % --EXAM: 6540123789-A-K-Z % --EXOP: includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp japanpost 0.0 2015050900 66345 66129 +%%BeginResource: uk.co.terryburton.bwipp japanpost 0.0 2016042100 66345 66129 %%BeginData: 162 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8992,7 +9025,7 @@ end % --EXAM: 0123456789 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp msi 0.0 2015050900 71052 70834 +%%BeginResource: uk.co.terryburton.bwipp msi 0.0 2016042100 71052 70834 %%BeginData: 139 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9143,7 +9176,7 @@ end % --EXAM: 01234ABCD % --EXOP: includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp plessey 0.0 2015050900 67754 67457 +%%BeginResource: uk.co.terryburton.bwipp plessey 0.0 2016042100 67754 67457 %%BeginData: 146 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9301,7 +9334,7 @@ end % --EXAM: ABCDEF % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp telepen 0.0 2015050900 68624 68368 +%%BeginResource: uk.co.terryburton.bwipp telepen 0.0 2016042100 68624 68368 %%BeginData: 173 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9486,7 +9519,7 @@ end % --EXAM: 01234567 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp telepennumeric 0.0 2015050900 57870 57594 +%%BeginResource: uk.co.terryburton.bwipp telepennumeric 0.0 2016042100 57870 57594 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9553,8 +9586,8 @@ end % --EXAM: ABC123 % --EXOP: version=b inkspread=-0.5 parsefnc includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp posicode 0.0 2015050900 101857 104871 -%%BeginData: 389 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp posicode 0.0 2016042100 106927 109835 +%%BeginData: 423 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -9710,7 +9743,7 @@ begin (FNC1) fn1 (FNC2) fn2 (FNC3) fn3 - (FNC4) fn4 +% (FNC4) fn4 Not user accessible as encoded automatically >> def % Convert input into bytes accounting for FNC characters @@ -9737,13 +9770,47 @@ begin /msglen msg length def /text text 0 j getinterval def + % Standard and extended ASCII runlength at position + /numSA [ msglen {0} repeat 0 ] def + /numEA [ msglen {0} repeat 0 ] def + msglen 1 sub -1 0 { + /i exch def + msg i get 0 ge { + msg i get 128 ge { + numEA i numEA i 1 add get 1 add put + } { + numSA i numSA i 1 add get 1 add put + } ifelse + } if + } for + + % FNC4 codeword insertion for extended ASCII + /ea false def /msgtmp [] def + 0 1 msglen 1 sub { + /i exch def + /c msg i get def + ea c 128 lt xor not c 0 ge and { % Other mode required + ea {numSA} {numEA} ifelse i get dup % Runlength of other mode + i add msglen eq {3} {5} ifelse % Does run terminate symbol + lt { % Shift + /msgtmp [ msgtmp aload pop fn4 ] def + } { % Latch + /msgtmp [ msgtmp aload pop fn4 fn4 ] def + /ea ea not def + } ifelse + } if + /msgtmp [ msgtmp aload pop c 0 ge {c 127 and} {c} ifelse ] def + } for + /msg msgtmp def + /msglen msg length def + % Convert the input message to codewords /enc { exch get cws exch j exch put /j j 1 add def } bind def - /cws barcode length 2 mul array def + /cws msglen 2 mul array def /i 0 def /j 0 def /cset (set0) def { i msglen eq {exit} if @@ -9954,8 +10021,8 @@ end % --EXAM: CODABLOCK F 34567890123456789010040digit % --EXOP: columns=8 % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp codablockf 0.0 2015050900 125044 131468 -%%BeginData: 512 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp codablockf 0.0 2016042100 126266 132420 +%%BeginData: 521 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -10081,9 +10148,9 @@ begin /fncvals << (FNC1) fn1 - (FNC2) fn2 +% (FNC2) fn2 Not permitted for Codablock F (FNC3) fn3 - (FNC4) fn4 +% (FNC4) fn4 Not user accessible as encoded automatically >> def /msg barlen array def /i 0 def /j 0 def { @@ -10104,6 +10171,15 @@ begin /msg msg 0 j getinterval def /msglen msg length def + % FNC4 codeword insertion for extended ASCII + /msgtmp [] def + msg { + /char exch def + /msgtmp [ msgtmp aload pop char 128 lt {char} {fn4 char 127 and} ifelse ] def + } forall + /msg msgtmp def + /msglen msg length def + % Determine digit runlength and characters from given position /numsscr { /n 0 def /s 0 def @@ -10478,8 +10554,8 @@ end % --EXAM: Abcd-1234567890-wxyZ % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp code16k 0.0 2015050900 142769 155916 -%%BeginData: 710 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp code16k 0.0 2016042100 147911 164544 +%%BeginData: 744 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -10630,7 +10706,7 @@ begin (FNC1) fn1 (FNC2) fn2 (FNC3) fn3 - (FNC4) fn4 +% (FNC4) fn4 Not user accessible as encoded automatically >> def /msg barlen array def /i 0 def /j 0 def { @@ -10650,7 +10726,41 @@ begin } loop /msg msg 0 j getinterval def /msglen msg length def - + + % Standard and extended ASCII runlength at position + /numSA [ msglen {0} repeat 0 ] def + /numEA [ msglen {0} repeat 0 ] def + msglen 1 sub -1 0 { + /i exch def + msg i get 0 ge { + msg i get 128 ge { + numEA i numEA i 1 add get 1 add put + } { + numSA i numSA i 1 add get 1 add put + } ifelse + } if + } for + + % FNC4 codeword insertion for extended ASCII + /ea false def /msgtmp [] def + 0 1 msglen 1 sub { + /i exch def + /c msg i get def + ea c 128 lt xor not c 0 ge and { % Other mode required + ea {numSA} {numEA} ifelse i get dup % Runlength of other mode + i add msglen eq {3} {5} ifelse % Does run terminate symbol + lt { % Shift + /msgtmp [ msgtmp aload pop fn4 ] def + } { % Latch + /msgtmp [ msgtmp aload pop fn4 fn4 ] def + /ea ea not def + } ifelse + } if + /msgtmp [ msgtmp aload pop c 0 ge {c 127 and} {c} ifelse ] def + } for + /msg msgtmp def + /msglen msg length def + % Determine digit runlength and characters from given position /numsscr { /n 0 def /s 0 def @@ -11200,7 +11310,7 @@ end % --EXAM: MULTIPLE ROWS IN CODE 49 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp code49 0.0 2015050900 218104 234960 +%%BeginResource: uk.co.terryburton.bwipp code49 0.0 2016042100 218104 234960 %%BeginData: 1076 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12288,7 +12398,7 @@ end % --EXAM: 3493 % --EXOP: height=0.5 includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp channelcode 0.0 2015050900 68302 68105 +%%BeginResource: uk.co.terryburton.bwipp channelcode 0.0 2016042100 68302 68105 %%BeginData: 149 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12449,7 +12559,7 @@ end % --EXAM: 11099 % --EXOP: inkspread=-0.25 showborder borderleft=0 borderright=0 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp flattermarken 0.0 2015050900 59248 59148 +%%BeginResource: uk.co.terryburton.bwipp flattermarken 0.0 2016042100 59248 59148 %%BeginData: 93 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12554,7 +12664,7 @@ end % --EXAM: 331132131313411122131311333213114131131221323 % --EXOP: height=0.5 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp raw 0.0 2015050900 55514 55371 +%%BeginResource: uk.co.terryburton.bwipp raw 0.0 2016042100 55514 55371 %%BeginData: 52 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12618,7 +12728,7 @@ end % --EXAM: FATDAFTDAD % --EXOP: % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp daft 0.0 2015050900 58288 58222 +%%BeginResource: uk.co.terryburton.bwipp daft 0.0 2016042100 58288 58222 %%BeginData: 76 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12706,7 +12816,7 @@ end % --EXAM: fima % --EXOP: backgroundcolor=DD000011 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp symbol 0.0 2015050900 58044 57965 +%%BeginResource: uk.co.terryburton.bwipp symbol 0.0 2016042100 58044 57965 %%BeginData: 72 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12790,7 +12900,7 @@ end % --EXAM: This is PDF417 % --EXOP: columns=2 % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp pdf417 0.0 2015050900 188276 197810 +%%BeginResource: uk.co.terryburton.bwipp pdf417 0.0 2016042100 188276 197810 %%BeginData: 873 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -13675,7 +13785,7 @@ end % --EXAM: This is compact PDF417 % --EXOP: columns=2 % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp pdf417compact 0.0 2015050900 60668 60355 +%%BeginResource: uk.co.terryburton.bwipp pdf417compact 0.0 2016042100 60668 60355 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -13730,8 +13840,8 @@ end % --EXAM: MicroPDF417 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp micropdf417 0.0 2015050900 200331 213151 -%%BeginData: 952 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp micropdf417 0.0 2016042100 201094 213914 +%%BeginData: 959 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -13745,6 +13855,7 @@ begin /barcode exch def /dontdraw false def + /version (unset) def /columns 0 def /rows 0 def /rowmult 2 def @@ -13765,6 +13876,12 @@ begin } if options {def} forall + version (unset) ne { + version (x) search + pop /columns exch def + pop /rows exch def + } if + /columns columns cvi def /rows rows cvi def /rowmult rowmult cvr def @@ -14694,8 +14811,8 @@ end % --EXAM: This is Data Matrix! % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp datamatrix 0.0 2015050900 189975 216544 -%%BeginData: 844 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp datamatrix 0.0 2016042100 199528 218903 +%%BeginData: 871 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -14711,8 +14828,11 @@ begin /dontdraw false def /columns 0 def /rows 0 def + /format (square) def % square or rectangle + /version (unset) def /parse false def /parsefnc false def + /dmre false def % Parse the input options options type /stringtype eq { @@ -14725,6 +14845,12 @@ begin } if options {def} forall + version (unset) ne { + version (x) search + pop /rows exch def + pop /columns exch def + } if + /columns columns cvi def /rows rows cvi def @@ -14809,10 +14935,22 @@ begin % Optional rectangular symbols [ 8 18 1 1 7 1 ] [ 8 32 1 2 11 1 ] + dmre { [ 8 48 1 2 15 1 ] } if + dmre { [ 8 64 1 4 18 1 ] } if [ 12 26 1 1 14 1 ] [ 12 36 1 2 18 1 ] + dmre { [ 12 64 1 4 27 1 ] } if [ 16 36 1 2 24 1 ] [ 16 48 1 2 28 1 ] + dmre { [ 16 64 1 4 36 1 ] } if + dmre { [ 24 32 1 2 28 1 ] } if + dmre { [ 24 36 1 2 33 1 ] } if + dmre { [ 24 48 1 2 41 1 ] } if + dmre { [ 24 64 1 4 46 1 ] } if + dmre { [ 26 32 1 2 32 1 ] } if + dmre { [ 26 40 1 2 38 1 ] } if + dmre { [ 26 48 1 2 42 1 ] } if + dmre { [ 26 64 1 4 50 1 ] } if ] def % Create array of codewords remaining to make a full symbol @@ -14833,7 +14971,8 @@ begin /okay true def urows 0 ne urows rows ne and {/okay false def} if ucols 0 ne ucols cols ne and {/okay false def} if - urows 0 eq ucols 0 eq or rows cols ne and {/okay false def} if + format (square) eq rows cols ne and {/okay false def} if + format (rectangle) eq rows cols eq and {/okay false def} if okay {/fullcws [ fullcws aload pop ncws ] def} if } forall /numremcws [ 1558 {10000} repeat ] def @@ -15007,11 +15146,11 @@ begin C exit } if /char msg i k add get def - /ac ac isD {1 2 div add} {isEA {ceiling 2 add} {1 add } ifelse} ifelse def - /cc cc isC {2 3 div add} {isEA { 8 3 div add } { 4 3 div add} ifelse} ifelse def - /tc tc isT {2 3 div add} {isEA { 8 3 div add } { 4 3 div add} ifelse} ifelse def - /xc xc isX {2 3 div add} {isEA {13 3 div add } {10 3 div add} ifelse} ifelse def - /ec ec isE {3 4 div add} {isEA {17 4 div add } {13 4 div add} ifelse} ifelse def + /ac ac isD {1 2 div add} {isEA {ceiling 2 add} {ceiling 1 add} ifelse} ifelse def + /cc cc isC {2 3 div add} {isEA { 8 3 div add } { 4 3 div add } ifelse} ifelse def + /tc tc isT {2 3 div add} {isEA { 8 3 div add } { 4 3 div add } ifelse} ifelse def + /xc xc isX {2 3 div add} {isEA {13 3 div add } {10 3 div add } ifelse} ifelse def + /ec ec isE {3 4 div add} {isEA {17 4 div add } {13 4 div add } ifelse} ifelse def /bc bc isFN {4 add} {1 add} ifelse def k 4 ge { true [ cc tc xc ec bc] {ac 1 add exch le and} forall {A exit} if @@ -15314,6 +15453,8 @@ begin cws length ncws ne {/okay false def} if urows 0 ne urows rows ne and {/okay false def} if ucols 0 ne ucols cols ne and {/okay false def} if + format (square) eq rows cols ne and {/okay false def} if + format (rectangle) eq rows cols eq and {/okay false def} if okay {exit} if /i i 1 add def } loop @@ -15411,6 +15552,9 @@ begin mcols add exch 4 mcols 4 add 8 mod sub add exch } if + 1 index mrows ge { + exch mrows sub exch + } if exch mcols mul add mmat exch 5 -1 roll put } forall @@ -15544,14 +15688,69 @@ end %%EndResource % --END ENCODER datamatrix-- +% --BEGIN ENCODER datamatrixrectangular-- +% --REQUIRES preamble raiseerror renmatrix datamatrix-- +% --DESC: Data Matrix Rectangular +% --EXAM: 1234 +% --EXOP: +% --RNDR: renmatrix +%%BeginResource: uk.co.terryburton.bwipp datamatrixrectangular 0.0 2016042100 60716 60395 +%%BeginData: 43 ASCII Lines +/setpacking where {pop currentpacking true setpacking} if +1 dict +dup /raiseerror dup /uk.co.terryburton.bwipp findresource put +dup /renmatrix dup /uk.co.terryburton.bwipp findresource put +dup /datamatrix dup /uk.co.terryburton.bwipp findresource put +begin +/datamatrixrectangular { + + 20 dict begin % Confine variables to local scope + + /options exch def % We are given an option string + /barcode exch def % We are given a barcode string + + /dontdraw false def + + % Parse the input options + options type /stringtype eq { + 1 dict begin + options { + token false eq {exit} if dup length string cvs (=) search + true eq {cvlit exch pop exch def} {cvlit true def} ifelse + } loop + currentdict end /options exch def + } if + options {def} forall + + % Get the result of encoding with datamatrix with format=rectangle + options (dontdraw) true put + options (format) (rectangle) put + + /args barcode options //datamatrix exec def + + args (opt) options put + args + + dontdraw not //renmatrix if + + end + +} bind def +/datamatrixrectangular dup load /uk.co.terryburton.bwipp defineresource pop +end +/setpacking where {pop setpacking} if +%%EndData +%%EndResource +% --END ENCODER datamatrixrectangular-- + % --BEGIN ENCODER qrcode-- % --REQUIRES preamble raiseerror renmatrix-- % --DESC: QR Code % --EXAM: http://goo.gl/0bis % --EXOP: eclevel=M % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp qrcode 0.0 2015050900 265291 275512 -%%BeginData: 1004 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp qrcode 0.0 2016042100 267379 277512 +%%BeginData: 1019 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -15570,6 +15769,7 @@ begin /eclevel (unset) def % L, M, Q or H /parse false def /parsefnc false def + /mask -1 def % Parse the input options options type /stringtype eq { @@ -15582,6 +15782,8 @@ begin } if options {def} forall + /mask mask cvi def + % Parse ordinals of the form ^NNN to ASCII parse { /msg barcode length string def @@ -16090,6 +16292,9 @@ begin cws c cw put } for + % Short final data byte in M1 and M3 symbols has high-order value + lc4b {cws cws length 1 sub 2 copy get 4 bitshift put} if + % Calculate the log and anti-log tables /rsalog [ 1 255 { dup 2 mul dup 256 ge {285 xor} if } repeat ] def /rslog 256 array def @@ -16179,6 +16384,7 @@ begin % Fixups for the short final data byte in M1 and M3 symbols lc4b { + cws dcws 1 sub 2 copy get -4 bitshift put dcws 1 sub 1 ncws 2 sub { /i exch def cws i cws i get 15 and 4 bitshift put @@ -16327,6 +16533,10 @@ begin {2 copy mul 3 mod 3 1 roll add 2 mod add 2 mod} bind ] def } ifelse + mask -1 ne { % User specifies a mask + /maskfuncs [maskfuncs mask 1 sub get] def + /bestmaskval mask 1 sub def + } if /masks maskfuncs length array def 0 1 masks length 1 sub { /m exch def @@ -16479,16 +16689,20 @@ begin /i exch def masksym i pixs i get masks m get i get xor put } for - format (full) eq { - masksym evalfull /score exch def + masks length 1 ne { + format (full) eq { + masksym evalfull /score exch def + } { + masksym evalmicro /score exch def + } ifelse + score bestscore lt { + /bestsym masksym def + /bestmaskval m def + /bestscore score def + } if } { - masksym evalmicro /score exch def - } ifelse - score bestscore lt { /bestsym masksym def - /bestmaskval m def - /bestscore score def - } if + } ifelse } for /pixs bestsym def @@ -16566,7 +16780,7 @@ end % --EXAM: 1234 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp microqrcode 0.0 2015050900 60576 60353 +%%BeginResource: uk.co.terryburton.bwipp microqrcode 0.0 2016042100 60576 60353 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -16621,7 +16835,7 @@ end % --EXAM: [)>^03001^02996152382802^029840^029001^0291Z00004951^029UPSN^02906X610^029159^0291234567^0291/1^029^029Y^029634 ALPHA DR^029PITTSBURGH^029PA^029^004 % --EXOP: mode=2 parse % --RNDR: renmaximatrix -%%BeginResource: uk.co.terryburton.bwipp maxicode 0.0 2015050900 116961 123452 +%%BeginResource: uk.co.terryburton.bwipp maxicode 0.0 2016042100 116961 123452 %%BeginData: 564 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -17197,7 +17411,7 @@ end % --EXAM: This is Aztec Code % --EXOP: format=full % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp azteccode 0.0 2015050900 163082 186690 +%%BeginResource: uk.co.terryburton.bwipp azteccode 0.0 2016042100 163082 186690 %%BeginData: 679 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -17888,7 +18102,7 @@ end % --EXAM: 1234 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp azteccodecompact 0.0 2015050900 60604 60376 +%%BeginResource: uk.co.terryburton.bwipp azteccodecompact 0.0 2016042100 60604 60376 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -17943,7 +18157,7 @@ end % --EXAM: 1 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp aztecrune 0.0 2015050900 60573 60352 +%%BeginResource: uk.co.terryburton.bwipp aztecrune 0.0 2016042100 60573 60352 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -17996,10 +18210,10 @@ end % --REQUIRES preamble raiseerror renmatrix-- % --DESC: Code One % --EXAM: Code One -% --EXOP: version=B +% --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp codeone 0.0 2015050900 119329 129149 -%%BeginData: 512 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp codeone 0.0 2016042100 190508 210074 +%%BeginData: 851 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -18014,9 +18228,8 @@ begin /dontdraw false def /version (unset) def - /encoding (ascii) def - /raw false def /parse false def + /parsefnc false def % Parse the input options options type /stringtype eq { @@ -18052,182 +18265,28 @@ begin /barlen barcode length def - raw {/encoding (raw) def} if - /stype version 0 1 getinterval (S) eq def - stype {/encoding (stype) def} if - encoding (raw) eq { - /cws barlen array def - /i 0 def /j 0 def - { % loop - i barlen eq {exit} if - /cw barcode i 1 add 3 getinterval cvi def - cws j cw put - /i i 4 add def - /j j 1 add def - } loop - /cws cws 0 j getinterval def - } if - - encoding (ascii) eq { - /cws barlen 2 mul array def - /i 0 def /j 0 def - { % loop - i barlen eq {exit} if - /char barcode i get def - char 48 ge char 57 le and i barlen 1 sub lt and { - barcode i 1 add get dup 48 ge exch 57 le and { % Digit pair - cws j barcode i 2 getinterval cvi 130 add put - /i i 2 add def - /j j 1 add def - } { % Singular digit - cws j char 1 add put - /i i 1 add def - /j j 1 add def - } ifelse - } { char 127 le { % ASCII - cws j char 1 add put - /i i 1 add def - /j j 1 add def - } { % Extended ASCII - cws j 235 put - cws j 1 add char 127 sub put - /i i 1 add def - /j j 2 add def - } ifelse } ifelse - } loop - /cws cws 0 j getinterval def - } if - - encoding (stype) eq { + stype { /vals [ - [ (0) (1) (10) (11) (100) - (101) (110) (111) (1000) (1001) - ] - [ (0) (1010) (10100) (11110) (101000) - (110010) (111100) (1000110) (1010000) (1011010) - ] - [ (0) (1100100) (11001000) (100101100) - (110010000) (111110100) (1001011000) - (1010111100) (1100100000) (1110000100) - ] - [ (0) (1111101000) (11111010000) (101110111000) - (111110100000) (1001110001000) (1011101110000) - (1101101011000) (1111101000000) (10001100101000) - ] - [ (0) (10011100010000) (100111000100000) (111010100110000) - (1001110001000000) (1100001101010000) (1110101001100000) - (10001000101110000) (10011100010000000) (10101111110010000) - ] - [ (0) (11000011010100000) (110000110101000000) (1001001001111100000) - (1100001101010000000) (1111010000100100000) (10010010011111000000) - (10101010111001100000) (11000011010100000000) (11011011101110100000) - ] - [ (0) (11110100001001000000) - (111101000010010000000) (1011011100011011000000) - (1111010000100100000000) (10011000100101101000000) - (10110111000110110000000) (11010101100111111000000) - (11110100001001000000000) (100010010101010001000000) - ] - [ (0) (100110001001011010000000) - (1001100010010110100000000) (1110010011100001110000000) - (10011000100101101000000000) (10111110101111000010000000) - (11100100111000011100000000) (100001011000001110110000000) - (100110001001011010000000000) (101010111010100101010000000) - ] - [ (0) (101111101011110000100000000) - (1011111010111100001000000000) (10001111000011010001100000000) - (10111110101111000010000000000) (11101110011010110010100000000) - (100011110000110100011000000000) (101001101110010010011100000000) - (101111101011110000100000000000) (110101101001001110100100000000) - ] - [ (0) (111011100110101100101000000000) - (1110111001101011001010000000000) (10110010110100000101111000000000) - (11101110011010110010100000000000) (100101010000001011111001000000000) - (101100101101000001011110000000000) (110100001001110111000011000000000) - (111011100110101100101000000000000) (1000011000011100010001101000000000) - ] - [ (0) (1001010100000010111110010000000000) - (10010101000000101111100100000000000) - (11011111100001000111010110000000000) - (100101010000001011111001000000000000) - (101110100100001110110111010000000000) - (110111111000010001110101100000000000) - (1000001001100010100110011110000000000) - (1001010100000010111110010000000000000) - (1010011110100011010110000010000000000) - ] - [ (0) (1011101001000011101101110100000000000) - (10111010010000111011011101000000000000) - (100010111011001011001001011100000000000) - (101110100100001110110111010000000000000) - (111010001101010010100101000100000000000) - (1000101110110010110010010111000000000000) - (1010001011111011010000000101100000000000) - (1011101001000011101101110100000000000000) - (1101000110001100001011100010100000000000) - ] - [ (0) (1110100011010100101001010001000000000000) - (11101000110101001010010100010000000000000) - (101011101001111101111011110011000000000000) - (111010001101010010100101000100000000000000) - (1001000110000100111001110010101000000000000) - (1010111010011111011110111100110000000000000) - (1100101110111010000100000110111000000000000) - (1110100011010100101001010001000000000000000) - (10000010111101111001110011011001000000000000) - ] - [ (0) (10010001100001001110011100101010000000000000) - (100100011000010011100111001010100000000000000) - (110110100100011101011010101111110000000000000) - (1001000110000100111001110010101000000000000000) - (1011010111100110001000001111010010000000000000) - (1101101001000111010110101011111100000000000000) - (1111111010101000100101001000100110000000000000) - (10010001100001001110011100101010000000000000000) - (10100011101101011000010000001111010000000000000) - ] - [ (0) (10110101111001100010000011110100100000000000000) - (101101011110011000100000111101001000000000000000) - (1000100001101100100110001011011101100000000000000) - (1011010111100110001000001111010010000000000000000) - (1110001101011111101010010011000110100000000000000) - (10001000011011001001100010110111011000000000000000) - (10011111001010010101110011010101111100000000000000) - (10110101111001100010000011110100100000000000000000) - (11001100101000101110010100010011000100000000000000) - ] - [ (0) (11100011010111111010100100110001101000000000000000) - (111000110101111110101001001100011010000000000000000) - (1010101010000111101111101110010100111000000000000000) - (1110001101011111101010010011000110100000000000000000) - (10001110000110111100100110111111000001000000000000000) - (10101010100001111011111011100101001110000000000000000) - (11000110111100111011010000001011011011000000000000000) - (11100011010111111010100100110001101000000000000000000) - (11111111110010111001111001010111110101000000000000000) - ] - [ (0) (100011100001101111001001101111110000010000000000000000) - (1000111000011011110010011011111100000100000000000000000) - (1101010100101001101011101001111010000110000000000000000) - (10001110000110111100100110111111000001000000000000000000) - (10110001101000101011110000101110110001010000000000000000) - (11010101001010011010111010011110100001100000000000000000) - (11111000101100001010000100001110010001110000000000000000) - (100011100001101111001001101111110000010000000000000000000) - (100111111101111101000010111101101110010010000000000000000) - ] - [ (0) (101100011010001010111100001011101100010100000000000000000) - (1011000110100010101111000010111011000101000000000000000000) - (10000101001110100000110100100011000100111100000000000000000) - (10110001101000101011110000101110110001010000000000000000000) - (11011110000010110110101100111010011101100100000000000000000) - (100001010011101000001101001000110001001111000000000000000000) - (100110110110111001100100101010001110110001100000000000000000) - (101100011010001010111100001011101100010100000000000000000000) - (110001111101011100010011101101001001110110100000000000000000) - ] + (1) + (1010) + (1100100) + (1111101000) + (10011100010000) + (11000011010100000) + (11110100001001000000) + (100110001001011010000000) + (101111101011110000100000000) + (111011100110101100101000000000) + (1001010100000010111110010000000000) + (1011101001000011101101110100000000000) + (1110100011010100101001010001000000000000) + (10010001100001001110011100101010000000000000) + (10110101111001100010000011110100100000000000000) + (11100011010111111010100100110001101000000000000000) + (100011100001101111001001101111110000010000000000000000) + (101100011010001010111100001011101100010100000000000000000) ] def /normalize { @@ -18265,8 +18324,8 @@ begin /v [ 1 ] def 0 1 barlen 1 sub { /i exch def - vals i get barcode barlen i sub 1 sub get 48 sub get - [ exch {48 sub} forall ] v bigadd /v exch def + [ vals i get {48 sub barcode barlen i sub 1 sub get 48 sub mul} forall ] + v bigadd /v exch def } for /v v 2 normalize def @@ -18280,26 +18339,520 @@ begin cws exch i exch put } for - } if + } { % Standard and type-T - % Basic metrics for the each symbol - % ver row col dcol dcws rscw rsbl ro ri rl - /metrics [ - [ (A) 16 18 16 10 10 1 4 99 6 ] - [ (B) 22 22 20 19 16 1 4 99 8 ] - [ (C) 28 32 28 44 26 1 4 22 11 ] - [ (D) 40 42 36 91 44 1 4 16 16 ] - [ (E) 52 54 48 182 70 1 4 22 22 ] - [ (F) 70 76 68 370 140 2 4 22 31 ] - [ (G) 104 98 88 732 280 4 6 21 47 ] - [ (H) 148 134 120 1480 560 8 6 20 69 ] - [ (S-10) 8 11 10 4 4 1 99 99 99 ] - [ (S-20) 8 21 20 8 8 1 99 99 99 ] - [ (S-30) 8 31 30 12 12 1 99 99 99 ] - [ (T-16) 16 17 16 10 10 1 99 99 99 ] - [ (T-32) 16 33 32 24 16 1 99 99 99 ] - [ (T-48) 16 49 48 38 22 1 99 99 99 ] - ] def + % Convert input into bytes accounting for FNC characters + /fnc1 -1 def /fnc3 -2 def + /fncvals << + (FNC1) fnc1 + (FNC3) fnc3 + >> def + /msg barlen array def + /i 0 def /j 0 def { + i barlen eq {exit} if + /char barcode i get def + parsefnc char 94 eq and i barlen 4 sub lt and { + barcode i 1 add get 94 ne { + /char fncvals barcode i 1 add 4 getinterval get def + /i i 4 add def + } { + /i i 1 add def + } ifelse + } if + msg j char put + /i i 1 add def + /j j 1 add def + } loop + /msg msg 0 j getinterval def + /msglen msg length def + + % Basic metrics for the each symbol + % ver row col dcol dcws rscw rsbl ro ri rl + /metrics [ + [ (A) 16 18 16 10 10 1 4 99 6 ] + [ (B) 22 22 20 19 16 1 4 99 8 ] + [ (C) 28 32 28 44 26 1 4 22 11 ] + [ (D) 40 42 36 91 44 1 4 16 16 ] + [ (E) 52 54 48 182 70 1 4 22 22 ] + [ (F) 70 76 68 370 140 2 4 22 31 ] + [ (G) 104 98 88 732 280 4 6 21 47 ] + [ (H) 148 134 120 1480 560 8 6 20 69 ] + [ (S-10) 8 11 10 4 4 1 99 99 99 ] + [ (S-20) 8 21 20 8 8 1 99 99 99 ] + [ (S-30) 8 31 30 12 12 1 99 99 99 ] + [ (T-16) 16 17 16 10 10 1 99 99 99 ] + [ (T-32) 16 33 32 24 16 1 99 99 99 ] + [ (T-48) 16 49 48 38 22 1 99 99 99 ] + ] def + + % Select metrics of an appropriate symbol + /fullcws [] def + metrics { + /m exch def + /vers m 0 get def % Version of symbol + /dcws m 4 get def % Data codewords in symbol + /okay true def + version (unset) eq { + vers length 1 ne {/okay false def} if + } { + version vers ne {/okay false def} if + } ifelse + okay {/fullcws [ fullcws aload pop dcws ] def} if + } forall + /numremcws [ 1480 {10000} repeat ] def + fullcws {numremcws exch 1 sub 1 put} forall + 1478 -1 0 { + /i exch def + numremcws i get 1 ne { + numremcws i numremcws i 1 add get 1 add put + } if + } for + + % Special characters + /lC -5 def /lB -6 def /lX -7 def /lT -8 def /lD -9 def /unl -10 def + /fnc2 -11 def /fnc4 -12 def /sft1 -13 def /sft2 -14 def /sft3 -15 def /eci -16 def /pad -17 def /fnc1lD -18 def + /unlcw 255 def + + /Avals << + 0 1 128 {dup 1 add} for + pad 129 + 0 1 99 { % Double digits + dup 10 2 string cvrs (00) 2 string copy dup 2 3 index length sub 4 -1 roll putinterval + exch 130 add + } for + 229 [ lC lB fnc1 fnc2 fnc3 fnc4 fnc1lD ] {exch 1 add dup} forall pop + lX 238 + lT 239 + % 240-255 lD + 4 bits + >> def + /Avals << + Avals {[exch]} forall + >> def + + /CNvals << + sft1 0 + sft2 1 + sft3 2 + 32 3 + 48 1 57 {dup 44 sub} for % 0-9 + 65 1 90 {dup 51 sub} for % A-Z + >> def + /C1vals << 0 1 31 {dup} for >> def + /C2vals << + 33 1 47 {dup 33 sub} for + 58 1 64 {dup 43 sub} for + 91 1 95 {dup 69 sub} for + fnc1 27 + fnc2 28 + fnc3 29 + fnc4 30 + pad 31 + >> def + /C3vals << 96 1 127 {dup 96 sub} for >> def + /Cvals << + CNvals {[exch]} forall + C1vals {[exch CNvals sft1 get exch]} forall + C2vals {[exch CNvals sft2 get exch]} forall + C3vals {[exch CNvals sft3 get exch]} forall + >> def + + /TNvals << + sft1 0 + sft2 1 + sft3 2 + 32 3 + 48 1 57 {dup 44 sub} for % 0-9 + 97 1 122 {dup 83 sub} for % a-z + >> def + /T1vals << 0 1 31 {dup} for >> def + /T2vals << + 33 1 47 {dup 33 sub} for + 58 1 64 {dup 43 sub} for + 91 1 95 {dup 69 sub} for + fnc1 27 + fnc2 28 + fnc3 29 + fnc4 30 + pad 31 + >> def + /T3vals << + 96 0 + 65 1 90 {dup 64 sub} for + 123 1 127 {dup 96 sub} for + >> def + /Tvals << + TNvals {[exch]} forall + T1vals {[exch TNvals sft1 get exch]} forall + T2vals {[exch TNvals sft2 get exch]} forall + T3vals {[exch TNvals sft3 get exch]} forall + >> def + + % Extended ASCII mappings + 128 1 255 { + /i exch def + Avals i [ Avals fnc4 get aload pop Avals i 128 sub get aload pop ] put + Cvals i [ Cvals fnc4 get aload pop Cvals i 128 sub get aload pop ] put + Tvals i [ Tvals fnc4 get aload pop Tvals i 128 sub get aload pop ] put + } for + + /Xvals << + 13 0 + 42 1 + 62 2 + 32 3 + 48 1 57 {dup 44 sub} for + 65 1 90 {dup 51 sub} for + >> def + /Xvals << + Xvals {[exch]} forall + >> def + + /Bvals << + 0 1 255 {dup} for + >> def + /Bvals << + Bvals {[exch]} forall + >> def + + /encvals [ Avals Cvals Tvals Xvals -1 Bvals ] def + + /numD [ msglen {0} repeat 0 ] def + /nextXterm [ msglen {0} repeat 9999 ] def + /nextNonX [ msglen {0} repeat 9999 ] def + msglen 1 sub -1 0 { + /i exch def + /barchar msg i get def + barchar 48 ge barchar 57 le and { + numD i numD i 1 add get 1 add put + } if + barchar 13 eq barchar 42 eq or barchar 62 eq or { + nextXterm i 0 put + } { + nextXterm i nextXterm i 1 add get 1 add put + } ifelse + Xvals barchar known not { + nextNonX i 0 put + } { + nextNonX i nextNonX i 1 add get 1 add put + } ifelse + } for + /nextXterm [nextXterm {dup 10000 gt {pop 10000} if} forall] def + /nextNonX [nextNonX {dup 10000 gt {pop 10000} if} forall] def + + /isD {char 48 ge char 57 le and} bind def + /isC {CNvals char known} bind def + /isT {TNvals char known} bind def + /isX {Xvals char known} bind def + /isEA {char 127 gt} bind def + /isFN {char 0 lt} bind def + /XtermFirst {dup nextXterm exch get exch nextNonX exch get lt} bind def + + /A 0 def /C 1 def /T 2 def /X 3 def /D 4 def /B 5 def + + /lookup { + /ac 1 def /cc 2 def /tc 2 def /xc 2 def /bc 3 def + mode A eq {/ac 0 def /cc 1 def /tc 1 def /xc 1 def /bc 2 def} if + mode C eq {/cc 0 def} if + mode T eq {/tc 0 def} if + mode X eq {/xc 0 def} if % Assume mistake in spec + mode B eq {/bc 0 def} if + 1 { % common exit + /k 0 def { % loop + i k add msglen eq { + true [ac cc tc xc ] {bc exch ceiling le and} forall {B exit} if + true [ cc tc xc bc] {ac exch ceiling le and} forall {A exit} if + true [ tc xc ] {cc ceiling exch ceiling le and} forall {C exit} if + true [ xc ] {tc ceiling exch ceiling le and} forall {T exit} if + X exit + } if + /char msg i k add get def + /ac ac isD {1 2 div add} {isEA {ceiling 2 add} {ceiling 1 add} ifelse} ifelse def + /cc cc isC {2 3 div add} {isEA { 8 3 div add } { 4 3 div add } ifelse} ifelse def + /tc tc isT {2 3 div add} {isEA { 8 3 div add } { 4 3 div add } ifelse} ifelse def + /xc xc isX {2 3 div add} {isEA {13 3 div add } {10 3 div add } ifelse} ifelse def + /bc bc isFN {3 add} {1 add} ifelse def + k 3 ge { + true [ac cc tc xc ] {bc 1 add exch ceiling le and} forall {B exit} if + true [ cc tc xc bc] {ac 1 add exch ceiling le and} forall {A exit} if + true [ac cc xc bc] {tc 1 add exch ceiling le and} forall {T exit} if + true [ac tc ] {cc 1 add exch ceiling le and} forall { + cc ceiling xc ceiling lt {C exit} if + cc xc eq {i k add 1 add XtermFirst {X exit} {C exit} ifelse} if + } if + true [ac cc tc bc] {xc 1 add exch lt and} forall {X exit} if + } if + /k k 1 add def + } loop + } repeat + } bind def + + /addtocws { + dup cws exch j exch putinterval + /j exch length j add def + } bind def + + /tobin { + string dup length 1 sub 0 exch 1 exch {1 index exch 48 put} for + dup 3 -1 roll 2 2 index length string cvrs dup length 2 index length exch sub exch putinterval + [ exch {48 sub} forall ] + } bind def + + /encA { + 1 { % Common exit + numD i get 21 ge { + /Dbits [ 1 1 1 1 ] def + /mode D def + exit + } if + numD i get dup 13 ge exch i add msglen eq and { + /Dbits [ 1 1 1 1 ] def + /mode D def + exit + } if + numD i get 2 ge { + 2 string dup 0 msg i get put dup 1 msg i 1 add get put Avals exch get addtocws + /i i 2 add def + exit + } if + msg i get fnc1 eq { + numD i 1 add get 15 ge { + Avals fnc1lD get addtocws + /i i 1 add def + /Dbits [] def + /mode D def + exit + } if + numD i 1 add get dup 7 ge exch i add 1 add msglen eq and { + Avals fnc1lD get addtocws + /i i 1 add def + /Dbits [] def + /mode D def + exit + } if + } if + /newmode lookup def + newmode mode ne { + Avals [-1 lC lT lX lD lB] newmode get get addtocws + /mode newmode def + exit + } if + Avals msg i get get addtocws + /i i 1 add def + exit + } repeat + } bind def + + /CTXvalstocws { + /in exch def + mark + 0 3 in length 1 sub { + in exch 3 getinterval 0 exch {add 40 mul} forall 40 idiv 1 add + dup 256 idiv exch 256 mod + } for + counttomark array astore exch pop + } bind def + + /encCTX { + /p 0 def + /ctxvals 2220 array def + + % Lookup the values for each character + { + i msglen eq {exit} if + encvals mode get msg i get known not {exit} if + p 3 mod 0 eq { + numD i get 12 ge { + [unlcw] addtocws + /mode A def + exit + } if + numD i get dup 8 ge exch i add msglen eq and { + [unlcw] addtocws + /mode A def + exit + } if + lookup mode ne { + ctxvals 0 p getinterval CTXvalstocws addtocws + [unlcw] addtocws + /mode A def + exit + } if + msglen i sub 3 le { % Check end of data conditions + /remcws numremcws j p 3 idiv 2 mul add get def + /remvals [ + msg i msglen i sub getinterval { + dup encvals mode get exch known { + encvals mode get exch get aload pop + } { % Unencodable X12 characters + pop -1 -1 -1 -1 + } ifelse + } forall + ] def + remcws 2 eq remvals length 3 eq and { + % Encode and omit unlatch + [ + ctxvals 0 p getinterval aload pop + remvals aload pop + ] CTXvalstocws addtocws + /mode A def + /i msglen def + exit + } if + remcws 2 eq remvals length 2 eq and mode X ne and { + % Encode with sft1 as third value, omit unlatch + [ + ctxvals 0 p getinterval aload pop + remvals aload pop + encvals mode get sft1 get aload pop + ] CTXvalstocws addtocws + /mode A def + /i msglen def + exit + } if + remcws 2 eq remvals length 1 eq and { + % Unlatch to ASCII + ctxvals 0 p getinterval CTXvalstocws addtocws + [unlcw] addtocws + Avals msg i get get addtocws + /mode A def + /i msglen def + exit + } if + remcws 1 eq remvals length 1 eq and { + % Implied unlatch to ASCII + ctxvals 0 p getinterval CTXvalstocws addtocws + Avals msg i get get addtocws + /mode A def + /i msglen def + exit + } if + } if + } if + encvals mode get msg i get get + dup ctxvals exch p exch putinterval + /p exch length p add def + /i i 1 add def + } loop + + % Backtrack to a boundary and return to ASCII + mode A ne { + { + p 3 mod 0 eq {exit} if + /i i 1 sub def + /p p encvals mode get msg i get get length sub def + } loop + [ + ctxvals 0 p getinterval aload pop + ] CTXvalstocws addtocws + [unlcw] addtocws + /mode A def + % Encode something to avoid latching immediately back + i msglen ne { + numD i get 2 ge { + 2 string dup 0 msg i get put dup 1 msg i 1 add get put Avals exch get addtocws + /i i 2 add def + } { + Avals msg i get get addtocws + /i i 1 add def + } ifelse + } if + } if + + } bind def + + /encD { + + { % loop + + numD i get 3 lt { + + /Drem 8 Dbits length 8 mod sub 8 mod def + /remcws numremcws j Dbits length 8 idiv add get def + + % Final codeword with no data + numremcws j Dbits length 8 idiv add 1 sub get 1 sub 0 eq + i msglen eq and {exit} if + + % Final digit into final codeword as ASCII + i msglen 1 sub eq numD i get 1 eq and + remcws 1 eq and Drem 0 eq and {exit} if + + % Latch to ASCII unless 4 or 6 bits remain in final codeword + i msglen 1 sub eq numD i get 1 eq and + remcws 1 eq and Drem 4 eq Drem 6 eq or and not { + /Dbits [ Dbits aload pop 1 1 1 1 1 1 ] def + /Drem 8 Dbits length 8 mod sub 8 mod def + } if + + % Try to encode a digit in remaining bits + Drem 4 eq Drem 6 eq or { + numD i get 1 ge { + /Dbits [ Dbits aload pop msg i get 48 sub 1 add 4 tobin aload pop ] def + /i i 1 add def + } { + /Dbits [ Dbits aload pop 1 1 1 1 ] def + } ifelse + /Drem Drem 4 sub def + } if + Drem 2 eq { + /Dbits [ Dbits aload pop 0 1 ] def + /Drem 0 def + } if + + exit + + } if + + % Three digit value plus one to ten bits + /Dbits [ + Dbits aload pop + 0 msg i 3 getinterval {48 sub add 10 mul} forall 10 idiv + 1 add 10 tobin aload pop + ] def + /i i 3 add def + + } loop + + mark + 0 8 Dbits length 1 sub { + Dbits exch 8 getinterval 0 exch {add 2 mul} forall 2 idiv + } for + counttomark array astore exch pop addtocws + /mode A def + + } bind def + + /encB { + /p 0 def /bvals 1480 array def { + i msglen eq {exit} if + msg i get 0 lt {exit} if % Function character + lookup mode ne {exit} if + bvals p msg i get put + /p p 1 add def + /i i 1 add def + } loop + /remcws numremcws j p add get 1 sub def + /bvals [ + remcws 0 eq i msglen eq and { % Terminates symbol + 0 + } { + p 250 lt {p} {p 250 idiv 249 add p 250 mod} ifelse + } ifelse + bvals 0 p getinterval aload pop + ] def + bvals addtocws + /mode A def + } bind def + + % Derive the codewords + /cws 1480 array def + /mode A def /i 0 def /j 0 def { + i msglen ge {exit} if + [ /encA /encCTX /encCTX /encCTX /encD /encB ] mode get load exec + } loop + /cws cws 0 j getinterval def + + } ifelse % Select metrics of an appropriate symbol /i 0 def @@ -18516,13 +19069,911 @@ end %%EndResource % --END ENCODER codeone-- +% --BEGIN ENCODER hanxin-- +% --REQUIRES preamble raiseerror renmatrix-- +% --DESC: Han Xin Code +% --EXAM: This is Han Xin +% --EXOP: +% --RNDR: renmatrix +%%BeginResource: uk.co.terryburton.bwipp hanxin 0.0 2016042100 299332 322644 +%%BeginData: 886 ASCII Lines +/setpacking where {pop currentpacking true setpacking} if +1 dict +dup /raiseerror dup /uk.co.terryburton.bwipp findresource put +dup /renmatrix dup /uk.co.terryburton.bwipp findresource put +begin +/hanxin { + + 20 dict begin + + /options exch def + /barcode exch def + + /dontdraw false def + /version (unset) def % 1-84 + /eclevel (unset) def % L1, L2, L3 or L4 + /parse false def + /parsefnc false def + /mask -1 def + + % Parse the input options + options type /stringtype eq { + 1 dict begin + options { + token false eq {exit} if dup length string cvs (=) search + true eq {cvlit exch pop exch def} {cvlit true def} ifelse + } loop + currentdict end /options exch def + } if + options {def} forall + + /mask mask cvi def + + % Parse ordinals of the form ^NNN to ASCII + parse { + /msg barcode length string def + /j 0 def + barcode + { % loop + (^) search { + dup msg exch j exch putinterval + length j add 1 add /j exch def + pop + dup 0 3 getinterval cvi msg exch j 1 sub exch put + dup length 3 sub 3 exch getinterval + } { + dup msg exch j exch putinterval + length j add /j exch def + /barcode msg 0 j getinterval def + exit + } ifelse + } loop + } if + + /barlen barcode length def + + % Convert input into bytes accounting for FNC characters + /fncvals << + % No FNC characters defined + >> def + /msg barlen array def + /i 0 def /j 0 def { + i barlen eq {exit} if + /char barcode i get def + parsefnc char 94 eq and i barlen 4 sub lt and { + barcode i 1 add get 94 ne { + /char fncvals barcode i 1 add 4 getinterval get def + /i i 4 add def + } { + /i i 1 add def + } ifelse + } if + msg j char put + /i i 1 add def + /j j 1 add def + } loop + /msg msg 0 j getinterval def + /msglen msg length def + + % Default error correction level + eclevel (unset) eq {/eclevel (L2) def} if + + /tobin { + string dup length 1 sub 0 exch 1 exch {1 index exch 48 put} for + dup 3 -1 roll 2 2 index length string cvrs + dup length 2 index length exch sub exch putinterval + } bind def + + % Encode the data using byte mode encoding + /bits 4 13 add msglen 8 mul add string def + bits 0 (0011) putinterval + bits 4 msglen 13 tobin putinterval + 0 1 msglen 1 sub { + /i exch def + bits 17 i 8 mul add msg i get 8 tobin putinterval + } for + + % Lookup the most appropriate symbol specification + /metrics [ + % vers size align modules error correction blocks + [ (1) 23 -1 0 205 [ 1 21 4 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 17 8 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 13 12 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 9 16 ] [ 0 -1 -1 ] [ 0 -1 -1 ] ] + [ (2) 25 -1 0 301 [ 1 31 6 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 25 12 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 19 18 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 15 22 ] [ 0 -1 -1 ] [ 0 -1 -1 ] ] + [ (3) 27 -1 0 405 [ 1 42 8 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 34 16 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 26 24 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 20 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] ] + [ (4) 29 14 1 439 [ 1 46 8 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 38 16 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 30 24 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 22 32 ] [ 0 -1 -1 ] [ 0 -1 -1 ] ] + [ (5) 31 16 1 555 [ 1 57 12 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 49 20 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 37 32 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 14 20 ] [ 1 13 22 ] [ 0 -1 -1 ] ] + [ (6) 33 16 1 675 [ 1 70 14 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 58 26 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 24 20 ] [ 1 22 18 ] [ 0 -1 -1 ] + [ 1 16 24 ] [ 1 18 26 ] [ 0 -1 -1 ] ] + [ (7) 35 17 1 805 [ 1 84 16 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 70 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 26 22 ] [ 1 28 24 ] [ 0 -1 -1 ] + [ 2 14 20 ] [ 1 12 20 ] [ 0 -1 -1 ] ] + [ (8) 37 18 1 943 [ 1 99 18 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 40 18 ] [ 1 41 18 ] [ 0 -1 -1 ] + [ 1 31 26 ] [ 1 32 28 ] [ 0 -1 -1 ] + [ 2 16 24 ] [ 1 15 22 ] [ 0 -1 -1 ] ] + [ (9) 39 19 1 1089 [ 1 114 22 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 2 48 20 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 2 24 20 ] [ 1 26 22 ] [ 0 -1 -1 ] + [ 2 18 28 ] [ 1 18 26 ] [ 0 -1 -1 ] ] + [ (10) 41 20 1 1243 [ 1 131 24 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 52 22 ] [ 1 57 24 ] [ 0 -1 -1 ] + [ 2 27 24 ] [ 1 29 24 ] [ 0 -1 -1 ] + [ 2 21 32 ] [ 1 19 30 ] [ 0 -1 -1 ] ] + [ (11) 43 14 2 1289 [ 1 135 26 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 56 24 ] [ 1 57 24 ] [ 0 -1 -1 ] + [ 2 28 24 ] [ 1 31 26 ] [ 0 -1 -1 ] + [ 2 22 32 ] [ 1 21 32 ] [ 0 -1 -1 ] ] + [ (12) 45 15 2 1455 [ 1 153 28 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 1 62 26 ] [ 1 65 28 ] [ 0 -1 -1 ] + [ 2 32 28 ] [ 1 33 28 ] [ 0 -1 -1 ] + [ 3 17 26 ] [ 1 22 30 ] [ 0 -1 -1 ] ] + [ (13) 47 16 2 1629 [ 1 86 16 ] [ 1 85 16 ] [ 0 -1 -1 ] + [ 1 71 30 ] [ 1 72 30 ] [ 0 -1 -1 ] + [ 2 37 32 ] [ 1 35 30 ] [ 0 -1 -1 ] + [ 3 20 30 ] [ 1 21 32 ] [ 0 -1 -1 ] ] + [ (14) 49 16 2 1805 [ 1 94 18 ] [ 1 95 18 ] [ 0 -1 -1 ] + [ 2 51 22 ] [ 1 55 24 ] [ 0 -1 -1 ] + [ 3 30 26 ] [ 1 31 26 ] [ 0 -1 -1 ] + [ 4 18 28 ] [ 1 17 24 ] [ 0 -1 -1 ] ] + [ (15) 51 17 2 1995 [ 1 104 20 ] [ 1 105 20 ] [ 0 -1 -1 ] + [ 2 57 24 ] [ 1 61 26 ] [ 0 -1 -1 ] + [ 3 33 28 ] [ 1 36 30 ] [ 0 -1 -1 ] + [ 4 20 30 ] [ 1 19 30 ] [ 0 -1 -1 ] ] + [ (16) 53 17 2 2187 [ 1 115 22 ] [ 1 114 22 ] [ 0 -1 -1 ] + [ 2 65 28 ] [ 1 61 26 ] [ 0 -1 -1 ] + [ 3 38 32 ] [ 1 33 30 ] [ 0 -1 -1 ] + [ 5 19 28 ] [ 1 14 24 ] [ 0 -1 -1 ] ] + [ (17) 55 18 2 2393 [ 1 126 24 ] [ 1 125 24 ] [ 0 -1 -1 ] + [ 2 70 30 ] [ 1 69 30 ] [ 0 -1 -1 ] + [ 4 33 28 ] [ 1 29 26 ] [ 0 -1 -1 ] + [ 5 20 30 ] [ 1 19 30 ] [ 0 -1 -1 ] ] + [ (18) 57 19 2 2607 [ 1 136 26 ] [ 1 137 26 ] [ 0 -1 -1 ] + [ 3 56 24 ] [ 1 59 26 ] [ 0 -1 -1 ] + [ 5 35 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 6 18 28 ] [ 1 21 28 ] [ 0 -1 -1 ] ] + [ (19) 59 20 2 2829 [ 1 148 28 ] [ 1 149 28 ] [ 0 -1 -1 ] + [ 3 61 26 ] [ 1 64 28 ] [ 0 -1 -1 ] + [ 7 24 20 ] [ 1 23 22 ] [ 0 -1 -1 ] + [ 6 20 30 ] [ 1 21 32 ] [ 0 -1 -1 ] ] + [ (20) 61 20 2 3053 [ 3 107 20 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 3 65 28 ] [ 1 72 30 ] [ 0 -1 -1 ] + [ 7 26 22 ] [ 1 23 22 ] [ 0 -1 -1 ] + [ 7 19 28 ] [ 1 20 32 ] [ 0 -1 -1 ] ] + [ (21) 63 21 2 3291 [ 3 115 22 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 4 56 24 ] [ 1 63 28 ] [ 0 -1 -1 ] + [ 7 28 24 ] [ 1 25 22 ] [ 0 -1 -1 ] + [ 8 18 28 ] [ 1 21 22 ] [ 0 -1 -1 ] ] + [ (22) 65 16 3 3383 [ 2 116 22 ] [ 1 122 24 ] [ 0 -1 -1 ] + [ 4 56 24 ] [ 1 72 30 ] [ 0 -1 -1 ] + [ 7 28 24 ] [ 1 32 26 ] [ 0 -1 -1 ] + [ 8 18 28 ] [ 1 24 30 ] [ 0 -1 -1 ] ] + [ (23) 67 17 3 3631 [ 3 127 24 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 5 51 22 ] [ 1 62 26 ] [ 0 -1 -1 ] + [ 7 30 26 ] [ 1 35 26 ] [ 0 -1 -1 ] + [ 8 20 30 ] [ 1 21 32 ] [ 0 -1 -1 ] ] + [ (24) 69 17 3 3887 [ 2 135 26 ] [ 1 137 26 ] [ 0 -1 -1 ] + [ 5 56 24 ] [ 1 59 26 ] [ 0 -1 -1 ] + [ 7 33 28 ] [ 1 30 28 ] [ 0 -1 -1 ] + [ 11 16 24 ] [ 1 19 26 ] [ 0 -1 -1 ] ] + [ (25) 71 18 3 4151 [ 3 105 20 ] [ 1 121 22 ] [ 0 -1 -1 ] + [ 5 61 26 ] [ 1 57 26 ] [ 0 -1 -1 ] + [ 9 28 24 ] [ 1 28 22 ] [ 0 -1 -1 ] + [ 10 19 28 ] [ 1 18 30 ] [ 0 -1 -1 ] ] + [ (26) 73 18 3 4423 [ 2 157 30 ] [ 1 150 28 ] [ 0 -1 -1 ] + [ 5 65 28 ] [ 1 61 26 ] [ 0 -1 -1 ] + [ 8 33 28 ] [ 1 34 30 ] [ 0 -1 -1 ] + [ 10 19 28 ] [ 2 15 26 ] [ 0 -1 -1 ] ] + [ (27) 75 19 3 4703 [ 3 126 24 ] [ 1 115 22 ] [ 0 -1 -1 ] + [ 7 51 22 ] [ 1 54 22 ] [ 0 -1 -1 ] + [ 8 35 30 ] [ 1 37 30 ] [ 0 -1 -1 ] + [ 15 15 22 ] [ 1 10 22 ] [ 0 -1 -1 ] ] + [ (28) 77 19 3 4991 [ 4 105 20 ] [ 1 103 20 ] [ 0 -1 -1 ] + [ 7 56 24 ] [ 1 45 18 ] [ 0 -1 -1 ] + [ 10 31 26 ] [ 1 27 26 ] [ 0 -1 -1 ] + [ 10 17 26 ] [ 3 20 28 ] [ 1 21 28 ] ] + [ (29) 79 20 3 5287 [ 3 139 26 ] [ 1 137 28 ] [ 0 -1 -1 ] + [ 6 66 28 ] [ 1 66 30 ] [ 0 -1 -1 ] + [ 9 36 30 ] [ 1 34 32 ] [ 0 -1 -1 ] + [ 13 19 28 ] [ 1 17 32 ] [ 0 -1 -1 ] ] + [ (30) 81 20 3 5591 [ 6 84 16 ] [ 1 82 16 ] [ 0 -1 -1 ] + [ 6 70 30 ] [ 1 68 30 ] [ 0 -1 -1 ] + [ 7 35 30 ] [ 3 33 28 ] [ 1 32 28 ] + [ 13 20 30 ] [ 1 20 28 ] [ 0 -1 -1 ] ] + [ (31) 83 21 3 5903 [ 5 105 20 ] [ 1 94 18 ] [ 0 -1 -1 ] + [ 6 74 32 ] [ 1 71 30 ] [ 0 -1 -1 ] + [ 11 33 28 ] [ 1 34 32 ] [ 0 -1 -1 ] + [ 13 19 28 ] [ 3 16 26 ] [ 0 -1 -1 ] ] + [ (32) 85 17 4 6033 [ 4 127 24 ] [ 1 126 24 ] [ 0 -1 -1 ] + [ 7 66 28 ] [ 1 66 30 ] [ 0 -1 -1 ] + [ 12 30 24 ] [ 1 24 28 ] [ 1 24 30 ] + [ 15 19 28 ] [ 1 17 32 ] [ 0 -1 -1 ] ] + [ (33) 87 17 4 6353 [ 7 84 16 ] [ 1 78 16 ] [ 0 -1 -1 ] + [ 7 70 30 ] [ 1 66 28 ] [ 0 -1 -1 ] + [ 12 33 28 ] [ 1 32 30 ] [ 0 -1 -1 ] + [ 14 21 32 ] [ 1 24 28 ] [ 0 -1 -1 ] ] + [ (34) 89 18 4 6689 [ 5 117 22 ] [ 1 117 24 ] [ 0 -1 -1 ] + [ 8 66 28 ] [ 1 58 26 ] [ 0 -1 -1 ] + [ 11 38 32 ] [ 1 34 32 ] [ 0 -1 -1 ] + [ 15 20 30 ] [ 2 17 26 ] [ 0 -1 -1 ] ] + [ (35) 91 18 4 7025 [ 4 148 28 ] [ 1 146 28 ] [ 0 -1 -1 ] + [ 8 68 30 ] [ 1 70 24 ] [ 0 -1 -1 ] + [ 10 36 32 ] [ 3 38 28 ] [ 0 -1 -1 ] + [ 16 19 28 ] [ 3 16 26 ] [ 0 -1 -1 ] ] + [ (36) 93 19 4 7377 [ 4 126 24 ] [ 2 135 26 ] [ 0 -1 -1 ] + [ 8 70 28 ] [ 2 43 26 ] [ 0 -1 -1 ] + [ 13 32 28 ] [ 2 41 30 ] [ 0 -1 -1 ] + [ 17 19 28 ] [ 3 15 26 ] [ 0 -1 -1 ] ] + [ (37) 95 19 4 7729 [ 5 136 26 ] [ 1 132 24 ] [ 0 -1 -1 ] + [ 5 67 30 ] [ 4 68 28 ] [ 1 69 28 ] + [ 14 35 30 ] [ 1 32 24 ] [ 0 -1 -1 ] + [ 18 18 26 ] [ 3 16 28 ] [ 1 14 28 ] ] + [ (38) 97 19 4 8089 [ 3 142 26 ] [ 3 141 28 ] [ 0 -1 -1 ] + [ 8 70 30 ] [ 1 73 32 ] [ 1 74 32 ] + [ 12 34 30 ] [ 3 34 26 ] [ 1 35 28 ] + [ 18 21 32 ] [ 1 27 30 ] [ 0 -1 -1 ] ] + [ (39) 99 20 4 8465 [ 5 116 22 ] [ 2 103 20 ] [ 1 102 20 ] + [ 9 74 32 ] [ 1 74 30 ] [ 0 -1 -1 ] + [ 14 34 28 ] [ 2 32 32 ] [ 1 32 30 ] + [ 19 21 32 ] [ 1 25 26 ] [ 0 -1 -1 ] ] + [ (40) 101 20 4 8841 [ 7 116 22 ] [ 1 117 22 ] [ 0 -1 -1 ] + [ 11 65 28 ] [ 1 58 24 ] [ 0 -1 -1 ] + [ 15 38 32 ] [ 1 27 28 ] [ 0 -1 -1 ] + [ 20 20 30 ] [ 1 20 32 ] [ 1 21 32 ] ] + [ (41) 103 17 5 9009 [ 6 136 26 ] [ 1 130 24 ] [ 0 -1 -1 ] + [ 11 66 28 ] [ 1 62 30 ] [ 0 -1 -1 ] + [ 14 34 28 ] [ 3 34 32 ] [ 1 30 30 ] + [ 18 20 30 ] [ 3 20 28 ] [ 2 15 26 ] ] + [ (42) 105 17 5 9401 [ 5 105 20 ] [ 2 115 22 ] [ 2 116 22 ] + [ 10 75 32 ] [ 1 73 32 ] [ 0 -1 -1 ] + [ 16 38 32 ] [ 1 27 28 ] [ 0 -1 -1 ] + [ 22 19 28 ] [ 2 16 30 ] [ 1 19 30 ] ] + [ (43) 107 18 5 9799 [ 6 147 28 ] [ 1 146 28 ] [ 0 -1 -1 ] + [ 11 66 28 ] [ 2 65 30 ] [ 0 -1 -1 ] + [ 18 33 28 ] [ 2 33 30 ] [ 0 -1 -1 ] + [ 22 21 32 ] [ 1 28 30 ] [ 0 -1 -1 ] ] + [ (44) 109 18 5 10207 [ 6 116 22 ] [ 3 125 24 ] [ 0 -1 -1 ] + [ 11 75 32 ] [ 1 68 30 ] [ 0 -1 -1 ] + [ 13 35 28 ] [ 6 34 32 ] [ 1 30 30 ] + [ 23 21 32 ] [ 1 26 30 ] [ 0 -1 -1 ] ] + [ (45) 111 18 5 10623 [ 7 105 20 ] [ 4 95 18 ] [ 0 -1 -1 ] + [ 12 67 28 ] [ 1 63 30 ] [ 1 62 32 ] + [ 21 31 26 ] [ 2 33 32 ] [ 0 -1 -1 ] + [ 23 21 32 ] [ 2 24 30 ] [ 0 -1 -1 ] ] + [ (46) 113 19 5 11045 [ 10 116 22 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 12 74 32 ] [ 1 78 30 ] [ 0 -1 -1 ] + [ 18 37 32 ] [ 1 39 30 ] [ 1 41 28 ] + [ 25 21 32 ] [ 1 27 28 ] [ 0 -1 -1 ] ] + [ (47) 115 19 5 11477 [ 5 126 24 ] [ 4 115 22 ] [ 1 114 22 ] + [ 12 67 28 ] [ 2 66 32 ] [ 1 68 30 ] + [ 21 35 30 ] [ 1 39 30 ] [ 0 -1 -1 ] + [ 26 21 32 ] [ 1 28 28 ] [ 0 -1 -1 ] ] + [ (48) 117 19 5 11917 [ 9 126 24 ] [ 1 117 22 ] [ 0 -1 -1 ] + [ 13 75 32 ] [ 1 68 30 ] [ 0 -1 -1 ] + [ 20 35 30 ] [ 3 35 28 ] [ 0 -1 -1 ] + [ 27 21 32 ] [ 1 28 30 ] [ 0 -1 -1 ] ] + [ (49) 119 17 6 12111 [ 9 126 24 ] [ 1 137 26 ] [ 0 -1 -1 ] + [ 13 71 30 ] [ 2 68 32 ] [ 0 -1 -1 ] + [ 20 37 32 ] [ 1 39 28 ] [ 1 38 28 ] + [ 24 20 32 ] [ 5 25 28 ] [ 0 -1 -1 ] ] + [ (50) 121 17 6 12559 [ 8 147 28 ] [ 1 141 28 ] [ 0 -1 -1 ] + [ 10 73 32 ] [ 4 74 30 ] [ 1 73 30 ] + [ 16 36 32 ] [ 6 39 30 ] [ 1 37 30 ] + [ 27 21 32 ] [ 3 20 26 ] [ 0 -1 -1 ] ] + [ (51) 123 18 6 13025 [ 9 137 26 ] [ 1 135 26 ] [ 0 -1 -1 ] + [ 12 70 30 ] [ 4 75 32 ] [ 0 -1 -1 ] + [ 24 35 30 ] [ 1 40 28 ] [ 0 -1 -1 ] + [ 23 20 32 ] [ 8 24 30 ] [ 0 -1 -1 ] ] + [ (52) 125 18 6 13489 [ 14 95 18 ] [ 1 86 18 ] [ 0 -1 -1 ] + [ 13 73 32 ] [ 3 77 30 ] [ 0 -1 -1 ] + [ 24 35 30 ] [ 2 35 28 ] [ 0 -1 -1 ] + [ 26 21 32 ] [ 5 21 30 ] [ 1 23 30 ] ] + [ (53) 127 18 6 13961 [ 9 147 28 ] [ 1 142 28 ] [ 0 -1 -1 ] + [ 10 73 30 ] [ 6 70 32 ] [ 1 71 32 ] + [ 25 35 30 ] [ 2 34 26 ] [ 0 -1 -1 ] + [ 29 21 32 ] [ 4 22 30 ] [ 0 -1 -1 ] ] + [ (54) 129 18 6 14441 [ 11 126 24 ] [ 1 131 24 ] [ 0 -1 -1 ] + [ 16 74 32 ] [ 1 79 30 ] [ 0 -1 -1 ] + [ 25 38 32 ] [ 1 25 30 ] [ 0 -1 -1 ] + [ 33 21 32 ] [ 1 28 28 ] [ 0 -1 -1 ] ] + [ (55) 131 19 6 14939 [ 14 105 20 ] [ 1 99 18 ] [ 0 -1 -1 ] + [ 19 65 28 ] [ 1 72 28 ] [ 0 -1 -1 ] + [ 24 37 32 ] [ 2 40 30 ] [ 1 41 30 ] + [ 31 21 32 ] [ 4 24 32 ] [ 0 -1 -1 ] ] + [ (56) 133 19 6 15435 [ 10 147 28 ] [ 1 151 28 ] [ 0 -1 -1 ] + [ 15 71 30 ] [ 3 71 32 ] [ 1 73 32 ] + [ 24 37 32 ] [ 3 38 30 ] [ 1 39 30 ] + [ 36 19 30 ] [ 3 29 26 ] [ 0 -1 -1 ] ] + [ (57) 135 19 6 15939 [ 15 105 20 ] [ 1 99 18 ] [ 0 -1 -1 ] + [ 19 70 30 ] [ 1 64 28 ] [ 0 -1 -1 ] + [ 27 38 32 ] [ 2 25 26 ] [ 0 -1 -1 ] + [ 38 20 30 ] [ 2 18 28 ] [ 0 -1 -1 ] ] + [ (58) 137 17 7 16171 [ 14 105 20 ] [ 1 113 22 ] [ 1 114 22 ] + [ 17 67 30 ] [ 3 92 32 ] [ 0 -1 -1 ] + [ 30 35 30 ] [ 1 41 30 ] [ 0 -1 -1 ] + [ 36 21 32 ] [ 1 26 30 ] [ 1 27 30 ] ] + [ (59) 139 17 7 16691 [ 11 146 28 ] [ 1 146 26 ] [ 0 -1 -1 ] + [ 20 70 30 ] [ 1 60 26 ] [ 0 -1 -1 ] + [ 29 38 32 ] [ 1 24 32 ] [ 0 -1 -1 ] + [ 40 20 30 ] [ 2 17 26 ] [ 0 -1 -1 ] ] + [ (60) 141 18 7 17215 [ 3 137 26 ] [ 1 136 26 ] [ 10 126 24 ] + [ 22 65 28 ] [ 1 75 30 ] [ 0 -1 -1 ] + [ 30 37 32 ] [ 1 51 30 ] [ 0 -1 -1 ] + [ 42 20 30 ] [ 1 21 30 ] [ 0 -1 -1 ] ] + [ (61) 143 18 7 17751 [ 12 126 24 ] [ 2 118 22 ] [ 1 116 22 ] + [ 19 74 32 ] [ 1 74 30 ] [ 1 72 28 ] + [ 30 38 32 ] [ 2 29 30 ] [ 0 -1 -1 ] + [ 39 20 32 ] [ 2 37 26 ] [ 1 38 26 ] ] + [ (62) 145 18 7 18295 [ 12 126 24 ] [ 3 136 26 ] [ 0 -1 -1 ] + [ 21 70 30 ] [ 2 65 28 ] [ 0 -1 -1 ] + [ 34 35 30 ] [ 1 44 32 ] [ 0 -1 -1 ] + [ 42 20 30 ] [ 2 19 28 ] [ 2 18 28 ] ] + [ (63) 147 18 7 18847 [ 12 126 24 ] [ 3 117 22 ] [ 1 116 22 ] + [ 25 61 26 ] [ 2 62 28 ] [ 0 -1 -1 ] + [ 34 35 30 ] [ 1 40 32 ] [ 1 41 32 ] + [ 45 20 30 ] [ 1 20 32 ] [ 1 21 32 ] ] + [ (64) 149 19 7 19403 [ 15 105 20 ] [ 2 115 22 ] [ 2 116 22 ] + [ 25 65 28 ] [ 1 72 28 ] [ 0 -1 -1 ] + [ 18 35 30 ] [ 17 37 32 ] [ 1 50 32 ] + [ 42 20 30 ] [ 6 19 28 ] [ 1 15 28 ] ] + [ (65) 151 19 7 19971 [ 19 105 20 ] [ 1 101 20 ] [ 0 -1 -1 ] + [ 33 51 22 ] [ 1 65 22 ] [ 0 -1 -1 ] + [ 40 33 28 ] [ 1 28 28 ] [ 0 -1 -1 ] + [ 49 20 30 ] [ 1 18 28 ] [ 0 -1 -1 ] ] + [ (66) 153 17 8 20229 [ 18 105 20 ] [ 2 117 22 ] [ 0 -1 -1 ] + [ 26 65 28 ] [ 1 80 30 ] [ 0 -1 -1 ] + [ 35 35 30 ] [ 3 35 28 ] [ 1 36 28 ] + [ 52 18 28 ] [ 2 38 30 ] [ 0 -1 -1 ] ] + [ (67) 155 17 8 20805 [ 26 84 16 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 26 70 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 45 31 26 ] [ 1 9 26 ] [ 0 -1 -1 ] + [ 52 20 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] ] + [ (68) 157 17 8 21389 [ 16 126 24 ] [ 1 114 22 ] [ 1 115 22 ] + [ 23 70 30 ] [ 3 65 28 ] [ 1 66 28 ] + [ 40 35 30 ] [ 1 43 30 ] [ 0 -1 -1 ] + [ 46 20 30 ] [ 7 19 28 ] [ 1 16 28 ] ] + [ (69) 159 18 8 21993 [ 19 116 22 ] [ 1 105 22 ] [ 0 -1 -1 ] + [ 20 70 30 ] [ 7 66 28 ] [ 1 63 28 ] + [ 40 35 30 ] [ 1 42 32 ] [ 1 43 32 ] + [ 54 20 30 ] [ 1 19 30 ] [ 0 -1 -1 ] ] + [ (70) 161 18 8 22593 [ 17 126 24 ] [ 2 115 22 ] [ 0 -1 -1 ] + [ 24 70 30 ] [ 4 74 32 ] [ 0 -1 -1 ] + [ 48 31 26 ] [ 2 18 26 ] [ 0 -1 -1 ] + [ 54 19 28 ] [ 6 15 26 ] [ 1 14 26 ] ] + [ (71) 163 18 8 23201 [ 29 84 16 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 29 70 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 6 34 30 ] [ 3 36 30 ] [ 38 33 28 ] + [ 58 20 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] ] + [ (72) 165 18 8 23817 [ 16 147 28 ] [ 1 149 28 ] [ 0 -1 -1 ] + [ 31 66 28 ] [ 1 37 26 ] [ 0 -1 -1 ] + [ 48 33 28 ] [ 1 23 26 ] [ 0 -1 -1 ] + [ 53 20 30 ] [ 6 19 28 ] [ 1 17 28 ] ] + [ (73) 167 19 8 24453 [ 20 115 22 ] [ 2 134 24 ] [ 0 -1 -1 ] + [ 29 66 28 ] [ 2 56 26 ] [ 2 57 26 ] + [ 45 36 30 ] [ 2 15 28 ] [ 0 -1 -1 ] + [ 59 20 30 ] [ 2 21 32 ] [ 0 -1 -1 ] ] + [ (74) 169 19 8 25085 [ 17 147 28 ] [ 1 134 26 ] [ 0 -1 -1 ] + [ 26 70 30 ] [ 5 75 32 ] [ 0 -1 -1 ] + [ 47 35 30 ] [ 1 48 32 ] [ 0 -1 -1 ] + [ 64 18 28 ] [ 2 33 30 ] [ 1 35 30 ] ] + [ (75) 171 17 9 25373 [ 22 115 22 ] [ 1 133 24 ] [ 0 -1 -1 ] + [ 33 65 28 ] [ 1 74 28 ] [ 0 -1 -1 ] + [ 43 36 30 ] [ 5 27 28 ] [ 1 30 28 ] + [ 57 20 30 ] [ 5 21 32 ] [ 1 24 32 ] ] + [ (76) 173 17 9 26021 [ 18 136 26 ] [ 2 142 26 ] [ 0 -1 -1 ] + [ 33 66 28 ] [ 2 49 26 ] [ 0 -1 -1 ] + [ 48 35 30 ] [ 2 38 28 ] [ 0 -1 -1 ] + [ 64 20 30 ] [ 1 20 32 ] [ 0 -1 -1 ] ] + [ (77) 175 17 9 26677 [ 19 126 24 ] [ 2 135 26 ] [ 1 136 26 ] + [ 32 66 28 ] [ 2 55 26 ] [ 2 56 26 ] + [ 49 36 30 ] [ 2 18 32 ] [ 0 -1 -1 ] + [ 65 18 28 ] [ 5 27 30 ] [ 1 29 30 ] ] + [ (78) 177 18 9 27335 [ 20 137 26 ] [ 1 130 26 ] [ 0 -1 -1 ] + [ 30 75 32 ] [ 2 71 32 ] [ 0 -1 -1 ] + [ 46 35 30 ] [ 6 39 32 ] [ 0 -1 -1 ] + [ 3 12 30 ] [ 70 19 28 ] [ 0 -1 -1 ] ] + [ (79) 179 18 9 28007 [ 20 147 28 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 35 70 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] + [ 49 35 30 ] [ 5 35 28 ] [ 0 -1 -1 ] + [ 70 20 30 ] [ 0 -1 -1 ] [ 0 -1 -1 ] ] + [ (80) 181 18 9 28687 [ 21 136 26 ] [ 1 155 28 ] [ 0 -1 -1 ] + [ 34 70 30 ] [ 1 64 28 ] [ 1 65 28 ] + [ 54 35 30 ] [ 1 45 30 ] [ 0 -1 -1 ] + [ 68 20 30 ] [ 3 18 28 ] [ 1 19 28 ] ] + [ (81) 183 18 9 29375 [ 19 126 24 ] [ 5 115 22 ] [ 1 114 22 ] + [ 33 70 30 ] [ 3 65 28 ] [ 1 64 28 ] + [ 52 35 30 ] [ 3 41 32 ] [ 1 40 32 ] + [ 67 20 30 ] [ 5 21 32 ] [ 1 24 32 ] ] + [ (82) 185 18 9 30071 [ 2 150 28 ] [ 21 136 26 ] [ 0 -1 -1 ] + [ 32 70 30 ] [ 6 65 28 ] [ 0 -1 -1 ] + [ 52 38 32 ] [ 2 27 32 ] [ 0 -1 -1 ] + [ 73 20 30 ] [ 2 22 32 ] [ 0 -1 -1 ] ] + [ (83) 187 17 10 30387 [ 21 126 24 ] [ 4 136 26 ] [ 0 -1 -1 ] + [ 30 74 32 ] [ 6 73 30 ] [ 0 -1 -1 ] + [ 54 35 30 ] [ 4 40 32 ] [ 0 -1 -1 ] + [ 75 20 30 ] [ 1 20 28 ] [ 0 -1 -1 ] ] + [ (84) 189 17 10 31091 [ 30 105 20 ] [ 1 114 22 ] [ 0 -1 -1 ] + [ 3 45 22 ] [ 55 47 20 ] [ 0 -1 -1 ] + [ 2 26 26 ] [ 62 33 28 ] [ 0 -1 -1 ] + [ 79 18 28 ] [ 4 33 30 ] [ 0 -1 -1 ] ] + ] def + + /eclval eclevel 1 get 49 sub def + 0 1 83 { + /i exch def + /m metrics i get def + /vers m 0 get def % Version of symbol + /size m 1 get def % Length of side + /alnk m 2 get def % Regular alignment pattern length + /alnn m 3 get def % Number of alignment patterns + /alnr size alnk alnn mul sub def % Remainder alignment pattern length + /nmod m 4 get def % Number of modules + /ncws nmod 8 idiv def % Total number of codewords + /rbit nmod 8 mod def % Number of remainder bits + /ecbs m 5 eclval 3 mul add 3 getinterval def % Error correction blocks + /ecws 0 ecbs {dup 0 get exch 2 get mul add} forall def % Number of error correction codewords + /dcws ncws ecws sub def % Number of data codewords + /dmod dcws 8 mul def % Number of data modules + /okay true def + version (unset) ne version vers ne and {/okay false def} if % The version must match that supplied + bits length dmod gt {/okay false def} if % Bitstream must fit into data modules + okay {exit} if + } for + + okay not { + /bwipp.hanxinNoValidSymbol (No valid symbol available) //raiseerror exec + } if + + /version vers def + /msgbits bits def + /e1nb ecbs 0 get 0 get def /e2nb ecbs 1 get 0 get def /e3nb ecbs 2 get 0 get def + /e1dcws ecbs 0 get 1 get def /e2dcws ecbs 1 get 1 get def /e3dcws ecbs 2 get 1 get def + /e1ecws ecbs 0 get 2 get def /e2ecws ecbs 1 get 2 get def /e3ecws ecbs 2 get 2 get def + + % Expand the message bits by adding padding as necessary + /pad dmod string def + 0 1 pad length 1 sub {pad exch 48 put} for + pad 0 msgbits putinterval + + % Evaluate the padded message into codewords + /cws dcws array def + 0 1 cws length 1 sub { + /c exch def + /cwb pad c 8 mul 8 getinterval def + /cw 0 def + 0 1 7 { + /i exch def + /cw cw 2 8 i sub 1 sub exp cvi cwb i get 48 sub mul add def + } for + cws c cw put + } for + + /rscodes { + + /rspm exch def + /rsgf exch def + /rsnc exch def + /rscws exch def + + % Calculate the log and anti-log tables + /rsalog [ 1 rsgf 1 sub { dup 2 mul dup rsgf ge {rspm xor} if } repeat ] def + /rslog rsgf array def + 1 1 rsgf 1 sub {dup rsalog exch get exch rslog 3 1 roll put} for + + % Function to calculate the product in the field + /rsprod { + 2 copy 0 ne exch 0 ne and { + rslog exch get exch rslog exch get add rsgf 1 sub mod rsalog exch get + } { + pop pop 0 + } ifelse + } bind def + + % Generate the coefficients + /coeffs [ 1 rsnc {0} repeat ] def + 1 1 rsnc { + /i exch def + coeffs i coeffs i 1 sub get put + i 1 sub -1 1 { + /j exch def + coeffs j coeffs j 1 sub get coeffs j get rsalog i get rsprod xor put + } for + coeffs 0 coeffs 0 get rsalog i get rsprod put + } for + + % Extend the input with the error correction values + /nd rscws length def + /rscws [ rscws {} forall rsnc {0} repeat 0 ] def + 0 1 nd 1 sub { + /k exch rscws exch get rscws nd get xor def + 0 1 rsnc 1 sub { + /j exch def + rscws nd j add rscws nd j add 1 add get k coeffs rsnc j sub 1 sub get rsprod xor put + } for + } for + + % Return all but the last codeword + rscws 0 rscws length 1 sub getinterval + + } bind def + + % Divide codewords into two groups of blocks and calculate the error correction codewords + /dcwsb e1nb e2nb add e3nb add array def + /ecwsb dcwsb length array def + /in 0 def /out 0 def + e1nb { + cws in e1dcws getinterval e1ecws 256 355 rscodes + dup 0 e1dcws getinterval dcwsb exch out exch put + e1dcws e1ecws getinterval ecwsb exch out exch put + /in in e1dcws add def /out out 1 add def + } repeat + e2nb { + cws in e2dcws getinterval e2ecws 256 355 rscodes + dup 0 e2dcws getinterval dcwsb exch out exch put + e2dcws e2ecws getinterval ecwsb exch out exch put + /in in e2dcws add def /out out 1 add def + } repeat + e3nb { + cws in e3dcws getinterval e3ecws 256 355 rscodes + dup 0 e3dcws getinterval dcwsb exch out exch put + e3dcws e3ecws getinterval ecwsb exch out exch put + /in in e3dcws add def /out out 1 add def + } repeat + + % Reassemble the codewords + /cws ncws array def + /cw 0 def + 0 1 dcwsb length 1 sub { + /i exch def + dcwsb i get dup cws exch cw exch putinterval length cw add /cw exch def + ecwsb i get dup cws exch cw exch putinterval length cw add /cw exch def + } for + + % Split codewords into groups of 13 and concatenate + /cws [ + 0 1 ncws 1 sub 12 2 copy gt {exch} if pop { + 13 ncws 1 sub { dup ncws lt {cws exch get} {pop} ifelse } for + } for + ] def + + % Extend codewords by one if there are remainder bits + rbit 0 gt { + /pad cws length 1 add array def + pad 0 cws putinterval + pad pad length 1 sub 0 put + /cws pad def + } if + + % Create the bitmap + /pixs [ size size mul {-1} repeat ] def + /qmv {size mul add} bind def + + % Alignment patterns + alnn 0 ne { + /trmv {size mul size add 1 sub exch sub} bind def + /aplot { + 3 1 roll 3 copy exch trmv pixs exch 3 -1 roll put + trmv pixs exch 3 -1 roll put + } bind def + /i 0 def /stag 0 def { + i size ge {exit} if + 0 1 size 1 sub { + /j exch def + j alnr add size lt { + j alnk idiv stag add 2 mod 0 eq % Staggered groups of k modules + i 0 eq j alnk lt and not and % Keep clear at top right + j alnk mod 0 eq or % Complete regular-spaced grid + } { + alnn stag add 2 mod 0 eq % Bottom right remainder + } ifelse + { + j i 1 aplot + j 1 add i 1 add 2 copy size lt exch size lt and {0 aplot} {pop pop} ifelse + } if + } for + i alnr add size eq { + /i i alnr add 1 sub def + } { + /i i alnk add def + } ifelse + /stag 1 stag sub def + } loop + alnk alnk size 2 sub { + /i exch def + i alnk idiv 2 mod 0 ne { + pixs 0 i 1 sub trmv 0 put + pixs 0 i 1 add trmv 0 put + pixs 1 i 1 sub trmv 0 put + pixs 1 i trmv 0 put + pixs 1 i 1 add trmv 0 put + pixs i 1 sub 0 trmv 0 put + pixs i 1 add 0 trmv 0 put + pixs i 1 sub 1 trmv 0 put + pixs i 1 trmv 0 put + pixs i 1 add 1 trmv 0 put + } if + pixs size 1 sub i 1 sub trmv get 1 ne { + pixs size 1 sub i 1 sub trmv 0 put + pixs size 2 sub i 1 sub trmv 0 put + pixs size 2 sub i trmv 0 put + pixs size 2 sub i 1 add trmv 0 put + pixs size 1 sub i 1 add trmv 0 put + pixs i 1 sub size 1 sub trmv 0 put + pixs i 1 sub size 2 sub trmv 0 put + pixs i size 2 sub trmv 0 put + pixs i 1 add size 2 sub trmv 0 put + pixs i 1 add size 1 sub trmv 0 put + } if + } for + } if + + % Finder patterns + /fpat [ + [ 1 1 1 1 1 1 1 0 ] + [ 1 0 0 0 0 0 0 0 ] + [ 1 0 1 1 1 1 1 0 ] + [ 1 0 1 0 0 0 0 0 ] + [ 1 0 1 0 1 1 1 0 ] + [ 1 0 1 0 1 1 1 0 ] + [ 1 0 1 0 1 1 1 0 ] + [ 0 0 0 0 0 0 0 0 ] + ] def + /fpat2 [ + [ 1 1 1 0 1 0 1 0 ] + [ 1 1 1 0 1 0 1 0 ] + [ 1 1 1 0 1 0 1 0 ] + [ 0 0 0 0 1 0 1 0 ] + [ 1 1 1 1 1 0 1 0 ] + [ 0 0 0 0 0 0 1 0 ] + [ 1 1 1 1 1 1 1 0 ] + [ 0 0 0 0 0 0 0 0 ] + ] def + 0 1 fpat length 1 sub { + /y exch def + 0 1 fpat 0 get length 1 sub { + /x exch def + /fpb fpat y get x get def + /fpb2 fpat2 y get x get def + pixs x y qmv fpb put + pixs size x sub 1 sub y qmv fpb put + pixs size x sub 1 sub size y sub 1 sub qmv fpb put + pixs x size y sub 1 sub qmv fpb2 put + } for + } for + + % Format information modules + /functionmap [ + [ [ 0 8 ] [ size 1 sub size 9 sub ] ] [ [ 1 8 ] [ size 2 sub size 9 sub ] ] + [ [ 2 8 ] [ size 3 sub size 9 sub ] ] [ [ 3 8 ] [ size 4 sub size 9 sub ] ] + [ [ 4 8 ] [ size 5 sub size 9 sub ] ] [ [ 5 8 ] [ size 6 sub size 9 sub ] ] + [ [ 6 8 ] [ size 7 sub size 9 sub ] ] [ [ 7 8 ] [ size 8 sub size 9 sub ] ] + [ [ 8 8 ] [ size 9 sub size 9 sub ] ] + [ [ 8 7 ] [ size 9 sub size 8 sub ] ] [ [ 8 6 ] [ size 9 sub size 7 sub ] ] + [ [ 8 5 ] [ size 9 sub size 6 sub ] ] [ [ 8 4 ] [ size 9 sub size 5 sub ] ] + [ [ 8 3 ] [ size 9 sub size 4 sub ] ] [ [ 8 2 ] [ size 9 sub size 3 sub ] ] + [ [ 8 1 ] [ size 9 sub size 2 sub ] ] [ [ 8 0 ] [ size 9 sub size 1 sub ] ] + [ [ size 9 sub 0 ] [ 8 size 1 sub ] ] [ [ size 9 sub 1 ] [ 8 size 2 sub ] ] + [ [ size 9 sub 2 ] [ 8 size 3 sub ] ] [ [ size 9 sub 3 ] [ 8 size 4 sub ] ] + [ [ size 9 sub 4 ] [ 8 size 5 sub ] ] [ [ size 9 sub 5 ] [ 8 size 6 sub ] ] + [ [ size 9 sub 6 ] [ 8 size 7 sub ] ] [ [ size 9 sub 7 ] [ 8 size 8 sub ] ] + [ [ size 9 sub 8 ] [ 8 size 9 sub ] ] + [ [ size 8 sub 8 ] [ 7 size 9 sub ] ] [ [ size 7 sub 8 ] [ 6 size 9 sub ] ] + [ [ size 6 sub 8 ] [ 5 size 9 sub ] ] [ [ size 5 sub 8 ] [ 4 size 9 sub ] ] + [ [ size 4 sub 8 ] [ 3 size 9 sub ] ] [ [ size 3 sub 8 ] [ 2 size 9 sub ] ] + [ [ size 2 sub 8 ] [ 1 size 9 sub ] ] [ [ size 1 sub 8 ] [ 0 size 9 sub ] ] + ] def + functionmap { + { {} forall qmv pixs exch 0 put } forall + } forall + + /maskfuncs [ + {pop pop 1} bind + {add 2 mod} bind + {1 index add 3 mod exch 3 mod add 2 mod} bind + {2 copy mod 3 1 roll 2 copy exch mod 3 1 roll 3 mod exch 3 mod + add add add 2 mod} bind + ] def + mask -1 ne { % User specifies a mask + /maskfuncs [maskfuncs mask 1 sub get] def + /bestmaskval mask 1 sub def + } if + /masks maskfuncs length array def + 0 1 masks length 1 sub { + /m exch def + /mask size size mul array def + 0 1 size 1 sub { + /j exch def + 0 1 size 1 sub { + /i exch def + i 1 add j 1 add maskfuncs m get exec 0 eq + pixs i j qmv get -1 eq and {1} {0} ifelse + mask i j qmv 3 -1 roll put + } for + } for + masks m mask put + } for + + % Walk the symbol placing the bitstream + /posx 0 def + /posy 0 def + /num 0 def + { % loop + posy size eq {exit} if + pixs posx posy qmv get -1 eq { + cws num 8 idiv get 7 num 8 mod sub neg bitshift 1 and + pixs posx posy qmv 3 -1 roll put + /num num 1 add def + } if + /posx posx 1 add def + posx size eq {/posx 0 def /posy posy 1 add def} if + } loop + + % Evaluate runlength encoded rows or columns in full symbols + /evalfulln1n3 { + /scrle exch def + % Detect runs of 3 or more like modules + /scr1 0 scrle { dup 3 ge {4 mul add dup} if pop } forall def + /scr3 0 def + % Detect 1:1:1:1:3 ratio next to 3 modules of whitespace + 5 2 scrle length 1 sub { % Scan odd (dark) runs within bounds + /j exch def + scrle j get 3 mod 0 eq { % Multiple of 3 black modules + /fact scrle j get 3 idiv def + scrle j 4 sub 4 getinterval {fact eq} forall and and and { + j 5 eq j 2 add scrle length ge or { % At either extent of run + /scr3 scr3 50 add def + } { % Bounded by dark modules + scrle j 5 sub get 3 ge scrle j 1 add get 3 ge or { + /scr3 scr3 50 add def + } if + } ifelse + } if + } if + } for + % Detect 3:1:1:1:1 ratio next to 3 modules of whitespace + 1 2 scrle length 5 sub { % Scan odd (dark) runs within bounds + /j exch def + scrle j get 3 mod 0 eq { % Multiple of 3 black modules + /fact scrle j get 3 idiv def + scrle j 1 add 4 getinterval {fact eq} forall and and and { + j 1 eq j 6 add scrle length ge or { % At either extent of run + /scr3 scr3 50 add def + } { % Bounded by dark modules + scrle j 1 sub get 3 ge scrle j 5 add get 3 ge or { + /scr3 scr3 50 add def + } if + } ifelse + } if + } if + } for + scr1 scr3 + } bind def + + % Evaluation algorithm + /evalfull { + /sym exch def + + /n1 0 def /n3 0 def + /rle size 1 add array def + /lastpairs size array def + /thispairs size array def + /sizeadd1 size 1 add def + 0 1 size 1 sub { + /i exch def + + % Runlength encode (light, dark, light, ...) and evaluate each column + mark 0 0 + i size dup dup mul 1 sub { + sym exch get exch 1 index eq {exch 1 add exch} {1 exch} ifelse + } for + pop + rle 0 counttomark 2 sub getinterval astore + evalfulln1n3 n3 add /n3 exch def n1 add /n1 exch def + pop + + % Runlength encode (light, dark, light, ...) and evaluate each row + /symrow sym i size mul size getinterval def + mark 0 0 + symrow { + exch 1 index eq {exch 1 add exch} {1 exch} ifelse + } forall + pop + rle 0 counttomark 2 sub getinterval astore + evalfulln1n3 n3 add /n3 exch def n1 add /n1 exch def + pop + + } for + + n1 n3 add + } bind def + + % Evaluate the masked symbols to find the most suitable + /bestscore 999999999 def + 0 1 masks length 1 sub { + /m exch def + /masksym size size mul array def + 0 1 size size mul 1 sub { + /i exch def + masksym i pixs i get masks m get i get xor put + } for + masks length 1 ne { + masksym evalfull /score exch def + score bestscore lt { + /bestsym masksym def + /bestmaskval m def + /bestscore score def + } if + } { + /bestsym masksym def + } ifelse + } for + /pixs bestsym def + + % Add the function information + /funval size 21 sub 2 idiv 20 add 4 mul eclval add 4 mul bestmaskval add def + [ funval 16#0F00 and -8 bitshift + funval 16#00F0 and -4 bitshift + funval 16#000F and ] + 4 16 19 rscodes /funvals exch def + /funbits [ + funvals { + 4 tobin {48 sub} forall + } forall + 0 1 0 1 0 1 + ] def + 0 1 functionmap length 1 sub { + /i exch def + functionmap i get { + pixs exch aload pop qmv funbits i get put + } forall + } for + + % Return the arguments + << + /ren //renmatrix + /pixs pixs + /pixx size + /pixy size + /height size 2 mul 72 div + /width size 2 mul 72 div + /opt options + >> + + dontdraw not //renmatrix if + + end + +} bind def +/hanxin dup load /uk.co.terryburton.bwipp defineresource pop +end +/setpacking where {pop setpacking} if +%%EndData +%%EndResource +% --END ENCODER hanxin-- + % --BEGIN ENCODER gs1-cc-- % --REQUIRES preamble raiseerror renmatrix micropdf417 pdf417-- % --DESC: GS1 Composite 2D Component % --EXAM: (01)95012345678903(3103)000123 % --EXOP: ccversion=b cccolumns=4 % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp gs1-cc 0.0 2015050900 201765 192297 +%%BeginResource: uk.co.terryburton.bwipp gs1-cc 0.0 2016042100 201765 192209 %%BeginData: 650 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -19184,7 +20635,7 @@ end % --EXAM: 2112345678900|(99)1234-abcd % --EXOP: includetext % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp ean13composite 0.0 2015050900 84039 84015 +%%BeginResource: uk.co.terryburton.bwipp ean13composite 0.0 2016042100 84127 84015 %%BeginData: 72 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -19268,7 +20719,7 @@ end % --EXAM: 02345673|(21)A12345678 % --EXOP: includetext % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp ean8composite 0.0 2015050900 84340 84317 +%%BeginResource: uk.co.terryburton.bwipp ean8composite 0.0 2016042100 84428 84317 %%BeginData: 75 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -19355,7 +20806,7 @@ end % --EXAM: 416000336108|(99)1234-abcd % --EXOP: includetext % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp upcacomposite 0.0 2015050900 84017 84082 +%%BeginResource: uk.co.terryburton.bwipp upcacomposite 0.0 2016042100 84017 87498 %%BeginData: 72 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -19439,7 +20890,7 @@ end % --EXAM: 00123457|(15)021231 % --EXOP: includetext % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp upcecomposite 0.0 2015050900 88475 84857 +%%BeginResource: uk.co.terryburton.bwipp upcecomposite 0.0 2016042100 88387 84857 %%BeginData: 87 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -19538,7 +20989,7 @@ end % --EXAM: (01)03612345678904|(11)990102 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databaromnicomposite 0.0 2015050900 83884 87420 +%%BeginResource: uk.co.terryburton.bwipp databaromnicomposite 0.0 2016042100 87388 83828 %%BeginData: 100 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -19650,7 +21101,7 @@ end % --EXAM: (01)03412345678900|(17)010200 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarstackedcomposite 0.0 2015050900 89818 86093 +%%BeginResource: uk.co.terryburton.bwipp databarstackedcomposite 0.0 2016042100 89818 86093 %%BeginData: 96 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -19758,7 +21209,7 @@ end % --EXAM: (01)03612345678904|(11)990102 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarstackedomnicomposite 0.0 2015050900 89894 86165 +%%BeginResource: uk.co.terryburton.bwipp databarstackedomnicomposite 0.0 2016042100 89894 86165 %%BeginData: 96 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -19866,7 +21317,7 @@ end % --EXAM: (01)03612345678904|(11)990102 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databartruncatedcomposite 0.0 2015050900 90784 87051 +%%BeginResource: uk.co.terryburton.bwipp databartruncatedcomposite 0.0 2016042100 90784 87051 %%BeginData: 100 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -19978,7 +21429,7 @@ end % --EXAM: (01)03512345678907|(21)abcdefghijklmnopqrstuv % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarlimitedcomposite 0.0 2015050900 80661 80522 +%%BeginResource: uk.co.terryburton.bwipp databarlimitedcomposite 0.0 2016042100 80661 80522 %%BeginData: 79 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -20069,7 +21520,7 @@ end % --EXAM: (01)93712345678904(3103)001234|(91)1A2B3C4D5E % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarexpandedcomposite 0.0 2015050900 86979 83324 +%%BeginResource: uk.co.terryburton.bwipp databarexpandedcomposite 0.0 2016042100 83387 86828 %%BeginData: 98 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -20179,7 +21630,7 @@ end % --EXAM: (01)00012345678905(10)ABCDEF|(21)12345678 % --EXOP: segments=4 % --RNDR: renmatrix renlinear -%%BeginResource: uk.co.terryburton.bwipp databarexpandedstackedcomposite 0.0 2015050900 89645 89413 +%%BeginResource: uk.co.terryburton.bwipp databarexpandedstackedcomposite 0.0 2016042100 86317 89413 %%BeginData: 95 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -20286,7 +21737,7 @@ end % --EXAM: (00)030123456789012340|(02)13012345678909(37)24(10)1234567ABCDEFG % --EXOP: ccversion=c % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp gs1-128composite 0.0 2015050900 86884 89985 +%%BeginResource: uk.co.terryburton.bwipp gs1-128composite 0.0 2016042100 90300 86481 %%BeginData: 100 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -20398,7 +21849,7 @@ end % --EXAM: (01)03453120000011(17)120508(10)ABCD1234(410)9501101020917 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp gs1datamatrix 0.0 2015050900 78248 77990 +%%BeginResource: uk.co.terryburton.bwipp gs1datamatrix 0.0 2016042100 78432 74670 %%BeginData: 134 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -20518,7 +21969,7 @@ begin } loop /barcode barcode 0 j getinterval def - % Get the result of encoding with code128 + % Get the result of encoding with datamatrix options (dontdraw) true put options (parsefnc) true put /args barcode options //datamatrix exec def @@ -20538,13 +21989,160 @@ end %%EndResource % --END ENCODER gs1datamatrix-- +% --BEGIN ENCODER gs1datamatrixrectangular-- +% --REQUIRES preamble raiseerror renmatrix datamatrix-- +% --DESC: GS1 Data Matrix Rectangular +% --EXAM: (01)03453120000011(17)120508(10)ABCD1234(410)9501101020917 +% --EXOP: +% --RNDR: renmatrix +%%BeginResource: uk.co.terryburton.bwipp gs1datamatrixrectangular 0.0 2016042100 78611 74838 +%%BeginData: 135 ASCII Lines +/setpacking where {pop currentpacking true setpacking} if +1 dict +dup /raiseerror dup /uk.co.terryburton.bwipp findresource put +dup /renmatrix dup /uk.co.terryburton.bwipp findresource put +dup /datamatrix dup /uk.co.terryburton.bwipp findresource put +begin +/gs1datamatrixrectangular { + + 20 dict begin % Confine variables to local scope + + /options exch def % We are given an option string + /barcode exch def % We are given a barcode string + + /dontdraw false def + + % Parse the input options + options type /stringtype eq { + 1 dict begin + options { + token false eq {exit} if dup length string cvs (=) search + true eq {cvlit exch pop exch def} {cvlit true def} ifelse + } loop + currentdict end /options exch def + } if + options {def} forall + + % Expand ordinals of the form ^NNN to ASCII + /expand { + /in exch def + /out in length string def + /j 0 def + in + { % loop + (^) search { + dup out exch j exch putinterval + length j add 1 add /j exch def + pop + dup 0 3 getinterval cvi out exch j 1 sub exch put + dup length 3 sub 3 exch getinterval + } { + dup out exch j exch putinterval + length j add /j exch def + out 0 j getinterval exit + } ifelse + } loop + } bind def + + % Parse out AIs + /ais [] def + /aival 2 dict def + barcode dup length 1 sub 1 exch getinterval + { % loop + dup () eq {exit} if + (\)) search pop + exch pop + exch (\() search { + exch pop exch 3 1 roll + } { + () 3 1 roll + } ifelse + [ ais aload pop counttomark 2 add index ] /ais exch def + aival 3 1 roll expand put + } loop + pop + + % Pre-defined fixed length data field AIs + % any AI whose prefix is not included in this table must be + % terminated with "FNC1", even if it's fixed length + /aifixed 23 dict def + [ + 0 1 4 {} for + ] { + (00) 2 string copy dup dup 1 5 -1 roll 48 add put aifixed 3 1 roll put + } forall + [ + 11 1 20 {} for + 23 + 31 1 36 {} for + 41 + ] { + 10 2 string cvrs dup aifixed 3 1 roll put + } forall + + % Create the datamatrix data + /fnc1 -1 def + /dmtx [ fnc1 ] def + 0 1 ais length 1 sub { + /i exch def + /ai ais i get def + /val aival ai get def + dmtx length ai length add val length add array + dup 0 dmtx putinterval + dup dmtx length ai [ exch {} forall ] putinterval + dup dmtx length ai length add val [ exch {} forall ] putinterval + /dmtx exch def + i ais length 1 sub ne aifixed ai 0 2 getinterval known not and { % Append FNC1 + dmtx length 1 add array + dup 0 dmtx putinterval + dup dmtx length fnc1 put + /dmtx exch def + } if + } for + + % Compose input to datamatrix + /barcode dmtx length 1 add 5 mul string def + /i 0 def /j 0 def { + i dmtx length eq {exit} if + dmtx i get dup fnc1 eq { + pop barcode j (^FNC1) putinterval + /j j 4 add def + } { + barcode exch j exch put + } ifelse + /i i 1 add def + /j j 1 add def + } loop + /barcode barcode 0 j getinterval def + + % Get the result of encoding with datamatrix + options (dontdraw) true put + options (parsefnc) true put + options (format) (rectangle) put + /args barcode options //datamatrix exec def + + args (opt) options put + args + + dontdraw not //renmatrix if + + end + +} bind def +/gs1datamatrixrectangular dup load /uk.co.terryburton.bwipp defineresource pop +end +/setpacking where {pop setpacking} if +%%EndData +%%EndResource +% --END ENCODER gs1datamatrixrectangular-- + % --BEGIN ENCODER gs1qrcode-- % --REQUIRES preamble raiseerror renmatrix qrcode-- % --DESC: GS1 QR Code % --EXAM: (01)03453120000011(8200)http://www.abc.net(10)ABCD1234(410)9501101020917 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp gs1qrcode 0.0 2015050900 78280 77938 +%%BeginResource: uk.co.terryburton.bwipp gs1qrcode 0.0 2016042100 78192 78026 %%BeginData: 133 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -20689,7 +22287,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp hibccode39 0.0 2015050900 63169 62924 +%%BeginResource: uk.co.terryburton.bwipp hibccode39 0.0 2016042100 63169 62924 %%BeginData: 92 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -20793,7 +22391,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp hibccode128 0.0 2015050900 67220 66909 +%%BeginResource: uk.co.terryburton.bwipp hibccode128 0.0 2016042100 67484 66909 %%BeginData: 91 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -20896,7 +22494,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcdatamatrix 0.0 2015050900 68711 64879 +%%BeginResource: uk.co.terryburton.bwipp hibcdatamatrix 0.0 2016042100 65207 64879 %%BeginData: 74 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -20976,13 +22574,100 @@ end %%EndResource % --END ENCODER hibcdatamatrix-- +% --BEGIN ENCODER hibcdatamatrixrectangular-- +% --REQUIRES preamble raiseerror renmatrix datamatrix-- +% --DESC: HIBC Data Matrix Rectangular +% --EXAM: A123BJC5D6E71 +% --EXOP: +% --RNDR: renmatrix +%%BeginResource: uk.co.terryburton.bwipp hibcdatamatrixrectangular 0.0 2016042100 65520 65071 +%%BeginData: 75 ASCII Lines +/setpacking where {pop currentpacking true setpacking} if +1 dict +dup /raiseerror dup /uk.co.terryburton.bwipp findresource put +dup /renmatrix dup /uk.co.terryburton.bwipp findresource put +dup /datamatrix dup /uk.co.terryburton.bwipp findresource put +begin +/hibcdatamatrixrectangular { + + 20 dict begin % Confine variables to local scope + + /options exch def % We are given an option string + /barcode exch def % We are given a barcode string + + /dontdraw false def + /validatecheck false def + + % Parse the input options + options type /stringtype eq { + 1 dict begin + options { + token false eq {exit} if dup length string cvs (=) search + true eq {cvlit exch pop exch def} {cvlit true def} ifelse + } loop + currentdict end /options exch def + } if + options {def} forall + + % Create a string of the available characters + /barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) def + /charvals 43 dict def + 0 1 42 {charvals exch dup barchars exch 1 getinterval exch put} for + + % Validate the input + 0 1 barcode length 1 sub { + barcode exch 1 getinterval charvals exch known not { + /bwipp.hibcdatamatrixrectangularBadCharacter (HIBC Data Matrix Rectangular must contain only digits, capital letters, spaces and the symbols -.$/+%) //raiseerror exec + } if + } for + + /barlen barcode length validatecheck {1 sub} if def + + /checksum 41 def + 0 1 barlen 1 sub { + barcode exch 1 getinterval charvals exch get + checksum add /checksum exch def + } for + /checksum checksum 43 mod def + validatecheck { + barcode barlen get barchars checksum get ne { + /bwipp.hibcdatamatrixrectangularBadCheckDigit (Incorrect HIBC Data Matrix Rectangular check digit provided) //raiseerror exec + } if + /barcode barcode 0 barlen getinterval def + } if + + /barcode barlen 2 add string dup 1 barcode putinterval def + barcode 0 43 put + barcode barlen 1 add barchars checksum get put + + % Get the result of encoding with datamatrix + options (dontdraw) true put + options (validatecheck) false put + options (format) (rectangle) put + /args barcode options //datamatrix exec def + + args (opt) options put + args + + dontdraw not //renmatrix if + + end + +} bind def +/hibcdatamatrixrectangular dup load /uk.co.terryburton.bwipp defineresource pop +end +/setpacking where {pop setpacking} if +%%EndData +%%EndResource +% --END ENCODER hibcdatamatrixrectangular-- + % --BEGIN ENCODER hibcpdf417-- % --REQUIRES preamble raiseerror renmatrix pdf417-- % --DESC: HIBC PDF417 % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcpdf417 0.0 2015050900 65468 65072 +%%BeginResource: uk.co.terryburton.bwipp hibcpdf417 0.0 2016042100 65468 65072 %%BeginData: 78 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -21072,7 +22757,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcmicropdf417 0.0 2015050900 65606 65195 +%%BeginResource: uk.co.terryburton.bwipp hibcmicropdf417 0.0 2016042100 65606 65195 %%BeginData: 78 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -21162,7 +22847,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcqrcode 0.0 2015050900 64983 68179 +%%BeginResource: uk.co.terryburton.bwipp hibcqrcode 0.0 2016042100 65071 68091 %%BeginData: 74 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -21248,7 +22933,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibccodablockf 0.0 2015050900 60823 64313 +%%BeginResource: uk.co.terryburton.bwipp hibccodablockf 0.0 2016042100 60823 64313 %%BeginData: 74 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -21328,4 +23013,90 @@ end %%EndResource % --END ENCODER hibccodablockf-- +% --BEGIN ENCODER hibcazteccode-- +% --REQUIRES preamble raiseerror renmatrix azteccode-- +% --DESC: HIBC Aztec Code +% --EXAM: A123BJC5D6E71 +% --EXOP: +% --RNDR: renmatrix +%%BeginResource: uk.co.terryburton.bwipp hibcazteccode 0.0 2016042100 65179 68272 +%%BeginData: 74 ASCII Lines +/setpacking where {pop currentpacking true setpacking} if +1 dict +dup /raiseerror dup /uk.co.terryburton.bwipp findresource put +dup /renmatrix dup /uk.co.terryburton.bwipp findresource put +dup /azteccode dup /uk.co.terryburton.bwipp findresource put +begin +/hibcazteccode { + + 20 dict begin % Confine variables to local scope + + /options exch def % We are given an option string + /barcode exch def % We are given a barcode string + + /dontdraw false def + /validatecheck false def + + % Parse the input options + options type /stringtype eq { + 1 dict begin + options { + token false eq {exit} if dup length string cvs (=) search + true eq {cvlit exch pop exch def} {cvlit true def} ifelse + } loop + currentdict end /options exch def + } if + options {def} forall + + % Create a string of the available characters + /barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) def + /charvals 43 dict def + 0 1 42 {charvals exch dup barchars exch 1 getinterval exch put} for + + % Validate the input + 0 1 barcode length 1 sub { + barcode exch 1 getinterval charvals exch known not { + /bwipp.hibcazteccodeBadCharacter (HIBC Aztec Code must contain only digits, capital letters, spaces and the symbols -.$/+%) //raiseerror exec + } if + } for + + /barlen barcode length validatecheck {1 sub} if def + + /checksum 41 def + 0 1 barlen 1 sub { + barcode exch 1 getinterval charvals exch get + checksum add /checksum exch def + } for + /checksum checksum 43 mod def + validatecheck { + barcode barlen get barchars checksum get ne { + /bwipp.hibcazteccodeBadCheckDigit (Incorrect HIBC Aztec Code check digit provided) //raiseerror exec + } if + /barcode barcode 0 barlen getinterval def + } if + + /barcode barlen 2 add string dup 1 barcode putinterval def + barcode 0 43 put + barcode barlen 1 add barchars checksum get put + + % Get the result of encoding with azteccode + options (dontdraw) true put + options (validatecheck) false put + /args barcode options //azteccode exec def + + args (opt) options put + args + + dontdraw not //renmatrix if + + end + +} bind def +/hibcazteccode dup load /uk.co.terryburton.bwipp defineresource pop +end +/setpacking where {pop setpacking} if +%%EndData +%%EndResource +% --END ENCODER hibcazteccode-- + % --END TEMPLATE-- |