rghost_barcode 0.8 → 0.9

data/lib/rghost_barcode/ps/ean2.ps

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

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

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

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