rghost_barcode 0.8

data/lib/rghost_barcode/ps/render.ps~

@@ -0,0 +1,308 @@
+
+% --BEGIN RENDERER renlinear--
+/renlinear {
+
+    0 begin          % Confine variables to local scope
+
+    /args exch def   % We are given some arguments
+
+    % Default options
+    /sbs [] def
+    /bhs [] def
+    /bbs [] def
+    /txt [] def
+    /barcolor (unset) def
+    /includetext false def
+    /textcolor (unset) def
+    /textxalign (unset) def
+    /textyalign (unset) def
+    /textfont (Courier) def
+    /textsize 10 def
+    /textxoffset 0 def
+    /textyoffset 0 def
+    /bordercolor (unset) def
+    /backgroundcolor (unset) def
+    /inkspread 0.15 def
+    /width 0 def
+    /barratio 1 def
+    /spaceratio 1 def
+    /showborder false def
+    /borderleft 10 def
+    /borderright 10 def
+    /bordertop 1 def
+    /borderbottom 1 def
+    /borderwidth 0.5 def
+    /guardwhitespace false def
+    /guardleftpos 0 def
+    /guardleftypos 0 def
+    /guardrightpos 0 def
+    /guardrightypos 0 def
+    /guardwidth 6 def
+    /guardheight 7 def
+    
+    % Apply the renderer options
+    args {exch cvlit exch def} forall
+ 
+    % Parse the user options   
+    opt {
+        token false eq {exit} if dup length string cvs (=) search
+        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
+    } loop
+
+    /barcolor barcolor cvlit def
+    /textcolor textcolor cvlit def
+    /textxalign textxalign cvlit def
+    /textyalign textyalign cvlit def
+    /textfont textfont cvlit def
+    /textsize textsize cvr def
+    /textxoffset textxoffset cvr def
+    /textyoffset textyoffset cvr def
+    /bordercolor bordercolor cvlit def
+    /backgroundcolor backgroundcolor cvlit def
+    /inkspread inkspread cvr def
+    /width width cvr def
+    /barratio barratio cvr def
+    /spaceratio spaceratio cvr def
+    /borderleft borderleft cvr def
+    /borderright borderright cvr def
+    /bordertop bordertop cvr def
+    /borderbottom borderbottom cvr def
+    /borderwidth borderwidth cvr def
+    /guardleftpos guardleftpos cvr def
+    /guardleftypos guardleftypos cvr def
+    /guardrightpos guardrightpos cvr def
+    /guardrightypos guardrightypos cvr def
+    /guardwidth guardwidth cvr def
+    /guardheight guardheight cvr def
+    
+    % Create bar elements and put them into the bars array
+    /bars sbs length 1 add 2 idiv array def
+    /x 0.00 def /maxh 0 def
+    0 1 sbs length 1 add 2 idiv 2 mul 2 sub {
+        /i exch def
+        i 2 mod 0 eq {           % i is even
+            /d sbs i get barratio mul barratio sub 1 add def  % d=digit*r-r+1 
+            /h bhs i 2 idiv get 72 mul def  % Height from bhs
+            /c d 2 div x add def            % Centre of the bar = x + d/2
+            /y bbs i 2 idiv get 72 mul def  % Baseline from bbs
+            /w d inkspread sub def          % bar width = digit - inkspread
+            bars i 2 idiv [h c y w] put     % Add the bar entry
+            h maxh gt {/maxh h def} if
+        } {
+            /d sbs i get spaceratio mul spaceratio sub 1 add def  % d=digit*r-r+1 
+        } ifelse
+        /x x d add def  % x+=d
+    } for
+
+    gsave
+
+    currentpoint translate
+
+    % Force symbol to given width
+    width 0 ne {
+        width 72 mul x div 1 scale
+    } if
+
+    % Set RGB or CMYK color depending on length of given hex string
+    /setanycolor {
+        /anycolor exch def
+        anycolor length 6 eq {
+            (<      >) 8 string copy dup 1 anycolor putinterval cvx exec {255 div} forall setrgbcolor
+        } if
+        anycolor length 8 eq {
+            (<        >) 10 string copy dup 1 anycolor putinterval cvx exec {255 div} forall setcmykcolor
+        } if
+    } bind def
+
+    % Display the border and background
+    newpath
+    borderleft neg borderbottom neg moveto
+    x borderleft add borderright add 0 rlineto
+    0 maxh borderbottom add bordertop add rlineto
+    x borderleft add borderright add neg 0 rlineto
+    0 maxh borderbottom add bordertop add neg rlineto    
+    closepath
+    backgroundcolor (unset) ne { gsave backgroundcolor setanycolor fill grestore } if     
+    showborder {
+        gsave
+        bordercolor (unset) ne { bordercolor setanycolor } if
+        borderwidth setlinewidth stroke
+        grestore
+    } if    
+   
+    % Display the bars for elements in the bars array
+    gsave
+    barcolor (unset) ne { barcolor setanycolor } if
+    bars {
+        {} forall
+        newpath setlinewidth moveto 0 exch rlineto stroke
+    } forall
+    grestore
+    
+    % Display the text for elements in the text array
+    textcolor (unset) ne { textcolor setanycolor } if
+    includetext {
+    textxalign (unset) eq textyalign (unset) eq and {
+        /s 0 def /f () def
+        txt {
+            {} forall
+            2 copy s ne exch f ne or {
+                2 copy /s exch def /f exch def            
+                exch findfont exch scalefont setfont          
+            } {
+                pop pop
+            } ifelse
+            moveto show
+        } forall
+    } {
+        textfont findfont textsize scalefont setfont
+        /txt [ txt { 0 get {} forall } forall ] def
+        /tstr txt length string def
+        0 1 txt length 1 sub { dup txt exch get tstr 3 1 roll put } for
+        /textxpos textxoffset x tstr stringwidth pop sub 2 div add def
+        textxalign (left) eq { /textxpos textxoffset def } if
+        textxalign (right) eq { /textxpos x textxoffset sub tstr stringwidth pop sub def } if
+        textxalign (offleft) eq { /textxpos tstr stringwidth pop textxoffset add neg def } if
+        textxalign (offright) eq { /textxpos x textxoffset add def } if
+        /textypos textyoffset textsize add 3 sub neg def
+        textyalign (above) eq { /textypos textyoffset maxh add 1 add def } if
+        textyalign (center) eq { /textypos textyoffset maxh textsize 4 sub sub 2 div add def } if
+        textxpos textypos moveto tstr show
+    } ifelse
+    } if    
+
+    % Display the guard elements
+    guardwhitespace {
+        0.75 setlinewidth
+        guardleftpos 0 ne {
+            newpath
+            guardleftpos neg guardwidth add guardleftypos guardwidth 2 div add moveto
+            guardwidth neg guardheight -2 div rlineto
+            guardwidth guardheight -2 div rlineto
+            stroke            
+        } if
+        guardrightpos 0 ne {
+            newpath
+            guardrightpos x add guardwidth sub guardrightypos guardheight 2 div add moveto
+            guardwidth guardheight -2 div rlineto
+            guardwidth neg guardheight -2 div rlineto
+            stroke            
+        } if
+    } if
+    
+    grestore
+    
+    end
+
+} bind def
+/renlinear load 0 1 dict put
+% --END RENDERER renlinear--
+
+% --BEGIN RENDERER renmatrix--
+/renmatrix {
+
+    0 begin
+
+    /args exch def
+
+    % Default options
+    /width 1 def
+    /height 1 def
+
+    % Apply the renderer options
+    args {exch cvlit exch def} forall
+
+    % Parse the user options
+    opt {
+        token false eq {exit} if dup length string cvs (=) search
+        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
+    } loop
+ 
+    /width width cvr def
+    /height height cvr def
+
+    % Convert the bits into a string
+    /imgstr pixs length string def
+    0 1 pixs length 1 sub {
+        dup imgstr 3 1 roll pixs exch get 1 exch sub 255 mul put
+    } for
+
+    % Draw the image
+    gsave
+    currentpoint translate
+    72 width mul 72 height mul scale
+    pixx pixy 8 [ pixx 0 0 pixy neg 0 pixy ] {imgstr} image
+    grestore
+
+    end
+
+} bind def
+/renmatrix load 0 1 dict put
+% --END RENDERER renmatrix--
+
+% --BEGIN RENDERER renmaximatrix--
+/renmaximatrix {
+
+    0 begin
+
+    /args exch def   % We are given some arguments
+
+    % Apply the renderer options
+    args {exch cvlit exch def} forall
+ 
+    % Parse the user options   
+    opt {
+        token false eq {exit} if dup length string cvs (=) search
+        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
+    } loop
+
+    gsave
+
+    currentpoint translate
+
+    2.4945 dup scale  % from 1pt to 1.88mm
+    0.5 0.5774 translate
+
+    pixs {
+        dup 
+        /x exch 30 mod def 
+        /y exch 30 idiv def
+        y 2 mod 0 eq {x} {x 0.5 add} ifelse
+        32 y sub 0.8661 mul
+        moveto
+        0     0.5774 rmoveto
+        -0.5 -0.2887 rlineto
+        0    -0.5774 rlineto
+        0.5  -0.2887 rlineto
+        0.5   0.2887 rlineto
+        0     0.5774 rlineto
+        -0.5  0.2887 rlineto
+        closepath fill
+    } forall
+
+    % Plot the locator symbol
+    newpath 14 13.8576 0.5774 0 360 arc closepath
+    14 13.8576 1.3359 360 0 arcn closepath fill
+    newpath 14 13.8576 2.1058 0 360 arc closepath
+    14 13.8576 2.8644 360 0 arcn closepath fill
+    newpath 14 13.8576 3.6229 0 360 arc closepath
+    14 13.8576 4.3814 360 0 arcn closepath fill
+
+    grestore
+
+    end
+
+} bind def
+/renmaximatrix load 0 1 dict put
+% --END RENDERER renmaximatrix--
+
+% --BEGIN DISPATCHER--
+/barcode {
+    0 begin
+    dup (ren) get cvx exec 
+    end
+} bind def
+/barcode load 0 1 dict put
+% --END DISPATCHER--
+
+

data/lib/rghost_barcode/ps/royalmail.ps

@@ -0,0 +1,119 @@
+
+% --DESC: Royal Mail 4 State Customer Code (RM4SCC)
+% --EXAM: LE28HS9Z
+% --EXOP: includetext includecheckintext barcolor=FF0000
+% --RNDR: renlinear
+/royalmail {
+
+    0 begin
+
+    /options exch def              % We are given an option string
+    /useropts options def
+    /barcode exch def              % We are given a barcode string
+
+    /includetext false def          % Enable/disable text
+    /includecheckintext false def
+    /textfont /Courier def
+    /textsize 10 def
+    /textyoffset -7 def
+    /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
+    
+    /textfont textfont cvlit def
+    /textsize textsize cvr def
+    /textyoffset textyoffset cvr def
+    /height height cvr def
+    
+    % Create an array containing the character mappings
+    /encs
+    [ (3300) (2211) (2301) (2310) (3201) (3210) 
+      (1122) (0033) (0123) (0132) (1023) (1032) 
+      (1302) (0213) (0303) (0312) (1203) (1212) 
+      (1320) (0231) (0321) (0330) (1221) (1230) 
+      (3102) (2013) (2103) (2112) (3003) (3012) 
+      (3120) (2031) (2121) (2130) (3021) (3030) 
+      (2) (3)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (ZUVWXY501234B6789AHCDEFGNIJKLMTOPQRS) def
+
+    /barlen barcode length def
+    /encstr barlen 4 mul 6 add string def
+    /txt barlen 1 add array def
+
+    % Put start character
+    encstr 0 encs 36 get putinterval
+    
+    /checksumrow 0 def
+    /checksumcol 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
+        encstr i 4 mul 1 add enc putinterval
+        txt i [barcode i 1 getinterval i 4 mul 1 add 3.312 mul textyoffset textfont textsize] put
+        /checksumrow checksumrow indx 6 idiv add def
+        /checksumcol checksumcol indx 6 mod add def 
+    } for
+
+    % Put the checksum character
+    /checksum checksumrow 6 mod 6 mul checksumcol 6 mod add def
+    /enc encs checksum get def
+    encstr barlen 4 mul 1 add enc putinterval
+    includecheckintext {
+        txt barlen [barchars checksum 1 getinterval barlen 4 mul 1 add 3.312 mul textyoffset textfont textsize] put
+    } {
+        txt barlen [( ) barlen 4 mul 1 add 3.312 mul textyoffset textfont textsize] put
+    } ifelse
+    
+    % Put end character
+    encstr barlen 4 mul 5 add encs 37 get putinterval  
+
+    /bbs encstr length array def    
+    /bhs encstr length array def
+    0 1 encstr length 1 sub {
+        /i exch def
+        /enc encstr i 1 getinterval def
+        enc (0) eq {
+            bbs i 3 height mul 8 div put
+            bhs i 2 height mul 8 div put
+        } if
+        enc (1) eq {
+            bbs i 0 height mul 8 div put
+            bhs i 5 height mul 8 div put
+        } if
+        enc (2) eq {
+            bbs i 3 height mul 8 div put
+            bhs i 5 height mul 8 div put
+        } if
+        enc (3) eq {
+            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
+    includetext {
+        retval (txt) txt put
+    } if
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/royalmail load 0 1 dict put

data/lib/rghost_barcode/ps/rss14.ps

@@ -0,0 +1,237 @@
+
+% --DESC: Reduced Space Symbology 14 (RSS-14)
+% --EXAM: 24012345678905
+% --EXOP: height=0.3
+% --RNDR: renlinear
+/rss14 {
+
+    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
+    /linkage false 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
+        /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
+                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 [linkage {1} {0} ifelse binval 0 13 getinterval {} forall] def
+    
+    0 1 12 {
+        /i exch def
+        binval i 1 add 2 copy get binval i get 4537077 mod 10 mul add put
+        binval i binval i get 4537077 idiv put
+    } for
+    /right binval 13 get 4537077 mod def
+    binval 13 2 copy get 4537077 idiv put
+
+    /left 0 def
+    /i true def
+    0 1 13 {
+        /j exch def
+        binval j get
+        dup 0 eq i and {
+            pop
+        } {
+            /i false def
+            /left left 3 -1 roll 10 13 j sub exp cvi mul add def
+        } ifelse
+    } for
+    
+    /d1 left 1597 idiv def
+    /d2 left 1597 mod def
+    /d3 right 1597 idiv def
+    /d4 right 1597 mod def
+
+    /tab164 [
+        160   0     12 4   8 1  161   1
+        960   161   10 6   6 3  80   10
+        2014  961   8  8   4 5  31   34
+        2714  2015  6  10  3 6  10   70
+        2840  2715  4  12  1 8  1    126
+    ] def
+
+    /tab154 [
+        335   0     5  10  2 7  4   84
+        1035  336   7  8   4 5  20  35
+        1515  1036  9  6   6 3  48  10
+        1596  1516  11 4   8 1  81  1
+    ] def
+
+    /i 0 def {
+        d1 tab164 i get le {
+            tab164 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 tab154 i get le {
+            tab154 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
+
+    /i 0 def {
+        d3 tab164 i get le {
+            tab164 i 1 add 7 getinterval {} forall
+            /d3te exch def /d3to exch def
+            /d3mwe exch def /d3mwo exch def
+            /d3ele exch def /d3elo exch def
+            /d3gs exch def
+            exit
+        } if
+        /i i 8 add def
+    } loop
+
+    /i 0 def {
+        d4 tab154 i get le {
+            tab154 i 1 add 7 getinterval {} forall
+            /d4te exch def /d4to exch def
+            /d4mwe exch def /d4mwo exch def
+            /d4ele exch def /d4elo exch def
+            /d4gs exch def
+            exit
+        } if
+        /i i 8 add def
+    } loop
+    
+    /d1wo d1 d1gs sub d1te idiv d1elo d1mwo false getRSSwidths def
+    /d1we d1 d1gs sub d1te mod  d1ele d1mwe true  getRSSwidths def
+    /d2wo d2 d2gs sub d2to mod  d2elo d2mwo true  getRSSwidths def
+    /d2we d2 d2gs sub d2to idiv d2ele d2mwe false getRSSwidths def
+    /d3wo d3 d3gs sub d3te idiv d3elo d3mwo false getRSSwidths def
+    /d3we d3 d3gs sub d3te mod  d3ele d3mwe true  getRSSwidths def
+    /d4wo d4 d4gs sub d4to mod  d4elo d4mwo true  getRSSwidths def
+    /d4we d4 d4gs sub d4to idiv d4ele d4mwe false getRSSwidths def
+
+    /d1w 8 array def
+    0 1 3 {
+        /i exch def
+        d1w i 2 mul d1wo i get put
+        d1w i 2 mul 1 add d1we i get put
+    } for
+
+    /d2w 8 array def
+    0 1 3 {
+        /i exch def
+        d2w 7 i 2 mul sub d2wo i get put
+        d2w 6 i 2 mul sub d2we i get put
+    } for
+    
+    /d3w 8 array def
+    0 1 3 {
+        /i exch def
+        d3w 7 i 2 mul sub d3wo i get put
+        d3w 6 i 2 mul sub d3we i get put
+    } for
+    
+    /d4w 8 array def
+    0 1 3 {
+        /i exch def
+        d4w i 2 mul d4wo i get put
+        d4w i 2 mul 1 add d4we i get put
+    } for
+
+    /widths [
+        d1w {} forall
+        d2w {} forall
+        d3w {} forall
+        d4w {} forall
+    ] def
+    
+    /checkweights [
+        1   3   9   27  2   6   18  54
+        58  72  24  8   29  36  12  4
+        74  51  17  32  37  65  48  16
+        64  34  23  69  49  68  46  59
+    ] def
+
+    /checkwidths [
+        3 8 2 1 1   3 5 5 1 1   3 3 7 1 1
+        3 1 9 1 1   2 7 4 1 1   2 5 6 1 1
+        2 3 8 1 1   1 5 7 1 1   1 3 9 1 1
+    ] def
+    
+    /checksum 0 def
+    0 1 31 {
+        /i exch def
+        /checksum checksum widths i get checkweights i get mul add def 
+    } for
+    /checksum checksum 79 mod def    
+    checksum 8 ge {/checksum checksum 1 add def} if
+    checksum 72 ge {/checksum checksum 1 add def} if
+    /checklt checkwidths checksum 9 idiv 5 mul 5 getinterval def
+    /checkrtrev checkwidths checksum 9 mod 5 mul 5 getinterval def
+    /checkrt 5 array def
+    0 1 4 {
+        /i exch def
+        checkrt i checkrtrev 4 i sub get put
+    } for
+
+    /sbs [
+        1 d1w {} forall checklt {} forall d2w {}
+        forall d4w {} forall checkrt {} forall d3w {} 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
+/rss14 load 0 1 dict put