rghost_barcode 0.8 → 0.9

data/lib/rghost_barcode/ps/code11.ps

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

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

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

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