summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-23 21:43:55 +0000
committerKarl Berry <karl@freefriends.org>2016-04-23 21:43:55 +0000
commit9cde404237f8442ec290892a907d1fce70e864fa (patch)
tree3d8a7d3b63e2a94a610511df9638953ef1f4d0b1
parent5b67b6be319910126e12745ffbb06a2c1d5f573a (diff)
pst-barcode (23apr16)
git-svn-id: svn://tug.org/texlive/trunk@40703 c570f23f-e606-0410-a88d-b1316a301751
Diffstat
-rw-r--r--Master/texmf-dist/doc/generic/pst-barcode/Changes3
-rw-r--r--Master/texmf-dist/doc/generic/pst-barcode/README10
-rw-r--r--Master/texmf-dist/doc/generic/pst-barcode/README.md82
-rw-r--r--Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.pdfbin366512 -> 397953 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.tex92
-rw-r--r--Master/texmf-dist/dvips/pst-barcode/pst-barcode.pro2453
-rw-r--r--Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex4
-rw-r--r--Master/texmf-dist/tex/latex/pst-barcode/pst-barcode.sty4
8 files changed, 2289 insertions, 359 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-barcode/Changes b/Master/texmf-dist/doc/generic/pst-barcode/Changes
index fd32f16f588..0f3ee247fdf 100644
--- a/Master/texmf-dist/doc/generic/pst-barcode/Changes
+++ b/Master/texmf-dist/doc/generic/pst-barcode/Changes
@@ -1,4 +1,6 @@
----- pst-barcode.tex
+0.15 2016-04-22 - new pro file, new codes
+0.14 2015-10-10 - updated documentation, new pro file
0.13 2015-05-11 - updated documentation, new pro file
0.12 2013-10-26 - added option file for including an external file
0.11 2013-10-06 - added more options for data matrix
@@ -20,6 +22,7 @@
----- pst-barcode.pro
+2016-04-21 - some new barcodes
2015-05-11 - several fixes for the code
2013-10-06 - the Data Matrix encoder now supports C40, Text and
ANSI X12 encoding modes as well as the FNC1, PROG,
diff --git a/Master/texmf-dist/doc/generic/pst-barcode/README b/Master/texmf-dist/doc/generic/pst-barcode/README
deleted file mode 100644
index e6c071eb168..00000000000
--- a/Master/texmf-dist/doc/generic/pst-barcode/README
+++ /dev/null
@@ -1,10 +0,0 @@
-This version of pst-barcode uses the xkeyval package, the extended
-version of keyval.
-
-Save the files pst-barcode.sty|.tex|.pro in a directory, which is part of your
-local TeX tree. pst-barcode.pro should be saved in ../texmf/dvips/pstricks/
-Then do not forget to run texhash to update this tree.
-pst-barcode needs pstricks, which should be part of your
-local TeX installation, otherwise get it from a CTAN server, f.ex.
-http://mirror.ctan.org/graphics/pstricks/
-
diff --git a/Master/texmf-dist/doc/generic/pst-barcode/README.md b/Master/texmf-dist/doc/generic/pst-barcode/README.md
new file mode 100644
index 00000000000..d7c53ba3d70
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-barcode/README.md
@@ -0,0 +1,82 @@
+# README #
+This version of pst-barcode uses the xkeyval package, the extended
+version of keyval.
+
+Save the files pst-barcode.sty|.tex|.pro in a directory, which is part of your
+local TeX tree. pst-barcode.pro should be saved in ../texmf/dvips/pstricks/
+Then do not forget to run texhash to update this tree.
+pst-barcode needs pstricks, which should be part of your
+local TeX installation, otherwise get it from a CTAN server, f.ex.
+http://mirror.ctan.org/graphics/pstricks/
+
+Following barcode are supported:
+- EAN-13 (EAN, UCC-13, JAN, JAN-13, EAN-13+2, EAN-13+5, EAN-99),
+- EAN-8 (UCC-8, JAN-8, EAN-8+2, EAN-8+5, EAN-Velocity),
+- UPC-A (UPC, UCC-12, UPC-A+2, UPC-A+5),
+- UPC-E (UPC-E0, UPC-E1, UPC-E+2, UPC-E+5),
+- ISBN (ISBN-13, ISBN-10, Bookland EAN-13),
+- ISMN,
+- ISSN,
+- EAN-5 \& EAN-2 (EAN/UPC add-ons),
+- GS1 DataBar Omnidirectional (RSS-14),
+- GS1 DataBar Stacked (RSS-14 Stacked),
+- GS1 DataBar Stacked Omnidirectional (RSS-14 Stacked Omnidirectional),
+- GS1 DataBar Truncated (RSS-14 Truncated),
+- GS1 DataBar Limited (RSS Limited),
+- GS1 DataBar Expanded (RSS Expanded),
+- GS1 DataBar Expanded Stacked (RSS Expanded Stacked),
+- GS1-128 (UCC/EAN-128, EAN-128, UCC-128),
+- SSCC-18 (EAN-18, NVE),
+- EAN-14 (UCC-14),
+- ITF-14 (UPC SCS),
+- QR Code (Quick Response Code),
+- Micro QR Code,
+- GS1 QR Code,
+- Data Matrix (Data Matrix ECC 200, Data Matrix Rectangular Extension),
+- GS1 DataMatrix,
+- Aztec Code (Compact Aztec Code),
+- Aztec Runes,
+- PDF417,
+- Compact PDF417 (Truncated PDF417),
+- MicroPDF417,
+- Han Xin Code (Chinese Sensible),
+- MaxiCode (UPS Code, Code 6),
+- Codablock F, Code 16K (USS-16K),
+- Code 49 (USS-49),
+- Code One (Code 1, Code 1S),
+- USPS POSTNET,
+- USPS PLANET,
+- USPS Intelligent Mail (USPS OneCode),
+- USPS FIM,
+- Royal Mail (RM4SCC, CBC),
+- Royal TNT Post (KIX),
+- Japan Post,
+- Australia Post,
+- Deutsche Post Identcode (DHL Identcode),
+- Deutsche Post Leitcode (DHL Leitcode),
+- Pharmacode (Pharmaceutical Binary Code),
+- Two-track Pharmacode (Two-track Pharmaceutical Binary Code),
+- Italian-Pharmacode (Code 32, IMH),
+- PZN (Pharmazentralnummer, PZN-8, PZN-7),
+- Code 39 (Code 3 of 9, LOGMARS, Alpha39, USD-3, USD-2, USS-39),
+- Code 39 Extended (Code 39 Full ASCII),
+- Code 93 (USD-7, USS-93),
+- Code 93 Extended (Code 93 Full ASCII),
+- Code 128 (Code 128A, Code 128B, Code 128C, USD-6, USS-128),
+- Code 25 (Code 2 of 5, Industrial 2 of 5),
+- IATA-2 of 5,
+- Datalogic 2 of 5,
+- Matrix 2 of 5,
+- COOP 2 of 5,
+- Interleaved 2 of 5 (ITF, Code 2 of 5 Interleaved, USD-1, USS-Interleaved 2 of 5),
+- Code 11 (USD-8),
+- Codabar (Rationalized Codabar, Ames Code, NW-7, USD-4, USS-Codabar, Monarch, Code 2 of 7),
+- Plessey (Anker Code),
+- MSI Plessey (MSI, MSI Modified Plessey),
+- Telepen (Telepen Alpha, Telepen Full ASCII),
+- Telepen Numeric,
+- Channel Code,
+- PosiCode (PosiCode A, PosiCode B),
+- BC412 (BC412 SEMI, BC412 IBM),
+- GS1 Composite Symbols (EAN-13 Composite, EAN-8 Composite, UPC-A Composite, UPC-E Composite, GS1 DataBar Omnidirectional Composite, GS1 DataBar Stacked Composite, GS1 DataBar Stacked Omni Composite, GS1 DataBar Truncated Composite, GS1 DataBar Limited Composite, GS1 DataBar Expanded Composite, GS1 DataBar Expanded Stacked Composite, GS1-128 Composite),
+- HIBC barcodes (HIBC Code 39, HIBC Code 128, HIBC Data Matrix, HIBC PDF417, HIBC MicroPDF417, HIBC QR Code, HIBC Codablock F)
diff --git a/Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.pdf b/Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.pdf
index e4b5344afec..3c692d17966 100644
--- a/Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.tex b/Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.tex
index 2e39eded8ca..20acf8a4be7 100644
--- a/Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-barcode/pst-barcode-doc.tex
@@ -2,7 +2,7 @@
\documentclass[11pt,english,BCOR10mm,DIV14,bibliography=totoc,parskip=false,smallheadings
headexclude,footexclude,twoside]{pst-doc}
\usepackage[utf8]{inputenc}
-\usepackage{pst-barcode,blindtext}
+\usepackage{pst-barcode,blindtext,multicol}
\let\pstBarcodeFV\fileversion
\lstset{preset=\centering,pos=l,wide=false,vsep=5mm,language=PSTricks,%width=0.5\linewidth,
morekeywords={multidipole,parallel},basicstyle=\footnotesize\ttfamily}
@@ -26,7 +26,7 @@
\begin{document}
\title{\texttt{pst-barcode}}
-\subtitle{A PSTricks package for drawing bar codes; v.\pstBarcodeFV}
+\subtitle{A PSTricks package for drawing barcodes; v.\pstBarcodeFV}
\author{Terry Burton \\Herbert Vo\ss}
\docauthor{Herbert Vo\ss}
\date{\today}
@@ -204,8 +204,92 @@ bar
\section{Possible barcodes}
-The following section shows the symbologies that are supported by
-the encoders, including the available features for each. This list
+The following list shows all available bacodes. Some of it are
+shown as an example.
+
+\begin{multicols}{2}
+\begin{itemize}
+\item EAN-13 (EAN, UCC-13, JAN, JAN-13, EAN-13+2, EAN-13+5, EAN-99),
+\item EAN-8 (UCC-8, JAN-8, EAN-8+2, EAN-8+5, EAN-Velocity),
+\item UPC-A (UPC, UCC-12, UPC-A+2, UPC-A+5),
+\item UPC-E (UPC-E0, UPC-E1, UPC-E+2, UPC-E+5),
+\item ISBN (ISBN-13, ISBN-10, Bookland EAN-13),
+\item ISMN,
+\item ISSN,
+\item EAN-5 \& EAN-2 (EAN/UPC add-ons),
+\item GS1 DataBar Omnidirectional (RSS-14),
+\item GS1 DataBar Stacked (RSS-14 Stacked),
+\item GS1 DataBar Stacked Omnidirectional (RSS-14 Stacked Omnidirectional),
+\item GS1 DataBar Truncated (RSS-14 Truncated),
+\item GS1 DataBar Limited (RSS Limited),
+\item GS1 DataBar Expanded (RSS Expanded),
+\item GS1 DataBar Expanded Stacked (RSS Expanded Stacked),
+\item GS1-128 (UCC/EAN-128, EAN-128, UCC-128),
+\item SSCC-18 (EAN-18, NVE),
+\item EAN-14 (UCC-14),
+\item ITF-14 (UPC SCS),
+\item QR Code (Quick Response Code),
+\item Micro QR Code,
+\item GS1 QR Code,
+\item Data Matrix (Data Matrix ECC 200, Data Matrix Rectangular Extension),
+\item GS1 DataMatrix,
+\item Aztec Code (Compact Aztec Code),
+\item Aztec Runes,
+\item PDF417,
+\item Compact PDF417 (Truncated PDF417),
+\item MicroPDF417,
+\item Han Xin Code (Chinese Sensible),
+\item MaxiCode (UPS Code, Code 6),
+\item Codablock F, Code 16K (USS-16K),
+\item Code 49 (USS-49),
+\item Code One (Code 1, Code 1S),
+\item USPS POSTNET,
+\item USPS PLANET,
+\item USPS Intelligent Mail (USPS OneCode),
+\item USPS FIM,
+\item Royal Mail (RM4SCC, CBC),
+\item Royal TNT Post (KIX),
+\item Japan Post,
+\item Australia Post,
+\item Deutsche Post Identcode (DHL Identcode),
+\item Deutsche Post Leitcode (DHL Leitcode),
+\item Pharmacode (Pharmaceutical Binary Code),
+\item Two-track Pharmacode (Two-track Pharmaceutical Binary Code),
+\item Italian-Pharmacode (Code 32, IMH),
+\item PZN (Pharmazentralnummer, PZN-8, PZN-7),
+\item Code 39 (Code 3 of 9, LOGMARS, Alpha39, USD-3, USD-2, USS-39),
+\item Code 39 Extended (Code 39 Full ASCII),
+\item Code 93 (USD-7, USS-93),
+\item Code 93 Extended (Code 93 Full ASCII),
+\item Code 128 (Code 128A, Code 128B, Code 128C, USD-6, USS-128),
+\item Code 25 (Code 2 of 5, Industrial 2 of 5),
+\item IATA-2 of 5,
+\item Datalogic 2 of 5,
+\item Matrix 2 of 5,
+\item COOP 2 of 5,
+\item Interleaved 2 of 5 (ITF, Code 2 of 5 Interleaved, USD-1, USS-Interleaved 2 of 5),
+\item Code 11 (USD-8),
+\item Codabar (Rationalized Codabar, Ames Code, NW-7, USD-4, USS-Codabar, Monarch, Code 2 of 7),
+\item Plessey (Anker Code),
+\item MSI Plessey (MSI, MSI Modified Plessey),
+\item Telepen (Telepen Alpha, Telepen Full ASCII),
+\item Telepen Numeric,
+\item Channel Code,
+\item PosiCode (PosiCode A, PosiCode B),
+\item BC412 (BC412 SEMI, BC412 IBM),
+\item GS1 Composite Symbols (EAN-13 Composite, EAN-8 Composite, UPC-A Composite, UPC-E Composite, GS1 DataBar Omnidirectional Composite, GS1 DataBar Stacked Composite, GS1 DataBar Stacked Omni Composite, GS1 DataBar Truncated Composite, GS1 DataBar Limited Composite, GS1 DataBar Expanded Composite, GS1 DataBar Expanded Stacked Composite, GS1-128 Composite),
+\item HIBC barcodes (HIBC Code 39, HIBC Code 128, HIBC Data Matrix, HIBC PDF417, HIBC MicroPDF417, HIBC QR Code, HIBC Codablock F)
+\end{itemize}
+\end{multicols}
+
+
+
+
+
+
+%section shows the symbologies that are supported by
+%the encoders, including the available features for each.
+This list
may not be up-to-date. If it does not contain any of the formats or
features that you require then check the project source code or
try the support mailing list.
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--
diff --git a/Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex b/Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex
index 047295d16b1..ee8f6126132 100644
--- a/Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex
+++ b/Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex
@@ -19,8 +19,8 @@
\let\PSTBarcodeLoaded\endinput
\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
%
-\def\fileversion{0.14}
-\def\filedate{2015/06/17}
+\def\fileversion{0.15}
+\def\filedate{2016/04/22}
\message{`PST-barcode' v\fileversion, \filedate\space (tb,hv)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
diff --git a/Master/texmf-dist/tex/latex/pst-barcode/pst-barcode.sty b/Master/texmf-dist/tex/latex/pst-barcode/pst-barcode.sty
index 3cffbfaa237..93832783cae 100644
--- a/Master/texmf-dist/tex/latex/pst-barcode/pst-barcode.sty
+++ b/Master/texmf-dist/tex/latex/pst-barcode/pst-barcode.sty
@@ -1,11 +1,11 @@
\RequirePackage{pstricks}
-\ProvidesPackage{pst-barcode}[2012/11/16 package wrapper for
+\ProvidesPackage{pst-barcode}[2016/04/22 package wrapper for
pst-barcode.tex (hv)]
\input{pst-barcode.tex}
\ProvidesFile{pst-barcode.tex}
[\filedate\space v\fileversion\space `PST-barcode' (hv)]
\IfFileExists{pst-barcode.pro}{%
\ProvidesFile{pst-barcode.pro}
- [2015/05/11 PostScript prologue file (hv)]
+ [2016/04/21 PostScript prologue file (hv)]
\@addtofilelist{pst-barcode.pro}}{}%
\endinput
generated by cgit v1.2.3 (git 2.39.1) at 2024-12-29 15:00:47 +0000