rghost_barcode 0.8

data/lib/rghost_barcode/ps/code11.ps

@@ -0,0 +1,128 @@
+
+% --DESC: Code 11
+% --EXAM: 0123456789
+% --EXOP: includetext includecheck includecheckintext
+% --RNDR: renlinear
+/code11 {
+
+    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
+    /includetext false def
+    /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
+    [ (111131) (311131) (131131) (331111) (113131)
+      (313111) (133111) (111331) (311311) (311111)
+      (113111) (113311)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789-) def
+
+    /barlen barcode length def        % Length of the code
+
+    includecheck {
+        barlen 10 ge {
+            /sbs barlen 6 mul 24 add string def
+            /txt barlen 2 add array def
+        } {
+            /sbs barlen 6 mul 18 add string def
+            /txt barlen 1 add array def
+        } ifelse
+    } {
+        /sbs barlen 6 mul 12 add string def
+        /txt barlen array def
+    } ifelse
+
+    % Put the start character
+    sbs 0 encs 10 get putinterval
+
+    /checksum1 0 def /checksum2 0 def
+    
+    /xpos 8 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
+        sbs i 6 mul 6 add enc putinterval  % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval xpos textyoffset textfont textsize] put
+        0 1 5 {       % xpos+=width of the character
+            /xpos exch enc exch get 48 sub xpos add def
+        } for
+        /checksum1 checksum1 barlen i sub 1 sub 10 mod 1 add indx mul add def
+        /checksum2 checksum2 barlen i sub 9 mod 1 add indx mul add def
+    } for
+   
+    % Put the checksum and end characters
+    includecheck {
+        /checksum1 checksum1 11 mod def        
+        barlen 10 ge {
+            /checksum2 checksum2 checksum1 add 11 mod def
+            sbs barlen 6 mul 6 add encs checksum1 get putinterval        
+            sbs barlen 6 mul 12 add encs checksum2 get putinterval
+            includecheckintext {
+                txt barlen [barchars checksum1 1 getinterval xpos textyoffset textfont textsize] put
+                /enc encs checksum1 get def   
+                0 1 5 {       % xpos+=width of the character
+                    /xpos exch enc exch get 48 sub xpos add def
+                } for
+                txt barlen 1 add [barchars checksum2 1 getinterval xpos textyoffset textfont textsize] put
+            } {
+                txt barlen [() xpos textyoffset textfont textsize] put
+                txt barlen 1 add [() xpos textyoffset textfont textsize] put
+            } ifelse
+            sbs barlen 6 mul 18 add encs 11 get putinterval
+        } {
+            sbs barlen 6 mul 6 add encs checksum1 get putinterval          
+            includecheckintext {
+                txt barlen [barchars checksum1 1 getinterval xpos textyoffset textfont textsize] put
+            } {
+                txt barlen [() xpos textyoffset textfont textsize] put
+            } ifelse
+            sbs barlen 6 mul 12 add encs 11 get putinterval
+        } ifelse
+    } {
+        sbs barlen 6 mul 6 add encs 11 get putinterval
+    } 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
+/code11 load 0 1 dict put

data/lib/rghost_barcode/ps/code128.ps

@@ -0,0 +1,121 @@
+
+% --DESC: Code 128
+% --EXAM: ^104^102Count^0990123456789^101!
+% --EXOP: includetext
+% --RNDR: renlinear
+/code128 {
+
+    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
+
+    /includetext false def    % Enable/disable text
+    /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
+    [ (212222) (222122) (222221) (121223) (121322) (131222) (122213)
+      (122312) (132212) (221213) (221312) (231212) (112232) (122132)
+      (122231) (113222) (123122) (123221) (223211) (221132) (221231)
+      (213212) (223112) (312131) (311222) (321122) (321221) (312212)
+      (322112) (322211) (212123) (212321) (232121) (111323) (131123)
+      (131321) (112313) (132113) (132311) (211313) (231113) (231311)
+      (112133) (112331) (132131) (113123) (113321) (133121) (313121)
+      (211331) (231131) (213113) (213311) (213131) (311123) (311321)
+      (331121) (312113) (312311) (332111) (314111) (221411) (431111)
+      (111224) (111422) (121124) (121421) (141122) (141221) (112214)
+      (112412) (122114) (122411) (142112) (142211) (241211) (221114)
+      (413111) (241112) (134111) (111242) (121142) (121241) (114212)
+      (124112) (124211) (411212) (421112) (421211) (212141) (214121)
+      (412121) (111143) (111341) (131141) (114113) (114311) (411113)
+      (411311) (113141) (114131) (311141) (411131) (211412) (211214)
+      (211232) (2331112)
+    ] def
+
+    % Create a string of the available characters for alphabets A and B
+    /barchars ( !"#$%&'\(\)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~) def
+    /barlen barcode length def    % Length of the code
+    /sbs barlen 6 mul string def  % sbs is 6 times length of barcode
+    /txt barlen array def
+
+    /mode -1 def         % A=0, B=1, C=2
+    /checksum barcode 1 3 getinterval cvi def  % Initialise the checksum
+
+    /i 0 def /j 0 def
+    { % loop
+        i barlen eq {exit} if
+        barcode i 1 getinterval (^) eq {
+            % indx is given by the next three characters
+            /indx barcode i 1 add 3 getinterval cvi def
+            txt j [( ) j 11 mul textyoffset textfont textsize] put
+            /i i 4 add def
+        } {
+            % indx depends on the mode
+            mode 2 eq {
+                /indx barcode i 2 getinterval cvi def
+                txt j [barcode i 2 getinterval j 11 mul textyoffset textfont textsize] put
+                /i i 2 add def
+            } {
+                barchars barcode i 1 getinterval search
+                pop                    % Discard true leaving pre
+                length /indx exch def  % indx is the length of pre
+                pop pop                % Discard seek and post
+                txt j [barchars indx 1 getinterval j 11 mul textyoffset textfont textsize] put
+                /i i 1 add def
+            } ifelse
+        } ifelse
+        /enc encs indx get def         % Get the indxth encoding
+        sbs j 6 mul enc putinterval    % Put encoded digit into sbs
+
+        % Update the mode
+        indx 101 eq indx 103 eq or {/mode 0 def} if
+        indx 100 eq indx 104 eq or {/mode 1 def} if
+        indx 99 eq indx 105 eq or {/mode 2 def} if
+
+        /checksum indx j mul checksum add def  % checksum+=indx*j
+        /j j 1 add def
+    } loop
+
+    % Put the checksum character
+    /checksum checksum 103 mod def
+    sbs j 6 mul encs checksum get putinterval
+
+    % Put the end character
+    sbs j 6 mul 6 add encs 106 get putinterval
+
+    % Shrink sbs and txt to fit exactly
+    /sbs sbs 0 j 6 mul 13 add getinterval def
+    /txt txt 0 j getinterval 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
+    includetext {
+        retval (txt) txt put
+    } if
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/code128 load 0 1 dict put

data/lib/rghost_barcode/ps/code2of5.ps

@@ -0,0 +1,106 @@
+
+% --DESC: Code 25
+% --EXAM: 01234567
+% --EXOP: includetext includecheck includecheckintext
+% --RNDR: renlinear
+/code2of5 {
+
+    % Thanks to Michael Landers
+
+    0 begin                 % Confine variable 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
+    /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
+    [ (1111313111) (3111111131) (1131111131) (3131111111)
+      (1111311131) (3111311111) (1131311111) (1111113131)
+      (3111113111) (1131113111) (313111) (311131)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789) def
+
+    /barlen barcode length def            % Length of the code
+
+    includecheck {
+        /sbs barlen 10 mul 22 add string def
+        /txt barlen 1 add array def
+    } {
+        /sbs barlen 10 mul 12 add string def
+        /txt barlen array def
+    } ifelse
+    
+    % Put the start character
+    sbs 0 encs 10 get putinterval
+
+    /checksum 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
+        sbs i 10 mul 6 add enc putinterval  % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 14 mul 10 add textyoffset textfont textsize] put
+        barlen i sub 2 mod 0 eq {
+            /checksum checksum indx add def
+        } {            
+            /checksum checksum indx 3 mul add def
+        } ifelse        
+    } for
+    
+    % Put the checksum and end characters
+    includecheck {
+        /checksum 10 checksum 10 mod sub 10 mod def
+        sbs barlen 10 mul 6 add encs checksum get putinterval
+        sbs barlen 10 mul 16 add encs 11 get putinterval
+        includecheckintext {
+            txt barlen [barchars checksum 1 getinterval barlen 14 mul 10 add textyoffset textfont textsize] put
+        } {            
+            txt barlen [( ) barlen 14 mul 10 add textyoffset textfont textsize] put
+        } ifelse
+    } {
+        sbs barlen 10 mul 6 add encs 11 get putinterval
+    } 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
+/code2of5 load 0 1 dict put

data/lib/rghost_barcode/ps/code39.ps

@@ -0,0 +1,109 @@
+
+% --DESC: Code 39
+% --EXAM: THIS IS CODE 39
+% --EXOP: includetext includecheck includecheckintext
+% --RNDR: renlinear
+/code39 {
+
+    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
+    /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
+    [ (1113313111) (3113111131) (1133111131) (3133111111) (1113311131)
+      (3113311111) (1133311111) (1113113131) (3113113111) (1133113111)
+      (3111131131) (1131131131) (3131131111) (1111331131) (3111331111)
+      (1131331111) (1111133131) (3111133111) (1131133111) (1111333111)
+      (3111111331) (1131111331) (3131111311) (1111311331) (3111311311)
+      (1131311311) (1111113331) (3111113311) (1131113311) (1111313311)
+      (3311111131) (1331111131) (3331111111) (1311311131) (3311311111)
+      (1331311111) (1311113131) (3311113111) (1331113111) (1313131111)
+      (1313111311) (1311131311) (1113131311) (1311313111)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%*) def
+
+    /barlen barcode length def  % Length of the code
+
+    includecheck {
+        /sbs barlen 10 mul 30 add string def
+        /txt barlen 3 add array def
+    } {
+        /sbs barlen 10 mul 20 add string def
+        /txt barlen 2 add array def
+    } ifelse
+
+    /checksum 0 def
+
+    % Put the start character
+    sbs 0 encs 43 get putinterval
+    txt 0 [(*) 0 textyoffset textfont textsize] put
+
+    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
+        sbs i 10 mul 10 add enc putinterval  % Put encoded digit into sbs
+        txt i 1 add [barcode i 1 getinterval i 1 add 16 mul textyoffset textfont textsize] put
+        /checksum checksum indx add def
+    } for
+
+    % Put the checksum and end characters
+    includecheck {
+        /checksum checksum 43 mod def
+        sbs barlen 10 mul 10 add encs checksum get putinterval
+        includecheckintext {
+            txt barlen 1 add [barchars checksum 1 getinterval barlen 1 add 16 mul textyoffset textfont textsize] put
+        } {
+            txt barlen 1 add [() barlen 1 add 16 mul textyoffset textfont textsize] put
+        } ifelse
+        sbs barlen 10 mul 20 add encs 43 get putinterval
+        txt barlen 2 add [(*) barlen 2 add 16 mul textyoffset textfont textsize] put
+    } {
+        sbs barlen 10 mul 10 add encs 43 get putinterval
+        txt barlen 1 add [(*) barlen 1 add 16 mul 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
+/code39 load 0 1 dict put