rghost_barcode 0.8

data/lib/rghost_barcode/ps/rssexpanded.ps

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

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

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