rghost_barcode 0.8 → 0.9

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (146) hide show
  1. data/lib/rghost_barcode.rb +7 -5
  2. data/lib/rghost_barcode/ps/barcode_base.ps +17090 -0
  3. data/lib/rghost_barcode/rghost_barcode_adapter.rb +22 -226
  4. data/lib/rghost_barcode/rghost_barcode_base.rb +12 -14
  5. data/lib/rghost_barcode/rghost_barcode_types.rb +86 -0
  6. data/lib/rghost_barcode/rghost_barcode_version.rb +2 -2
  7. metadata +30 -177
  8. data/lib/doc/classes/RGhost.html +0 -109
  9. data/lib/doc/classes/RGhost/Barcode.html +0 -147
  10. data/lib/doc/classes/RGhost/Barcode/Auspost.html +0 -113
  11. data/lib/doc/classes/RGhost/Barcode/Azteccode.html +0 -113
  12. data/lib/doc/classes/RGhost/Barcode/Base.html +0 -266
  13. data/lib/doc/classes/RGhost/Barcode/Base.src/M000004.html +0 -34
  14. data/lib/doc/classes/RGhost/Barcode/Base.src/M000005.html +0 -30
  15. data/lib/doc/classes/RGhost/Barcode/Base.src/M000006.html +0 -20
  16. data/lib/doc/classes/RGhost/Barcode/Border.html +0 -170
  17. data/lib/doc/classes/RGhost/Barcode/Border.src/M000001.html +0 -27
  18. data/lib/doc/classes/RGhost/Barcode/Code11.html +0 -113
  19. data/lib/doc/classes/RGhost/Barcode/Code128.html +0 -113
  20. data/lib/doc/classes/RGhost/Barcode/Code2of5.html +0 -113
  21. data/lib/doc/classes/RGhost/Barcode/Code39.html +0 -113
  22. data/lib/doc/classes/RGhost/Barcode/Code93.html +0 -113
  23. data/lib/doc/classes/RGhost/Barcode/Datamatrix.html +0 -113
  24. data/lib/doc/classes/RGhost/Barcode/Ean13.html +0 -113
  25. data/lib/doc/classes/RGhost/Barcode/Ean2.html +0 -113
  26. data/lib/doc/classes/RGhost/Barcode/Ean5.html +0 -113
  27. data/lib/doc/classes/RGhost/Barcode/Ean8.html +0 -113
  28. data/lib/doc/classes/RGhost/Barcode/Guard.html +0 -174
  29. data/lib/doc/classes/RGhost/Barcode/Guard.src/M000003.html +0 -27
  30. data/lib/doc/classes/RGhost/Barcode/Interleaved2of5.html +0 -113
  31. data/lib/doc/classes/RGhost/Barcode/Isbn.html +0 -113
  32. data/lib/doc/classes/RGhost/Barcode/Kix.html +0 -113
  33. data/lib/doc/classes/RGhost/Barcode/Maxicode.html +0 -113
  34. data/lib/doc/classes/RGhost/Barcode/Msi.html +0 -113
  35. data/lib/doc/classes/RGhost/Barcode/Onecode.html +0 -113
  36. data/lib/doc/classes/RGhost/Barcode/Parameter.html +0 -262
  37. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000007.html +0 -20
  38. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000008.html +0 -18
  39. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000009.html +0 -18
  40. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000010.html +0 -18
  41. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000011.html +0 -18
  42. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000012.html +0 -24
  43. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000013.html +0 -18
  44. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000014.html +0 -18
  45. data/lib/doc/classes/RGhost/Barcode/Parameter.src/M000015.html +0 -16
  46. data/lib/doc/classes/RGhost/Barcode/Pdf417.html +0 -113
  47. data/lib/doc/classes/RGhost/Barcode/Pharmacode.html +0 -113
  48. data/lib/doc/classes/RGhost/Barcode/Plessey.html +0 -113
  49. data/lib/doc/classes/RGhost/Barcode/Postnet.html +0 -113
  50. data/lib/doc/classes/RGhost/Barcode/Qrcode.html +0 -113
  51. data/lib/doc/classes/RGhost/Barcode/Rationalizedcodabar.html +0 -113
  52. data/lib/doc/classes/RGhost/Barcode/Raw.html +0 -113
  53. data/lib/doc/classes/RGhost/Barcode/Royalmail.html +0 -113
  54. data/lib/doc/classes/RGhost/Barcode/Rss14.html +0 -113
  55. data/lib/doc/classes/RGhost/Barcode/Rssexpanded.html +0 -113
  56. data/lib/doc/classes/RGhost/Barcode/Rsslimited.html +0 -113
  57. data/lib/doc/classes/RGhost/Barcode/Symbol.html +0 -113
  58. data/lib/doc/classes/RGhost/Barcode/Text.html +0 -193
  59. data/lib/doc/classes/RGhost/Barcode/Text.src/M000002.html +0 -30
  60. data/lib/doc/classes/RGhost/Barcode/Upca.html +0 -113
  61. data/lib/doc/classes/RGhost/Barcode/Upce.html +0 -113
  62. data/lib/doc/classes/RGhost/Config.html +0 -150
  63. data/lib/doc/classes/RGhost/Config.src/M000016.html +0 -45
  64. data/lib/doc/classes/RGhost/Document.html +0 -704
  65. data/lib/doc/classes/RGhost/Document.src/M000017.html +0 -19
  66. data/lib/doc/classes/RGhost/Document.src/M000018.html +0 -18
  67. data/lib/doc/classes/RGhost/Document.src/M000019.html +0 -18
  68. data/lib/doc/classes/RGhost/Document.src/M000020.html +0 -18
  69. data/lib/doc/classes/RGhost/Document.src/M000021.html +0 -18
  70. data/lib/doc/classes/RGhost/Document.src/M000022.html +0 -18
  71. data/lib/doc/classes/RGhost/Document.src/M000023.html +0 -18
  72. data/lib/doc/classes/RGhost/Document.src/M000024.html +0 -18
  73. data/lib/doc/classes/RGhost/Document.src/M000025.html +0 -18
  74. data/lib/doc/classes/RGhost/Document.src/M000026.html +0 -18
  75. data/lib/doc/classes/RGhost/Document.src/M000027.html +0 -18
  76. data/lib/doc/classes/RGhost/Document.src/M000028.html +0 -18
  77. data/lib/doc/classes/RGhost/Document.src/M000029.html +0 -18
  78. data/lib/doc/classes/RGhost/Document.src/M000030.html +0 -18
  79. data/lib/doc/classes/RGhost/Document.src/M000031.html +0 -18
  80. data/lib/doc/classes/RGhost/Document.src/M000032.html +0 -18
  81. data/lib/doc/classes/RGhost/Document.src/M000033.html +0 -18
  82. data/lib/doc/classes/RGhost/Document.src/M000034.html +0 -18
  83. data/lib/doc/classes/RGhost/Document.src/M000035.html +0 -18
  84. data/lib/doc/classes/RGhost/Document.src/M000036.html +0 -18
  85. data/lib/doc/classes/RGhost/Document.src/M000037.html +0 -18
  86. data/lib/doc/classes/RGhost/Document.src/M000038.html +0 -18
  87. data/lib/doc/classes/RGhost/Document.src/M000039.html +0 -18
  88. data/lib/doc/classes/RGhost/Document.src/M000040.html +0 -18
  89. data/lib/doc/classes/RGhost/Document.src/M000041.html +0 -18
  90. data/lib/doc/classes/RGhost/Document.src/M000042.html +0 -18
  91. data/lib/doc/classes/RGhost/Document.src/M000043.html +0 -18
  92. data/lib/doc/classes/RGhost/Document.src/M000044.html +0 -18
  93. data/lib/doc/classes/RGhost/Document.src/M000045.html +0 -18
  94. data/lib/doc/classes/RGhost/Document.src/M000046.html +0 -18
  95. data/lib/doc/classes/RGhost/Document.src/M000047.html +0 -18
  96. data/lib/doc/classes/RGhost/Document.src/M000048.html +0 -18
  97. data/lib/doc/created.rid +0 -1
  98. data/lib/doc/files/rghost_barcode/rghost_barcode_adapter_rb.html +0 -101
  99. data/lib/doc/files/rghost_barcode/rghost_barcode_base_rb.html +0 -101
  100. data/lib/doc/files/rghost_barcode/rghost_barcode_classes_rb.html +0 -101
  101. data/lib/doc/files/rghost_barcode/rghost_barcode_examples_rb.html +0 -101
  102. data/lib/doc/files/rghost_barcode/rghost_barcode_version_rb.html +0 -101
  103. data/lib/doc/files/rghost_barcode_rb.html +0 -111
  104. data/lib/doc/files/teste_main_rb.html +0 -110
  105. data/lib/doc/fr_class_index.html +0 -67
  106. data/lib/doc/fr_file_index.html +0 -33
  107. data/lib/doc/fr_method_index.html +0 -74
  108. data/lib/doc/index.html +0 -24
  109. data/lib/rghost_barcode/ps/auspost.ps +0 -192
  110. data/lib/rghost_barcode/ps/azteccode.ps +0 -357
  111. data/lib/rghost_barcode/ps/barcode_template.eps +0 -1193
  112. data/lib/rghost_barcode/ps/code11.ps +0 -128
  113. data/lib/rghost_barcode/ps/code128.ps +0 -121
  114. data/lib/rghost_barcode/ps/code2of5.ps +0 -106
  115. data/lib/rghost_barcode/ps/code39.ps +0 -109
  116. data/lib/rghost_barcode/ps/code93.ps +0 -117
  117. data/lib/rghost_barcode/ps/datamatrix.ps +0 -328
  118. data/lib/rghost_barcode/ps/ean13.ps +0 -183
  119. data/lib/rghost_barcode/ps/ean2.ps +0 -101
  120. data/lib/rghost_barcode/ps/ean5.ps +0 -116
  121. data/lib/rghost_barcode/ps/ean8.ps +0 -101
  122. data/lib/rghost_barcode/ps/interleaved2of5.ps +0 -132
  123. data/lib/rghost_barcode/ps/isbn.ps +0 -118
  124. data/lib/rghost_barcode/ps/kix.ps +0 -98
  125. data/lib/rghost_barcode/ps/maxicode.ps +0 -307
  126. data/lib/rghost_barcode/ps/msi.ps +0 -104
  127. data/lib/rghost_barcode/ps/onecode.ps +0 -276
  128. data/lib/rghost_barcode/ps/pdf417.ps +0 -428
  129. data/lib/rghost_barcode/ps/pharmacode.ps +0 -69
  130. data/lib/rghost_barcode/ps/plessey.ps +0 -121
  131. data/lib/rghost_barcode/ps/postnet.ps +0 -114
  132. data/lib/rghost_barcode/ps/qrcode.ps +0 -530
  133. data/lib/rghost_barcode/ps/rationalizedcodabar.ps +0 -117
  134. data/lib/rghost_barcode/ps/raw.ps +0 -35
  135. data/lib/rghost_barcode/ps/render.ps +0 -307
  136. data/lib/rghost_barcode/ps/render.ps~ +0 -308
  137. data/lib/rghost_barcode/ps/royalmail.ps +0 -119
  138. data/lib/rghost_barcode/ps/rss14.ps +0 -237
  139. data/lib/rghost_barcode/ps/rssexpanded.ps +0 -211
  140. data/lib/rghost_barcode/ps/rsslimited.ps +0 -191
  141. data/lib/rghost_barcode/ps/symbol.ps +0 -49
  142. data/lib/rghost_barcode/ps/upca.ps +0 -128
  143. data/lib/rghost_barcode/ps/upce.ps +0 -157
  144. data/lib/rghost_barcode/rghost_barcode_classes.rb +0 -96
  145. data/lib/rghost_barcode/rghost_barcode_examples.rb +0 -35
  146. data/lib/teste_main.rb +0 -94
@@ -1,104 +0,0 @@
1
-
2
- % --DESC: MSI Modified Plessey
3
- % --EXAM: 0123456789
4
- % --EXOP: includetext includecheck includecheckintext
5
- % --RNDR: renlinear
6
- /msi {
7
-
8
- 0 begin % Confine variables to local scope
9
-
10
- /options exch def % We are given an option string
11
- /useropts options def
12
- /barcode exch def % We are given a barcode string
13
-
14
- /includecheck false def % Enable/disable checkdigit
15
- /includetext false def % Enable/disable text
16
- /includecheckintext false def
17
- /textfont /Courier def
18
- /textsize 10 def
19
- /textyoffset -7 def
20
- /height 1 def
21
-
22
- % Parse the input options
23
- options {
24
- token false eq {exit} if dup length string cvs (=) search
25
- true eq {cvlit exch pop exch def} {cvlit true def} ifelse
26
- } loop
27
-
28
- /textfont textfont cvlit def
29
- /textsize textsize cvr def
30
- /textyoffset textyoffset cvr def
31
- /height height cvr def
32
-
33
- % Create an array containing the character mappings
34
- /encs
35
- [ (13131313) (13131331) (13133113) (13133131) (13311313)
36
- (13311331) (13313113) (13313131) (31131313) (31131331)
37
- (31) (131)
38
- ] def
39
-
40
- % Create a string of the available characters
41
- /barchars (0123456789) def
42
-
43
- /barlen barcode length def % Length of the code
44
-
45
- includecheck {
46
- /sbs barlen 8 mul 13 add string def
47
- /txt barlen 1 add array def
48
- } {
49
- /sbs barlen 8 mul 5 add string def
50
- /txt barlen array def
51
- } ifelse
52
-
53
-
54
- % Put start character
55
- sbs 0 encs 10 get putinterval
56
- /checksum 0 def
57
-
58
- 0 1 barlen 1 sub {
59
- /i exch def
60
- % Lookup the encoding for the each barcode character
61
- barcode i 1 getinterval barchars exch search
62
- pop % Discard true leaving pre
63
- length /indx exch def % indx is the length of pre
64
- pop pop % Discard seek and post
65
- /enc encs indx get def % Get the indxth encoding
66
- sbs i 8 mul 2 add enc putinterval % Put encoded digit into sbs
67
- txt i [barcode i 1 getinterval i 16 mul 4 add textyoffset textfont textsize] put
68
- barlen i sub 2 mod 0 eq {
69
- /checksum indx checksum add def
70
- } {
71
- /checksum indx 2 mul dup 10 idiv add checksum add def
72
- } ifelse
73
- } for
74
-
75
- % Put the checksum and end characters
76
- includecheck {
77
- /checksum 10 checksum 10 mod sub 10 mod def
78
- sbs barlen 8 mul 2 add encs checksum get putinterval
79
- includecheckintext {
80
- txt barlen [barchars checksum 1 getinterval barlen 16 mul 4 add textyoffset textfont textsize] put
81
- } {
82
- txt barlen [( ) barlen 16 mul 4 add textyoffset textfont textsize] put
83
- } ifelse
84
- sbs barlen 8 mul 10 add encs 11 get putinterval
85
- } {
86
- sbs barlen 8 mul 2 add encs 11 get putinterval
87
- } ifelse
88
-
89
- % Return the arguments
90
- /retval 8 dict def
91
- retval (ren) (renlinear) put
92
- retval (sbs) [sbs {48 sub} forall] put
93
- retval (bhs) [sbs length 1 add 2 idiv {height} repeat] put
94
- retval (bbs) [sbs length 1 add 2 idiv {0} repeat] put
95
- includetext {
96
- retval (txt) txt put
97
- } if
98
- retval (opt) useropts put
99
- retval
100
-
101
- end
102
-
103
- } bind def
104
- /msi load 0 1 dict put
@@ -1,276 +0,0 @@
1
-
2
- % --DESC: United States Postal Service OneCode
3
- % --EXAM: 0123456709498765432101234567891
4
- % --EXOP: barcolor=FF0000
5
- % --RNDR: renlinear
6
- /onecode {
7
-
8
- 0 begin
9
-
10
- /options exch def % We are given an option string
11
- /useropts options def
12
- /barcode exch def % We are given a barcode string
13
-
14
- /height 0.175 def
15
-
16
- % Parse the input options
17
- options {
18
- token false eq {exit} if dup length string cvs (=) search
19
- true eq {cvlit exch pop exch def} {cvlit true def} ifelse
20
- } loop
21
-
22
- /height height cvr def
23
-
24
- /barlen barcode length def
25
-
26
- % Create the human readable text
27
- /txt barcode length array def
28
- 0 1 barcode length 1 sub {
29
- /i exch def
30
- txt i [barcode i 1 getinterval 0 0 () 0] put
31
- } for
32
-
33
- /normalize {
34
- /base exch def
35
- /num exch def
36
- num length 1 sub -1 1 {
37
- /i exch def
38
- num i 1 sub 2 copy get num i get base idiv add put
39
- num i num i get base mod put
40
- } for
41
- { %loop - extend input as necessary
42
- num 0 get base lt {exit} if
43
- /num [0 num {} forall] def
44
- num 0 num 0 get num 1 get base idiv add put
45
- num 1 num 1 get base mod put
46
- } loop
47
- % Trim leading zeros
48
- /num [/i true def num {dup 0 eq i and {pop} {/i false def} ifelse} forall] def
49
- num length 0 eq {/num [0] def} if
50
- num
51
- } bind def
52
-
53
- /bigadd {
54
- 2 copy length exch length
55
- 2 copy sub abs /offset exch def
56
- lt {exch} if
57
- /a exch def /b exch def
58
- 0 1 b length 1 sub {
59
- dup a exch offset add 2 copy get b 5 -1 roll get add put
60
- } for
61
- a
62
- } bind def
63
-
64
- % Conversion of data fields into binary data
65
- barlen 20 eq {[0]} if
66
- barlen 25 eq {[1]} if
67
- barlen 29 eq {[1 0 0 0 0 1]} if
68
- barlen 31 eq {[1 0 0 0 1 0 0 0 0 1]} if
69
- /binval exch [barcode 20 barlen 20 sub getinterval {48 sub} forall] bigadd def
70
- /binval [binval {} forall barcode 0 get 48 sub] def
71
- /binval [binval {5 mul} forall] [barcode 1 get 48 sub] bigadd 10 normalize def
72
- /binval [binval {} forall barcode 2 18 getinterval {48 sub} forall] def
73
-
74
- % Conversion of binary data into byte array
75
- /bytes 13 array def
76
- /bintmp [binval {} forall] def
77
- 12 -1 0 {
78
- /i exch def
79
- 0 1 bintmp length 2 sub {
80
- /j exch def
81
- bintmp j 1 add 2 copy get bintmp j get 256 mod 10 mul add put
82
- bintmp j bintmp j get 256 idiv put
83
- } for
84
- bytes i bintmp bintmp length 1 sub get 256 mod put
85
- bintmp bintmp length 1 sub 2 copy get 256 idiv put
86
- } for
87
-
88
- % Generation of 11-bit CRC on byte array
89
- /fcs 2047 def
90
- /dat bytes 0 get 5 bitshift def
91
- 6 {
92
- fcs dat xor 1024 and 0 ne {
93
- /fcs fcs 1 bitshift 3893 xor def
94
- } {
95
- /fcs fcs 1 bitshift def
96
- } ifelse
97
- /fcs fcs 2047 and def
98
- /dat dat 1 bitshift def
99
- } repeat
100
- 1 1 12 {
101
- bytes exch get 3 bitshift /dat exch def
102
- 8 {
103
- fcs dat xor 1024 and 0 ne {
104
- /fcs fcs 1 bitshift 3893 xor def
105
- } {
106
- /fcs fcs 1 bitshift def
107
- } ifelse
108
- /fcs fcs 2047 and def
109
- /dat dat 1 bitshift def
110
- } repeat
111
- } for
112
-
113
- % Conversion from binary data to codewords
114
- /codewords 10 array def
115
- 9 -1 0 {
116
- /i exch def
117
- i 9 eq {
118
- /b 636 def
119
- } {
120
- /b 1365 def
121
- } ifelse
122
- 0 1 binval length 2 sub {
123
- /j exch def
124
- binval j 1 add 2 copy get binval j get b mod 10 mul add put
125
- binval j binval j get b idiv put
126
- } for
127
- codewords i binval binval length 1 sub get b mod put
128
- binval binval length 1 sub 2 copy get b idiv put
129
- } for
130
-
131
- % Inserting additional information into codewords
132
- codewords 9 codewords 9 get 2 mul put
133
- fcs 1024 and 0 ne {
134
- codewords 0 codewords 0 get 659 add put
135
- } if
136
-
137
- % Conversion from codewords to characters
138
- /tab513 1287 dict def
139
- /lo 0 def
140
- /hi 1286 def
141
- 0 1 8191 {
142
- { % no loop - provides common exit point
143
- /i exch def
144
- /onbits 0 def
145
- 0 1 12 {
146
- i exch 1 exch bitshift and 0 ne {
147
- /onbits onbits 1 add def
148
- } if
149
- } for
150
- onbits 5 ne {exit} if
151
- /j i def
152
- /rev 0 def
153
- 16 {
154
- /rev rev 1 bitshift j 1 and or def
155
- /j j -1 bitshift def
156
- } repeat
157
- /rev rev -3 bitshift def
158
- rev i lt {exit} if
159
- rev i eq {
160
- tab513 hi i put
161
- /hi hi 1 sub def
162
- } {
163
- tab513 lo i put
164
- tab513 lo 1 add rev put
165
- /lo lo 2 add def
166
- } ifelse
167
- exit
168
- } loop
169
- } for
170
-
171
- /tab213 78 dict def
172
- /lo 0 def
173
- /hi 77 def
174
- 0 1 8191 {
175
- { % no loop - provides common exit point
176
- /i exch def
177
- /onbits 0 def
178
- 0 1 12 {
179
- i exch 1 exch bitshift and 0 ne {
180
- /onbits onbits 1 add def
181
- } if
182
- } for
183
- onbits 2 ne {exit} if
184
- /j i def
185
- /rev 0 def
186
- 16 {
187
- /rev rev 1 bitshift j 1 and or def
188
- /j j -1 bitshift def
189
- } repeat
190
- /rev rev -3 bitshift def
191
- rev i lt {exit} if
192
- rev i eq {
193
- tab213 hi i put
194
- /hi hi 1 sub def
195
- } {
196
- tab213 lo i put
197
- tab213 lo 1 add rev put
198
- /lo lo 2 add def
199
- } ifelse
200
- exit
201
- } loop
202
- } for
203
-
204
- /chars 10 array def
205
- 0 1 9 {
206
- /i exch def
207
- codewords i get dup 1286 le {
208
- tab513 exch get
209
- } {
210
- tab213 exch 1287 sub get
211
- } ifelse
212
- chars i 3 -1 roll put
213
- } for
214
-
215
- 9 -1 0 {
216
- /i exch def
217
- 2 i exp cvi fcs and 0 ne {
218
- chars i chars i get 8191 xor put
219
- } if
220
- } for
221
-
222
- % Conversion from characters to the OneCode encoding
223
- /barmap [
224
- 7 2 4 3 1 10 0 0 9 12 2 8 5 5 6 11 8 9 3 1
225
- 0 1 5 12 2 5 1 8 4 4 9 11 6 3 8 10 3 9 7 6
226
- 5 11 1 4 8 5 2 12 9 10 0 2 7 1 6 7 3 6 4 9
227
- 0 3 8 6 6 4 2 7 1 1 9 9 7 10 5 2 4 0 3 8
228
- 6 2 0 4 8 11 1 0 9 8 3 12 2 6 7 7 5 1 4 10
229
- 1 12 6 9 7 3 8 0 5 8 9 7 4 6 2 10 3 4 0 5
230
- 8 4 5 7 7 11 1 9 6 0 9 6 0 6 4 8 2 1 3 2
231
- 5 9 8 12 4 11 6 1 9 5 7 4 3 3 1 2 0 7 2 0
232
- 1 3 4 1 6 10 3 5 8 7 9 4 2 11 5 6 0 8 7 12
233
- 4 2 8 1 5 10 3 0 9 3 0 9 6 5 2 4 7 8 1 7
234
- 5 0 4 5 2 3 0 10 6 12 9 2 3 11 1 6 8 8 7 9
235
- 5 4 0 11 1 5 2 2 9 1 4 12 8 3 6 6 7 0 3 7
236
- 4 7 7 5 0 12 1 11 2 9 9 0 6 8 5 3 3 10 8 2
237
- ] def
238
-
239
- /bbs 65 array def
240
- /bhs 65 array def
241
- 0 1 64 {
242
- /i exch def
243
- /dec chars barmap i 4 mul get get 2 barmap i 4 mul 1 add get exp cvi and 0 ne def
244
- /asc chars barmap i 4 mul 2 add get get 2 barmap i 4 mul 3 add get exp cvi and 0 ne def
245
- dec not asc not and {
246
- bbs i 3 height mul 8 div put
247
- bhs i 2 height mul 8 div put
248
- } if
249
- dec not asc and {
250
- bbs i 3 height mul 8 div put
251
- bhs i 5 height mul 8 div put
252
- } if
253
- dec asc not and {
254
- bbs i 0 height mul 8 div put
255
- bhs i 5 height mul 8 div put
256
- } if
257
- dec asc and {
258
- bbs i 0 height mul 8 div put
259
- bhs i 8 height mul 8 div put
260
- } if
261
- } for
262
-
263
- /retval 8 dict def
264
- retval (ren) (renlinear) put
265
- retval (bbs) bbs put
266
- retval (bhs) bhs put
267
- retval (sbs) [bhs length 1 sub {1.44 1.872} repeat 1.44] put
268
- retval (txt) txt put
269
- retval (textxalign) (center) put
270
- retval (opt) useropts put
271
- retval
272
-
273
- end
274
-
275
- } bind def
276
- /onecode load 0 1 dict put
@@ -1,428 +0,0 @@
1
-
2
- % --DESC: PDF417
3
- % --EXAM: ^453^178^121^239
4
- % --EXOP: columns=2 rows=10
5
- % --RNDR: renmatrix
6
- /pdf417 {
7
-
8
- 0 begin
9
-
10
- /options exch def
11
- /useropts options def
12
- /barcode exch def
13
-
14
- /compact false def
15
- /eclevel -1 def
16
- /columns 0 def
17
- /rows 0 def
18
- /rowmult 3 def
19
-
20
- % Parse the input options
21
- options {
22
- token false eq {exit} if dup length string cvs (=) search
23
- true eq {cvlit exch pop exch def} {cvlit true def} ifelse
24
- } loop
25
-
26
- /eclevel eclevel cvi def
27
- /columns columns cvi def
28
- /rows rows cvi def
29
- /rowmult rowmult cvr def
30
-
31
- % Split the input barcode into an array of codewords
32
- /datcws barcode length array def
33
- /i 0 def /j 0 def
34
- { % loop
35
- i barcode length eq {exit} if
36
- /cw barcode i 1 add 3 getinterval cvi def
37
- datcws j cw put
38
- /i i 4 add def
39
- /j j 1 add def
40
- } loop
41
- /datcws datcws 0 j getinterval def
42
-
43
- % Determine the error correction level if unspecified
44
- /m datcws length def
45
- eclevel -1 eq {
46
- m 40 le {/eclevel 2 def} if
47
- m 41 ge m 160 le and {/eclevel 3 def} if
48
- m 161 ge m 320 le and {/eclevel 4 def} if
49
- m 321 ge {/eclevel 5 def} if
50
- } if
51
-
52
- % Reduce the error level so that it does not cause an excessive number of codewords
53
- /maxeclevel 928 1 sub m sub ln 2 ln div cvi 1 sub def
54
- eclevel maxeclevel gt {/eclevel maxeclevel def} if
55
- /k 2 eclevel 1 add exp cvi def
56
-
57
- % To determine size of matrix, number of columns if given by user...
58
- columns 1 ge columns 30 le and {/c columns def} if
59
-
60
- % ... and rows is greater of those required and that given by user within limits
61
- /r m k add 1 add columns div ceiling cvi def % Required
62
- r rows lt rows 90 le and {/r rows def} if
63
- r 3 lt {/r 3 def} if
64
-
65
- % Opportunistically raise the error level if a better fit to the matrix is possible
66
- /maxeclevel c r mul 1 sub m sub ln 2 ln div cvi 1 sub def
67
- maxeclevel eclevel gt {
68
- /eclevel maxeclevel def
69
- /k 2 eclevel 1 add exp cvi def
70
- } if
71
-
72
- % Create codewords array with one extra working space element and add padding
73
- /n c r mul k sub def
74
- /cws c r mul 1 add array def
75
- cws 0 n put
76
- cws 1 datcws putinterval
77
- cws m 1 add [ n m sub 1 sub {900} repeat ] putinterval
78
- cws n [ k {0} repeat 0 ] putinterval
79
-
80
- % Calculate the log and anti-log tables
81
- /rslog [ -928 928 {0} repeat ] def
82
- /rsalog [ 1 928 {0} repeat ] def
83
- 1 1 928 {
84
- /i exch def
85
- rsalog i rsalog i 1 sub get 3 mul put
86
- rsalog i get 928 ge { rsalog i rsalog i get 929 mod put } if
87
- rslog rsalog i get i put
88
- } for
89
-
90
- % Function to calculate the product in the field
91
- /rsprod {
92
- /y exch def
93
- /x exch def
94
- x y mul 0 ne {
95
- rsalog rslog x get rslog y get add 928 mod get
96
- } {
97
- 0
98
- } ifelse
99
- } bind def
100
-
101
- % Generate the coefficients
102
- /coeffs [ 1 k {0} repeat ] def
103
- 1 1 k {
104
- /i exch def
105
- coeffs i coeffs i 1 sub get put
106
- i 1 sub -1 1 {
107
- /j exch def
108
- coeffs j coeffs j 1 sub get coeffs j get rsalog i get rsprod add 929 mod put
109
- } for
110
- coeffs 0 coeffs 0 get rsalog i get rsprod put
111
- } for
112
- /coeffs coeffs 0 coeffs length 1 sub getinterval def
113
- 1 2 coeffs length 1 sub {coeffs exch 2 copy get 929 exch sub put} for
114
-
115
- % Derive the error codewords
116
- 0 1 n 1 sub {
117
- /t exch cws exch get cws n get add 929 mod def
118
- 0 1 k 1 sub {
119
- /j exch def
120
- cws n j add cws n j add 1 add get 929 t coeffs k j sub 1 sub get mul 929 mod sub add 929 mod put
121
- } for
122
- } for
123
- n 1 n k add { dup cws exch 929 cws 5 -1 roll get sub put } for
124
-
125
- % Trim the working space from the end of the codewords
126
- /cws cws 0 cws length 1 sub getinterval def
127
-
128
- % Base 10 encoding of the bar space successions for the codewords in each cluster
129
- /clusters [
130
- [
131
- 120256 125680 128380 120032 125560 128318 108736 119920 108640 86080 108592 86048
132
- 110016 120560 125820 109792 120440 125758 88256 109680 88160 89536 110320 120700
133
- 89312 110200 120638 89200 110140 89840 110460 89720 110398 89980 128506 119520
134
- 125304 128190 107712 119408 125244 107616 119352 84032 107568 119324 84000 107544
135
- 83984 108256 119672 125374 85184 108144 119612 85088 108088 119582 85040 108060
136
- 85728 108408 119742 85616 108348 85560 108318 85880 108478 85820 85790 107200
137
- 119152 125116 107104 119096 125086 83008 107056 119068 82976 107032 82960 82952
138
- 83648 107376 119228 83552 107320 119198 83504 107292 83480 83468 83824 107452
139
- 83768 107422 83740 83900 106848 118968 125022 82496 106800 118940 82464 106776
140
- 118926 82448 106764 82440 106758 82784 106936 119006 82736 106908 82712 106894
141
- 82700 82694 106974 82830 82240 106672 118876 82208 106648 118862 82192 106636
142
- 82184 106630 82180 82352 82328 82316 82080 118830 106572 106566 82050 117472
143
- 124280 127678 103616 117360 124220 103520 117304 124190 75840 103472 75808 104160
144
- 117624 124350 76992 104048 117564 76896 103992 76848 76824 77536 104312 117694
145
- 77424 104252 77368 77340 77688 104382 77628 77758 121536 126320 128700 121440
146
- 126264 128670 111680 121392 126236 111648 121368 126222 111632 121356 103104 117104
147
- 124092 112320 103008 117048 124062 112224 121656 126366 93248 74784 102936 117006
148
- 93216 112152 93200 75456 103280 117180 93888 75360 103224 117150 93792 112440
149
- 121758 93744 75288 93720 75632 103356 94064 75576 103326 94008 112542 93980
150
- 75708 94140 75678 94110 121184 126136 128606 111168 121136 126108 111136 121112
151
- 126094 111120 121100 111112 111108 102752 116920 123998 111456 102704 116892 91712
152
- 74272 121244 116878 91680 74256 102668 91664 111372 102662 74244 74592 102840
153
- 116958 92000 74544 102812 91952 111516 102798 91928 74508 74502 74680 102878
154
- 92088 74652 92060 74638 92046 92126 110912 121008 126044 110880 120984 126030
155
- 110864 120972 110856 120966 110852 110850 74048 102576 116828 90944 74016 102552
156
- 116814 90912 111000 121038 90896 73992 102534 90888 110982 90884 74160 102620
157
- 91056 74136 102606 91032 111054 91020 74118 91014 91100 91086 110752 120920
158
- 125998 110736 120908 110728 120902 110724 110722 73888 102488 116782 90528 73872
159
- 102476 90512 110796 102470 90504 73860 90500 73858 73944 90584 90572 90566
160
- 120876 120870 110658 102444 73800 90312 90308 90306 101056 116080 123580 100960
161
- 116024 70720 100912 115996 70688 100888 70672 70664 71360 101232 116156 71264
162
- 101176 116126 71216 101148 71192 71180 71536 101308 71480 101278 71452 71612
163
- 71582 118112 124600 127838 105024 118064 124572 104992 118040 124558 104976 118028
164
- 104968 118022 100704 115896 123486 105312 100656 115868 79424 70176 118172 115854
165
- 79392 105240 100620 79376 70152 79368 70496 100792 115934 79712 70448 118238
166
- 79664 105372 100750 79640 70412 79628 70584 100830 79800 70556 79772 70542
167
- 70622 79838 122176 126640 128860 122144 126616 128846 122128 126604 122120 126598
168
- 122116 104768 117936 124508 113472 104736 126684 124494 113440 122264 126670 113424
169
- 104712 117894 113416 122246 104706 69952 100528 115804 78656 69920 100504 115790
170
- 96064 78624 104856 117966 96032 113560 122318 100486 96016 78600 104838 96008
171
- 69890 70064 100572 78768 70040 100558 96176 78744 104910 96152 113614 70022
172
- 78726 70108 78812 70094 96220 78798 122016 126552 128814 122000 126540 121992
173
- 126534 121988 121986 104608 117848 124462 113056 104592 126574 113040 122060 117830
174
- 113032 104580 113028 104578 113026 69792 100440 115758 78240 69776 100428 95136
175
- 78224 104652 100422 95120 113100 69764 95112 78212 69762 78210 69848 100462
176
- 78296 69836 95192 78284 69830 95180 78278 69870 95214 121936 126508 121928
177
- 126502 121924 121922 104528 117804 112848 104520 117798 112840 121958 112836 104514
178
- 112834 69712 100396 78032 69704 100390 94672 78024 104550 94664 112870 69698
179
- 94660 78018 94658 78060 94700 94694 126486 121890 117782 104484 104482 69672
180
- 77928 94440 69666 77922 99680 68160 99632 68128 99608 115342 68112 99596
181
- 68104 99590 68448 99768 115422 68400 99740 68376 99726 68364 68358 68536
182
- 99806 68508 68494 68574 101696 116400 123740 101664 116376 101648 116364 101640
183
- 116358 101636 67904 99504 115292 72512 67872 116444 115278 72480 101784 116430
184
- 72464 67848 99462 72456 101766 67842 68016 99548 72624 67992 99534 72600
185
- 101838 72588 67974 68060 72668 68046 72654 118432 124760 127918 118416 124748
186
- 118408 124742 118404 118402 101536 116312 105888 101520 116300 105872 118476 116294
187
- 105864 101508 105860 101506 105858 67744 99416 72096 67728 116334 80800 72080
188
- 101580 99398 80784 105932 67716 80776 72068 67714 72066 67800 99438 72152
189
- 67788 80856 72140 67782 80844 72134 67822 72174 80878 126800 128940 126792
190
- 128934 126788 126786 118352 124716 122576 126828 124710 122568 126822 122564 118338
191
- 122562 101456 116268 105680 101448 116262 114128 105672 118374 114120 122598 101442
192
- 114116 105666 114114 67664 99372 71888 67656 99366 80336 71880 101478 97232
193
- 80328 105702 67650 97224 114150 71874 97220 67692 71916 67686 80364 71910
194
- 97260 80358 97254 126760 128918 126756 126754 118312 124694 122472 126774 122468
195
- 118306 122466 101416 116246 105576 101412 113896 105572 101410 113892 105570 113890
196
- 67624 99350 71784 101430 80104 71780 67618 96744 80100 71778 96740 80098
197
- 96738 71798 96758 126738 122420 122418 105524 113780 113778 71732 79988 96500
198
- 96498 66880 66848 98968 66832 66824 66820 66992 66968 66956 66950 67036
199
- 67022 100000 99984 115532 99976 115526 99972 99970 66720 98904 69024 100056
200
- 98892 69008 100044 69000 100038 68996 66690 68994 66776 98926 69080 100078
201
- 69068 66758 69062 66798 69102 116560 116552 116548 116546 99920 102096 116588
202
- 115494 102088 116582 102084 99906 102082 66640 68816 66632 98854 73168 68808
203
- 66628 73160 68804 66626 73156 68802 66668 68844 66662 73196 68838 73190
204
- 124840 124836 124834 116520 118632 124854 118628 116514 118626 99880 115478 101992
205
- 116534 106216 101988 99874 106212 101986 106210 66600 98838 68712 99894 72936
206
- 68708 66594 81384 72932 68706 81380 72930 66614 68726 72950 81398 128980
207
- 128978 124820 126900 124818 126898 116500 118580 116498 122740 118578 122738 99860
208
- 101940 99858 106100 101938 114420
209
- ] [
210
- 128352 129720 125504 128304 129692 125472 128280 129678 125456 128268 125448 128262
211
- 125444 125792 128440 129758 120384 125744 128412 120352 125720 128398 120336 125708
212
- 120328 125702 120324 120672 125880 128478 110144 120624 125852 110112 120600 125838
213
- 110096 120588 110088 120582 110084 110432 120760 125918 89664 110384 120732 89632
214
- 110360 120718 89616 110348 89608 110342 89952 110520 120798 89904 110492 89880
215
- 110478 89868 90040 110558 90012 89998 125248 128176 129628 125216 128152 129614
216
- 125200 128140 125192 128134 125188 125186 119616 125360 128220 119584 125336 128206
217
- 119568 125324 119560 125318 119556 119554 108352 119728 125404 108320 119704 125390
218
- 108304 119692 108296 119686 108292 108290 85824 108464 119772 85792 108440 119758
219
- 85776 108428 85768 108422 85764 85936 108508 85912 108494 85900 85894 85980
220
- 85966 125088 128088 129582 125072 128076 125064 128070 125060 125058 119200 125144
221
- 128110 119184 125132 119176 125126 119172 119170 107424 119256 125166 107408 119244
222
- 107400 119238 107396 107394 83872 107480 119278 83856 107468 83848 107462 83844
223
- 83842 83928 107502 83916 83910 83950 125008 128044 125000 128038 124996 124994
224
- 118992 125036 118984 125030 118980 118978 106960 119020 106952 119014 106948 106946
225
- 82896 106988 82888 106982 82884 82882 82924 82918 124968 128022 124964 124962
226
- 118888 124982 118884 118882 106728 118902 106724 106722 82408 106742 82404 82402
227
- 124948 124946 118836 118834 106612 106610 124224 127664 129372 124192 127640 129358
228
- 124176 127628 124168 127622 124164 124162 117568 124336 127708 117536 124312 127694
229
- 117520 124300 117512 124294 117508 117506 104256 117680 124380 104224 117656 124366
230
- 104208 117644 104200 117638 104196 104194 77632 104368 117724 77600 104344 117710
231
- 77584 104332 77576 104326 77572 77744 104412 77720 104398 77708 77702 77788
232
- 77774 128672 129880 93168 128656 129868 92664 128648 129862 92412 128644 128642
233
- 124064 127576 129326 126368 124048 129902 126352 128716 127558 126344 124036 126340
234
- 124034 126338 117152 124120 127598 121760 117136 124108 121744 126412 124102 121736
235
- 117124 121732 117122 121730 103328 117208 124142 112544 103312 117196 112528 121804
236
- 117190 112520 103300 112516 103298 112514 75680 103384 117230 94112 75664 103372
237
- 94096 112588 103366 94088 75652 94084 75650 75736 103406 94168 75724 94156
238
- 75718 94150 75758 128592 129836 91640 128584 129830 91388 128580 91262 128578
239
- 123984 127532 126160 123976 127526 126152 128614 126148 123970 126146 116944 124012
240
- 121296 116936 124006 121288 126182 121284 116930 121282 102864 116972 111568 102856
241
- 116966 111560 121318 111556 102850 111554 74704 102892 92112 74696 102886 92104
242
- 111590 92100 74690 92098 74732 92140 74726 92134 128552 129814 90876 128548
243
- 90750 128546 123944 127510 126056 128566 126052 123938 126050 116840 123958 121064
244
- 116836 121060 116834 121058 102632 116854 111080 121078 111076 102626 111074 74216
245
- 102646 91112 74212 91108 74210 91106 74230 91126 128532 90494 128530 123924
246
- 126004 123922 126002 116788 120948 116786 120946 102516 110836 102514 110834 73972
247
- 90612 73970 90610 128522 123914 125978 116762 120890 102458 110714 123552 127320
248
- 129198 123536 127308 123528 127302 123524 123522 116128 123608 127342 116112 123596
249
- 116104 123590 116100 116098 101280 116184 123630 101264 116172 101256 116166 101252
250
- 101250 71584 101336 116206 71568 101324 71560 101318 71556 71554 71640 101358
251
- 71628 71622 71662 127824 129452 79352 127816 129446 79100 127812 78974 127810
252
- 123472 127276 124624 123464 127270 124616 127846 124612 123458 124610 115920 123500
253
- 118224 115912 123494 118216 124646 118212 115906 118210 100816 115948 105424 100808
254
- 115942 105416 118246 105412 100802 105410 70608 100844 79824 70600 100838 79816
255
- 105446 79812 70594 79810 70636 79852 70630 79846 129960 95728 113404 129956
256
- 95480 113278 129954 95356 95294 127784 129430 78588 128872 129974 95996 78462
257
- 128868 127778 95870 128866 123432 127254 124520 123428 126696 128886 123426 126692
258
- 124514 126690 115816 123446 117992 115812 122344 117988 115810 122340 117986 122338
259
- 100584 115830 104936 100580 113640 104932 100578 113636 104930 113634 70120 100598
260
- 78824 70116 96232 78820 70114 96228 78818 96226 70134 78838 129940 94968
261
- 113022 129938 94844 94782 127764 78206 128820 127762 95102 128818 123412 124468
262
- 123410 126580 124466 126578 115764 117876 115762 122100 117874 122098 100468 104692
263
- 100466 113140 104690 113138 69876 78324 69874 95220 78322 95218 129930 94588
264
- 94526 127754 128794 123402 124442 126522 115738 117818 121978 100410 104570 112890
265
- 69754 78074 94714 94398 123216 127148 123208 127142 123204 123202 115408 123244
266
- 115400 123238 115396 115394 99792 115436 99784 115430 99780 99778 68560 99820
267
- 68552 99814 68548 68546 68588 68582 127400 129238 72444 127396 72318 127394
268
- 123176 127126 123752 123172 123748 123170 123746 115304 123190 116456 115300 116452
269
- 115298 116450 99560 115318 101864 99556 101860 99554 101858 68072 99574 72680
270
- 68068 72676 68066 72674 68086 72694 129492 80632 105854 129490 80508 80446
271
- 127380 72062 127924 127378 80766 127922 123156 123700 123154 124788 123698 124786
272
- 115252 116340 115250 118516 116338 118514 99444 101620 99442 105972 101618 105970
273
- 67828 72180 67826 80884 72178 80882 97008 114044 96888 113982 96828 96798
274
- 129482 80252 130010 97148 80190 97086 127370 127898 128954 123146 123674 124730
275
- 126842 115226 116282 118394 122618 99386 101498 105722 114170 67706 71930 80378
276
- 96632 113854 96572 96542 80062 96702 96444 96414 96350 123048 123044 123042
277
- 115048 123062 115044 115042 99048 115062 99044 99042 67048 99062 67044 67042
278
- 67062 127188 68990 127186 123028 123316 123026 123314 114996 115572 114994 115570
279
- 98932 100084 98930 100082 66804 69108 66802 69106 129258 73084 73022 127178
280
- 127450 123018 123290 123834 114970 115514 116602 98874 99962 102138 66682 68858
281
- 73210 81272 106174 81212 81182 72894 81342 97648 114364 97592 114334 97564
282
- 97550 81084 97724 81054 97694 97464 114270 97436 97422 80990 97502 97372
283
- 97358 97326 114868 114866 98676 98674 66292 66290 123098 114842 115130 98618
284
- 99194 66170 67322 69310 73404 73374 81592 106334 81564 81550 73310 81630
285
- 97968 114524 97944 114510 97932 97926 81500 98012 81486 97998 97880 114478
286
- 97868 97862 81454 97902 97836 97830 69470 73564 73550 81752 106414 81740
287
- 81734 73518 81774 81708 81702
288
- ] [
289
- 109536 120312 86976 109040 120060 86496 108792 119934 86256 108668 86136 129744
290
- 89056 110072 129736 88560 109820 129732 88312 109694 129730 88188 128464 129772
291
- 89592 128456 129766 89340 128452 89214 128450 125904 128492 125896 128486 125892
292
- 125890 120784 125932 120776 125926 120772 120770 110544 120812 110536 120806 110532
293
- 84928 108016 119548 84448 107768 119422 84208 107644 84088 107582 84028 129640
294
- 85488 108284 129636 85240 108158 129634 85116 85054 128232 129654 85756 128228
295
- 85630 128226 125416 128246 125412 125410 119784 125430 119780 119778 108520 119798
296
- 108516 108514 83424 107256 119166 83184 107132 83064 107070 83004 82974 129588
297
- 83704 107390 129586 83580 83518 128116 83838 128114 125172 125170 119284 119282
298
- 107508 107506 82672 106876 82552 106814 82492 82462 129562 82812 82750 128058
299
- 125050 119034 82296 106686 82236 82206 82366 82108 82078 76736 103920 117500
300
- 76256 103672 117374 76016 103548 75896 103486 75836 129384 77296 104188 129380
301
- 77048 104062 129378 76924 76862 127720 129398 77564 127716 77438 127714 124392
302
- 127734 124388 124386 117736 124406 117732 117730 104424 117750 104420 104418 112096
303
- 121592 126334 92608 111856 121468 92384 111736 121406 92272 111676 92216 111646
304
- 92188 75232 103160 117118 93664 74992 103036 93424 112252 102974 93304 74812
305
- 93244 74782 93214 129332 75512 103294 129908 129330 93944 75388 129906 93820
306
- 75326 93758 127604 75646 128756 127602 94078 128754 124148 126452 124146 126450
307
- 117236 121844 117234 121842 103412 103410 91584 111344 121212 91360 111224 121150
308
- 91248 111164 91192 111134 91164 91150 74480 102780 91888 74360 102718 91768
309
- 111422 91708 74270 91678 129306 74620 129850 92028 74558 91966 127546 128634
310
- 124026 126202 116986 121338 102906 90848 110968 121022 90736 110908 90680 110878
311
- 90652 90638 74104 102590 91000 74044 90940 74014 90910 74174 91070 90480
312
- 110780 90424 110750 90396 90382 73916 90556 73886 90526 90296 110686 90268
313
- 90254 73822 90334 90204 90190 71136 101112 116094 70896 100988 70776 100926
314
- 70716 70686 129204 71416 101246 129202 71292 71230 127348 71550 127346 123636
315
- 123634 116212 116210 101364 101362 79296 105200 118140 79072 105080 118078 78960
316
- 105020 78904 104990 78876 78862 70384 100732 79600 70264 100670 79480 105278
317
- 79420 70174 79390 129178 70524 129466 79740 70462 79678 127290 127866 123514
318
- 124666 115962 118266 100858 113376 122232 126654 95424 113264 122172 95328 113208
319
- 122142 95280 113180 95256 113166 95244 78560 104824 117950 95968 78448 104764
320
- 95856 113468 104734 95800 78364 95772 78350 95758 70008 100542 78712 69948
321
- 96120 78652 69918 96060 78622 96030 70078 78782 96190 94912 113008 122044
322
- 94816 112952 122014 94768 112924 94744 112910 94732 94726 78192 104636 95088
323
- 78136 104606 95032 113054 95004 78094 94990 69820 78268 69790 95164 78238
324
- 95134 94560 112824 121950 94512 112796 94488 112782 94476 94470 78008 104542
325
- 94648 77980 94620 77966 94606 69726 78046 94686 94384 112732 94360 112718
326
- 94348 94342 77916 94428 77902 94414 94296 112686 94284 94278 77870 94318
327
- 94252 94246 68336 99708 68216 99646 68156 68126 68476 68414 127162 123258
328
- 115450 99834 72416 101752 116414 72304 101692 72248 101662 72220 72206 67960
329
- 99518 72568 67900 72508 67870 72478 68030 72638 80576 105840 118460 80480
330
- 105784 118430 80432 105756 80408 105742 80396 80390 72048 101564 80752 71992
331
- 101534 80696 71964 80668 71950 80654 67772 72124 67742 80828 72094 80798
332
- 114016 122552 126814 96832 113968 122524 96800 113944 122510 96784 113932 96776
333
- 113926 96772 80224 105656 118366 97120 80176 105628 97072 114076 105614 97048
334
- 80140 97036 80134 97030 71864 101470 80312 71836 97208 80284 71822 97180
335
- 80270 97166 67678 71902 80350 97246 96576 113840 122460 96544 113816 122446
336
- 96528 113804 96520 113798 96516 96514 80048 105564 96688 80024 105550 96664
337
- 113870 96652 80006 96646 71772 80092 71758 96732 80078 96718 96416 113752
338
- 122414 96400 113740 96392 113734 96388 96386 79960 105518 96472 79948 96460
339
- 79942 96454 71726 79982 96494 96336 113708 96328 113702 96324 96322 79916
340
- 96364 79910 96358 96296 113686 96292 96290 79894 96310 66936 99006 66876
341
- 66846 67006 68976 100028 68920 99998 68892 68878 66748 69052 66718 69022
342
- 73056 102072 116574 73008 102044 72984 102030 72972 72966 68792 99934 73144
343
- 68764 73116 68750 73102 66654 68830 73182 81216 106160 118620 81184 106136
344
- 118606 81168 106124 81160 106118 81156 81154 72880 101980 81328 72856 101966
345
- 81304 106190 81292 72838 81286 68700 72924 68686 81372 72910 81358 114336
346
- 122712 126894 114320 122700 114312 122694 114308 114306 81056 106072 118574 97696
347
- 81040 106060 97680 114380 106054 97672 81028 97668 81026 97666 72792 101934
348
- 81112 72780 97752 81100 72774 97740 81094 97734 68654 72814 81134 97774
349
- 114256 122668 114248 122662 114244 114242 80976 106028 97488 80968 106022 97480
350
- 114278 97476 80962 97474 72748 81004 72742 97516 80998 97510 114216 122646
351
- 114212 114210 80936 106006 97384 80932 97380 80930 97378 72726 80950 97398
352
- 114196 114194 80916 97332 80914 97330 66236 66206 67256 99166 67228 67214
353
- 66142 67294 69296 100188 69272 100174 69260 69254 67164 69340 67150 69326
354
- 73376 102232 116654 73360 102220 73352 102214 73348 73346 69208 100142 73432
355
- 102254 73420 69190 73414 67118 69230 73454 106320 118700 106312 118694 106308
356
- 106306 73296 102188 81616 106348 102182 81608 73284 81604 73282 81602 69164
357
- 73324 69158 81644 73318 81638 122792 126934 122788 122786 106280 118678 114536
358
- 106276 114532 106274 114530 73256 102166 81512 73252 98024 81508 73250 98020
359
- 81506 98018 69142 73270 81526 98038 122772 122770 106260 114484 106258 114482
360
- 73236 81460 73234 97908 81458 97906 122762 106250 114458 73226 81434 97850
361
- 66396 66382 67416 99246 67404 67398 66350 67438 69456 100268 69448 100262
362
- 69444 69442 67372 69484 67366 69478 102312 116694 102308 102306 69416 100246
363
- 73576 102326 73572 69410 73570 67350 69430 73590 118740 118738 102292 106420
364
- 102290 106418 69396 73524 69394 81780 73522 81778 118730 102282 106394 69386
365
- 73498 81722 66476 66470 67496 99286 67492 67490 66454 67510 100308 100306
366
- 67476 69556 67474 69554 116714
367
- ]
368
- ] def
369
-
370
- % Return the 17 bits for a codeword in a given cluster
371
- /cwtobits {
372
- clusters exch get exch get /v exch def
373
- [ 17 {0} repeat v 2 17 string cvrs {48 sub} forall ]
374
- dup length 17 sub 17 getinterval
375
- } bind def
376
-
377
- % Populate bitmap for the image
378
- compact {
379
- /rwid 17 c mul 17 add 17 add 1 add def
380
- } {
381
- /rwid 17 c mul 17 add 17 add 17 add 18 add def
382
- } ifelse
383
- /pixs rwid r mul array def
384
-
385
- 0 1 r 1 sub {
386
- /i exch def
387
-
388
- i 3 mod 0 eq {
389
- /lcw i 3 idiv 30 mul r 1 sub 3 idiv add def
390
- /rcw i 3 idiv 30 mul c add 1 sub def
391
- } if
392
- i 3 mod 1 eq {
393
- /lcw i 3 idiv 30 mul eclevel 3 mul add r 1 sub 3 mod add def
394
- /rcw i 3 idiv 30 mul r 1 sub 3 idiv add def
395
- } if
396
- i 3 mod 2 eq {
397
- /lcw i 3 idiv 30 mul c add 1 sub def
398
- /rcw i 3 idiv 30 mul eclevel 3 mul add r 1 sub 3 mod add def
399
- } if
400
-
401
- pixs rwid i mul [
402
- 1 1 1 1 1 1 1 1 0 1 0 1 0 1 0 0 0
403
- lcw i 3 mod cwtobits {} forall
404
- cws c i mul c getinterval { i 3 mod cwtobits {} forall } forall
405
- compact {
406
- 1
407
- } {
408
- rcw i 3 mod cwtobits {} forall
409
- 1 1 1 1 1 1 1 0 1 0 0 0 1 0 1 0 0 1
410
- } ifelse
411
- ] putinterval
412
-
413
- } for
414
-
415
- /retval 7 dict def
416
- retval (ren) (renmatrix) put
417
- retval (pixs) pixs put
418
- retval (pixx) rwid put
419
- retval (pixy) r put
420
- retval (height) r 72 div rowmult mul put
421
- retval (width) rwid 72 div put
422
- retval (opt) useropts put
423
- retval
424
-
425
- end
426
-
427
- } bind def
428
- /pdf417 load 0 1 dict put