rghost_barcode 0.8

data/lib/rghost_barcode/ps/ean2.ps

@@ -0,0 +1,101 @@
+
+% --DESC: EAN-2 (2 digit addon)
+% --EXAM: 05
+% --EXOP: includetext guardwhitespace
+% --RNDR: renlinear
+/ean2 {
+
+    0 begin
+
+    /options exch def                   % We are given an options string
+    /useropts options def
+    /barcode exch def                   % We are given a barcode string
+
+    /includetext false def               % Enable/disable text
+    /textfont /Helvetica def
+    /textsize 12 def
+    /textyoffset (unset) def
+    /height 0.7 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
+    /height height cvr def
+    textyoffset (unset) eq {
+        /textyoffset height 72 mul 1 add def
+    } {
+        /textyoffset textyoffset cvr def
+    } ifelse
+    
+    /barlen barcode length def          % Length of the code
+
+    % Create an array containing the character mappings
+    /encs
+    [ (3211) (2221) (2122) (1411) (1132)
+      (1231) (1114) (1312) (1213) (3112)
+      (112) (11)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789) def
+
+    % Determine the mirror map based on mod 4 checksum
+    /mirrormap [(00) (01) (10) (11)] barcode 0 2 getinterval cvi 4 mod get def
+
+    /sbs 13 string def
+    /txt 2 array def
+    
+    0 1 1 {
+        /i exch def
+
+        % Prefix with either a start character or separator character
+        i 0 eq {
+            sbs 0 encs 10 get putinterval
+        } {
+            sbs i 1 sub 6 mul 7 add encs 11 get putinterval
+        } ifelse
+
+        % Lookup the encoding for the 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
+        mirrormap i get 49 eq { % Reverse enc if 1 in this position in mirrormap    
+            /enclen enc length def
+            /revenc enclen string def
+            0 1 enclen 1 sub {
+                /j exch def
+                /char enc j get def
+                revenc enclen j sub 1 sub char put
+            } for
+            /enc revenc def
+        } if
+        sbs i 6 mul 3 add enc putinterval   % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 1 sub 9 mul 13 add textyoffset textfont textsize] put
+    } for
+
+    % Return the arguments
+    /retval 8 dict def
+    retval (ren) (renlinear) put
+    retval (sbs) [sbs {48 sub} forall] put
+    retval (bhs) [12{height}repeat] put
+    retval (bbs) [12{0}repeat] put
+    includetext {
+        retval (txt) txt put
+    } if
+    retval (opt) useropts put
+    retval (guardrightpos) 10 put
+    retval (guardrightypos) textyoffset 4 add put
+    retval (bordertop) 10 put
+    retval
+
+    end
+
+} bind def
+/ean2 load 0 1 dict put

data/lib/rghost_barcode/ps/ean5.ps

@@ -0,0 +1,116 @@
+
+% --DESC: EAN-5 (5 digit addon)
+% --EXAM: 90200
+% --EXOP: includetext guardwhitespace
+% --RNDR: renlinear
+/ean5 {
+
+    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
+    /textfont /Helvetica def
+    /textsize 12 def
+    /textyoffset (unset) def
+    /height 0.7 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
+    /height height cvr def
+    textyoffset (unset) eq {
+        /textyoffset height 72 mul 1 add def
+    } {
+        /textyoffset textyoffset cvr def
+    } ifelse
+    
+    /barlen barcode length def          % Length of the code
+
+    % Create an array containing the character mappings
+    /encs
+    [ (3211) (2221) (2122) (1411) (1132)
+      (1231) (1114) (1312) (1213) (3112)
+      (112) (11)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789) def
+
+    % Determine the mirror map based on mod 10 checksum
+    /mirrormaps
+    [ (11000) (10100) (10010) (10001) (01100)
+      (00110) (00011) (01010) (01001) (00101)
+    ] def
+    /checksum 0 def
+    0 1 4 {
+        /i exch def
+        /barchar barcode i get 48 sub def
+        i 2 mod 0 eq {
+            /checksum barchar 3 mul checksum add def
+        } {
+            /checksum barchar 9 mul checksum add def
+        } ifelse
+    } for
+    /checksum checksum 10 mod def
+    /mirrormap mirrormaps checksum get def
+
+    /sbs 31 string def
+    /txt 5 array def
+   
+    0 1 4 {
+        /i exch def
+
+        % Prefix with either a start character or separator character
+        i 0 eq {
+            sbs 0 encs 10 get putinterval
+        } {
+            sbs i 1 sub 6 mul 7 add encs 11 get putinterval
+        } ifelse
+
+        % Lookup the encoding for the 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
+        mirrormap i get 49 eq { % Reverse enc if 1 in this position in mirrormap
+            /enclen enc length def
+            /revenc enclen string def
+            0 1 enclen 1 sub {
+                /j exch def
+                /char enc j get def
+                revenc enclen j sub 1 sub char put
+            } for
+            /enc revenc def
+        } if
+        sbs i 6 mul 3 add enc putinterval   % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 1 sub 9 mul 13 add textyoffset textfont textsize] put
+    } for
+
+    % Return the arguments
+    /retval 8 dict def
+    retval (ren) (renlinear) put
+    retval (sbs) [sbs {48 sub} forall] put
+    retval (bhs) [16{height}repeat] put
+    retval (bbs) [16{0}repeat] put
+    includetext {
+        retval (txt) txt put
+    } if
+    retval (opt) useropts put
+    retval (guardrightpos) 10 put
+    retval (guardrightypos) textyoffset 4 add put
+    retval (bordertop) 10 put
+    retval
+
+    end
+
+} bind def
+/ean5 load 0 1 dict put

data/lib/rghost_barcode/ps/ean8.ps

@@ -0,0 +1,101 @@
+
+% --DESC: EAN-8
+% --EXAM: 01335583
+% --EXOP: includetext guardwhitespace height=0.5
+% --RNDR: renlinear
+/ean8 {
+
+    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
+    /textfont /Helvetica def
+    /textsize 12 def
+    /textyoffset -4 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
+    [ (3211) (2221) (2122) (1411) (1132)
+      (1231) (1114) (1312) (1213) (3112)
+      (111) (11111) (111)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789) def
+
+    /barlen barcode length def           % Length of the code
+    /sbs barlen 4 mul 11 add string def
+    /txt barlen array def
+    
+    % Put the start character
+    sbs 0 encs 10 get putinterval
+
+    % Left side
+    0 1 3 {
+        % Lookup the encoding for the each barcode character
+        /i exch def
+        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 4 mul 3 add enc putinterval  % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 7 mul 4 add textyoffset textfont textsize] put
+    } for
+
+    % Put the middle character
+    sbs 4 4 mul 3 add encs 11 get putinterval
+
+    % Right side
+    4 1 7 {
+        % Lookup the encoding for the each barcode character
+        /i exch def
+        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 4 mul 8 add enc putinterval  % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 7 mul 8 add textyoffset textfont textsize] put
+    } for
+
+    % Put the end character
+    sbs barlen 4 mul 8 add encs 12 get putinterval
+
+    % Return the arguments
+    /retval 8 dict def
+    retval (ren) (renlinear) put
+    retval (sbs) [sbs {48 sub} forall] put
+    includetext {
+        retval (bhs) [height height 8{height .075 sub}repeat height height 8{height .075 sub}repeat height height] put
+        retval (bbs) [0 0 8{.075}repeat 0 0 8{.075}repeat 0 0] put
+        retval (txt) txt put
+    } {
+        retval (bhs) [22{height}repeat] put        
+        retval (bbs) [22{0}repeat] put
+    } ifelse
+    retval (opt) useropts put
+    retval (guardleftpos) 10 put
+    retval (guardrightpos) 10 put
+    retval (borderbottom) 5 put
+    retval
+
+    end
+
+} bind def
+/ean8 load 0 1 dict put

data/lib/rghost_barcode/ps/interleaved2of5.ps

@@ -0,0 +1,132 @@
+
+% --DESC: Interleaved 2 of 5 (ITF)
+% --EXAM: 24012345678905
+% --EXOP: showborder borderwidth=4 borderleft=15 borderright=15 height=0.5 includecheck includetext includecheckintext textyoffset=-10
+% --RNDR: renlinear
+/interleaved2of5 {
+
+    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
+    
+    /barlen barcode length def      % Length of the code
+
+    % Prefix 0 to barcode if length is even and including checkdigit
+    % or length is odd and not including checkdigit
+    barlen 2 mod 0 eq includecheck and          % even & includecheck
+    barlen 2 mod 0 ne includecheck not and or { % odd  & !includecheck
+        /pad barlen 1 add string def  % Create pad one bigger than barcode
+        pad 0 48 put                  % Put ascii 0 at start of pad
+        pad 1 barcode putinterval     % Add barcode to the end of pad
+        /barcode pad def              % barcode=pad
+        /barlen barlen 1 add def      % barlen++
+    } if
+
+    % Add checksum to end of barcode
+    includecheck {
+        /checksum 0 def
+        0 1 barlen 1 sub {
+            /i exch def
+            i 2 mod 0 eq {
+                /checksum checksum barcode i get 48 sub 3 mul add def
+            } {
+                /checksum checksum barcode i get 48 sub add def
+            } ifelse
+        } for
+        /checksum 10 checksum 10 mod sub 10 mod def
+        /pad barlen 1 add string def    % Create pad one bigger than barcode
+        pad 0 barcode putinterval       % Add barcode to the start of pad
+        pad barlen checksum 48 add put  % Add checksum to end of pad
+        /barcode pad def                % barcode=pad
+        /barlen barlen 1 add def        % barlen++
+    } if
+
+    % Create an array containing the character mappings
+    /encs
+    [ (11331) (31113) (13113) (33111) (11313)
+      (31311) (13311) (11133) (31131) (13131)
+      (1111)  (3111)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789) def
+    /sbs barlen 5 mul 8 add string def
+    /txt barlen array def
+
+    % Put the start character
+    sbs 0 encs 10 get putinterval
+
+    0 2 barlen 1 sub {
+    /i exch def
+        % Lookup the encodings for two consecutive barcode characters
+        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
+        /enca encs indx get def       % Get the indxth encoding
+
+        barcode i 1 add 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
+        /encb encs indx get def       % Get the indxth encoding
+
+        % Interleave the two character encodings
+        /intl enca length 2 mul string def
+        0 1 enca length 1 sub {
+            /j exch def
+            /achar enca j get def
+            /bchar encb j get def
+            intl j 2 mul achar put
+            intl j 2 mul 1 add bchar put
+        } for
+
+        sbs i 5 mul 4 add intl putinterval   % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 9 mul 4 add textyoffset textfont textsize] put
+        includecheck includecheckintext not and barlen 2 sub i eq and {
+            txt i 1 add [( ) i 1 add 9 mul 4 add textyoffset textfont textsize] put
+        } {
+            txt i 1 add [barcode i 1 add 1 getinterval i 1 add 9 mul 4 add textyoffset textfont textsize] put
+        } ifelse
+    } for
+
+    % Put the end character
+    sbs barlen 5 mul 4 add encs 11 get putinterval
+
+    % 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
+/interleaved2of5 load 0 1 dict put