rghost_barcode 0.8 → 0.9

data/lib/rghost_barcode/ps/code93.ps

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

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

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