rghost_barcode 0.8

data/lib/rghost_barcode/ps/code93.ps

@@ -0,0 +1,117 @@
+
+% --DESC: Code 93
+% --EXAM: THIS IS CODE 93
+% --EXOP: includetext includecheck
+% --RNDR: renlinear
+/code93 {
+
+    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
+    /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
+    
+    /encs
+    [ (131112) (111213) (111312) (111411) (121113)
+      (121212) (121311) (111114) (131211) (141111)
+      (211113) (211212) (211311) (221112) (221211)
+      (231111) (112113) (112212) (112311) (122112)
+      (132111) (111123) (111222) (111321) (121122)
+      (131121) (212112) (212211) (211122) (211221)
+      (221121) (222111) (112122) (112221) (122121)
+      (123111) (121131) (311112) (311211) (321111)
+      (112131) (113121) (211131) (121221) (312111)
+      (311121) (122211) (111141) (1111411)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) def
+
+    /barlen barcode length def  % Length of the code    
+    barcode {
+        (^) search false eq {pop exit} if
+        pop pop /barlen barlen 3 sub def
+    } loop
+
+    includecheck {
+        /sbs barlen 6 mul 25 add string def
+    } {
+        /sbs barlen 6 mul 13 add string def
+    } ifelse
+    /txt barlen array def
+    
+    % Put the start character
+    sbs 0 encs 47 get putinterval
+    
+    /checksum1 0 def /checksum2 0 def
+
+    /i 0 def /j 0 def
+    { % loop
+        j 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 9 mul 9 add textyoffset textfont textsize] put
+            /i i 4 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 9 mul 9 add textyoffset textfont textsize] put
+            /i i 1 add def
+        } ifelse
+        /enc encs indx get def             % Get the indxth encoding
+        sbs j 6 mul 6 add enc putinterval  % Put encoded digit into sbs
+        /checksum1 checksum1 barlen j sub 1 sub 20 mod 1 add indx mul add def
+        /checksum2 checksum2 barlen j sub 15 mod 1 add indx mul add def
+        /j j 1 add def
+    } loop
+    
+    includecheck {
+        % Put the first checksum character
+        /checksum1 checksum1 47 mod def
+        /checksum2 checksum2 checksum1 add 47 mod def
+        sbs j 6 mul 6 add encs checksum1 get putinterval
+        sbs j 6 mul 12 add encs checksum2 get putinterval
+        % Put the end character
+        sbs j 6 mul 18 add encs 48 get putinterval
+    } {
+        % Put the end character
+        sbs j 6 mul 6 add encs 48 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
+/code93 load 0 1 dict put

data/lib/rghost_barcode/ps/datamatrix.ps

@@ -0,0 +1,328 @@
+
+% --DESC: Data Matrix
+% --EXAM: ^142^164^186
+% --EXOP: rows=32 columns=32
+% --RNDR: renmatrix
+/datamatrix {
+
+    0 begin
+
+    /options exch def
+    /useropts options def
+    /barcode exch def
+
+    /columns 0 def
+    /rows 0 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
+
+    /columns columns cvi def
+    /rows rows cvi def
+
+    % Split the input barcode into an array of codewords
+    /cws barcode length array def
+    /i 0 def /j 0 def
+    { % loop
+        i barcode length eq {exit} if
+        /cw barcode i 1 add 3 getinterval cvi def
+        cws j cw put
+        /i i 4 add def
+        /j j 1 add def
+    } loop
+    /cws cws 0 j getinterval def
+
+    % Basic metrics for the each symbol
+    %    rows  cols  regh  regv  rscw  rsbl
+    /metrics [
+        % Standard square symbols
+        [  10    10     1     1     5     1 ]
+        [  12    12     1     1     7     1 ]
+        [  14    14     1     1    10     1 ]
+        [  16    16     1     1    12     1 ]
+        [  18    18     1     1    14     1 ]
+        [  20    20     1     1    18     1 ] 
+        [  22    22     1     1    20     1 ]
+        [  24    24     1     1    24     1 ]
+        [  26    26     1     1    28     1 ]
+        [  32    32     2     2    36     1 ]
+        [  36    36     2     2    42     1 ]
+        [  40    40     2     2    48     1 ]
+        [  44    44     2     2    56     1 ]
+        [  48    48     2     2    68     1 ]
+        [  52    52     2     2    84     2 ]
+        [  64    64     4     4   112     2 ]
+        [  72    72     4     4   144     4 ]
+        [  80    80     4     4   192     4 ]
+        [  88    88     4     4   224     4 ]
+        [  96    96     4     4   272     4 ]
+        [ 104   104     4     4   336     6 ]
+        [ 120   120     6     6   408     6 ]
+        [ 132   132     6     6   496     8 ]
+        [ 144   144     6     6   620    10 ]
+        % Optional rectangular symbols
+        [   8    18     1     1     7     1 ]
+        [   8    32     1     2    11     1 ]
+        [  12    26     1     1    14     1 ]
+        [  12    36     1     2    18     1 ]
+        [  16    36     1     2    24     1 ]
+        [  16    48     1     2    28     1 ]
+    ] def
+
+    % Select metrics of an appropriate symbol
+    /urows rows def
+    /ucols columns def
+    /i 0 def
+    { % loop
+        /m metrics i get def
+        /rows m 0 get def                          % Rows in symbol
+        /cols m 1 get def                          % Columns in symbol
+        /regh m 2 get def                          % Horizontal regions
+        /regv m 3 get def                          % Vertical regions
+        /rscw m 4 get def                          % Error correction codewords
+        /rsbl m 5 get def                          % Error correction blocks
+        /mrows rows 2 regh mul sub def             % Rows in the mapping matrix
+        /mcols cols 2 regv mul sub def             % Columns in the mapping matrix
+        /rrows mrows regh idiv def                 % Rows per region
+        /rcols mcols regv idiv def                 % Columns per region
+        /ncws mrows mcols mul 8 idiv rscw sub def  % Data codewords
+        /okay true def
+        cws length ncws gt           {/okay false def} if
+        urows 0 ne urows rows ne and {/okay false def} if
+        ucols 0 ne ucols cols ne and {/okay false def} if
+        okay {exit} if
+        /i i 1 add def
+    } loop
+
+    % Extend cws to ncws codewords by addition of pseudo-randomised pad characters
+    cws length ncws lt {
+        /datlen cws length def
+        /cws [ cws {} forall ncws datlen sub {129} repeat ] def
+        datlen 1 add 1 ncws 1 sub {
+            /i exch def
+            i 1 add 149 mul 253 mod 1 add 129 add
+            dup 254 gt {254 sub} if
+            cws exch i exch put
+        } for
+    } if
+
+    % De-interleave the codewords into blocks
+    /cwbs rsbl array def  % Array of data codeword blocks
+    /ecbs rsbl array def  % Array of error correction blocks
+    0 1 rsbl 1 sub {
+        /i exch def
+        cws length 1558 ne {
+            /cwbsize cws length rsbl idiv def
+        } {
+            i 7 le {/cwbsize 156 def} {/cwbsize 155 def} ifelse
+        } ifelse
+        /cwb cwbsize array def 
+        0 1 cwbsize 1 sub {
+            /j exch def
+            cwb j cws j rsbl mul i add get put
+        } for 
+        cwbs i cwb put
+        ecbs i [ rscw rsbl idiv {0} repeat ] put
+    } for
+
+    % Calculate the log and anti-log tables
+    /rslog [ -255 255 {0} repeat ] def
+    /rsalog [ 1 255 {0} repeat ] def
+    1 1 255 {
+        /i exch def
+        rsalog i rsalog i 1 sub get 2 mul put
+        rsalog i get 256 ge { rsalog i rsalog i get 301 xor put } if
+        rslog rsalog i get i put
+    } for
+
+    % Function to calculate the product in the field
+    /rsprod {
+        /y exch def
+        /x exch def
+        x y mul 0 ne { 
+            rsalog rslog x get rslog y get add 255 mod get
+        } {
+            0
+        } ifelse
+    } bind def
+
+    % Generate the coefficients
+    /coeffs [ 1 rscw rsbl idiv {0} repeat ] def
+    1 1 rscw rsbl idiv {
+        /i exch def 
+        coeffs i coeffs i 1 sub get put
+        i 1 sub -1 1 {
+            /j exch def
+            coeffs j coeffs j 1 sub get coeffs j get rsalog i get rsprod xor put
+        } for 
+        coeffs 0 coeffs 0 get rsalog i get rsprod put
+    } for
+    /coeffs coeffs 0 coeffs length 1 sub getinterval def
+
+    % Calculate the error correction codewords for each block
+    0 1 cwbs length 1 sub {
+        /i exch def
+        /cwb cwbs i get def
+        /ecb ecbs i get def
+        0 1 cwb length 1 sub {
+            /t exch cwb exch get ecb 0 get xor def 
+            ecb length 1 sub -1 0 {
+                /j exch def
+                /p ecb length j sub 1 sub def
+                t 0 eq {
+                    ecb p 0 put
+                } {
+                    ecb p rsalog rslog t get rslog coeffs j get get add 255 mod get put
+                } ifelse
+                j 0 gt { ecb p ecb p 1 add get ecb p get xor put } if
+            } for 
+        } for
+        ecbs i ecb put
+    } for
+
+    % Extend codewords with the interleaved error correction codes
+    /cws [ cws {} forall rscw {0} repeat ] def
+    0 1 rscw 1 sub {
+        /i exch def
+        cws ncws i add ecbs i rsbl mod get i rsbl idiv get put
+    } for
+
+    % Create the module placement matrix
+    /module {
+        /tmpc exch def
+        /tmpr exch def
+        tmpr 0 lt {  
+            /tmpr tmpr mrows add def
+            /tmpc tmpc 4 mrows 4 add 8 mod sub add def
+        } if
+        tmpc 0 lt { 
+            /tmpc tmpc mcols add def
+            /tmpr tmpr 4 mcols 4 add 8 mod sub add def
+        } if
+        mmat tmpr mcols mul tmpc add bit put
+        /bit bit 1 add def
+    } bind def
+
+    /mmat [ mrows mcols mul {-1} repeat ] def
+    /bit 0 def /row 4 def /col 0 def
+    { % loop
+
+        row mrows eq col 0 eq and {
+            [ [mrows 1 sub 0] [mrows 1 sub 1] [mrows 1 sub 2] [0 mcols 2 sub]
+              [0 mcols 1 sub] [1 mcols 1 sub] [2 mcols 1 sub] [3 mcols 1 sub] ]
+            {{} forall module} forall 
+        } if
+        row mrows 2 sub eq col 0 eq and mcols 4 mod 0 ne and {
+            [ [mrows 3 sub 0] [mrows 2 sub 0] [mrows 1 sub 0] [0 mcols 4 sub]
+              [0 mcols 3 sub] [0 mcols 2 sub] [0 mcols 1 sub] [1 mcols 1 sub] ]
+            {{} forall module} forall
+        } if
+        row mrows 2 sub eq col 0 eq and mcols 8 mod 4 eq and {
+            [ [mrows 3 sub 0] [mrows 2 sub 0] [mrows 1 sub 0] [0 mcols 2 sub]
+              [0 mcols 1 sub] [1 mcols 1 sub] [2 mcols 1 sub] [3 mcols 1 sub] ]
+            {{} forall module} forall
+        } if
+        row mrows 4 add eq col 2 eq and mcols 8 mod 0 eq and {
+            [ [mrows 1 sub 0] [mrows 1 sub mcols 1 sub] [0 mcols 3 sub] [0 mcols 2 sub]
+              [0 mcols 1 sub] [1 mcols 3 sub]           [1 mcols 2 sub] [1 mcols 1 sub] ]
+            {{} forall module} forall
+        } if
+
+        { % loop for sweeping upwards
+            row mrows lt col 0 ge and {
+                mmat row mcols mul col add get -1 eq {
+                    [ [row 2 sub col 2 sub] [row 2 sub col 1 sub] [row 1 sub col 2 sub] [row 1 sub col 1 sub]
+                      [row 1 sub col]       [row col 2 sub]       [row col 1 sub]       [row col] ]
+                    {{} forall module} forall
+                } if
+            } if
+            /row row 2 sub def
+            /col col 2 add def
+            row 0 ge col mcols lt and not {exit} if
+        } loop
+        /row row 1 add def
+        /col col 3 add def
+
+        { % loop for sweeping downwards
+            row 0 ge col mcols lt and {
+                mmat row mcols mul col add get -1 eq {
+                    [ [row 2 sub col 2 sub] [row 2 sub col 1 sub] [row 1 sub col 2 sub] [row 1 sub col 1 sub]
+                      [row 1 sub col]       [row col 2 sub]       [row col 1 sub]       [row col] ]
+                    {{} forall module} forall
+                } if
+            } if
+            /row row 2 add def
+            /col col 2 sub def
+            row mrows lt col 0 ge and not {exit} if
+        } loop
+        /row row 3 add def
+        /col col 1 add def
+
+        row mrows lt col mcols lt or not {exit} if
+    } loop
+
+    % Set checker pattern if required
+    mmat mrows mcols mul 1 sub get -1 eq {
+        mmat mrows mcols 1 sub mul 2 sub [-1 -2] putinterval
+        mmat mrows mcols mul 2 sub [-2 -1] putinterval
+    } if
+
+    % Invert the map to form the mapping matrix correcting the checker case
+    /modmap mrows mcols mul 8 idiv 8 mul array def
+    0 1 mmat length 1 sub {
+        /i exch def
+        mmat i get 0 ge {
+            modmap mmat i get i put
+        } {
+            mmat i mmat i get 2 add put
+        } ifelse
+    } for
+
+    % Place the codewords in the matrix according to the mapping matrix
+    0 1 cws length 1 sub {
+        /i exch def
+        [ 8 {0} repeat cws i get 2 8 string cvrs {48 sub} forall ]
+        dup length 8 sub 8 getinterval /bits exch def
+        0 1 7 {
+            /j exch def
+            mmat modmap i 8 mul j add get bits j get put
+        } for
+    } for
+
+    % Place the modules onto a pixel map between alignment patterns
+    /pixs rows cols mul array def
+    /cwpos 0 def
+    0 1 rows 1 sub {
+        /i exch def
+        i rrows 2 add mod 0 eq { pixs i cols mul [ cols 2 idiv {1 0} repeat ] putinterval } if  
+        i rrows 2 add mod rrows 1 add eq { pixs i cols mul [ cols {1} repeat ] putinterval } if 
+        i rrows 2 add mod 0 ne i rrows 2 add mod rrows 1 add ne and {
+            0 1 cols 1 sub {
+                /j exch def
+                j rcols 2 add mod 0 eq { pixs i cols mul j add 1 put } if
+                j rcols 2 add mod rcols 1 add eq { pixs i cols mul j add i 2 mod put } if
+                j rcols 2 add mod 0 ne j rcols 2 add mod rcols 1 add ne and {
+                    pixs i cols mul j add mmat cwpos get put
+                    /cwpos cwpos 1 add def
+                } if
+            } for
+        } if 
+    } for
+
+    /retval 7 dict def
+    retval (ren) (renmatrix) put
+    retval (pixs) pixs put
+    retval (pixx) cols put
+    retval (pixy) rows put
+    retval (height) rows 72 div 1.5 mul put
+    retval (width) cols 72 div 1.5 mul put
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/datamatrix load 0 1 dict put

data/lib/rghost_barcode/ps/ean13.ps

@@ -0,0 +1,183 @@
+%!PS-Adobe-2.0
+%%Creator: Terry Burton
+%%DocumentPaperSizes: a4
+%%EndComments
+%%EndProlog
+
+% Barcode Writer in Pure PostScript - Version 2008-04-06-1
+% http://www.terryburton.co.uk/barcodewriter/
+%
+% Copyright (c) 2008 Terry Burton - tez@terryburton.co.uk
+%
+% Permission is hereby granted, free of charge, to any
+% person obtaining a copy of this software and associated
+% documentation files (the "Software"), to deal in the
+% Software without restriction, including without
+% limitation the rights to use, copy, modify, merge,
+% publish, distribute, sublicense, and/or sell copies of
+% the Software, and to permit persons to whom the Software
+% is furnished to do so, subject to the following
+% conditions:
+%
+% The above copyright notice and this permission notice
+% shall be included in all copies or substantial portions
+% of the Software.
+%
+% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY
+% KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO
+% THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+% PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+% THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
+% DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
+% CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+% CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
+% IN THE SOFTWARE.
+
+% Uncomment this next line to allow these procedure definitions to 
+% remain resident within a printer's PostScript virtual machine 
+% so that the barcode generation capability persists between jobs.
+
+% serverdict begin 0 exitserver 
+
+% --BEGIN TEMPLATE--
+
+% --DESC: EAN-13
+% --EXAM: 977147396801
+% --EXOP: includetext guardwhitespace
+% --RNDR: renlinear
+/ean13 {
+
+    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
+    
+    /barlen barcode length def         % Length of the code
+
+    % Add checksum digit to barcode if length is even
+    barlen 2 mod 0 eq {
+        /pad barlen 1 add string def   % Create pad one bigger than barcode
+        /checksum 0 def
+        0 1 barlen 1 sub {
+            /i exch def
+            /barchar barcode i get 48 sub def
+            i 2 mod 0 eq {
+                /checksum barchar checksum add def
+            } {
+                /checksum barchar 3 mul checksum add def
+            } ifelse
+        } for
+        /checksum 10 checksum 10 mod sub 10 mod def
+        pad 0 barcode putinterval       % Add barcode to the start of the pad
+        pad barlen checksum 48 add put  % Put ascii for checksum at end of pad
+        /barcode pad def                % barcode=pad
+        /barlen barlen 1 add def        % barlen++
+    } if
+
+    % 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
+
+    % Digits to mirror on left side
+    /mirrormaps
+    [ (000000) (001011) (001101) (001110) (010011)
+      (011001) (011100) (010101) (010110) (011010)
+    ] def
+
+    /sbs barlen 1 sub 4 mul 11 add string def
+    /txt barlen array def
+  
+    % Put the start character
+    sbs 0 encs 10 get putinterval
+
+    % First digit - determine mirrormap by this and show before guard bars
+    /mirrormap mirrormaps barcode 0 get 48 sub get def
+    txt 0 [barcode 0 1 getinterval -10 textyoffset textfont textsize] put
+
+    % Left side - performs mirroring
+    1 1 6 {
+        % 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
+        mirrormap i 1 sub 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 1 sub 4 mul 3 add enc putinterval   % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 1 sub 7 mul 4 add textyoffset textfont textsize] put
+    } for
+
+    % Put the middle character
+    sbs 7 1 sub 4 mul 3 add encs 11 get putinterval
+
+    % Right side
+    7 1 12 {
+        % 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 1 sub 4 mul 8 add enc putinterval  % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 1 sub 7 mul 8 add textyoffset textfont textsize] put
+    } for
+
+    % Put the end character
+    sbs barlen 1 sub 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 12{height .075 sub}repeat height height 12{height .075 sub}repeat height height] put
+        retval (bbs) [0 0 12{.075}repeat 0 0 12{.075}repeat 0 0] put
+        retval (txt) txt put
+    } {
+        retval (bhs) [30{height}repeat] put        
+        retval (bbs) [30{0}repeat] put
+    } ifelse
+    retval (opt) useropts put
+    retval (guardrightpos) 10 put
+    retval (borderbottom) 5 put
+    retval
+    
+    end
+
+} bind def
+/ean13 load 0 1 dict put