rghost_barcode 0.8

data/lib/rghost_barcode/ps/rationalizedcodabar.ps

@@ -0,0 +1,117 @@
+
+% --DESC: Rationalized Codabar
+% --EXAM: A0123456789B
+% --EXOP: includetext includecheck includecheckintext
+% --RNDR: renlinear
+/rationalizedcodabar {
+
+    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
+    [ (11111331) (11113311) (11131131) (33111111) (11311311)
+      (31111311) (13111131) (13113111) (13311111) (31131111)
+      (11133111) (11331111) (31113131) (31311131) (31313111)
+      (11313131) (11331311) (13131131) (11131331) (11133311)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789-$:/.+ABCD) def
+
+    /barlen barcode length def    % Length of the code
+
+    includecheck {
+        /sbs barlen 8 mul 8 add string def
+        /txt barlen 1 add array def
+    } {
+        /sbs barlen 8 mul string def
+        /txt barlen array def
+    } ifelse
+
+    /checksum 0 def
+    /xpos 0 def
+    0 1 barlen 2 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 enc putinterval  % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval xpos textyoffset textfont textsize] put
+        0 1 7 {       % xpos+=width of the character
+            /xpos exch enc exch get 48 sub xpos add def
+        } for
+        /checksum checksum indx add def
+    } for
+
+    % Find index of last character
+    barcode barlen 1 sub 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
+
+    includecheck {
+        % Put the checksum character
+        /checksum checksum indx add def
+        /checksum 16 checksum 16 mod sub 16 mod def
+        sbs barlen 8 mul 8 sub encs checksum get putinterval
+        includecheckintext {
+            txt barlen 1 sub [barchars checksum 1 getinterval xpos textyoffset textfont textsize] put
+        } {
+            txt barlen 1 sub [( ) xpos textyoffset textfont textsize] put
+        } ifelse
+        0 1 7 {       % xpos+=width of the character
+            /xpos exch encs checksum get exch get 48 sub xpos add def
+        } for
+        % Put the end character
+        /enc encs indx get def            % Get the indxth encoding
+        sbs barlen 8 mul enc putinterval  % Put encoded digit into sbs
+        txt barlen [barcode barlen 1 sub 1 getinterval xpos textyoffset textfont textsize] put
+    } {
+        % Put the end character
+        /enc encs indx get def                  % Get the indxth encoding
+        sbs barlen 8 mul 8 sub enc putinterval  % Put encoded digit into sbs
+        txt barlen 1 sub [barcode barlen 1 sub 1 getinterval xpos textyoffset textfont textsize] put
+    } 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
+/rationalizedcodabar load 0 1 dict put

data/lib/rghost_barcode/ps/raw.ps

@@ -0,0 +1,35 @@
+
+% --DESC: Raw bar space succession for custom symbologies 
+% --EXAM: 331132131313411122131311333213114131131221323
+% --EXOP: height=0.5
+% --RNDR: renlinear
+/raw {
+
+    0 begin                  % Confine variables to local scope
+
+    /options exch def        % We are given an option string
+    /useropts options def
+    /sbs 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
+
+    % 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 
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/raw load 0 1 dict put

data/lib/rghost_barcode/ps/render.ps

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