rghost_barcode 0.8 → 0.9

data/lib/rghost_barcode/ps/rssexpanded.ps

@@ -1,211 +0,0 @@
-
-% --DESC: Reduced Space Symbology Expanded (RSS-Expanded)
-% --EXAM: 000000010011001010100001000000010000
-% --EXOP: height=0.3
-% --RNDR: renlinear
-/rssexpanded {
-
-    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
-
-    /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
-    
-    /height height cvr def
-
-    /getRSSwidths {
-        /oe exch def
-        /mw exch def
-        /nm exch def
-        /val exch def
-        /j 0 def /i 0 def {
-            /v () def
-            mw 1 ne {/v i mw 4 string cvrs def} if
-            0 v {48 sub add} forall 4 add nm eq {
-                /out [ 4 {1} repeat v {47 sub} forall ] v length 4 getinterval def
-                /hasone false def out {1 eq {/hasone true def} if} forall
-                /lessfive out 0 get 5 lt def
-                oe not hasone lessfive and or {
-                    j val eq {exit} if
-                    /j j 1 add def
-                } if
-            } if
-            /i i 1 add def
-        } loop
-        out
-    } bind def
-
-    /binval [barcode {48 sub} forall] def
-    /datalen binval length 12 idiv def
-    
-    /tab174 [
-        347   0     12 5   7 2  87  4
-        1387  348   10 7   5 4  52  20
-        2947  1388  8  9   4 5  30  52
-        3987  2948  6  11  3 6  10  104
-        4191  3988  4  13  1 8  1   204
-    ] def
-
-    /dxw datalen array def
-    
-    0 1 datalen 1 sub {
-
-        /x exch def
-
-        /d binval x 12 mul 12 getinterval def
-        /d 0 0 1 11 {/j exch def 2 11 j sub exp cvi d j get mul add} for def
-
-        /j 0 def {
-            d tab174 j get le {
-                tab174 j 1 add 7 getinterval {} forall
-                /dte exch def /dto exch def
-                /dmwe exch def /dmwo exch def
-                /dele exch def /delo exch def
-                /dgs exch def
-                exit
-            } if
-            /j j 8 add def
-        } loop
-
-        /dwo d dgs sub dte idiv delo dmwo true  getRSSwidths def
-        /dwe d dgs sub dte mod  dele dmwe false getRSSwidths def
-
-        /dw 8 array def        
-        x 2 mod 0 eq {                    
-            0 1 3 {
-                /j exch def
-                dw 7 j 2 mul sub dwo j get put
-                dw 6 j 2 mul sub dwe j get put
-            } for
-        } {           
-            0 1 3 {
-                /j exch def
-                dw j 2 mul dwo j get put
-                dw j 2 mul 1 add dwe j get put
-            } for
-        } ifelse
-
-        dxw x dw put
-
-    } for
-    
-    /widths [
-        dxw {{} forall} forall
-    ] def
-
-    /checkweights [
-        77   96   32   81   27   9    3    1
-        20   60   180  118  143  7    21   63
-        205  209  140  117  39   13   145  189
-        193  157  49   147  19   57   171  91
-        132  44   85   169  197  136  186  62
-        185  133  188  142  4    12   36   108
-        50   87   29   80   97   173  128  113
-        150  28   84   41   123  158  52   156
-        166  196  206  139  187  203  138  46
-        76   17   51   153  37   111  122  155
-        146  119  110  107  106  176  129  43
-        16   48   144  10   30   90   59   177
-        164  125  112  178  200  137  116  109
-        70   210  208  202  184  130  179  115
-        190  204  68   93   31   151  191  134
-        148  22   66   198  172  94   71   2
-        40   154  192  64   162  54   18   6
-        120  149  25   75   14   42   126  167
-        175  199  207  69   23   78   26   79
-        103  98   83   38   114  131  182  124
-        159  53   88   170  127  183  61   161
-        55   165  73   8    24   72   5    15
-        89   100  174  58   160  194  135  45
-    ] def
-    
-    /checksum 0 def
-    0 1 widths length 1 sub {
-        /i exch def
-        /checksum checksum widths i get checkweights i get mul add def 
-    } for
-    /checksum checksum 211 mod datalen 3 sub 211 mul add def
-
-    /i 0 def {
-        checksum tab174 i get le {
-            tab174 i 1 add 7 getinterval {} forall
-            /cte exch def /cto exch def
-            /cmwe exch def /cmwo exch def
-            /cele exch def /celo exch def
-            /cgs exch def
-            exit
-        } if
-        /i i 8 add def
-    } loop
-
-    /cwo checksum cgs sub cte idiv celo cmwo true  getRSSwidths def
-    /cwe checksum cgs sub cte mod  cele cmwe false getRSSwidths def
-    
-    /cw 8 array def        
-    0 1 3 {
-        /i exch def
-        cw i 2 mul cwo i get put
-        cw i 2 mul 1 add cwe i get put
-    } for
-    
-    /finderwidths [
-        1 8 4 1 1    1 1 4 8 1
-        3 6 4 1 1    1 1 4 6 3
-        3 4 6 1 1    1 1 6 4 3
-        3 2 8 1 1    1 1 8 2 3
-        2 6 5 1 1    1 1 5 6 2
-        2 2 9 1 1    1 1 9 2 2
-    ] def
-
-    /finderseq [
-        [0 1]
-        [0 3 2]
-        [0 5 2 7]
-        [0 9 2 7 4]
-        [0 9 2 7 6 11]
-        [0 9 2 7 8 11 10]
-        [0 1 2 3 4 5 6 7]
-        [0 1 2 3 4 5 6 9 8]
-        [0 1 2 3 4 5 6 9 10 11]
-        [0 1 2 3 4 7 6 9 8 11 10]
-    ] def
-
-    /seq finderseq datalen 2 add 2 idiv 2 sub get def
-    /fxw seq length array def
-    0 1 seq length 1 sub {
-        /x exch def
-        fxw x finderwidths seq x get 5 mul 5 getinterval put
-    } for
-    
-    /sbs [
-        1
-        cw {} forall
-        0 1 datalen 1 sub {
-            /i exch def
-            i 2 mod 0 eq {fxw i 2 idiv get {} forall} if
-            dxw i get {} forall
-        } for
-        1 1
-    ] def
-    
-    % Return the arguments
-    /retval 8 dict def
-    retval (ren) (renlinear) put
-    retval (sbs) sbs put
-    retval (bhs) [sbs length 1 add 2 idiv {height} repeat] put
-    retval (bbs) [sbs length 1 add 2 idiv {0} repeat] put   
-    retval (opt) useropts put
-    retval
-
-    end
-
-} bind def
-/rssexpanded load 0 1 dict put

data/lib/rghost_barcode/ps/rsslimited.ps

@@ -1,191 +0,0 @@
-
-% --DESC: Reduced Space Symbology Limited (RSS-Limited)
-% --EXAM: 00978186074271
-% --EXOP: height=0.3
-% --RNDR: renlinear
-/rsslimited {
-
-    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
-
-    /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
-   
-    % 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
-
-    /height height cvr def
-
-    /getRSSwidths {
-        /oe exch def
-        /el exch def
-        /mw exch def
-        /nm exch def
-        /val exch def
-        /j 0 def /i 0 def {
-            /v () def
-            mw 1 ne {/v i mw el string cvrs def} if
-            0 v {48 sub add} forall el add nm eq {
-                /out [ el {1} repeat v {47 sub} forall ] v length el getinterval def
-                /hasone false def out {1 eq {/hasone true def} if} forall
-                oe not hasone or {
-                    j val eq {exit} if
-                    /j j 1 add def
-                } if
-            } if
-            /i i 1 add def
-        } loop
-        out
-    } bind def
-    
-    /binval [barcode {48 sub} forall] def
-    /binval [binval 0 13 getinterval {} forall] def
-    
-    0 1 11 {
-        /i exch def
-        binval i 1 add 2 copy get binval i get 2013571 mod 10 mul add put
-        binval i binval i get 2013571 idiv put
-    } for
-    /d2 binval 12 get 2013571 mod def
-    binval 12 2 copy get 2013571 idiv put
-
-    /d1 0 def
-    /i true def
-    0 1 12 {
-        /j exch def
-        binval j get
-        dup 0 eq i and {
-            pop
-        } {
-            /i false def
-            /d1 d1 3 -1 roll 10 12 j sub exp cvi mul add def
-        } ifelse
-    } for
-    
-    /tab267 [
-        183063   0        17 9   6 3  6538   28
-        820063   183064   13 13  5 4  875    728
-        1000775  820064   9  17  3 6  28     6454
-        1491020  1000776  15 11  5 4  2415   203
-        1979844  1491021  11 15  4 5  203    2408
-        1996938  1979845  19 7   8 1  17094  1
-        2013570  1996939  7  19  1 8  1      16632
-    ] def
-
-    /i 0 def {
-        d1 tab267 i get le {
-            tab267 i 1 add 7 getinterval {} forall
-            /d1te exch def /d1to exch def
-            /d1mwe exch def /d1mwo exch def
-            /d1ele exch def /d1elo exch def
-            /d1gs exch def
-            exit
-        } if
-        /i i 8 add def
-    } loop
-
-    /i 0 def {
-        d2 tab267 i get le {
-            tab267 i 1 add 7 getinterval {} forall
-            /d2te exch def /d2to exch def
-            /d2mwe exch def /d2mwo exch def
-            /d2ele exch def /d2elo exch def
-            /d2gs exch def
-            exit
-        } if
-        /i i 8 add def
-    } loop
-
-    /d1wo d1 d1gs sub d1te idiv d1elo d1mwo 7 false getRSSwidths def    
-    /d1we d1 d1gs sub d1te mod  d1ele d1mwe 7 true  getRSSwidths def
-    /d2wo d2 d2gs sub d2te idiv d2elo d2mwo 7 false getRSSwidths def    
-    /d2we d2 d2gs sub d2te mod  d2ele d2mwe 7 true  getRSSwidths def
-
-    /d1w 14 array def
-    0 1 6 {
-        /i exch def
-        d1w i 2 mul d1wo i get put
-        d1w i 2 mul 1 add d1we i get put
-    } for
-
-    /d2w 14 array def
-    0 1 6 {
-        /i exch def
-        d2w i 2 mul d2wo i get put
-        d2w i 2 mul 1 add d2we i get put
-    } for
-
-    /widths [
-        d1w {} forall
-        d2w {} forall
-    ] def
-    
-    /checkweights [
-        1  3  9  27 81 65 17 51 64 14 42 37 22 66
-        20 60 2  6  18 54 73 41 34 13 39 28 84 74
-    ] def
-
-    /checkseq [
-        0 1 43 {} for
-        45 52 57
-        63 1 66 {} for
-        73 1 79 {} for
-        82
-        126 1 130 {} for
-        132
-        141 1 146 {} for
-        210 1 217 {} for
-        220
-        316 1 320 {} for
-        322 323
-        326 337
-    ] def
-   
-    /checksum 0 def
-    0 1 27 {
-        /i exch def
-        /checksum checksum widths i get checkweights i get mul add def
-    } for
-    /checksum checksum 89 mod def
-    /seq checkseq checksum get def
-    /swidths seq 21 idiv 8 3 6 false getRSSwidths def
-    /bwidths seq 21 mod  8 3 6 false getRSSwidths def
-
-    /checkwidths [0 0 0 0 0 0 0 0 0 0 0 0 1 1] def
-    0 1 5 {
-        /i exch def
-        checkwidths i 2 mul swidths i get put
-        checkwidths i 2 mul 1 add bwidths i get put
-    } for
-    
-    /sbs [
-        1 d1w {} forall checkwidths {} forall d2w {} forall 1 1
-    ] def
-    
-    % Return the arguments
-    /retval 8 dict def
-    retval (ren) (renlinear) put
-    retval (sbs) sbs put
-    retval (bhs) [sbs length 1 add 2 idiv {height} repeat] put
-    retval (bbs) [sbs length 1 add 2 idiv {0} repeat] put   
-    retval (txt) txt put
-    retval (textxalign) (center) put
-    retval (opt) useropts put
-    retval
-
-    end
-
-} bind def
-/rsslimited load 0 1 dict put

data/lib/rghost_barcode/ps/symbol.ps

@@ -1,49 +0,0 @@
-
-% --DESC: Miscellaneous symbols
-% --EXAM: fima
-% --EXOP: backgroundcolor=DD000011
-% --RNDR: renlinear
-/symbol {
-
-    0 begin            % Confine variables to local scope
-
-    /options exch def  % We are given an option string
-    /barcode exch def  % We are given a barcode string
-
-    barcode (fima) eq {
-        /sbs [2.25 2.25 2.25 11.25 2.25 11.25 2.25 2.25 2.25] def
-        /bhs [.625 .625 .625 .625 .625] def
-        /bbs [0 0 0 0 0] def
-    } if
-
-    barcode (fimb) eq {
-        /sbs [2.25 6.75 2.25 2.25 2.25 6.25 2.25 2.25 2.25 6.75 2.25] def
-        /bhs [.625 .625 .625 .625 .625 .625] def
-        /bbs [0 0 0 0 0 0] def
-    } if
-
-    barcode (fimc) eq {
-        /sbs [2.25 2.25 2.25 6.75 2.25 6.75 2.25 6.75 2.25 2.25 2.25] def
-        /bhs [.625 .625 .625 .625 .625 .625] def
-        /bbs [0 0 0 0 0 0] def
-    } if
-    
-    barcode (fimd) eq {
-        /sbs [2.25 2.25 2.25 2.25 2.25 6.75 2.25 6.75 2.25 2.25 2.25 2.25 2.25] def
-        /bhs [.625 .625 .625 .625 .625 .625 .625] def
-        /bbs [0 0 0 0 0 0 0] def
-    } if
-    
-    % Return the arguments
-    /retval 8 dict def
-    retval (ren) (renlinear) put
-    retval (sbs) sbs put
-    retval (bhs) bhs put
-    retval (bbs) bbs put
-    retval (opt) options put
-    retval
-
-    end
-
-} bind def
-/symbol load 0 1 dict put