rghost_barcode 0.8

data/lib/rghost_barcode/ps/isbn.ps

@@ -0,0 +1,118 @@
+
+% --REQUIRES ean13--
+% --DESC: ISBN
+% --EXAM: 978-1-56592-479
+% --EXOP: includetext guardwhitespace
+% --RNDR: renlinear
+/isbn {
+
+    0 begin
+
+    /options exch def      % We are given an options string
+    /useropts options def
+    /isbntxt exch def      % We are given the isbn text with dashes
+
+    /includetext false def  % Enable/disable ISBN text
+    /isbnfont /Courier def
+    /isbnsize 9 def
+    /isbnpos (unset) 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
+    
+    /isbnfont isbnfont cvlit def
+    /isbnsize isbnsize cvr def
+    /height height cvr def
+    isbnpos (unset) eq {
+        /isbnpos height 72 mul 3 add def
+    } {
+        /isbnpos isbnpos cvr def
+    } ifelse
+    
+    % Read the digits from isbntxt and calculate checksums
+    /isbn 13 string def
+    /checksum10 0 def
+    /checksum13 0 def
+    /i 0 def /n 0 def
+    { % loop
+        /isbnchar isbntxt i get 48 sub def
+        isbnchar -3 ne {     % Ignore dashes
+            isbn n isbnchar 48 add put
+            /checksum10 checksum10 10 n sub isbnchar mul add def
+            n 2 mod 0 eq {
+                /checksum13 isbnchar checksum13 add def
+            } {
+                /checksum13 isbnchar 3 mul checksum13 add def
+            } ifelse
+            /n n 1 add def
+        } if
+        /i i 1 add def
+        i isbntxt length eq {exit} if
+    } loop
+
+    % Add the ISBN header to the isbntxt
+    n 9 eq n 10 eq or {
+        /checksum 11 checksum10 11 mod sub 11 mod def
+        /isbn isbn 0 9 getinterval def
+        /pad 18 string def
+    } {
+        /checksum 10 checksum13 10 mod sub 10 mod def
+        /isbn isbn 0 12 getinterval def
+        /pad 22 string def
+    } ifelse
+    pad 0 (ISBN ) putinterval
+    pad 5 isbntxt putinterval  % Add isbntxt to the pad
+
+    % Add checksum digit if isbntxt length is 11 or 15
+    isbntxt length 11 eq isbntxt length 12 eq or 
+    isbntxt length 15 eq or isbntxt length 16 eq or {
+        pad pad length 2 sub 45 put  % Put a dash
+        checksum 10 eq {
+            pad pad length 1 sub checksum 78 add put  % Check digit for 10 is X
+        } {
+            pad pad length 1 sub checksum 48 add put  % Put check digit
+        } ifelse
+    } if
+    /isbntxt pad def                    % isbntxt=pad
+
+    % Convert ISBN digits to EAN-13
+    /barcode 12 string def
+    isbn length 9 eq {        
+        barcode 0 (978) putinterval
+        barcode 3 isbn putinterval
+    } {
+        barcode 0 isbn putinterval
+    } ifelse
+
+    % Get the result of encoding with ean13    
+    /args barcode options ean13 def
+
+    % Add the ISBN text
+    includetext {
+        isbn length 9 eq {
+            /isbnxpos -1 def
+        } {
+            /isbnxpos -12 def
+        } ifelse
+        args (txt) known {
+            /txt args (txt) get def
+            /newtxt txt length 1 add array def
+            newtxt 0 txt putinterval
+            newtxt newtxt length 1 sub [isbntxt isbnxpos isbnpos isbnfont isbnsize] put
+            args (txt) newtxt put
+        } {
+            args (txt) [ [isbntxt isbnxpos isbnpos isbnfont isbnsize] ] put
+        } ifelse
+    } if
+
+    args (opt) useropts put
+    args
+
+    end
+ 
+} bind def
+/isbn load 0 1 dict put

data/lib/rghost_barcode/ps/kix.ps

@@ -0,0 +1,98 @@
+
+% --DESC: Royal Dutch TPG Post KIX 4-State Barcode
+% --EXAM: 1231FZ13XHS
+% --EXOP: includetext includecheckintext
+% --RNDR: renlinear
+/kix {
+
+    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
+    /includecheckintext false def
+    /textfont /Courier def
+    /textsize 10 def
+    /textyoffset -7 def
+    /height 0.175 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
+    [ (0033) (0123) (0132) (1023) (1032) (1122)
+      (0213) (0303) (0312) (1203) (1212) (1302) 
+      (0231) (0321) (0330) (1221) (1230) (1320)
+      (2013) (2103) (2112) (3003) (3012) (3102)
+      (2031) (2121) (2130) (3021) (3030) (3120) 
+      (2211) (2301) (2310) (3201) (3210) (3300) 
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ) def
+
+    /barlen barcode length def
+    /encstr barlen 4 mul string def
+    /txt barlen array 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
+        encstr i 4 mul enc putinterval
+        txt i [barcode i 1 getinterval i 4 mul 3.312 mul textyoffset textfont textsize] put
+    } for
+
+    /bbs encstr length array def    
+    /bhs encstr length array def
+    0 1 encstr length 1 sub {
+        /i exch def
+        /enc encstr i 1 getinterval def
+        enc (0) eq {
+            bbs i 3 height mul 8 div put
+            bhs i 2 height mul 8 div put
+        } if
+        enc (1) eq {
+            bbs i 0 height mul 8 div put
+            bhs i 5 height mul 8 div put
+        } if
+        enc (2) eq {
+            bbs i 3 height mul 8 div put
+            bhs i 5 height mul 8 div put
+        } if
+        enc (3) eq {
+            bbs i 0 height mul 8 div put
+            bhs i 8 height mul 8 div put
+        } if
+    } for
+    
+    /retval 8 dict def
+    retval (ren) (renlinear) put
+    retval (bbs) bbs put
+    retval (bhs) bhs put
+    retval (sbs) [bhs length 1 sub {1.44 1.872} repeat 1.44] put
+    includetext {
+        retval (txt) txt put
+    } if
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/kix load 0 1 dict put

data/lib/rghost_barcode/ps/maxicode.ps

@@ -0,0 +1,307 @@
+
+% --DESC: MaxiCode
+% --EXAM: ^059^042^041^059^040^03001^02996152382802^029840^029001^0291Z00004951^029UPSN^02906X610^029159^0291234567^0291^0471^029^029Y^029634 ALPHA DR^029PITTSBURGH^029PA^030^062^004^063
+% --EXOP: mode=2
+% --RNDR: renmaximatrix
+/maxicode {
+
+    0 begin
+
+    /options exch def        % We are given an option string
+    /useropts options def
+    /barcode exch def        % We are given a barcode string
+
+    /mode 4 def
+    /sam -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
+
+    /mode mode cvi def
+    /sam sam cvi def
+
+    /txtvals (@ABCDEFGHIJKLMNOPQRSTUVWXYZ@@@@@ @@@@@@@@@@@@@@@0123456789@@@@@@) def
+
+    % Parse a given message into codewords
+    /maxiparse {
+        /txt exch def
+        /out txt length array def
+        /i 0 def /j 0 def
+        { % loop  
+            i txt length eq {exit} if
+            txt i 1 getinterval (^) eq {
+                % Codeword is given by the next three characters
+                /cw txt i 1 add 3 getinterval cvi def
+                /i i 4 add def
+            } {
+                % Codeword is the characters position in txtvals
+                txtvals txt i 1 getinterval search 
+                pop length /cw exch def pop pop
+                /i i 1 add def
+            } ifelse
+            out j cw put
+            /j j 1 add def 
+        } loop
+        out 0 j getinterval
+    } bind def
+
+    % Calcalate the structured append mode insert
+    /sami () def
+    sam -1 ne {
+        /sami (^033^000) 8 string copy def
+        sam 10 idiv 1 sub 8 mul sam 10 mod 1 sub add 10 2 string cvrs
+        dup length 8 exch sub sami exch 3 -1 roll putinterval 
+    } if
+
+    % Message handling for modes 2 and 3
+    mode 2 eq mode 3 eq or {
+
+        /msg barcode def
+
+        % Normalise messages that begin with a field identifier [)>RS01GSyy
+        msg (^059^042^041^059^040^03001^029) search {
+            pop
+            dup length 2 add string /fid exch def
+            fid 0 3 -1 roll putinterval
+            dup fid fid length 2 sub 3 -1 roll 0 2 getinterval putinterval
+            dup length 2 sub 2 exch getinterval /msg exch def
+        } {
+            pop
+            /fid () def
+        } ifelse
+
+        % Read the postcode, country code and service code fields
+        msg (^029) search pop /pc exch def
+        pop (^029) search pop /cc exch def
+        pop (^029) search pop /sc exch def
+        pop /msg exch def
+
+        % Calculate the fixed-width binary values for the mode, postcode, country code and service
+        /mdb (0000) 4 string copy dup mode cvi 2 4 string cvrs dup length 4 exch sub exch putinterval def
+        /ccb (0000000000) 10 string copy dup cc cvi 2 10 string cvrs dup length 10 exch sub exch putinterval def
+        /scb (0000000000) 10 string copy dup sc cvi 2 10 string cvrs dup length 10 exch sub exch putinterval def
+        /pcb (000000000000000000000000000000000000) 36 string copy def
+        mode 2 eq {
+            % For numeric postcode, first six bits represent length and remaining 30 bits the value
+            pcb pc length 2 6 string cvrs dup length 6 exch sub exch putinterval
+            pcb pc cvi 2 30 string cvrs dup length 36 exch sub exch putinterval
+        } {  % mode=3
+            % For alphanumeric postcode, trim or pad with spaces to 6 chars and encode to binary
+            /pccw (      ) 6 string copy dup 0 pc length 6 gt {pc 0 6 getinterval} {pc} ifelse putinterval maxiparse def
+            0 1 5 {
+                /i exch def
+                pcb pccw i get 2 6 string cvrs dup length 6 i mul 6 add exch sub exch putinterval
+            } for
+        } ifelse
+
+        % Convolute the binary values into the structured carrier message
+        /scm 60 string def
+        scm 2  mdb putinterval
+        scm 38 pcb 0  4 getinterval putinterval
+        scm 30 pcb 4  6 getinterval putinterval
+        scm 24 pcb 10 6 getinterval putinterval
+        scm 18 pcb 16 6 getinterval putinterval
+        scm 12 pcb 22 6 getinterval putinterval
+        scm 6  pcb 28 6 getinterval putinterval
+        scm 0  pcb 34 2 getinterval putinterval
+        scm 52 ccb 0  2 getinterval putinterval
+        scm 42 ccb 2  6 getinterval putinterval
+        scm 36 ccb 8  2 getinterval putinterval
+        scm 54 scb 0  6 getinterval putinterval
+        scm 48 scb 6  4 getinterval putinterval
+
+        % Evaluate the structured carrier message as codewords
+        /pri [ 0 0 0 0 0 0 0 0 0 0 ] def
+        0 1 59 { 
+            /i exch def
+            /ps i 6 idiv def
+            /ep 2 5 i 6 mod sub exp cvi scm i get 48 sub mul def
+            pri ps pri ps get ep add put
+        } for
+
+        % Encode the secondary parts, including any SAM insert and field identifier
+        /sec [ 84 {33} repeat ] def
+        sec 0 [ sami maxiparse {} forall fid maxiparse {} forall msg maxiparse {} forall ] putinterval
+
+    } if
+
+    % Message handling for modes 4, 5 and 6
+    mode 4 eq mode 5 eq or mode 6 eq or {
+
+        % Prefix the message with the structured append insert
+        /msg sami length barcode length add string def
+        msg 0 sami putinterval
+        msg sami length barcode putinterval
+
+        % First symbol is the mode and the remainder are the padded message
+        /cws [ mode 5 eq {78} {94} ifelse {33} repeat ] def
+        cws 0 mode put
+        cws 1 msg maxiparse putinterval
+
+        % Fit the message into the primary and secondary components
+        /pri cws 0 10 getinterval def
+        /sec cws 10 cws length 10 sub getinterval def
+
+    } if
+
+    % Create the 64x64 Reed-Solomon table
+    /rstable 64 64 mul array def
+    rstable 0 [ 64 {0} repeat ] putinterval
+    rstable 64 [ 0 1 63 {} for ] putinterval
+    /prev 1 def
+    64 {       
+        /next prev 1 bitshift def
+        next 64 and 0 ne {
+            /next next 67 xor def
+        } if        
+        0 1 63 {
+            /j exch def
+            /nextcell {rstable 64 next mul j add} def
+            nextcell rstable 64 prev mul j add get 1 bitshift put
+            nextcell get 64 and 0 ne {
+                nextcell nextcell get 67 xor put
+            } if
+        } for
+        /prev next def
+    } repeat
+
+    % Calculate the parity codewords for primary codewords 
+    /pgen [46 44 49 3 2 57 42 39 28 31 1] def
+    /rscodes [ 10 {0} repeat 9 -1 0 { pri exch get } for ] def
+    rscodes length 11 sub -1 0 {
+        /i exch def
+        0 1 10 {
+            /j exch def
+            rscodes i j add rscodes i j add get
+            rstable 64 pgen j get mul rscodes i 10 add get add get
+            xor put
+        } for
+    } for
+    /prichk [ 9 -1 0 { rscodes exch get } for ] def
+
+    % Split secondary codeword into odd and even elements
+    /seco [ 0 2 sec length 1 sub { sec exch get } for ] def
+    /sece [ 1 2 sec length 1 sub { sec exch get } for ] def
+
+    % Calculate the parity codewords for secondary codeword parts based on mode
+    sec length 84 eq {  % SEC mode
+        /sgen [ 59 23 19 31 33 38 17 22 48 15 36 57 37 22 8 27 33 11 44 23 1 ] def
+    } {  % EEC mode
+        /sgen [ 28 11 20 7 43 9 41 34 49 46 37 40 55 34 45 61 13 23 29 22 10 35 55 41 10 53 45 22 1 ] def
+    } ifelse
+    /scodes sgen length 1 sub def
+    /rscodes [ scodes {0} repeat seco length 1 sub -1 0 { seco exch get } for ] def
+    rscodes length scodes sub 1 sub -1 0 {
+        /i exch def
+        0 1 scodes {
+            /j exch def
+            rscodes i j add rscodes i j add get
+            rstable 64 sgen j get mul rscodes i scodes add get add get
+            xor put
+        } for
+    } for
+    /secochk [ scodes 1 sub -1 0 { rscodes exch get } for ] def
+    /rscodes [ scodes {0} repeat sece length 1 sub -1 0 { sece exch get } for ] def
+    rscodes length scodes sub 1 sub -1 0 {
+        /i exch def
+        0 1 scodes {
+            /j exch def
+            rscodes i j add rscodes i j add get
+            rstable 64 sgen j get mul rscodes i scodes add get add get
+            xor put
+        } for
+    } for
+    /secechk [ scodes 1 sub -1 0 { rscodes exch get } for ] def
+
+    % Recompose the secondary parity codewords
+    /secchk [ 0 1 scodes 1 sub { dup secochk exch get exch secechk exch get } for ] def
+
+    % Concatinate the data into final codewords
+    /codewords [
+        pri {} forall 
+        prichk {} forall
+        sec {} forall 
+        secchk {} forall
+    ] def
+
+    % Convert the codewords into module bits
+    /mods [ 864 {0} repeat ] def
+    0 1 143 {
+        /i exch def
+        /cw [ codewords i get 2 6 string cvrs {48 sub} forall ] def
+        mods 6 i mul 6 cw length sub add cw putinterval
+    } for
+
+    % Maps modules to pixels in the grid
+    /modmap [
+        469 529 286 316 347 346 673 672 703 702 647 676 283 282 313 312 370 610 618 379 
+        378 409 408 439 705 704 559 589 588 619 458 518 640 701 675 674 285 284 315 314 
+        310 340 531 289 288 319 349 348 456 486 517 516 471 470 369 368 399 398 429 428 
+        549 548 579 578 609 608 649 648 679 678 709 708 639 638 669 668 699 698 279 278 
+        309 308 339 338 381 380 411 410 441 440 561 560 591 590 621 620 547 546 577 576 
+        607 606 367 366 397 396 427 426 291 290 321 320 351 350 651 650 681 680 711 710 
+        1   0   31  30  61  60  3   2   33  32  63  62  5   4   35  34  65  64  7   6   
+        37  36  67  66  9   8   39  38  69  68  11  10  41  40  71  70  13  12  43  42  
+        73  72  15  14  45  44  75  74  17  16  47  46  77  76  19  18  49  48  79  78  
+        21  20  51  50  81  80  23  22  53  52  83  82  25  24  55  54  85  84  27  26  
+        57  56  87  86  117 116 147 146 177 176 115 114 145 144 175 174 113 112 143 142 
+        173 172 111 110 141 140 171 170 109 108 139 138 169 168 107 106 137 136 167 166 
+        105 104 135 134 165 164 103 102 133 132 163 162 101 100 131 130 161 160 99  98  
+        129 128 159 158 97  96  127 126 157 156 95  94  125 124 155 154 93  92  123 122 
+        153 152 91  90  121 120 151 150 181 180 211 210 241 240 183 182 213 212 243 242 
+        185 184 215 214 245 244 187 186 217 216 247 246 189 188 219 218 249 248 191 190 
+        221 220 251 250 193 192 223 222 253 252 195 194 225 224 255 254 197 196 227 226 
+        257 256 199 198 229 228 259 258 201 200 231 230 261 260 203 202 233 232 263 262 
+        205 204 235 234 265 264 207 206 237 236 267 266 297 296 327 326 357 356 295 294 
+        325 324 355 354 293 292 323 322 353 352 277 276 307 306 337 336 275 274 305 304 
+        335 334 273 272 303 302 333 332 271 270 301 300 331 330 361 360 391 390 421 420 
+        363 362 393 392 423 422 365 364 395 394 425 424 383 382 413 412 443 442 385 384 
+        415 414 445 444 387 386 417 416 447 446 477 476 507 506 537 536 475 474 505 504 
+        535 534 473 472 503 502 533 532 455 454 485 484 515 514 453 452 483 482 513 512 
+        451 450 481 480 511 510 541 540 571 570 601 600 543 542 573 572 603 602 545 544 
+        575 574 605 604 563 562 593 592 623 622 565 564 595 594 625 624 567 566 597 596 
+        627 626 657 656 687 686 717 716 655 654 685 684 715 714 653 652 683 682 713 712 
+        637 636 667 666 697 696 635 634 665 664 695 694 633 632 663 662 693 692 631 630 
+        661 660 691 690 721 720 751 750 781 780 723 722 753 752 783 782 725 724 755 754 
+        785 784 727 726 757 756 787 786 729 728 759 758 789 788 731 730 761 760 791 790 
+        733 732 763 762 793 792 735 734 765 764 795 794 737 736 767 766 797 796 739 738 
+        769 768 799 798 741 740 771 770 801 800 743 742 773 772 803 802 745 744 775 774 
+        805 804 747 746 777 776 807 806 837 836 867 866 897 896 835 834 865 864 895 894 
+        833 832 863 862 893 892 831 830 861 860 891 890 829 828 859 858 889 888 827 826 
+        857 856 887 886 825 824 855 854 885 884 823 822 853 852 883 882 821 820 851 850 
+        881 880 819 818 849 848 879 878 817 816 847 846 877 876 815 814 845 844 875 874 
+        813 812 843 842 873 872 811 810 841 840 871 870 901 900 931 930 961 960 903 902 
+        933 932 963 962 905 904 935 934 965 964 907 906 937 936 967 966 909 908 939 938 
+        969 968 911 910 941 940 971 970 913 912 943 942 973 972 915 914 945 944 975 974 
+        917 916 947 946 977 976 919 918 949 948 979 978 921 920 951 950 981 980 923 922 
+        953 952 983 982 925 924 955 954 985 984 927 926 957 956 987 986 58  89  88  118 
+        149 148 178 209 208 238 269 268 298 329 328 358 389 388 418 449 448 478 509 508 
+        538 569 568 598 629 628 658 689 688 718 749 748 778 809 808 838 869 868 898 929 
+        928 958 989 988
+    ] def
+
+    % Lookup pixels for enabled modules from modmap
+    /pixs 864 array def
+    /j 0 def
+    0 1 mods length 1 sub {
+        /i exch def
+        mods i get 1 eq {
+            pixs j modmap i get put
+            /j j 1 add def
+        } if
+    } for
+    /pixs [ pixs 0 j getinterval {} forall 28 29 280 281 311 457 488 500 530 670 700 677 707 ] def
+
+    /retval 3 dict def
+    retval (ren) (renmaximatrix) put
+    retval (pixs) pixs put
+    retval (opt) useropts put
+    retval
+
+    end
+
+} bind def
+/maxicode load 0 1 dict put