rghost_barcode 0.8 → 0.9

data/lib/rghost_barcode/ps/msi.ps

@@ -1,104 +0,0 @@
-
-% --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

@@ -1,276 +0,0 @@
-
-% --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

@@ -1,428 +0,0 @@
-
-% --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