|
41 | 41 | currentglobal |
42 | 42 | true setglobal |
43 | 43 | /setpacking where {pop currentpacking true setpacking} if |
44 | | -16 dict |
| 44 | +17 dict |
45 | 45 | dup /raiseerror dup /uk.co.terryburton.bwipp findresource put |
46 | 46 | dup /processoptions dup /uk.co.terryburton.bwipp findresource put |
| 47 | +dup /render dup /uk.co.terryburton.bwipp findresource put |
47 | 48 | dup /renlinear dup /uk.co.terryburton.bwipp findresource put |
48 | 49 | begin |
49 | 50 |
|
@@ -147,6 +148,16 @@ begin |
147 | 148 | /height 0.175 def |
148 | 149 | /custinfoenc (character) def |
149 | 150 |
|
| 151 | + /propspec false def |
| 152 | + /physspec false def |
| 153 | + /mag 1.0 def |
| 154 | + /xdim -1.0 def |
| 155 | + /hdim -1.0 def |
| 156 | + /ast (default) def |
| 157 | + /xmin -1.0 def /xnom -1.0 def /xmax -1.0 def |
| 158 | + /hnom -1.0 def |
| 159 | + /modunit 1 def |
| 160 | + |
150 | 161 | /apply //processoptions exec /options exch def |
151 | 162 | /barcode exch def |
152 | 163 |
|
@@ -193,6 +204,12 @@ begin |
193 | 204 | /bwipp.auspostTooLong (The message is too long) //raiseerror exec |
194 | 205 | } if |
195 | 206 |
|
| 207 | + % |
| 208 | + % Apply AST spec overrides and resolve physical specification |
| 209 | + % |
| 210 | + /auspost ast /apply_ast //render exec not { //raiseerror exec } if |
| 211 | + /resolve_physspec //render exec |
| 212 | + |
196 | 213 | % |
197 | 214 | % Put start character |
198 | 215 | % |
@@ -290,6 +307,8 @@ begin |
290 | 307 | encstr encstr length 14 sub checkcode putinterval |
291 | 308 | encstr encstr length 2 sub //auspost.encs 74 get putinterval |
292 | 309 |
|
| 310 | + /resolve_height //render exec |
| 311 | + |
293 | 312 | /bbs encstr length array def |
294 | 313 | /bhs encstr length array def |
295 | 314 | 0 1 encstr length 1 sub { |
@@ -322,6 +341,11 @@ begin |
322 | 341 | /txt [ [barcode 2 barlen 2 sub getinterval 0 0 text1font text1size] ] |
323 | 342 | /text1xalign (center) |
324 | 343 | } if |
| 344 | + /physspec physspec |
| 345 | + /xdim xdim |
| 346 | + /xmin xmin |
| 347 | + /xmax xmax |
| 348 | + /modunit modunit |
325 | 349 | /opt options |
326 | 350 | >> |
327 | 351 |
|
|
0 commit comments