rghost_barcode 0.8

data/lib/rghost_barcode/ps/msi.ps

@@ -0,0 +1,104 @@
+
+% --DESC: MSI Modified Plessey
+% --EXAM: 0123456789
+% --EXOP: includetext includecheck includecheckintext
+% --RNDR: renlinear
+/msi {
+
+    0 begin                 % Confine variables to local scope
+
+    /options exch def       % We are given an option string
+    /useropts options def
+    /barcode exch def       % We are given a barcode string
+
+    /includecheck false def  % Enable/disable checkdigit
+    /includetext false def   % Enable/disable text
+    /includecheckintext false def
+    /textfont /Courier def
+    /textsize 10 def
+    /textyoffset -7 def
+    /height 1 def
+    
+    % Parse the input options
+    options {
+        token false eq {exit} if dup length string cvs (=) search
+        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
+    } loop
+    
+    /textfont textfont cvlit def
+    /textsize textsize cvr def
+    /textyoffset textyoffset cvr def
+    /height height cvr def
+    
+    % Create an array containing the character mappings
+    /encs
+    [ (13131313) (13131331) (13133113) (13133131) (13311313)
+      (13311331) (13313113) (13313131) (31131313) (31131331)
+      (31) (131)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789) def
+
+    /barlen barcode length def     % Length of the code
+
+    includecheck {
+        /sbs barlen 8 mul 13 add string def
+        /txt barlen 1 add array def
+    } {
+        /sbs barlen 8 mul 5 add string def
+        /txt barlen array def
+    } ifelse
+
+
+    % Put start character
+    sbs 0 encs 10 get putinterval
+    /checksum 0 def
+
+    0 1 barlen 1 sub {
+        /i exch def
+        % Lookup the encoding for the each barcode character
+        barcode i 1 getinterval barchars exch search
+        pop                                % Discard true leaving pre
+        length /indx exch def              % indx is the length of pre
+        pop pop                            % Discard seek and post
+        /enc encs indx get def             % Get the indxth encoding
+        sbs i 8 mul 2 add enc putinterval  % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 16 mul 4 add textyoffset textfont textsize] put
+        barlen i sub 2 mod 0 eq {
+            /checksum indx checksum add def
+        } {
+            /checksum indx 2 mul dup 10 idiv add checksum add def
+        } ifelse
+    } for
+
+    % Put the checksum and end characters
+    includecheck {
+        /checksum 10 checksum 10 mod sub 10 mod def
+        sbs barlen 8 mul 2 add encs checksum get putinterval
+        includecheckintext {
+            txt barlen [barchars checksum 1 getinterval barlen 16 mul 4 add textyoffset textfont textsize] put
+        } {
+            txt barlen [( ) barlen 16 mul 4 add textyoffset textfont textsize] put
+        } ifelse
+        sbs barlen 8 mul 10 add encs 11 get putinterval
+    } {
+        sbs barlen 8 mul 2 add encs 11 get putinterval
+    } ifelse
+
+    % Return the arguments
+    /retval 8 dict def
+    retval (ren) (renlinear) put
+    retval (sbs) [sbs {48 sub} forall] put
+    retval (bhs) [sbs length 1 add 2 idiv {height} repeat] put
+    retval (bbs) [sbs length 1 add 2 idiv {0} repeat] put
+    includetext {
+        retval (txt) txt put
+    } if
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/msi load 0 1 dict put

data/lib/rghost_barcode/ps/onecode.ps

@@ -0,0 +1,276 @@
+
+% --DESC: United States Postal Service OneCode
+% --EXAM: 0123456709498765432101234567891
+% --EXOP: barcolor=FF0000
+% --RNDR: renlinear
+/onecode {
+
+    0 begin
+
+    /options exch def              % We are given an option string
+    /useropts options def
+    /barcode exch def              % We are given a barcode string
+
+    /height 0.175 def
+    
+    % Parse the input options
+    options {
+        token false eq {exit} if dup length string cvs (=) search
+        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
+    } loop
+    
+    /height height cvr def
+
+    /barlen barcode length def
+ 
+    % Create the human readable text
+    /txt barcode length array def
+    0 1 barcode length 1 sub {
+        /i exch def
+        txt i [barcode i 1 getinterval 0 0 () 0] put
+    } for
+
+    /normalize {
+        /base exch def
+        /num exch def
+        num length 1 sub -1 1 {
+            /i exch def        
+            num i 1 sub 2 copy get num i get base idiv add put
+            num i num i get base mod put
+        } for
+        { %loop - extend input as necessary
+            num 0 get base lt {exit} if
+            /num [0 num {} forall] def        
+            num 0 num 0 get num 1 get base idiv add put
+            num 1 num 1 get base mod put
+        } loop
+        % Trim leading zeros
+        /num [/i true def num {dup 0 eq i and {pop} {/i false def} ifelse} forall] def   
+        num length 0 eq {/num [0] def} if
+        num
+    } bind def
+
+    /bigadd {
+        2 copy length exch length
+        2 copy sub abs /offset exch def
+        lt {exch} if
+        /a exch def /b exch def    
+        0 1 b length 1 sub {
+            dup a exch offset add 2 copy get b 5 -1 roll get add put
+        } for
+        a
+    } bind def
+
+    % Conversion of data fields into binary data
+    barlen 20 eq {[0]} if
+    barlen 25 eq {[1]} if
+    barlen 29 eq {[1 0 0 0 0 1]} if
+    barlen 31 eq {[1 0 0 0 1 0 0 0 0 1]} if
+    /binval exch [barcode 20 barlen 20 sub getinterval {48 sub} forall] bigadd def
+    /binval [binval {} forall barcode 0 get 48 sub] def
+    /binval [binval {5 mul} forall] [barcode 1 get 48 sub] bigadd 10 normalize def
+    /binval [binval {} forall barcode 2 18 getinterval {48 sub} forall] def
+
+    % Conversion of binary data into byte array
+    /bytes 13 array def
+    /bintmp [binval {} forall] def
+    12 -1 0 {
+        /i exch def
+        0 1 bintmp length 2 sub {
+            /j exch def
+            bintmp j 1 add 2 copy get bintmp j get 256 mod 10 mul add put
+            bintmp j bintmp j get 256 idiv put
+        } for
+        bytes i bintmp bintmp length 1 sub get 256 mod put
+        bintmp bintmp length 1 sub 2 copy get 256 idiv put    
+    } for
+
+    % Generation of 11-bit CRC on byte array
+    /fcs 2047 def
+    /dat bytes 0 get 5 bitshift def
+    6 {
+        fcs dat xor 1024 and 0 ne {
+            /fcs fcs 1 bitshift 3893 xor def 
+        } {
+            /fcs fcs 1 bitshift def
+        } ifelse
+        /fcs fcs 2047 and def
+        /dat dat 1 bitshift def
+    } repeat
+    1 1 12 {
+        bytes exch get 3 bitshift /dat exch def    
+        8 {        
+            fcs dat xor 1024 and 0 ne {
+                /fcs fcs 1 bitshift 3893 xor def 
+            } {
+                /fcs fcs 1 bitshift def
+            } ifelse
+            /fcs fcs 2047 and def
+            /dat dat 1 bitshift def
+        } repeat
+    } for
+
+    % Conversion from binary data to codewords
+    /codewords 10 array def
+    9 -1 0 {
+        /i exch def
+        i 9 eq {
+            /b 636 def
+        } {
+            /b 1365 def
+        } ifelse
+        0 1 binval length 2 sub {
+            /j exch def
+            binval j 1 add 2 copy get binval j get b mod 10 mul add put
+            binval j binval j get b idiv put
+        } for   
+        codewords i binval binval length 1 sub get b mod put
+        binval binval length 1 sub 2 copy get b idiv put
+    } for
+
+    % Inserting additional information into codewords
+    codewords 9 codewords 9 get 2 mul put
+    fcs 1024 and 0 ne {
+        codewords 0 codewords 0 get 659 add put
+    } if
+
+    % Conversion from codewords to characters
+    /tab513 1287 dict def
+    /lo 0 def
+    /hi 1286 def
+    0 1 8191 {   
+        { % no loop - provides common exit point
+            /i exch def
+            /onbits 0 def
+            0 1 12 {           
+                i exch 1 exch bitshift and 0 ne {
+                    /onbits onbits 1 add def
+                } if
+            } for
+            onbits 5 ne {exit} if
+            /j i def
+            /rev 0 def
+            16 {            
+                /rev rev 1 bitshift j 1 and or def
+                /j j -1 bitshift def                
+            } repeat          
+            /rev rev -3 bitshift def            
+            rev i lt {exit} if
+            rev i eq {
+                tab513 hi i put
+                /hi hi 1 sub def
+            } {
+                tab513 lo i put
+                tab513 lo 1 add rev put
+                /lo lo 2 add def                      
+            } ifelse
+            exit
+        } loop
+    } for
+
+    /tab213 78 dict def
+    /lo 0 def
+    /hi 77 def
+    0 1 8191 {   
+        { % no loop - provides common exit point
+            /i exch def
+            /onbits 0 def
+            0 1 12 {           
+                i exch 1 exch bitshift and 0 ne {
+                    /onbits onbits 1 add def
+                } if
+            } for
+            onbits 2 ne {exit} if
+            /j i def
+            /rev 0 def
+            16 {            
+                /rev rev 1 bitshift j 1 and or def
+                /j j -1 bitshift def                
+            } repeat          
+            /rev rev -3 bitshift def            
+            rev i lt {exit} if
+            rev i eq {
+                tab213 hi i put
+                /hi hi 1 sub def
+            } {
+                tab213 lo i put
+                tab213 lo 1 add rev put
+                /lo lo 2 add def                      
+            } ifelse
+            exit
+        } loop
+    } for
+
+    /chars 10 array def
+    0 1 9 {
+        /i exch def
+        codewords i get dup 1286 le {
+            tab513 exch get 
+        } {
+            tab213 exch 1287 sub get
+        } ifelse
+        chars i 3 -1 roll put
+    } for
+
+    9 -1 0 {
+        /i exch def
+        2 i exp cvi fcs and 0 ne {
+            chars i chars i get 8191 xor put
+        } if
+    } for
+
+    % Conversion from characters to the OneCode encoding
+    /barmap [
+        7 2 4 3    1 10 0 0   9 12 2 8   5 5 6 11   8 9 3 1
+        0 1 5 12   2 5 1 8    4 4 9 11   6 3 8 10   3 9 7 6
+        5 11 1 4   8 5 2 12   9 10 0 2   7 1 6 7    3 6 4 9
+        0 3 8 6    6 4 2 7    1 1 9 9    7 10 5 2   4 0 3 8
+        6 2 0 4    8 11 1 0   9 8 3 12   2 6 7 7    5 1 4 10
+        1 12 6 9   7 3 8 0    5 8 9 7    4 6 2 10   3 4 0 5
+        8 4 5 7    7 11 1 9   6 0 9 6    0 6 4 8    2 1 3 2
+        5 9 8 12   4 11 6 1   9 5 7 4    3 3 1 2    0 7 2 0
+        1 3 4 1    6 10 3 5   8 7 9 4    2 11 5 6   0 8 7 12
+        4 2 8 1    5 10 3 0   9 3 0 9    6 5 2 4    7 8 1 7
+        5 0 4 5    2 3 0 10   6 12 9 2   3 11 1 6   8 8 7 9
+        5 4 0 11   1 5 2 2    9 1 4 12   8 3 6 6    7 0 3 7
+        4 7 7 5    0 12 1 11  2 9 9 0    6 8 5 3    3 10 8 2
+    ] def
+
+    /bbs 65 array def    
+    /bhs 65 array def
+    0 1 64 {
+        /i exch def
+        /dec chars barmap i 4 mul get get 2 barmap i 4 mul 1 add get exp cvi and 0 ne def
+        /asc chars barmap i 4 mul 2 add get get 2 barmap i 4 mul 3 add get exp cvi and 0 ne def
+        dec not asc not and {
+            bbs i 3 height mul 8 div put
+            bhs i 2 height mul 8 div put
+        } if
+        dec not asc and {
+            bbs i 3 height mul 8 div put
+            bhs i 5 height mul 8 div put        
+        } if
+        dec asc not and {
+            bbs i 0 height mul 8 div put
+            bhs i 5 height mul 8 div put        
+        } if
+        dec asc and {
+            bbs i 0 height mul 8 div put
+            bhs i 8 height mul 8 div put        
+        } if
+    } for
+    
+    /retval 8 dict def
+    retval (ren) (renlinear) put
+    retval (bbs) bbs put
+    retval (bhs) bhs put
+    retval (sbs) [bhs length 1 sub {1.44 1.872} repeat 1.44] put    
+    retval (txt) txt put
+    retval (textxalign) (center) put
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/onecode load 0 1 dict put

data/lib/rghost_barcode/ps/pdf417.ps

@@ -0,0 +1,428 @@
+
+% --DESC: PDF417
+% --EXAM: ^453^178^121^239
+% --EXOP: columns=2 rows=10
+% --RNDR: renmatrix
+/pdf417 {
+
+    0 begin
+
+    /options exch def
+    /useropts options def
+    /barcode exch def
+
+    /compact false def
+    /eclevel -1 def
+    /columns 0 def
+    /rows 0 def
+    /rowmult 3 def
+
+    % Parse the input options
+    options {
+        token false eq {exit} if dup length string cvs (=) search
+        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
+    } loop
+
+    /eclevel eclevel cvi def
+    /columns columns cvi def
+    /rows rows cvi def
+    /rowmult rowmult cvr def
+
+    % Split the input barcode into an array of codewords
+    /datcws barcode length array def
+    /i 0 def /j 0 def
+    { % loop
+        i barcode length eq {exit} if
+        /cw barcode i 1 add 3 getinterval cvi def
+        datcws j cw put
+        /i i 4 add def
+        /j j 1 add def
+    } loop
+    /datcws datcws 0 j getinterval def
+
+    % Determine the error correction level if unspecified
+    /m datcws length def
+    eclevel -1 eq {
+        m 40 le {/eclevel 2 def} if
+        m 41 ge m 160 le and {/eclevel 3 def} if
+        m 161 ge m 320 le and {/eclevel 4 def} if
+        m 321 ge {/eclevel 5 def} if
+    } if
+
+    % Reduce the error level so that it does not cause an excessive number of codewords
+    /maxeclevel 928 1 sub m sub ln 2 ln div cvi 1 sub def
+    eclevel maxeclevel gt {/eclevel maxeclevel def} if
+    /k 2 eclevel 1 add exp cvi def
+
+    % To determine size of matrix, number of columns if given by user...
+    columns 1 ge columns 30 le and {/c columns def} if
+
+    % ... and rows is greater of those required and that given by user within limits
+    /r m k add 1 add columns div ceiling cvi def  % Required
+    r rows lt rows 90 le and {/r rows def} if
+    r 3 lt {/r 3 def} if
+
+    % Opportunistically raise the error level if a better fit to the matrix is possible
+    /maxeclevel c r mul 1 sub m sub ln 2 ln div cvi 1 sub def
+    maxeclevel eclevel gt {
+      /eclevel maxeclevel def
+      /k 2 eclevel 1 add exp cvi def
+    } if
+
+    % Create codewords array with one extra working space element and add padding
+    /n c r mul k sub def
+    /cws c r mul 1 add array def
+    cws 0 n put
+    cws 1 datcws putinterval
+    cws m 1 add [ n m sub 1 sub {900} repeat ] putinterval
+    cws n [ k {0} repeat 0 ] putinterval
+
+    % Calculate the log and anti-log tables
+    /rslog [ -928 928 {0} repeat ] def
+    /rsalog [ 1 928 {0} repeat ] def
+    1 1 928 {
+        /i exch def
+        rsalog i rsalog i 1 sub get 3 mul put
+        rsalog i get 928 ge { rsalog i rsalog i get 929 mod put } if
+        rslog rsalog i get i put
+    } for
+
+    % Function to calculate the product in the field
+    /rsprod {
+        /y exch def
+        /x exch def
+        x y mul 0 ne { 
+            rsalog rslog x get rslog y get add 928 mod get
+        } {
+            0
+        } ifelse
+    } bind def
+
+    % Generate the coefficients
+    /coeffs [ 1 k {0} repeat ] def
+    1 1 k {
+        /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 add 929 mod put
+        } for 
+        coeffs 0 coeffs 0 get rsalog i get rsprod put
+    } for
+    /coeffs coeffs 0 coeffs length 1 sub getinterval def
+    1 2 coeffs length 1 sub {coeffs exch 2 copy get 929 exch sub put} for
+
+    % Derive the error codewords
+    0 1 n 1 sub {
+        /t exch cws exch get cws n get add 929 mod def
+        0 1 k 1 sub {
+            /j exch def
+            cws n j add cws n j add 1 add get 929 t coeffs k j sub 1 sub get mul 929 mod sub add 929 mod put
+        } for
+    } for
+    n 1 n k add { dup cws exch 929 cws 5 -1 roll get sub put } for
+
+    % Trim the working space from the end of the codewords
+    /cws cws 0 cws length 1 sub getinterval def
+
+    % Base 10 encoding of the bar space successions for the codewords in each cluster
+    /clusters [
+        [
+            120256 125680 128380 120032 125560 128318 108736 119920 108640  86080 108592  86048
+            110016 120560 125820 109792 120440 125758  88256 109680  88160  89536 110320 120700
+             89312 110200 120638  89200 110140  89840 110460  89720 110398  89980 128506 119520
+            125304 128190 107712 119408 125244 107616 119352  84032 107568 119324  84000 107544
+             83984 108256 119672 125374  85184 108144 119612  85088 108088 119582  85040 108060
+             85728 108408 119742  85616 108348  85560 108318  85880 108478  85820  85790 107200
+            119152 125116 107104 119096 125086  83008 107056 119068  82976 107032  82960  82952
+             83648 107376 119228  83552 107320 119198  83504 107292  83480  83468  83824 107452
+             83768 107422  83740  83900 106848 118968 125022  82496 106800 118940  82464 106776
+            118926  82448 106764  82440 106758  82784 106936 119006  82736 106908  82712 106894
+             82700  82694 106974  82830  82240 106672 118876  82208 106648 118862  82192 106636
+             82184 106630  82180  82352  82328  82316  82080 118830 106572 106566  82050 117472
+            124280 127678 103616 117360 124220 103520 117304 124190  75840 103472  75808 104160
+            117624 124350  76992 104048 117564  76896 103992  76848  76824  77536 104312 117694
+             77424 104252  77368  77340  77688 104382  77628  77758 121536 126320 128700 121440
+            126264 128670 111680 121392 126236 111648 121368 126222 111632 121356 103104 117104
+            124092 112320 103008 117048 124062 112224 121656 126366  93248  74784 102936 117006
+             93216 112152  93200  75456 103280 117180  93888  75360 103224 117150  93792 112440
+            121758  93744  75288  93720  75632 103356  94064  75576 103326  94008 112542  93980
+             75708  94140  75678  94110 121184 126136 128606 111168 121136 126108 111136 121112
+            126094 111120 121100 111112 111108 102752 116920 123998 111456 102704 116892  91712
+             74272 121244 116878  91680  74256 102668  91664 111372 102662  74244  74592 102840
+            116958  92000  74544 102812  91952 111516 102798  91928  74508  74502  74680 102878
+             92088  74652  92060  74638  92046  92126 110912 121008 126044 110880 120984 126030
+            110864 120972 110856 120966 110852 110850  74048 102576 116828  90944  74016 102552
+            116814  90912 111000 121038  90896  73992 102534  90888 110982  90884  74160 102620
+             91056  74136 102606  91032 111054  91020  74118  91014  91100  91086 110752 120920
+            125998 110736 120908 110728 120902 110724 110722  73888 102488 116782  90528  73872
+            102476  90512 110796 102470  90504  73860  90500  73858  73944  90584  90572  90566
+            120876 120870 110658 102444  73800  90312  90308  90306 101056 116080 123580 100960
+            116024  70720 100912 115996  70688 100888  70672  70664  71360 101232 116156  71264
+            101176 116126  71216 101148  71192  71180  71536 101308  71480 101278  71452  71612
+             71582 118112 124600 127838 105024 118064 124572 104992 118040 124558 104976 118028
+            104968 118022 100704 115896 123486 105312 100656 115868  79424  70176 118172 115854
+             79392 105240 100620  79376  70152  79368  70496 100792 115934  79712  70448 118238
+             79664 105372 100750  79640  70412  79628  70584 100830  79800  70556  79772  70542
+             70622  79838 122176 126640 128860 122144 126616 128846 122128 126604 122120 126598
+            122116 104768 117936 124508 113472 104736 126684 124494 113440 122264 126670 113424
+            104712 117894 113416 122246 104706  69952 100528 115804  78656  69920 100504 115790
+             96064  78624 104856 117966  96032 113560 122318 100486  96016  78600 104838  96008
+             69890  70064 100572  78768  70040 100558  96176  78744 104910  96152 113614  70022
+             78726  70108  78812  70094  96220  78798 122016 126552 128814 122000 126540 121992
+            126534 121988 121986 104608 117848 124462 113056 104592 126574 113040 122060 117830
+            113032 104580 113028 104578 113026  69792 100440 115758  78240  69776 100428  95136
+             78224 104652 100422  95120 113100  69764  95112  78212  69762  78210  69848 100462
+             78296  69836  95192  78284  69830  95180  78278  69870  95214 121936 126508 121928
+            126502 121924 121922 104528 117804 112848 104520 117798 112840 121958 112836 104514
+            112834  69712 100396  78032  69704 100390  94672  78024 104550  94664 112870  69698
+             94660  78018  94658  78060  94700  94694 126486 121890 117782 104484 104482  69672
+             77928  94440  69666  77922  99680  68160  99632  68128  99608 115342  68112  99596
+             68104  99590  68448  99768 115422  68400  99740  68376  99726  68364  68358  68536
+             99806  68508  68494  68574 101696 116400 123740 101664 116376 101648 116364 101640
+            116358 101636  67904  99504 115292  72512  67872 116444 115278  72480 101784 116430
+             72464  67848  99462  72456 101766  67842  68016  99548  72624  67992  99534  72600
+            101838  72588  67974  68060  72668  68046  72654 118432 124760 127918 118416 124748
+            118408 124742 118404 118402 101536 116312 105888 101520 116300 105872 118476 116294
+            105864 101508 105860 101506 105858  67744  99416  72096  67728 116334  80800  72080
+            101580  99398  80784 105932  67716  80776  72068  67714  72066  67800  99438  72152
+             67788  80856  72140  67782  80844  72134  67822  72174  80878 126800 128940 126792
+            128934 126788 126786 118352 124716 122576 126828 124710 122568 126822 122564 118338
+            122562 101456 116268 105680 101448 116262 114128 105672 118374 114120 122598 101442
+            114116 105666 114114  67664  99372  71888  67656  99366  80336  71880 101478  97232
+             80328 105702  67650  97224 114150  71874  97220  67692  71916  67686  80364  71910
+             97260  80358  97254 126760 128918 126756 126754 118312 124694 122472 126774 122468
+            118306 122466 101416 116246 105576 101412 113896 105572 101410 113892 105570 113890
+             67624  99350  71784 101430  80104  71780  67618  96744  80100  71778  96740  80098
+             96738  71798  96758 126738 122420 122418 105524 113780 113778  71732  79988  96500
+             96498  66880  66848  98968  66832  66824  66820  66992  66968  66956  66950  67036
+             67022 100000  99984 115532  99976 115526  99972  99970  66720  98904  69024 100056
+             98892  69008 100044  69000 100038  68996  66690  68994  66776  98926  69080 100078
+             69068  66758  69062  66798  69102 116560 116552 116548 116546  99920 102096 116588
+            115494 102088 116582 102084  99906 102082  66640  68816  66632  98854  73168  68808
+             66628  73160  68804  66626  73156  68802  66668  68844  66662  73196  68838  73190
+            124840 124836 124834 116520 118632 124854 118628 116514 118626  99880 115478 101992
+            116534 106216 101988  99874 106212 101986 106210  66600  98838  68712  99894  72936
+             68708  66594  81384  72932  68706  81380  72930  66614  68726  72950  81398 128980
+            128978 124820 126900 124818 126898 116500 118580 116498 122740 118578 122738  99860
+            101940  99858 106100 101938 114420
+        ] [
+            128352 129720 125504 128304 129692 125472 128280 129678 125456 128268 125448 128262
+            125444 125792 128440 129758 120384 125744 128412 120352 125720 128398 120336 125708
+            120328 125702 120324 120672 125880 128478 110144 120624 125852 110112 120600 125838
+            110096 120588 110088 120582 110084 110432 120760 125918  89664 110384 120732  89632
+            110360 120718  89616 110348  89608 110342  89952 110520 120798  89904 110492  89880
+            110478  89868  90040 110558  90012  89998 125248 128176 129628 125216 128152 129614
+            125200 128140 125192 128134 125188 125186 119616 125360 128220 119584 125336 128206
+            119568 125324 119560 125318 119556 119554 108352 119728 125404 108320 119704 125390
+            108304 119692 108296 119686 108292 108290  85824 108464 119772  85792 108440 119758
+             85776 108428  85768 108422  85764  85936 108508  85912 108494  85900  85894  85980
+             85966 125088 128088 129582 125072 128076 125064 128070 125060 125058 119200 125144
+            128110 119184 125132 119176 125126 119172 119170 107424 119256 125166 107408 119244
+            107400 119238 107396 107394  83872 107480 119278  83856 107468  83848 107462  83844
+             83842  83928 107502  83916  83910  83950 125008 128044 125000 128038 124996 124994
+            118992 125036 118984 125030 118980 118978 106960 119020 106952 119014 106948 106946
+             82896 106988  82888 106982  82884  82882  82924  82918 124968 128022 124964 124962
+            118888 124982 118884 118882 106728 118902 106724 106722  82408 106742  82404  82402
+            124948 124946 118836 118834 106612 106610 124224 127664 129372 124192 127640 129358
+            124176 127628 124168 127622 124164 124162 117568 124336 127708 117536 124312 127694
+            117520 124300 117512 124294 117508 117506 104256 117680 124380 104224 117656 124366
+            104208 117644 104200 117638 104196 104194  77632 104368 117724  77600 104344 117710
+             77584 104332  77576 104326  77572  77744 104412  77720 104398  77708  77702  77788
+             77774 128672 129880  93168 128656 129868  92664 128648 129862  92412 128644 128642
+            124064 127576 129326 126368 124048 129902 126352 128716 127558 126344 124036 126340
+            124034 126338 117152 124120 127598 121760 117136 124108 121744 126412 124102 121736
+            117124 121732 117122 121730 103328 117208 124142 112544 103312 117196 112528 121804
+            117190 112520 103300 112516 103298 112514  75680 103384 117230  94112  75664 103372
+             94096 112588 103366  94088  75652  94084  75650  75736 103406  94168  75724  94156
+             75718  94150  75758 128592 129836  91640 128584 129830  91388 128580  91262 128578
+            123984 127532 126160 123976 127526 126152 128614 126148 123970 126146 116944 124012
+            121296 116936 124006 121288 126182 121284 116930 121282 102864 116972 111568 102856
+            116966 111560 121318 111556 102850 111554  74704 102892  92112  74696 102886  92104
+            111590  92100  74690  92098  74732  92140  74726  92134 128552 129814  90876 128548
+             90750 128546 123944 127510 126056 128566 126052 123938 126050 116840 123958 121064
+            116836 121060 116834 121058 102632 116854 111080 121078 111076 102626 111074  74216
+            102646  91112  74212  91108  74210  91106  74230  91126 128532  90494 128530 123924
+            126004 123922 126002 116788 120948 116786 120946 102516 110836 102514 110834  73972
+             90612  73970  90610 128522 123914 125978 116762 120890 102458 110714 123552 127320
+            129198 123536 127308 123528 127302 123524 123522 116128 123608 127342 116112 123596
+            116104 123590 116100 116098 101280 116184 123630 101264 116172 101256 116166 101252
+            101250  71584 101336 116206  71568 101324  71560 101318  71556  71554  71640 101358
+             71628  71622  71662 127824 129452  79352 127816 129446  79100 127812  78974 127810
+            123472 127276 124624 123464 127270 124616 127846 124612 123458 124610 115920 123500
+            118224 115912 123494 118216 124646 118212 115906 118210 100816 115948 105424 100808
+            115942 105416 118246 105412 100802 105410  70608 100844  79824  70600 100838  79816
+            105446  79812  70594  79810  70636  79852  70630  79846 129960  95728 113404 129956
+             95480 113278 129954  95356  95294 127784 129430  78588 128872 129974  95996  78462
+            128868 127778  95870 128866 123432 127254 124520 123428 126696 128886 123426 126692
+            124514 126690 115816 123446 117992 115812 122344 117988 115810 122340 117986 122338
+            100584 115830 104936 100580 113640 104932 100578 113636 104930 113634  70120 100598
+             78824  70116  96232  78820  70114  96228  78818  96226  70134  78838 129940  94968
+            113022 129938  94844  94782 127764  78206 128820 127762  95102 128818 123412 124468
+            123410 126580 124466 126578 115764 117876 115762 122100 117874 122098 100468 104692
+            100466 113140 104690 113138  69876  78324  69874  95220  78322  95218 129930  94588
+             94526 127754 128794 123402 124442 126522 115738 117818 121978 100410 104570 112890
+             69754  78074  94714  94398 123216 127148 123208 127142 123204 123202 115408 123244
+            115400 123238 115396 115394  99792 115436  99784 115430  99780  99778  68560  99820
+             68552  99814  68548  68546  68588  68582 127400 129238  72444 127396  72318 127394
+            123176 127126 123752 123172 123748 123170 123746 115304 123190 116456 115300 116452
+            115298 116450  99560 115318 101864  99556 101860  99554 101858  68072  99574  72680
+             68068  72676  68066  72674  68086  72694 129492  80632 105854 129490  80508  80446
+            127380  72062 127924 127378  80766 127922 123156 123700 123154 124788 123698 124786
+            115252 116340 115250 118516 116338 118514  99444 101620  99442 105972 101618 105970
+             67828  72180  67826  80884  72178  80882  97008 114044  96888 113982  96828  96798
+            129482  80252 130010  97148  80190  97086 127370 127898 128954 123146 123674 124730
+            126842 115226 116282 118394 122618  99386 101498 105722 114170  67706  71930  80378
+             96632 113854  96572  96542  80062  96702  96444  96414  96350 123048 123044 123042
+            115048 123062 115044 115042  99048 115062  99044  99042  67048  99062  67044  67042
+             67062 127188  68990 127186 123028 123316 123026 123314 114996 115572 114994 115570
+             98932 100084  98930 100082  66804  69108  66802  69106 129258  73084  73022 127178
+            127450 123018 123290 123834 114970 115514 116602  98874  99962 102138  66682  68858
+             73210  81272 106174  81212  81182  72894  81342  97648 114364  97592 114334  97564
+             97550  81084  97724  81054  97694  97464 114270  97436  97422  80990  97502  97372
+             97358  97326 114868 114866  98676  98674  66292  66290 123098 114842 115130  98618
+             99194  66170  67322  69310  73404  73374  81592 106334  81564  81550  73310  81630
+             97968 114524  97944 114510  97932  97926  81500  98012  81486  97998  97880 114478
+             97868  97862  81454  97902  97836  97830  69470  73564  73550  81752 106414  81740
+             81734  73518  81774  81708  81702
+        ] [
+            109536 120312  86976 109040 120060  86496 108792 119934  86256 108668  86136 129744
+             89056 110072 129736  88560 109820 129732  88312 109694 129730  88188 128464 129772
+             89592 128456 129766  89340 128452  89214 128450 125904 128492 125896 128486 125892
+            125890 120784 125932 120776 125926 120772 120770 110544 120812 110536 120806 110532
+             84928 108016 119548  84448 107768 119422  84208 107644  84088 107582  84028 129640
+             85488 108284 129636  85240 108158 129634  85116  85054 128232 129654  85756 128228
+             85630 128226 125416 128246 125412 125410 119784 125430 119780 119778 108520 119798
+            108516 108514  83424 107256 119166  83184 107132  83064 107070  83004  82974 129588
+             83704 107390 129586  83580  83518 128116  83838 128114 125172 125170 119284 119282
+            107508 107506  82672 106876  82552 106814  82492  82462 129562  82812  82750 128058
+            125050 119034  82296 106686  82236  82206  82366  82108  82078  76736 103920 117500
+             76256 103672 117374  76016 103548  75896 103486  75836 129384  77296 104188 129380
+             77048 104062 129378  76924  76862 127720 129398  77564 127716  77438 127714 124392
+            127734 124388 124386 117736 124406 117732 117730 104424 117750 104420 104418 112096
+            121592 126334  92608 111856 121468  92384 111736 121406  92272 111676  92216 111646
+             92188  75232 103160 117118  93664  74992 103036  93424 112252 102974  93304  74812
+             93244  74782  93214 129332  75512 103294 129908 129330  93944  75388 129906  93820
+             75326  93758 127604  75646 128756 127602  94078 128754 124148 126452 124146 126450
+            117236 121844 117234 121842 103412 103410  91584 111344 121212  91360 111224 121150
+             91248 111164  91192 111134  91164  91150  74480 102780  91888  74360 102718  91768
+            111422  91708  74270  91678 129306  74620 129850  92028  74558  91966 127546 128634
+            124026 126202 116986 121338 102906  90848 110968 121022  90736 110908  90680 110878
+             90652  90638  74104 102590  91000  74044  90940  74014  90910  74174  91070  90480
+            110780  90424 110750  90396  90382  73916  90556  73886  90526  90296 110686  90268
+             90254  73822  90334  90204  90190  71136 101112 116094  70896 100988  70776 100926
+             70716  70686 129204  71416 101246 129202  71292  71230 127348  71550 127346 123636
+            123634 116212 116210 101364 101362  79296 105200 118140  79072 105080 118078  78960
+            105020  78904 104990  78876  78862  70384 100732  79600  70264 100670  79480 105278
+             79420  70174  79390 129178  70524 129466  79740  70462  79678 127290 127866 123514
+            124666 115962 118266 100858 113376 122232 126654  95424 113264 122172  95328 113208
+            122142  95280 113180  95256 113166  95244  78560 104824 117950  95968  78448 104764
+             95856 113468 104734  95800  78364  95772  78350  95758  70008 100542  78712  69948
+             96120  78652  69918  96060  78622  96030  70078  78782  96190  94912 113008 122044
+             94816 112952 122014  94768 112924  94744 112910  94732  94726  78192 104636  95088
+             78136 104606  95032 113054  95004  78094  94990  69820  78268  69790  95164  78238
+             95134  94560 112824 121950  94512 112796  94488 112782  94476  94470  78008 104542
+             94648  77980  94620  77966  94606  69726  78046  94686  94384 112732  94360 112718
+             94348  94342  77916  94428  77902  94414  94296 112686  94284  94278  77870  94318
+             94252  94246  68336  99708  68216  99646  68156  68126  68476  68414 127162 123258
+            115450  99834  72416 101752 116414  72304 101692  72248 101662  72220  72206  67960
+             99518  72568  67900  72508  67870  72478  68030  72638  80576 105840 118460  80480
+            105784 118430  80432 105756  80408 105742  80396  80390  72048 101564  80752  71992
+            101534  80696  71964  80668  71950  80654  67772  72124  67742  80828  72094  80798
+            114016 122552 126814  96832 113968 122524  96800 113944 122510  96784 113932  96776
+            113926  96772  80224 105656 118366  97120  80176 105628  97072 114076 105614  97048
+             80140  97036  80134  97030  71864 101470  80312  71836  97208  80284  71822  97180
+             80270  97166  67678  71902  80350  97246  96576 113840 122460  96544 113816 122446
+             96528 113804  96520 113798  96516  96514  80048 105564  96688  80024 105550  96664
+            113870  96652  80006  96646  71772  80092  71758  96732  80078  96718  96416 113752
+            122414  96400 113740  96392 113734  96388  96386  79960 105518  96472  79948  96460
+             79942  96454  71726  79982  96494  96336 113708  96328 113702  96324  96322  79916
+             96364  79910  96358  96296 113686  96292  96290  79894  96310  66936  99006  66876
+             66846  67006  68976 100028  68920  99998  68892  68878  66748  69052  66718  69022
+             73056 102072 116574  73008 102044  72984 102030  72972  72966  68792  99934  73144
+             68764  73116  68750  73102  66654  68830  73182  81216 106160 118620  81184 106136
+            118606  81168 106124  81160 106118  81156  81154  72880 101980  81328  72856 101966
+             81304 106190  81292  72838  81286  68700  72924  68686  81372  72910  81358 114336
+            122712 126894 114320 122700 114312 122694 114308 114306  81056 106072 118574  97696
+             81040 106060  97680 114380 106054  97672  81028  97668  81026  97666  72792 101934
+             81112  72780  97752  81100  72774  97740  81094  97734  68654  72814  81134  97774
+            114256 122668 114248 122662 114244 114242  80976 106028  97488  80968 106022  97480
+            114278  97476  80962  97474  72748  81004  72742  97516  80998  97510 114216 122646
+            114212 114210  80936 106006  97384  80932  97380  80930  97378  72726  80950  97398
+            114196 114194  80916  97332  80914  97330  66236  66206  67256  99166  67228  67214
+             66142  67294  69296 100188  69272 100174  69260  69254  67164  69340  67150  69326
+             73376 102232 116654  73360 102220  73352 102214  73348  73346  69208 100142  73432
+            102254  73420  69190  73414  67118  69230  73454 106320 118700 106312 118694 106308
+            106306  73296 102188  81616 106348 102182  81608  73284  81604  73282  81602  69164
+             73324  69158  81644  73318  81638 122792 126934 122788 122786 106280 118678 114536
+            106276 114532 106274 114530  73256 102166  81512  73252  98024  81508  73250  98020
+             81506  98018  69142  73270  81526  98038 122772 122770 106260 114484 106258 114482
+             73236  81460  73234  97908  81458  97906 122762 106250 114458  73226  81434  97850
+             66396  66382  67416  99246  67404  67398  66350  67438  69456 100268  69448 100262
+             69444  69442  67372  69484  67366  69478 102312 116694 102308 102306  69416 100246
+             73576 102326  73572  69410  73570  67350  69430  73590 118740 118738 102292 106420
+            102290 106418  69396  73524  69394  81780  73522  81778 118730 102282 106394  69386
+             73498  81722  66476  66470  67496  99286  67492  67490  66454  67510 100308 100306
+             67476  69556  67474  69554 116714
+        ]
+    ] def
+
+    % Return the 17 bits for a codeword in a given cluster
+    /cwtobits {
+        clusters exch get exch get /v exch def
+        [ 17 {0} repeat v 2 17 string cvrs {48 sub} forall ]
+        dup length 17 sub 17 getinterval
+    } bind def
+
+    % Populate bitmap for the image
+    compact {
+        /rwid 17 c mul 17 add 17 add 1 add def
+    } {
+        /rwid 17 c mul 17 add 17 add 17 add 18 add def
+    } ifelse
+    /pixs rwid r mul array def
+
+   0 1 r 1 sub {
+        /i exch def
+
+        i 3 mod 0 eq {
+            /lcw i 3 idiv 30 mul r 1 sub 3 idiv add def
+            /rcw i 3 idiv 30 mul c add 1 sub def
+        } if
+        i 3 mod 1 eq {
+            /lcw i 3 idiv 30 mul eclevel 3 mul add r 1 sub 3 mod add def
+            /rcw i 3 idiv 30 mul r 1 sub 3 idiv add def
+        } if
+        i 3 mod 2 eq {
+            /lcw i 3 idiv 30 mul c add 1 sub def
+            /rcw i 3 idiv 30 mul eclevel 3 mul add r 1 sub 3 mod add def
+        } if
+
+        pixs rwid i mul [
+            1 1 1 1 1 1 1 1 0 1 0 1 0 1 0 0 0
+            lcw i 3 mod cwtobits {} forall
+            cws c i mul c getinterval { i 3 mod cwtobits {} forall } forall
+            compact {
+                1
+            } {
+                rcw i 3 mod cwtobits {} forall
+                1 1 1 1 1 1 1 0 1 0 0 0 1 0 1 0 0 1
+            } ifelse
+        ] putinterval
+
+    } for
+
+    /retval 7 dict def
+    retval (ren) (renmatrix) put
+    retval (pixs) pixs put
+    retval (pixx) rwid put
+    retval (pixy) r put
+    retval (height) r 72 div rowmult mul put
+    retval (width) rwid 72 div put
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/pdf417 load 0 1 dict put