diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro | 996 |
1 files changed, 717 insertions, 279 deletions
diff --git a/Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro b/Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro index b61c30e5e5c..09e2e4cb65d 100644 --- a/Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro +++ b/Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro @@ -1,8 +1,8 @@ %!PS -% Barcode Writer in Pure PostScript - Version 2016-04-21 +% Barcode Writer in Pure PostScript - Version 2017-04-04 % http://bwipp.terryburton.co.uk % -% Copyright (c) 2004-2016 Terry Burton +% Copyright (c) 2004-2017 Terry Burton % % Permission is hereby granted, free of charge, to any % person obtaining a copy of this software and associated @@ -27,14 +27,13 @@ % 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 2016042100 31191 34576 +%%BeginResource: Category uk.co.terryburton.bwipp 0.0 2017040400 29725 32822 %%BeginData: 6 ASCII Lines currentglobal true setglobal +/Times (Times-Roman) def /Generic /Category findresource dup length 1 add dict copy dup /InstanceType /setpacking where {pop /packedarraytype} {/arraytype} ifelse put /uk.co.terryburton.bwipp exch /Category defineresource pop @@ -45,7 +44,7 @@ setglobal % --BEGIN RESOURCE raiseerror-- % --REQUIRES preamble-- -%%BeginResource: uk.co.terryburton.bwipp raiseerror 0.0 2016042100 44890 44440 +%%BeginResource: uk.co.terryburton.bwipp raiseerror 0.0 2017040400 153316 39839 %%BeginData: 13 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -54,8 +53,8 @@ begin $error exch /errorinfo exch put $error exch /errorname exch put $error /command null put - $error /newerror true put - handleerror quit + $error /newerror true put + stop } bind def /raiseerror dup load /uk.co.terryburton.bwipp defineresource pop end @@ -66,7 +65,7 @@ end % --BEGIN RENDERER renlinear-- % --REQUIRES preamble raiseerror-- -%%BeginResource: uk.co.terryburton.bwipp renlinear 0.0 2016042100 76908 76502 +%%BeginResource: uk.co.terryburton.bwipp renlinear 0.0 2017040400 82223 84795 %%BeginData: 237 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -226,15 +225,15 @@ begin txt { {} forall 2 copy s ne exch fn ne or { - 2 copy /s exch def /fn exch def - exch findfont exch scalefont setfont + 2 copy /s exch def /fn exch def + selectfont } { pop pop } ifelse moveto show } forall } { - textfont findfont textsize scalefont setfont + textfont textsize selectfont alttext () eq { /txt [ txt { 0 get {} forall } forall ] def /tstr txt length string def @@ -311,8 +310,8 @@ end % --BEGIN RENDERER renmatrix-- % --REQUIRES preamble raiseerror-- -%%BeginResource: uk.co.terryburton.bwipp renmatrix 0.0 2016042100 54074 54076 -%%BeginData: 66 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp renmatrix 0.0 2017040400 102784 108937 +%%BeginData: 309 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -328,6 +327,20 @@ begin /height 1 def /barcolor (unset) def /backgroundcolor (unset) def + /inkspread 0 def + /inkspreadh 0 def + /inkspreadv 0 def + /includetext false def + /txt [] def + /textcolor (unset) def + /textxalign (unset) def + /textyalign (unset) def + /textfont (Courier) def + /textsize 10 def + /textxoffset 0 def + /textyoffset 0 def + /textgaps 0 def + /alttext () def % Apply the renderer options and the user options args {def} forall @@ -337,6 +350,165 @@ begin /height height cvr def /barcolor barcolor cvlit def /backgroundcolor backgroundcolor cvlit def + /inkspread inkspread cvr def + /inkspreadh inkspreadh cvr def + /inkspreadv inkspreadv cvr def + /textcolor textcolor cvlit def + /textxalign textxalign cvlit def + /textyalign textyalign cvlit def + /textfont textfont cvlit def + /textsize textsize cvr def + /textxoffset textxoffset cvr def + /textyoffset textyoffset cvr def + /textgaps textgaps cvr def + /alttext alttext cvlit def + + inkspread 0 ne {/inkspreadh inkspread def} if + inkspread 0 ne {/inkspreadv inkspread def} if + + /xyget { pixx mul add pixs exch get } bind def + /xyinvert { pixx mul add pixs exch 2 copy get 1 xor put } bind def + /mxyget { pixx mul add m exch get 2#001 and } bind def + /mxyset { pixx mul add m exch 3 -1 roll put } bind def + /msetborder { pixx mul add m exch 2 copy get 2#010 or put } bind def + /mborderoff { pixx mul add m exch 2 copy get 2#100 or put } bind def + /misborder { pixx mul add m exch get 2#110 and 2#010 eq } bind def + /mclear { pixx mul add m exch 2 copy get 2#001 and put } bind def + /mclear4 { + 2 copy mclear + 2 copy 1 add mclear + 2 copy exch 1 add exch mclear + 2 copy exch 1 add exch mclear + 1 add exch 1 add exch mclear + } bind def + + /trace { + % Walk the outline of a region emitting edge coordinates of the path + /y exch def /x exch def + % dir 0:right 1:down 2:left 3:up + % hug 0:right 1:left + /dir x 1 add y 1 add mxyget def /hug dir def + /sx x def /sy y def /sdir dir def + mark [x y] { + x 1 add y + x 1 add y 1 add + x y 1 add + x y + 8 dir 2 mul neg roll + /Dy exch def /Dx exch def /D Dx Dy xyget def + /Cy exch def /Cx exch def /C Cx Cy xyget def + /By exch def /Bx exch def /B Bx By xyget def + /Ay exch def /Ax exch def /A Ax Ay xyget def + A B eq { + A C eq {/L} {/R} ifelse + } { + A C eq B D eq and { + A 0 eq hug 0 eq xor {/R} {/F} ifelse + } { + /F + } ifelse + } ifelse + dup /F eq { + pop + dir 0 eq {/x x 1 add def} if + dir 1 eq {/y y 1 add def} if + dir 2 eq {/x x 1 sub def} if + dir 3 eq {/y y 1 sub def} if + hug 0 eq { + Ax Ay msetborder + } { + Bx By msetborder + } ifelse + } { + /L eq { + /dir dir 3 add 4 mod def + hug 1 eq { + Bx By msetborder + Dx Dy mborderoff + } if + } { % R + /dir dir 1 add 4 mod def + hug 0 eq { + Ax Ay msetborder + Cx Cy mborderoff + } if + } ifelse + [x y] + } ifelse + x sx eq y sy eq and dir sdir eq and {exit} if + } loop + counttomark array astore exch pop + + % Invert the interior of the path + /x x 1 add def /y y 1 add def + /t x y mxyget 1 xor def + mark x y { + counttomark 0 eq {exit} if + /y exch def /x exch def + x y mxyget t ne { + 0 x 1 sub -1 0 {dup y misborder {exch pop exit} if pop} for + pixx 1 sub x 1 add 1 pixx 1 sub {dup y misborder {exch pop exit} if pop} for + 1 exch { % From left to right border + /i exch def + i y misborder not { + t i y mxyset + i y xyinvert + } if + i y 1 sub mxyget t ne i y 1 sub misborder not and {i y 1 sub} if + i y 1 add mxyget t ne i y 1 add misborder not and {i y 1 add} if + } for + } if + } loop + pop + + % Walk the path to clear the border information + dup 0 get aload pop /y1 exch def /x1 exch def + dup dup length 1 sub 1 exch getinterval { + aload pop /y2 exch def /x2 exch def + x2 x1 gt { x1 2 x2 1 sub {y1 mclear4} for } if + y2 y1 gt { y1 2 y2 1 sub {x1 exch mclear4} for } if + x2 x1 lt { x1 -2 x2 1 add {y1 mclear4} for } if + y2 y1 lt { y1 -2 y2 1 add {x1 exch mclear4} for } if + /x1 x2 def /y1 y2 def + } forall + + % Discard duplicate final point + dup length 1 sub 0 exch getinterval + + } bind def + + % Pad the bitmap on all sides + /pixs [ + pixx 2 add {0} repeat + 0 pixx pixs length 1 sub { + 0 exch + pixs exch pixx getinterval aload pop + 0 + } for + pixx 2 add {0} repeat + ] def + /pixx pixx 2 add def + /pixy pixy 2 add def + + % Track inverted regions and working space + /m [ pixs length {0} repeat ] def + + % Construct paths by tracing and inverting each dark region + /paths [ + 0 1 pixy 1 sub { + /j exch def + 0 1 pixx 1 sub { + /i exch def + i j xyget 1 eq { + i 1 sub j 1 sub trace + } if + } for + } for + ] def + + % Revert the bitmap size + /pixx pixx 2 sub def + /pixy pixy 2 sub def % Set RGB or CMYK color depending on length of given hex string /setanycolor { @@ -349,28 +521,98 @@ begin } if } bind def - % Draw the image gsave + + % Draw the image + /inkspreadh inkspreadh 2 div def + /inkspreadv inkspreadv 2 div def currentpoint translate width pixx div 72 mul height pixy div 72 mul scale 0 0 moveto pixx 0 lineto pixx pixy lineto 0 pixy lineto closepath - backgroundcolor (unset) ne { gsave backgroundcolor setanycolor fill grestore } if + backgroundcolor (unset) ne { gsave backgroundcolor setanycolor fill grestore } if barcolor (unset) ne { barcolor setanycolor } if - /xyget {pixx mul add get} bind def newpath - 0 1 pixs length 1 sub { - dup pixx mod /x exch def - pixx idiv /y exch def - pixs x y xyget 1 eq { - x pixy y sub 1 sub moveto - 0 1 rlineto - 1 0 rlineto - 0 -1 rlineto - -1 0 rlineto - closepath - } if - } for + paths { + /p exch def + /len p length def + p len 1 sub get aload pop + p 0 get aload pop + 0 1 len 1 sub { % x1 y1 x2 y2 + /i exch def + p i 1 add len mod get aload pop 6 -2 roll % x3 y3 x1 y1 x2 y2 + 5 index inkspreadh + 4 index 4 -1 roll lt {add} {sub} ifelse % y3<y1 ? x2+i : x2-i + 4 1 roll + 4 index inkspreadv + 4 index 4 -1 roll gt {add} {sub} ifelse % x3>x1 ? y2+i : y2-i + 4 -1 roll exch pixy exch sub + i 0 eq {moveto} {lineto} ifelse + } for % x2 y2 x3 y3 + closepath + pop pop pop pop + } forall fill + + % Display the text for elements in the text array + textcolor (unset) ne { textcolor setanycolor } if + includetext { + textxalign (unset) eq textyalign (unset) eq and alttext () eq and { + /s 0 def /fn () def + txt { + {} forall + 2 copy s ne exch fn ne or { + 2 copy /s exch def /fn exch def + selectfont + } { + pop pop + } ifelse + moveto show + } forall + } { + textfont textsize selectfont + alttext () eq { + /txt [ txt { 0 get {} forall } forall ] def + /tstr txt length string def + 0 1 txt length 1 sub { dup txt exch get tstr 3 1 roll put } for + } { + /tstr alttext def + } ifelse + + % Find true ascent of font + tstr length 0 eq { + 0 + } { + gsave + newpath 0 0 moveto (0) false charpath pathbbox + 4 1 roll pop pop pop + grestore + currentfont /PaintType known {currentfont /PaintType get 2 eq} {false} ifelse + currentfont /StrokeWidth known and { + currentfont /StrokeWidth get 2 div 0 exch + currentfont /FontMatrix get dtransform + dup mul exch dup mul add sqrt + add + } if + } ifelse + /textascent exch def + /textwidth tstr stringwidth pop tstr length 1 sub textgaps mul add def + + /textxpos textxoffset x textwidth sub 2 div add def + textxalign (left) eq { /textxpos textxoffset def } if + textxalign (right) eq { /textxpos x textxoffset sub textwidth sub def } if + textxalign (offleft) eq { /textxpos textwidth textxoffset add neg def } if + textxalign (offright) eq { /textxpos x textxoffset add def } if + textxalign (justify) eq textwidth x lt and { + /textxpos 0 def + /textgaps x textwidth sub tstr length 1 sub div def + } if + /textypos textyoffset textascent add 1 add neg def + textyalign (above) eq { /textypos textyoffset pixy add 1 add def } if + textyalign (center) eq { /textypos textyoffset pixy textascent sub 2 div add def } if + textxpos textypos moveto textgaps 0 tstr ashow + } ifelse + } if + grestore end @@ -385,7 +627,7 @@ end % --BEGIN RENDERER renmaximatrix-- % --REQUIRES preamble raiseerror-- -%%BeginResource: uk.co.terryburton.bwipp renmaximatrix 0.0 2016042100 55426 55272 +%%BeginResource: uk.co.terryburton.bwipp renmaximatrix 0.0 2017040400 52341 55461 %%BeginData: 79 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -476,7 +718,7 @@ end % --EXAM: 90200 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean5 0.0 2016042100 62897 62576 +%%BeginResource: uk.co.terryburton.bwipp ean5 0.0 2017040400 68958 65237 %%BeginData: 135 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -623,7 +865,7 @@ end % --EXAM: 05 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean2 0.0 2016042100 61678 61382 +%%BeginResource: uk.co.terryburton.bwipp ean2 0.0 2017040400 67275 63499 %%BeginData: 120 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -755,7 +997,7 @@ end % --EXAM: 2112345678900 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean13 0.0 2016042100 84460 87603 +%%BeginResource: uk.co.terryburton.bwipp ean13 0.0 2017040400 95001 91176 %%BeginData: 215 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -982,7 +1224,7 @@ end % --EXAM: 02345673 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean8 0.0 2016042100 81954 85278 +%%BeginResource: uk.co.terryburton.bwipp ean8 0.0 2017040400 91447 87627 %%BeginData: 196 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -1190,7 +1432,7 @@ end % --EXAM: 416000336108 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp upca 0.0 2016042100 89013 91922 +%%BeginResource: uk.co.terryburton.bwipp upca 0.0 2017040400 100538 100055 %%BeginData: 248 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -1450,7 +1692,7 @@ end % --EXAM: 00123457 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp upce 0.0 2016042100 92938 99490 +%%BeginResource: uk.co.terryburton.bwipp upce 0.0 2017040400 106367 105719 %%BeginData: 287 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -1749,7 +1991,7 @@ end % --EXAM: 978-1-56581-231-4 52250 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp isbn 0.0 2016042100 97266 100181 +%%BeginResource: uk.co.terryburton.bwipp isbn 0.0 2017040400 104057 106666 %%BeginData: 252 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -2013,7 +2255,7 @@ end % --EXAM: 979-0-2605-3211-3 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ismn 0.0 2016042100 94206 93526 +%%BeginResource: uk.co.terryburton.bwipp ismn 0.0 2017040400 99901 102499 %%BeginData: 231 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -2256,8 +2498,8 @@ end % --EXAM: 0311-175X 00 17 % --EXOP: includetext guardwhitespace % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp issn 0.0 2016042100 85135 81376 -%%BeginData: 177 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp issn 0.0 2017040400 89213 88719 +%%BeginData: 176 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -2297,15 +2539,15 @@ begin issntextyoffset (unset) ne {/issntextyoffset issntextyoffset cvr def} if /height height cvr def /addongap addongap cvr def - + % Split off the ISSN issntxt ( ) search { /issntxt exch def pop /seqvar exch def - } { + } { pop - /seqvar () def + /seqvar (00) def } ifelse % Split off the sequence variant and addon @@ -2315,30 +2557,29 @@ begin /addon exch def } { pop - /addon seqvar def - /seqvar (00) def + /addon () def } ifelse % Validate the input issntxt length 8 ne issntxt length 9 ne and { - /bwipp.issnBadLength (ISSN must be 8 or 9 characters including dash) //raiseerror exec + /bwipp.issnBadLength (ISSN must be 8 or 9 characters including dash, in the format XXXX-XXXX) //raiseerror exec } if issntxt 0 4 getinterval { dup 48 lt exch 57 gt or { - /bwipp.issnBadFormat (ISSN must have the format XXXX-XXXX) //raiseerror exec + /bwipp.issnFirstThroughFourthNotNumeric (ISSN first four characters must be numeral characters) //raiseerror exec } if } forall issntxt 4 1 getinterval (-) ne { - /bwipp.issnBadFormat (ISSN must have the format XXXX-XXXX) //raiseerror exec + /bwipp.issnNeedsDash (ISSN fifth character must be a dash) //raiseerror exec } if issntxt 5 3 getinterval { dup 48 lt exch 57 gt or { - /bwipp.issnBadFormat (ISSN must have the format XXXX-XXXX) //raiseerror exec + /bwipp.issnSixthThroughEighthNotNumeric (ISSN sixth through eighth characters must be numerals) //raiseerror exec } if } forall issntxt length 9 eq { issntxt 8 get dup dup 48 lt exch 57 gt or exch 88 ne and { % Digits or X - /bwipp.issnBadFormat (ISSN must have the format XXXX-XXXX) //raiseerror exec + /bwipp.issnNinthCharacterBadFormat (ISSN ninth character must be a number or the character X) //raiseerror exec } if } if seqvar length 2 ne { @@ -2430,7 +2671,7 @@ begin dontdraw not //renlinear if end - + } bind def /issn dup load /uk.co.terryburton.bwipp defineresource pop end @@ -2445,7 +2686,7 @@ end % --EXAM: Count01234567! % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code128 0.0 2016042100 118230 128296 +%%BeginResource: uk.co.terryburton.bwipp code128 0.0 2017040400 143323 149453 %%BeginData: 455 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -2912,8 +3153,8 @@ end % --EXAM: (01)95012345678903(3103)000123 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp gs1-128 0.0 2016042100 77699 77161 -%%BeginData: 157 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp gs1-128 0.0 2017040400 79997 83024 +%%BeginData: 158 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -2955,7 +3196,7 @@ begin /height height cvr def /text barcode def - + % Expand ordinals of the form ^NNN to ASCII /expand { /in exch def @@ -2973,25 +3214,26 @@ begin dup out exch j exch putinterval length j add /j exch def out 0 j getinterval exit - } ifelse + } ifelse } loop } bind def - + % Parse out AIs - /ais [] def - /aival 2 dict def + /ais [] def + /vals [] 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 - } { + 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 + [ ais aload pop counttomark 2 add index ] /ais exch def + [ vals aload pop counttomark 1 add index expand ] /vals exch def + pop pop } loop pop @@ -3019,7 +3261,7 @@ begin 0 1 ais length 1 sub { /i exch def /ai ais i get def - /val aival ai get def + /val vals i get def c128 length ai length add val length add array dup 0 c128 putinterval dup c128 length ai [ exch {} forall ] putinterval @@ -3081,7 +3323,7 @@ end % --EXAM: (01) 0 46 01234 56789 3 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp ean14 0.0 2016042100 69977 69481 +%%BeginResource: uk.co.terryburton.bwipp ean14 0.0 2017040400 71172 70768 %%BeginData: 105 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3198,7 +3440,7 @@ end % --EXAM: (00) 0 0614141 123456789 0 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp sscc18 0.0 2016042100 69989 69488 +%%BeginResource: uk.co.terryburton.bwipp sscc18 0.0 2017040400 71184 70775 %%BeginData: 105 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3315,7 +3557,7 @@ end % --EXAM: THIS IS CODE 39 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code39 0.0 2016042100 67013 66837 +%%BeginResource: uk.co.terryburton.bwipp code39 0.0 2017040400 75290 74970 %%BeginData: 141 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3468,7 +3710,7 @@ end % --EXAM: Code39 Ext! % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code39ext 0.0 2016042100 65588 65334 +%%BeginResource: uk.co.terryburton.bwipp code39ext 0.0 2017040400 71403 71123 %%BeginData: 110 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3590,7 +3832,7 @@ end % --EXAM: 01234567 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code32 0.0 2016042100 63549 63380 +%%BeginResource: uk.co.terryburton.bwipp code32 0.0 2017040400 68684 68425 %%BeginData: 99 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3701,7 +3943,7 @@ end % --EXAM: 123456 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp pzn 0.0 2016042100 63596 63384 +%%BeginResource: uk.co.terryburton.bwipp pzn 0.0 2017040400 68931 68597 %%BeginData: 100 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3813,7 +4055,7 @@ end % --EXAM: THIS IS CODE 93 % --EXOP: includetext includecheck % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code93 0.0 2016042100 65852 65716 +%%BeginResource: uk.co.terryburton.bwipp code93 0.0 2017040400 73201 72985 %%BeginData: 148 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -3973,7 +4215,7 @@ end % --EXAM: Code93 Ext! % --EXOP: includetext includecheck % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code93ext 0.0 2016042100 65941 65711 +%%BeginResource: uk.co.terryburton.bwipp code93ext 0.0 2017040400 68324 71604 %%BeginData: 114 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4099,7 +4341,7 @@ end % --EXAM: 2401234567 % --EXOP: height=0.5 includecheck includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp interleaved2of5 0.0 2016042100 65832 65492 +%%BeginResource: uk.co.terryburton.bwipp interleaved2of5 0.0 2017040400 73301 73185 %%BeginData: 150 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4261,7 +4503,7 @@ end % --EXAM: 0 46 01234 56789 3 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp itf14 0.0 2016042100 65819 65737 +%%BeginResource: uk.co.terryburton.bwipp itf14 0.0 2017040400 68114 71278 %%BeginData: 109 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4382,7 +4624,7 @@ end % --EXAM: 563102430313 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp identcode 0.0 2016042100 62754 62576 +%%BeginResource: uk.co.terryburton.bwipp identcode 0.0 2017040400 64217 67381 %%BeginData: 91 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4485,7 +4727,7 @@ end % --EXAM: 21348075016401 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp leitcode 0.0 2016042100 62746 62572 +%%BeginResource: uk.co.terryburton.bwipp leitcode 0.0 2017040400 64209 67377 %%BeginData: 91 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -4588,8 +4830,8 @@ end % --EXAM: (01)24012345678905 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databaromni 0.0 2016042100 112081 118257 -%%BeginData: 418 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp databaromni 0.0 2017040400 131912 137574 +%%BeginData: 420 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -4607,6 +4849,7 @@ begin /height 33 72 div def /linkage false def /format (omni) def + /barxmult 33 def % Parse the input options options type /stringtype eq { @@ -4621,6 +4864,7 @@ begin format (truncated) eq {/height 13 72 div def} if /height height cvr def + /barxmult barxmult cvi def % Validate the input barcode 0 4 getinterval (\(01\)) ne { @@ -4978,11 +5222,11 @@ begin sep3 19 [ 0 0 0 0 0 0 0 0 0 0 1 0 0 ] putinterval } if /pixs [ - 33 {top aload pop} repeat + barxmult {top aload pop} repeat sep1 aload pop sep2 aload pop sep3 aload pop - 33 {bot aload pop} repeat + barxmult {bot aload pop} repeat ] def /pixy pixs length 50 idiv def } if @@ -5018,7 +5262,7 @@ end % --EXAM: (01)24012345678905 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarstacked 0.0 2016042100 67872 71029 +%%BeginResource: uk.co.terryburton.bwipp databarstacked 0.0 2017040400 71113 67516 %%BeginData: 73 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -5103,7 +5347,7 @@ end % --EXAM: (01)24012345678905 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarstackedomni 0.0 2016042100 67972 71109 +%%BeginResource: uk.co.terryburton.bwipp databarstackedomni 0.0 2017040400 71213 67596 %%BeginData: 73 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -5188,7 +5432,7 @@ end % --EXAM: (01)24012345678905 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databartruncated 0.0 2016042100 67898 71045 +%%BeginResource: uk.co.terryburton.bwipp databartruncated 0.0 2017040400 71139 67532 %%BeginData: 73 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -5273,7 +5517,7 @@ end % --EXAM: (01)15012345678907 % --EXOP: % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp databarlimited 0.0 2016042100 83260 86093 +%%BeginResource: uk.co.terryburton.bwipp databarlimited 0.0 2017040400 96545 95706 %%BeginData: 276 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -5561,8 +5805,8 @@ end % --EXAM: (01)95012345678903(3103)000123 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarexpanded 0.0 2016042100 197224 210202 -%%BeginData: 871 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp databarexpanded 0.0 2017040400 245708 247229 +%%BeginData: 880 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -5581,6 +5825,7 @@ begin /format (expanded) def /segments -1 def /linkage false def + /barxmult 34 def % Parse the input options options type /stringtype eq { @@ -5595,6 +5840,7 @@ begin /height height cvr def /segments segments cvi def + /barxmult barxmult cvi def segments -1 eq { /segments format (expandedstacked) eq {4} {22} ifelse def @@ -5617,36 +5863,37 @@ begin dup out exch j exch putinterval length j add /j exch def out 0 j getinterval exit - } ifelse + } ifelse } loop } bind def - + % Parse out AIs - /ais [] def - /aival 2 dict def + /ais [] def + /vals [] 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 - } { + 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 + } ifelse + [ ais aload pop counttomark 2 add index ] /ais exch def + [ vals aload pop counttomark 1 add index expand ] /vals exch def + pop pop } loop pop - + % Method selection { % common exit - + % (01)9...(3103)... ais length 2 eq { - ais 0 get (01) eq ais 1 get (3103) eq and { - aival (01) get 0 1 getinterval (9) eq aival (3103) get cvi 32767 le and { - (0100) false exit + ais 0 get (01) eq ais 1 get (3103) eq and { + vals 0 get 0 1 getinterval (9) eq vals 1 get cvi 32767 le and { + (0100) false exit } if } if } if @@ -5654,7 +5901,7 @@ begin % (01)9...(3202)... ais length 2 eq { ais 0 get (01) eq ais 1 get (3202) eq and { - aival (01) get 0 1 getinterval (9) eq aival (3202) get cvi 9999 le and { + vals 0 get 0 1 getinterval (9) eq vals 1 get cvi 9999 le and { (0101) false exit } if } if @@ -5663,7 +5910,7 @@ begin % (01)9...(3203)... ais length 2 eq { ais 0 get (01) eq ais 1 get (3203) eq and { - aival (01) get 0 1 getinterval (9) eq aival (3203) get cvi 22767 le and { + vals 0 get 0 1 getinterval (9) eq vals 1 get cvi 22767 le and { (0101) false exit } if } if @@ -5680,9 +5927,9 @@ begin } ifelse ais 0 get (01) eq ai310x ai320x or and aibad not and { ais length 3 eq { - aival (01) get 0 1 getinterval (9) eq - aival ais 1 get get cvi 99999 le and - aival ais 2 get get cvi 999999 le and { + vals 0 get 0 1 getinterval (9) eq + vals 1 get cvi 99999 le and + vals 2 cvi 999999 le and { ai310x ais 2 get (11) eq and { (0111000) false exit } if ai320x ais 2 get (11) eq and { (0111001) false exit } if ai310x ais 2 get (13) eq and { (0111010) false exit } if @@ -5693,8 +5940,8 @@ begin ai320x ais 2 get (17) eq and { (0111111) false exit } if } if } { - aival (01) get 0 1 getinterval (9) eq - aival ais 1 get get cvi 99999 le and { + vals 0 get 0 1 getinterval (9) eq + vals 1 get cvi 99999 le and { ai310x { (0111000) false exit } if ai320x { (0111001) false exit } if } if @@ -5706,7 +5953,7 @@ begin ais length 2 ge { /ai392x false 3920 1 3923 {10 4 string cvrs ais 1 get eq or} for def ais 0 get (01) eq ai392x and { - aival (01) get 0 1 getinterval (9) eq { (01100) true exit } if + vals 0 get 0 1 getinterval (9) eq { (01100) true exit } if } if } if @@ -5714,7 +5961,7 @@ begin ais length 2 ge { /ai393x false 3930 1 3933 {10 4 string cvrs ais 1 get eq or} for def ais 0 get (01) eq ai393x and { - aival (01) get 0 1 getinterval (9) eq { (01101) true exit } if + vals 0 get 0 1 getinterval (9) eq { (01101) true exit } if } if } if @@ -5754,46 +6001,49 @@ begin } if method (1) eq { - /cdf aival (01) get 0 13 getinterval conv13to44 def + /cdf vals 0 get 0 13 getinterval conv13to44 def /cdf [ cdf {48 sub} forall ] def /gpf [] def - /ais ais 1 ais length 1 sub getinterval def + /ais ais 1 ais length 1 sub getinterval def + /vals vals 1 vals length 1 sub getinterval def } if method (0100) eq { /cdf 55 string def - cdf 0 aival (01) get 1 12 getinterval conv12to40 putinterval - cdf 40 aival (3103) get cvi 15 tobin putinterval + cdf 0 vals 0 get 1 12 getinterval conv12to40 putinterval + cdf 40 vals 1 get cvi 15 tobin putinterval /cdf [ cdf {48 sub} forall ] def /gpf [] def /ais [] def + /vals [] def } if method (0101) eq { /cdf 55 string def - cdf 0 aival (01) get 1 12 getinterval conv12to40 putinterval + cdf 0 vals 0 get 1 12 getinterval conv12to40 putinterval ais 1 get (3202) eq { - aival (3202) get cvi 15 tobin + vals 1 get cvi 15 tobin } { - aival (3203) get cvi 10000 add 15 tobin + vals 1 get cvi 10000 add 15 tobin } ifelse cdf exch 40 exch putinterval /cdf [ cdf {48 sub} forall ] def /gpf [] def /ais [] def + /vals [] def } if method length 7 eq { /cdf 76 string def - cdf 0 aival (01) get 1 12 getinterval conv12to40 putinterval + cdf 0 vals 0 get 1 12 getinterval conv12to40 putinterval 6 string dup 0 ais 1 get 3 1 getinterval putinterval - dup aival ais 1 get get 1 5 getinterval 1 exch putinterval cvi 20 tobin + dup vals 1 get 1 5 getinterval 1 exch putinterval cvi 20 tobin cdf exch 40 exch putinterval ais length 3 eq { - aival ais 2 get get + vals 2 get dup 0 2 getinterval cvi 384 mul exch dup 2 2 getinterval cvi 1 sub 32 mul exch - 4 2 getinterval cvi add add + 4 2 getinterval cvi add add } { 38400 } ifelse @@ -5801,25 +6051,28 @@ begin /cdf [ cdf {48 sub} forall ] def /gpf [] def /ais [] def + /vals [] def } if method (01100) eq { /cdf 42 string def - cdf 0 aival (01) get 1 12 getinterval conv12to40 putinterval - cdf 40 ais 1 get 3 1 getinterval cvi 2 tobin putinterval + cdf 0 vals 0 get 1 12 getinterval conv12to40 putinterval + cdf 40 ais 1 get 3 1 getinterval cvi 2 tobin putinterval /cdf [ cdf {48 sub} forall ] def - /gpf [ aival ais 1 get get {} forall ] def - /ais ais 2 ais length 2 sub getinterval def + /gpf [ vals 1 get {} forall ] def + /ais ais 2 ais length 2 sub getinterval def + /vals vals 2 vals length 2 sub getinterval def } if method (01101) eq { /cdf 52 string def - cdf 0 aival (01) get 1 12 getinterval conv12to40 putinterval - cdf 40 ais 1 get 3 1 getinterval cvi 2 tobin putinterval - cdf 42 aival ais 1 get get 0 3 getinterval cvi 10 tobin putinterval + cdf 0 vals 0 get 1 12 getinterval conv12to40 putinterval + cdf 40 ais 1 get 3 1 getinterval cvi 2 tobin putinterval + cdf 42 vals 1 get 0 3 getinterval cvi 10 tobin putinterval /cdf [ cdf {48 sub} forall ] def - /gpf [ aival ais 1 get get dup length 3 sub 3 exch getinterval {} forall ] def - /ais ais 2 ais length 2 sub getinterval def + /gpf [ vals 1 get dup length 3 sub 3 exch getinterval {} forall ] def + /ais ais 2 ais length 2 sub getinterval def + /vals vals 2 vals length 2 sub getinterval def } if % Variable length symbol field @@ -5891,7 +6144,7 @@ begin 0 1 ais length 1 sub { /i exch def /ai ais i get def - /val aival ai get def + /val vals i get def gpf length ai length add val length add array dup 0 gpf putinterval dup gpf length ai [ exch {} forall ] putinterval @@ -6406,7 +6659,7 @@ begin r 0 ne { seps r get aload pop } if - 34 {rows r get aload pop} repeat + barxmult {rows r get aload pop} repeat r numrows 1 sub ne { seps r get aload pop sep aload pop @@ -6444,7 +6697,7 @@ end % --EXAM: (01)95012345678903(3103)000123 % --EXOP: segments=4 % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarexpandedstacked 0.0 2016042100 63589 66857 +%%BeginResource: uk.co.terryburton.bwipp databarexpandedstacked 0.0 2017040400 62326 62296 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6493,13 +6746,158 @@ end %%EndResource % --END ENCODER databarexpandedstacked-- +% --BEGIN ENCODER gs1northamericancoupon-- +% --REQUIRES preamble raiseerror renlinear renmatrix databarexpanded databarexpandedstacked-- +% --DESC: GS1 North American Coupon +% --EXAM: (8110)106141416543213500110000310123196000 +% --EXOP: includetext segments=8 +% --RNDR: renlinear renmatrix +%%BeginResource: uk.co.terryburton.bwipp gs1northamericancoupon 0.0 2017040400 84603 84322 +%%BeginData: 133 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 /databarexpandedstacked dup /uk.co.terryburton.bwipp findresource put +begin +/gs1northamericancoupon { + + 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 + + /includetext false def % Enable/disable coupon text + /coupontextfont /Helvetica def + /coupontextsize 9 def + /coupontextxoffset (unset) def + /coupontextyoffset (unset) 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 + + /coupontextfont coupontextfont cvlit def + /coupontextsize coupontextsize cvr def + coupontextxoffset (unset) ne {/coupontextxoffset coupontextxoffset cvr def} if + coupontextyoffset (unset) ne {/coupontextyoffset coupontextyoffset cvr def} if + + % 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 + /vals [] 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 + [ vals aload pop counttomark 1 add index expand ] /vals exch def + pop pop + } loop + pop + + % Validate the AI structure + ais length 1 ne { + /bwipp.gs1northamericancouponBadAIStructure (A GS1 North American Coupon should consist of a single AI (8110)) //raiseerror exec + } if + ais 0 get (8110) ne { + /bwipp.gs1northamericancouponBadAIStructure (A GS1 North American Coupon should consist of a single AI (8110)) //raiseerror exec + } if + + % Parse out the Company Prefix and Offer Code + /val vals 0 get def + /vli val 0 get 48 sub def + vli 0 lt vli 6 gt or { + /bwipp.gs1northamericancouponBadVLI (The AI (8110) data should start with a Company Prefix length indicator in the range 0 to 6) //raiseerror exec + } if + /gcp val 1 vli 6 add getinterval def + /cod val vli 7 add 6 getinterval def + /coupontext gcp length 7 add string def + coupontext 0 gcp putinterval + coupontext gcp length (-) putinterval + coupontext gcp length 1 add cod putinterval + + % Get the result of encoding with databarexpandedstacked + options (dontdraw) true put + + /args barcode options //databarexpandedstacked exec def + + % Add the coupon text + includetext { + coupontextxoffset (unset) eq { + /coupontextxoffset 0 def + } if + coupontextyoffset (unset) eq { + /coupontextyoffset args (height) get 72 mul 3 add def + } if + args (txt) known { + /txt args (txt) get def + /newtxt txt length 1 add array def + newtxt 0 txt putinterval + newtxt newtxt length 1 sub [coupontext coupontextxoffset coupontextyoffset coupontextfont coupontextsize] put + args (txt) newtxt put + } { + args (txt) [ [coupontext coupontextxoffset coupontextyoffset coupontextfont coupontextsize] ] put + } ifelse + } if + + args (opt) options put + args + + dontdraw not //renmatrix if + + end + +} bind def +/gs1northamericancoupon dup load /uk.co.terryburton.bwipp defineresource pop +end +/setpacking where {pop setpacking} if +%%EndData +%%EndResource +% --END ENCODER gs1northamericancoupon-- + % --BEGIN ENCODER pharmacode-- % --REQUIRES preamble raiseerror renlinear-- % --DESC: Pharmaceutical Binary Code % --EXAM: 117480 % --EXOP: showborder % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp pharmacode 0.0 2016042100 60269 60124 +%%BeginResource: uk.co.terryburton.bwipp pharmacode 0.0 2017040400 65042 61361 %%BeginData: 91 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6602,7 +7000,7 @@ end % --EXAM: 117480 % --EXOP: includetext showborder % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp pharmacode2 0.0 2016042100 60956 60646 +%%BeginResource: uk.co.terryburton.bwipp pharmacode2 0.0 2017040400 65777 62019 %%BeginData: 96 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6710,7 +7108,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code2of5 0.0 2016042100 67430 67109 +%%BeginResource: uk.co.terryburton.bwipp code2of5 0.0 2017040400 75739 71770 %%BeginData: 150 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6872,7 +7270,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp industrial2of5 0.0 2016042100 57882 57606 +%%BeginResource: uk.co.terryburton.bwipp industrial2of5 0.0 2017040400 57761 61035 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -6939,7 +7337,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp iata2of5 0.0 2016042100 57852 57582 +%%BeginResource: uk.co.terryburton.bwipp iata2of5 0.0 2017040400 57731 61011 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7006,7 +7404,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp matrix2of5 0.0 2016042100 57862 57590 +%%BeginResource: uk.co.terryburton.bwipp matrix2of5 0.0 2017040400 57741 61019 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7073,7 +7471,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp coop2of5 0.0 2016042100 57852 57582 +%%BeginResource: uk.co.terryburton.bwipp coop2of5 0.0 2017040400 57731 61011 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7140,7 +7538,7 @@ end % --EXAM: 01234567 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp datalogic2of5 0.0 2016042100 57877 57602 +%%BeginResource: uk.co.terryburton.bwipp datalogic2of5 0.0 2017040400 57756 61031 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7207,7 +7605,7 @@ end % --EXAM: 0123456789 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp code11 0.0 2016042100 69086 68582 +%%BeginResource: uk.co.terryburton.bwipp code11 0.0 2017040400 78331 78011 %%BeginData: 158 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7377,7 +7775,7 @@ end % --EXAM: BC412 % --EXOP: semi includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp bc412 0.0 2016042100 64995 64541 +%%BeginResource: uk.co.terryburton.bwipp bc412 0.0 2017040400 72256 72010 %%BeginData: 148 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7537,7 +7935,7 @@ end % --EXAM: A0123456789B % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp rationalizedCodabar 0.0 2016042100 69398 68906 +%%BeginResource: uk.co.terryburton.bwipp rationalizedCodabar 0.0 2017040400 78699 78295 %%BeginData: 156 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -7705,7 +8103,7 @@ end % --EXAM: 0123456709498765432101234567891 % --EXOP: barcolor=FF0000 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp onecode 0.0 2016042100 101896 104906 +%%BeginResource: uk.co.terryburton.bwipp onecode 0.0 2017040400 113701 113359 %%BeginData: 335 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8052,7 +8450,7 @@ end % --EXAM: 01234 % --EXOP: includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp postnet 0.0 2016042100 65689 65439 +%%BeginResource: uk.co.terryburton.bwipp postnet 0.0 2017040400 73030 72820 %%BeginData: 140 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8204,7 +8602,7 @@ end % --EXAM: 01234567890 % --EXOP: includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp planet 0.0 2016042100 65565 65215 +%%BeginResource: uk.co.terryburton.bwipp planet 0.0 2017040400 72826 72620 %%BeginData: 141 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8357,7 +8755,7 @@ end % --EXAM: LE28HS9Z % --EXOP: includetext barcolor=FF0000 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp royalmail 0.0 2016042100 66136 65853 +%%BeginResource: uk.co.terryburton.bwipp royalmail 0.0 2017040400 73773 73626 %%BeginData: 145 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8514,7 +8912,7 @@ end % --EXAM: 5956439111ABA 9 % --EXOP: includetext custinfoenc=character % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp auspost 0.0 2016042100 75628 75331 +%%BeginResource: uk.co.terryburton.bwipp auspost 0.0 2017040400 85865 85800 %%BeginData: 202 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8728,7 +9126,7 @@ end % --EXAM: 1231FZ13XHS % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp kix 0.0 2016042100 61942 61672 +%%BeginResource: uk.co.terryburton.bwipp kix 0.0 2017040400 67923 64189 %%BeginData: 111 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -8851,7 +9249,7 @@ end % --EXAM: 6540123789-A-K-Z % --EXOP: includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp japanpost 0.0 2016042100 66345 66129 +%%BeginResource: uk.co.terryburton.bwipp japanpost 0.0 2017040400 74350 74174 %%BeginData: 162 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9025,7 +9423,7 @@ end % --EXAM: 0123456789 % --EXOP: includetext includecheck includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp msi 0.0 2016042100 71052 70834 +%%BeginResource: uk.co.terryburton.bwipp msi 0.0 2017040400 77937 77655 %%BeginData: 139 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9176,7 +9574,7 @@ end % --EXAM: 01234ABCD % --EXOP: includetext includecheckintext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp plessey 0.0 2016042100 67754 67457 +%%BeginResource: uk.co.terryburton.bwipp plessey 0.0 2017040400 75943 75566 %%BeginData: 146 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9334,7 +9732,7 @@ end % --EXAM: ABCDEF % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp telepen 0.0 2016042100 68624 68368 +%%BeginResource: uk.co.terryburton.bwipp telepen 0.0 2017040400 76901 76597 %%BeginData: 173 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9519,7 +9917,7 @@ end % --EXAM: 01234567 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp telepennumeric 0.0 2016042100 57870 57594 +%%BeginResource: uk.co.terryburton.bwipp telepennumeric 0.0 2017040400 57741 61015 %%BeginData: 55 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -9586,7 +9984,7 @@ end % --EXAM: ABC123 % --EXOP: version=b inkspread=-0.5 parsefnc includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp posicode 0.0 2016042100 106927 109835 +%%BeginResource: uk.co.terryburton.bwipp posicode 0.0 2017040400 128220 127472 %%BeginData: 423 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -10021,8 +10419,8 @@ end % --EXAM: CODABLOCK F 34567890123456789010040digit % --EXOP: columns=8 % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp codablockf 0.0 2016042100 126266 132420 -%%BeginData: 521 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp codablockf 0.0 2017040400 157635 163565 +%%BeginData: 520 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -10040,7 +10438,6 @@ begin /columns 8 def /rowheight 10 def /sepheight 1 def - /encoding (auto) def /parse false def /parsefnc false def @@ -10554,7 +10951,7 @@ end % --EXAM: Abcd-1234567890-wxyZ % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp code16k 0.0 2016042100 147911 164544 +%%BeginResource: uk.co.terryburton.bwipp code16k 0.0 2017040400 189660 202445 %%BeginData: 744 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -11310,7 +11707,7 @@ end % --EXAM: MULTIPLE ROWS IN CODE 49 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp code49 0.0 2016042100 218104 234960 +%%BeginResource: uk.co.terryburton.bwipp code49 0.0 2017040400 291373 297357 %%BeginData: 1076 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12398,7 +12795,7 @@ end % --EXAM: 3493 % --EXOP: height=0.5 includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp channelcode 0.0 2016042100 68302 68105 +%%BeginResource: uk.co.terryburton.bwipp channelcode 0.0 2017040400 74649 74470 %%BeginData: 149 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12559,7 +12956,7 @@ end % --EXAM: 11099 % --EXOP: inkspread=-0.25 showborder borderleft=0 borderright=0 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp flattermarken 0.0 2016042100 59248 59148 +%%BeginResource: uk.co.terryburton.bwipp flattermarken 0.0 2017040400 63805 60185 %%BeginData: 93 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12664,7 +13061,7 @@ end % --EXAM: 331132131313411122131311333213114131131221323 % --EXOP: height=0.5 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp raw 0.0 2016042100 55514 55371 +%%BeginResource: uk.co.terryburton.bwipp raw 0.0 2017040400 58495 55088 %%BeginData: 52 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12728,7 +13125,7 @@ end % --EXAM: FATDAFTDAD % --EXOP: % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp daft 0.0 2016042100 58288 58222 +%%BeginResource: uk.co.terryburton.bwipp daft 0.0 2017040400 62389 58827 %%BeginData: 76 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12816,7 +13213,7 @@ end % --EXAM: fima % --EXOP: backgroundcolor=DD000011 % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp symbol 0.0 2016042100 58044 57965 +%%BeginResource: uk.co.terryburton.bwipp symbol 0.0 2017040400 61969 58378 %%BeginData: 72 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -12900,7 +13297,7 @@ end % --EXAM: This is PDF417 % --EXOP: columns=2 % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp pdf417 0.0 2016042100 188276 197810 +%%BeginResource: uk.co.terryburton.bwipp pdf417 0.0 2017040400 225385 234487 %%BeginData: 873 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -13785,7 +14182,7 @@ end % --EXAM: This is compact PDF417 % --EXOP: columns=2 % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp pdf417compact 0.0 2016042100 60668 60355 +%%BeginResource: uk.co.terryburton.bwipp pdf417compact 0.0 2017040400 59527 59274 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -13840,7 +14237,7 @@ end % --EXAM: MicroPDF417 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp micropdf417 0.0 2016042100 201094 213914 +%%BeginResource: uk.co.terryburton.bwipp micropdf417 0.0 2017040400 241907 247375 %%BeginData: 959 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -14811,8 +15208,8 @@ end % --EXAM: This is Data Matrix! % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp datamatrix 0.0 2016042100 199528 218903 -%%BeginData: 871 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp datamatrix 0.0 2017040400 258183 263444 +%%BeginData: 889 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -14875,6 +15272,19 @@ begin } loop } if + % Macro 05/06 compression of [)>{RS}05/06{GS}...{RS}{EOT} structured data + /mac05comp false def + /mac06comp false def + barcode length 9 ge { + barcode 0 7 getinterval + dup ([\)>\03605\035) eq + exch ([\)>\03606\035) eq or + barcode barcode length 2 sub 2 getinterval (\036\004) eq and { + barcode 5 get 53 eq {/mac05comp} {/mac06comp} ifelse true def + /barcode barcode 7 barcode length 9 sub getinterval def + } if + } if + /barlen barcode length def % Convert input into bytes accounting for FNC characters @@ -14902,6 +15312,11 @@ begin /j j 1 add def } loop /msg msg 0 j getinterval def + + % Prefix the Macro 05/06 compression indicator + mac05comp { /msg [ m05 msg aload pop ] def } if + mac06comp { /msg [ m06 msg aload pop ] def } if + /msglen msg length def % Basic metrics for the each symbol @@ -15694,7 +16109,7 @@ end % --EXAM: 1234 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp datamatrixrectangular 0.0 2016042100 60716 60395 +%%BeginResource: uk.co.terryburton.bwipp datamatrixrectangular 0.0 2017040400 59583 59426 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -15749,8 +16164,8 @@ end % --EXAM: http://goo.gl/0bis % --EXOP: eclevel=M % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp qrcode 0.0 2016042100 267379 277512 -%%BeginData: 1019 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp qrcode 0.0 2017040400 322089 326433 +%%BeginData: 1028 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -15857,6 +16272,7 @@ begin [ 16#20 16#24 16#25 16#2A 16#2B 16#2D 16#2E 16#2F 16#3A 16#41 1 16#5A {} for + fn1 ] {-1} forall >> def @@ -16070,7 +16486,7 @@ begin [ 6 7 8 e e 3 4] AbeforeB {A exit} if [ 1 1 1 e 1 1 1] AbeforeE {A exit} if numA 1 ge { - ver vM1 ne ver vM2 ne and {B} {A} ifelse exit + ver vM2 ne {B} {A} ifelse exit } if [ 4 4 5 e e 2 3] NbeforeB {N exit} if [ 1 1 1 e e 1 1] NbeforeB {B exit} if @@ -16100,19 +16516,22 @@ begin [13 15 17 e 5 7 9] NbeforeA {N exit} if [13 17 18 e e 7 9] NbeforeB {N exit} if [ 7 8 9 e 3 4 5] NbeforeE {N exit} if - A exit + numA 1 ge numN 1 ge or {A exit} if + B exit } if mode N eq { numK 1 ge {K exit} if numB 1 ge {B exit} if numA 1 ge {A exit} if - N exit + numN 1 ge {N exit} if + B exit } if mode K eq { numB 1 ge {B exit} if numA 1 ge {A exit} if numN 1 ge {N exit} if - K exit + numK 1 ge {K exit} if + B exit } if } loop dup K eq fnc1first and {pop B} if % No kanji with fnc1first @@ -16507,12 +16926,12 @@ begin versionmap { { {} forall qmv pixs exch 0 put } forall } forall - - % Solitary dark module in full symbols + + % Reserve the solitary dark module in full symbols format (full) eq { - pixs 8 size 8 sub qmv 1 put + pixs 8 size 8 sub qmv 0 put } if - + % Calculate the mask patterns format (full) eq { /maskfuncs [ @@ -16705,7 +17124,12 @@ begin } ifelse } for /pixs bestsym def - + + % Set the solitary dark module in full symbols + format (full) eq { + pixs 8 size 8 sub qmv 1 put + } if + % Add the format information format (full) eq { /fmtvals [ @@ -16780,7 +17204,7 @@ end % --EXAM: 1234 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp microqrcode 0.0 2016042100 60576 60353 +%%BeginResource: uk.co.terryburton.bwipp microqrcode 0.0 2017040400 59531 59384 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -16835,7 +17259,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 2016042100 116961 123452 +%%BeginResource: uk.co.terryburton.bwipp maxicode 0.0 2017040400 141526 147393 %%BeginData: 564 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -17411,7 +17835,7 @@ end % --EXAM: This is Aztec Code % --EXOP: format=full % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp azteccode 0.0 2016042100 163082 186690 +%%BeginResource: uk.co.terryburton.bwipp azteccode 0.0 2017040400 209943 222599 %%BeginData: 679 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -18102,7 +18526,7 @@ end % --EXAM: 1234 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp azteccodecompact 0.0 2016042100 60604 60376 +%%BeginResource: uk.co.terryburton.bwipp azteccodecompact 0.0 2017040400 59559 59303 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -18157,7 +18581,7 @@ end % --EXAM: 1 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp aztecrune 0.0 2016042100 60573 60352 +%%BeginResource: uk.co.terryburton.bwipp aztecrune 0.0 2017040400 59528 59279 %%BeginData: 43 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -18212,8 +18636,8 @@ end % --EXAM: Code One % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp codeone 0.0 2016042100 190508 210074 -%%BeginData: 851 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp codeone 0.0 2017040400 241249 250071 +%%BeginData: 856 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -18339,6 +18763,14 @@ begin cws exch i exch put } for + % Basic metrics for the each symbol + % ver row col dcol dcws rscw rsbl ro ri rl + /metrics [ + [ (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 ] + ] def + } { % Standard and type-T % Convert input into bytes accounting for FNC characters @@ -18377,9 +18809,6 @@ begin [ (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 ] @@ -19075,7 +19504,7 @@ end % --EXAM: This is Han Xin % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hanxin 0.0 2016042100 299332 322644 +%%BeginResource: uk.co.terryburton.bwipp hanxin 0.0 2017040400 371193 376561 %%BeginData: 886 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -19973,8 +20402,8 @@ end % --EXAM: (01)95012345678903(3103)000123 % --EXOP: ccversion=b cccolumns=4 % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp gs1-cc 0.0 2016042100 201765 192209 -%%BeginData: 650 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp gs1-cc 0.0 2017040400 208546 207818 +%%BeginData: 656 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -20048,25 +20477,26 @@ begin } ifelse } loop } bind def - + % Parse out AIs - /ais [] def - /aival 2 dict def + /ais [] def + /vals [] 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 - } { + 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 + } ifelse + [ ais aload pop counttomark 2 add index ] /ais exch def + [ vals aload pop counttomark 1 add index expand ] /vals exch def + pop pop } loop pop - + % Method selection /isupper {dup 65 ge exch 90 le and} bind def % A-Z /isnum0 {dup 48 ge exch 57 le and} bind def % 0-9 @@ -20083,7 +20513,7 @@ begin % (90){0-3 digits not starting 0}{upper alpha}... ais length 1 ge { ais 0 get (90) eq { - /v aival (90) get def + /v vals 0 get def v length 1 ge { v 0 get isupper { 0 (11) exit @@ -20173,25 +20603,27 @@ begin method (10) eq { % TODO: fixme ais 0 get (11) eq ais 0 get (17) eq or { - aival ais 0 get get + vals 0 get dup 0 2 getinterval cvi 384 mul exch dup 2 2 getinterval cvi 1 sub 32 mul exch - 4 2 getinterval cvi add add + 4 2 getinterval cvi add add (0000000000000000) 16 string copy dup 3 -1 roll 2 16 string cvrs dup length 16 exch sub exch putinterval [ 1 0 4 -1 roll {48 sub} forall ais 0 get (11) eq {0} {1} ifelse ] /cdf exch def - /ais ais 1 ais length 1 sub getinterval def + /ais ais 1 ais length 1 sub getinterval def + /vals vals 1 vals length 1 sub getinterval def } { /cdf [ 1 0 1 1 ] def } ifelse ais length 0 ne { ais 0 get (10) eq { - /gpf [ aival (10) get {} forall ] def + /gpf [ vals 0 get {} forall ] def ais length 1 gt {/gpf [ gpf aload pop fnc1 ] def} if % TODO: check - /ais ais 1 ais length 1 sub getinterval def + /ais ais 1 ais length 1 sub getinterval def + /vals vals 1 vals length 1 sub getinterval def } { /gpf [fnc1] def % TODO: check } ifelse @@ -20204,7 +20636,7 @@ begin method (11) eq { /cdf [ 1 1 ] def - /ai90 aival (90) get def + /ai90 vals 0 get def npre 1 add ai90 length ne { ai90 npre 1 add ai90 length npre sub 1 sub getinterval } { @@ -20217,12 +20649,13 @@ begin nalpha nnums add ai90rem length ne {/mode (alphanumeric) def} if /cdf [ cdf aload pop - mode (alphanumeric) eq {0} if - mode (numeric) eq {1 0} if - mode (alpha) eq {1 1} if + mode (alphanumeric) eq {0} if + mode (numeric) eq {1 0} if + mode (alpha) eq {1 1} if ] def - /ais1 ais length 1 gt {ais 1 get} {-1} ifelse def - ais1 (21) eq ais1 (8004) eq or { + /ais1 ais length 1 gt {ais 1 get} {-1} ifelse def + /vals1 vals length 1 gt {vals 1 get} {-1} ifelse def + ais1 (21) eq ais1 (8004) eq or { /cdf [ cdf aload pop ais1 (21) eq {1 0} {1 1} ifelse ] def } { /cdf [ cdf aload pop 0 ] def @@ -20233,7 +20666,7 @@ begin /aval exch def } { pop /aval -1 def - } ifelse + } ifelse nval 31 lt aval -1 ne and { (00000) 5 string copy dup nval 2 5 string cvrs dup length 5 exch sub exch putinterval @@ -20242,7 +20675,7 @@ begin dup length 4 exch sub exch putinterval [ exch {48 sub} forall ] /abits exch def /cdf [ - cdf aload pop + cdf aload pop nbits aload pop abits aload pop ] def @@ -20268,25 +20701,27 @@ begin /out in length 6 mul array def /j 0 def 0 1 in length 1 sub { - in exch get encs exch get + in exch get encs exch get dup [ exch {48 sub} forall ] out exch j exch putinterval length j add /j exch def } for /cdf [ - cdf aload pop + cdf aload pop out 0 j getinterval aload pop ] def /gpf [] def ais length 1 gt mode (alpha) ne or {/mode (numeric) def} if } ifelse - /ais ais 1 ais length 1 sub getinterval def + /ais ais 1 ais length 1 sub getinterval def + /vals vals 1 vals length 1 sub getinterval def ais length 0 ne { ais1 (21) eq ais1 (8004) eq or { /gpf [ gpf aload pop - aival ais1 get {} forall + vals1 {} forall ] def - /ais ais 1 ais length 1 sub getinterval def + /ais ais 1 ais length 1 sub getinterval def + /vals vals 1 vals length 1 sub getinterval def ais length 0 ne {/gpf [gpf aload pop fnc1] def} if } if } if @@ -20320,7 +20755,7 @@ begin 0 1 ais length 1 sub { /i exch def /ai ais i get def - /val aival ai get def + /val vals i get def gpf length ai length add val length add array dup 0 gpf putinterval dup gpf length ai [ exch {} forall ] putinterval @@ -20635,7 +21070,7 @@ end % --EXAM: 2112345678900|(99)1234-abcd % --EXOP: includetext % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp ean13composite 0.0 2016042100 84127 84015 +%%BeginResource: uk.co.terryburton.bwipp ean13composite 0.0 2017040400 82022 81974 %%BeginData: 72 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -20719,7 +21154,7 @@ end % --EXAM: 02345673|(21)A12345678 % --EXOP: includetext % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp ean8composite 0.0 2016042100 84428 84317 +%%BeginResource: uk.co.terryburton.bwipp ean8composite 0.0 2017040400 82363 82316 %%BeginData: 75 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -20806,7 +21241,7 @@ end % --EXAM: 416000336108|(99)1234-abcd % --EXOP: includetext % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp upcacomposite 0.0 2016042100 84017 87498 +%%BeginResource: uk.co.terryburton.bwipp upcacomposite 0.0 2017040400 82104 82161 %%BeginData: 72 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -20890,7 +21325,7 @@ end % --EXAM: 00123457|(15)021231 % --EXOP: includetext % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp upcecomposite 0.0 2016042100 88387 84857 +%%BeginResource: uk.co.terryburton.bwipp upcecomposite 0.0 2017040400 83282 83120 %%BeginData: 87 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -20989,7 +21424,7 @@ end % --EXAM: (01)03612345678904|(11)990102 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databaromnicomposite 0.0 2016042100 87388 83828 +%%BeginResource: uk.co.terryburton.bwipp databaromnicomposite 0.0 2017040400 82965 86277 %%BeginData: 100 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -21101,7 +21536,7 @@ end % --EXAM: (01)03412345678900|(17)010200 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarstackedcomposite 0.0 2016042100 89818 86093 +%%BeginResource: uk.co.terryburton.bwipp databarstackedcomposite 0.0 2017040400 88569 84684 %%BeginData: 96 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -21209,7 +21644,7 @@ end % --EXAM: (01)03612345678904|(11)990102 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarstackedomnicomposite 0.0 2016042100 89894 86165 +%%BeginResource: uk.co.terryburton.bwipp databarstackedomnicomposite 0.0 2017040400 88645 84756 %%BeginData: 96 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -21317,7 +21752,7 @@ end % --EXAM: (01)03612345678904|(11)990102 % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databartruncatedcomposite 0.0 2016042100 90784 87051 +%%BeginResource: uk.co.terryburton.bwipp databartruncatedcomposite 0.0 2017040400 89639 85738 %%BeginData: 100 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -21429,7 +21864,7 @@ end % --EXAM: (01)03512345678907|(21)abcdefghijklmnopqrstuv % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarlimitedcomposite 0.0 2016042100 80661 80522 +%%BeginResource: uk.co.terryburton.bwipp databarlimitedcomposite 0.0 2017040400 79414 79211 %%BeginData: 79 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -21520,7 +21955,7 @@ end % --EXAM: (01)93712345678904(3103)001234|(91)1A2B3C4D5E % --EXOP: % --RNDR: renlinear renmatrix -%%BeginResource: uk.co.terryburton.bwipp databarexpandedcomposite 0.0 2016042100 83387 86828 +%%BeginResource: uk.co.terryburton.bwipp databarexpandedcomposite 0.0 2017040400 85836 82285 %%BeginData: 98 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -21630,7 +22065,7 @@ end % --EXAM: (01)00012345678905(10)ABCDEF|(21)12345678 % --EXOP: segments=4 % --RNDR: renmatrix renlinear -%%BeginResource: uk.co.terryburton.bwipp databarexpandedstackedcomposite 0.0 2016042100 86317 89413 +%%BeginResource: uk.co.terryburton.bwipp databarexpandedstackedcomposite 0.0 2017040400 88452 84444 %%BeginData: 95 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -21737,7 +22172,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 2016042100 90300 86481 +%%BeginResource: uk.co.terryburton.bwipp gs1-128composite 0.0 2017040400 85883 88824 %%BeginData: 100 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 2 dict @@ -21849,8 +22284,8 @@ end % --EXAM: (01)03453120000011(17)120508(10)ABCD1234(410)9501101020917 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp gs1datamatrix 0.0 2016042100 78432 74670 -%%BeginData: 134 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp gs1datamatrix 0.0 2017040400 79986 76213 +%%BeginData: 135 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -21894,25 +22329,26 @@ begin dup out exch j exch putinterval length j add /j exch def out 0 j getinterval exit - } ifelse + } ifelse } loop } bind def - + % Parse out AIs - /ais [] def - /aival 2 dict def + /ais [] def + /vals [] 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 - } { + 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 + [ ais aload pop counttomark 2 add index ] /ais exch def + [ vals aload pop counttomark 1 add index expand ] /vals exch def + pop pop } loop pop @@ -21940,7 +22376,7 @@ begin 0 1 ais length 1 sub { /i exch def /ai ais i get def - /val aival ai get def + /val vals i get def dmtx length ai length add val length add array dup 0 dmtx putinterval dup dmtx length ai [ exch {} forall ] putinterval @@ -21995,8 +22431,8 @@ end % --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 +%%BeginResource: uk.co.terryburton.bwipp gs1datamatrixrectangular 0.0 2017040400 80189 79933 +%%BeginData: 136 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /raiseerror dup /uk.co.terryburton.bwipp findresource put @@ -22040,25 +22476,26 @@ begin dup out exch j exch putinterval length j add /j exch def out 0 j getinterval exit - } ifelse + } ifelse } loop } bind def - + % Parse out AIs - /ais [] def - /aival 2 dict def + /ais [] def + /vals [] 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 - } { + 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 + [ ais aload pop counttomark 2 add index ] /ais exch def + [ vals aload pop counttomark 1 add index expand ] /vals exch def + pop pop } loop pop @@ -22086,7 +22523,7 @@ begin 0 1 ais length 1 sub { /i exch def /ai ais i get def - /val aival ai get def + /val vals i get def dmtx length ai length add val length add array dup 0 dmtx putinterval dup dmtx length ai [ exch {} forall ] putinterval @@ -22142,8 +22579,8 @@ end % --EXAM: (01)03453120000011(8200)http://www.abc.net(10)ABCD1234(410)9501101020917 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp gs1qrcode 0.0 2016042100 78192 78026 -%%BeginData: 133 ASCII Lines +%%BeginResource: uk.co.terryburton.bwipp gs1qrcode 0.0 2017040400 76420 79603 +%%BeginData: 134 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict dup /renmatrix dup /uk.co.terryburton.bwipp findresource put @@ -22186,25 +22623,26 @@ begin dup out exch j exch putinterval length j add /j exch def out 0 j getinterval exit - } ifelse + } ifelse } loop } bind def - + % Parse out AIs - /ais [] def - /aival 2 dict def + /ais [] def + /vals [] 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 - } { + 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 + [ ais aload pop counttomark 2 add index ] /ais exch def + [ vals aload pop counttomark 1 add index expand ] /vals exch def + pop pop } loop pop @@ -22226,13 +22664,13 @@ begin 10 2 string cvrs dup aifixed 3 1 roll put } forall - % Create the qrcode data + % Create the qrcode data /fnc1 -1 def /qrc [ fnc1 ] def 0 1 ais length 1 sub { /i exch def /ai ais i get def - /val aival ai get def + /val vals i get def qrc length ai length add val length add array dup 0 qrc putinterval dup qrc length ai [ exch {} forall ] putinterval @@ -22287,7 +22725,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp hibccode39 0.0 2016042100 63169 62924 +%%BeginResource: uk.co.terryburton.bwipp hibccode39 0.0 2017040400 68512 68281 %%BeginData: 92 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -22391,7 +22829,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: includetext % --RNDR: renlinear -%%BeginResource: uk.co.terryburton.bwipp hibccode128 0.0 2016042100 67484 66909 +%%BeginResource: uk.co.terryburton.bwipp hibccode128 0.0 2017040400 68415 68036 %%BeginData: 91 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -22494,7 +22932,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcdatamatrix 0.0 2016042100 65207 64879 +%%BeginResource: uk.co.terryburton.bwipp hibcdatamatrix 0.0 2017040400 65202 64798 %%BeginData: 74 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -22580,7 +23018,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcdatamatrixrectangular 0.0 2016042100 65520 65071 +%%BeginResource: uk.co.terryburton.bwipp hibcdatamatrixrectangular 0.0 2017040400 65451 65014 %%BeginData: 75 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -22667,7 +23105,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcpdf417 0.0 2016042100 65468 65072 +%%BeginResource: uk.co.terryburton.bwipp hibcpdf417 0.0 2017040400 65591 65215 %%BeginData: 78 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -22757,7 +23195,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcmicropdf417 0.0 2016042100 65606 65195 +%%BeginResource: uk.co.terryburton.bwipp hibcmicropdf417 0.0 2017040400 65641 65250 %%BeginData: 78 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -22847,7 +23285,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcqrcode 0.0 2016042100 65071 68091 +%%BeginResource: uk.co.terryburton.bwipp hibcqrcode 0.0 2017040400 65146 64770 %%BeginData: 74 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -22933,7 +23371,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibccodablockf 0.0 2016042100 60823 64313 +%%BeginResource: uk.co.terryburton.bwipp hibccodablockf 0.0 2017040400 65182 64798 %%BeginData: 74 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict @@ -23019,7 +23457,7 @@ end % --EXAM: A123BJC5D6E71 % --EXOP: % --RNDR: renmatrix -%%BeginResource: uk.co.terryburton.bwipp hibcazteccode 0.0 2016042100 65179 68272 +%%BeginResource: uk.co.terryburton.bwipp hibcazteccode 0.0 2017040400 68614 64895 %%BeginData: 74 ASCII Lines /setpacking where {pop currentpacking true setpacking} if 1 dict |