#209 rss.c, composite.c; DBAR_EXP encodation methods; symbol NO_PNG out.gif

This commit is contained in:
gitlost 2020-12-21 19:30:07 +00:00
parent 2b85585e69
commit bee5f08f50
24 changed files with 1309 additions and 1257 deletions

View file

@ -1,5 +1,5 @@
--- ../../../../postscriptbarcode/build/monolithic/barcode.ps 2020-10-26 01:13:25.080992540 +0000
+++ ../tools/bwipp_dump.ps 2020-10-26 11:19:21.268222231 +0000
--- ../../../../postscriptbarcode/build/monolithic/barcode.ps 2020-12-19 06:21:55.358036729 +0000
+++ ../tools/bwipp_dump.ps 2020-12-21 14:41:10.265502623 +0000
@@ -29,6 +29,8 @@
% CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
% IN THE SOFTWARE.
@ -9,7 +9,7 @@
% --BEGIN TEMPLATE--
% --BEGIN RESOURCE preamble--
@@ -24466,34 +24468,80 @@
@@ -24471,34 +24473,80 @@
pop
} ifelse
@ -109,7 +109,7 @@
end
@@ -24552,7 +24600,7 @@
@@ -24557,7 +24605,7 @@
pop
} ifelse
@ -118,7 +118,7 @@
% Get the result of encoding with ean8 and gs1-cc
options (lintype) (ean8) put
@@ -24560,29 +24608,75 @@
@@ -24565,29 +24613,75 @@
options (dontdraw) true put
% Plot the linear part
@ -214,7 +214,7 @@
end
@@ -24641,34 +24735,80 @@
@@ -24646,34 +24740,80 @@
pop
} ifelse
@ -314,7 +314,7 @@
end
@@ -24742,34 +24882,80 @@
@@ -24747,34 +24887,80 @@
/opt options
>> def
@ -414,7 +414,7 @@
end
@@ -24828,7 +25014,7 @@
@@ -24833,7 +25019,7 @@
pop
} ifelse
@ -423,7 +423,7 @@
options (lintype) (databaromni) put
options (linkage) true put
@@ -24839,7 +25025,7 @@
@@ -24844,7 +25030,7 @@
linear options //databaromni exec
dup (sbs) get /linsbs exch def
dup (bhs) get 0 get 72 mul /linheight exch def
@ -432,7 +432,7 @@
% Plot the separator
/sepfinder {
@@ -24870,20 +25056,66 @@
@@ -24875,20 +25061,66 @@
sep 0 [0 0 0] putinterval
sep sep length 4 sub [0 0 0 0] putinterval
18 sepfinder 64 sepfinder
@ -511,7 +511,7 @@
end
@@ -24941,7 +25173,7 @@
@@ -24946,7 +25178,7 @@
pop
} ifelse
@ -520,7 +520,7 @@
options (lintype) (databarstacked) put
options (linkage) true put
@@ -24952,7 +25184,7 @@
@@ -24957,7 +25189,7 @@
linear options //databarstacked exec
dup (pixs) get 0 2 index (pixx) get getinterval /bot exch def
dup (pixy) get /linheight exch def
@ -529,7 +529,7 @@
% Plot the separator
/sepfinder {
@@ -24980,20 +25212,52 @@
@@ -24985,20 +25217,52 @@
sep 0 [ 0 0 0 0 ] putinterval
sep sep length 4 sub [ 0 0 0 0 ] putinterval
18 sepfinder
@ -594,7 +594,7 @@
end
@@ -25051,7 +25315,7 @@
@@ -25056,7 +25320,7 @@
pop
} ifelse
@ -603,7 +603,7 @@
options (lintype) (databarstackedomni) put
options (linkage) true put
@@ -25062,7 +25326,7 @@
@@ -25067,7 +25331,7 @@
linear options //databarstackedomni exec
dup (pixs) get 0 2 index (pixx) get getinterval /bot exch def
dup (pixy) get /linheight exch def
@ -612,7 +612,7 @@
% Plot the separator
/sepfinder {
@@ -25090,20 +25354,52 @@
@@ -25095,20 +25359,52 @@
sep 0 [ 0 0 0 0 ] putinterval
sep sep length 4 sub [ 0 0 0 0 ] putinterval
18 sepfinder
@ -677,7 +677,7 @@
end
@@ -25276,7 +25572,7 @@
@@ -25281,7 +25577,7 @@
pop
} ifelse
@ -686,7 +686,7 @@
options (lintype) (databarlimited) put
options (linkage) true put
@@ -25287,7 +25583,7 @@
@@ -25292,7 +25588,7 @@
linear options //databarlimited exec
dup (sbs) get /linsbs exch def
dup (bhs) get 0 get 72 mul /linheight exch def
@ -695,7 +695,7 @@
% Plot the separator
mark
@@ -25295,22 +25591,68 @@
@@ -25300,22 +25596,68 @@
counttomark 1 sub array astore /sep exch def pop pop
sep 0 [0 0 0] putinterval
sep sep length 9 sub [0 0 0 0 0 0 0 0 0] putinterval % 4 + 5 right guard spaces
@ -778,7 +778,7 @@
end
@@ -25369,7 +25711,7 @@
@@ -25374,7 +25716,7 @@
pop
} ifelse
@ -787,7 +787,7 @@
options (lintype) (databarexpanded) put
options (linkage) true put
@@ -25380,7 +25722,7 @@
@@ -25385,7 +25727,7 @@
linear options //databarexpanded exec
dup (sbs) get /linsbs exch def
dup (bhs) get 0 get 72 mul /linheight exch def
@ -796,7 +796,7 @@
% Plot the separator
/sepfinder {
@@ -25409,20 +25751,60 @@
@@ -25414,20 +25756,60 @@
18 98 bot length 13 sub {} for
69 98 bot length 13 sub {} for
] {sepfinder} forall
@ -869,7 +869,7 @@
end
@@ -25480,7 +25862,7 @@
@@ -25485,7 +25867,7 @@
pop
} ifelse
@ -878,7 +878,7 @@
options (lintype) (databarexpandedstacked) put
options (linkage) true put
@@ -25491,7 +25873,7 @@
@@ -25496,7 +25878,7 @@
linear options //databarexpandedstacked exec
dup (pixs) get 0 2 index (pixx) get getinterval /bot exch def
dup (pixy) get /linheight exch def
@ -887,7 +887,7 @@
% Plot the separator
/sepfinder {
@@ -25517,21 +25899,49 @@
@@ -25522,21 +25904,49 @@
19 98 bot length 13 sub {} for
70 98 bot length 13 sub {} for
] {sepfinder} forall
@ -950,7 +950,7 @@
end
@@ -25590,7 +26000,7 @@
@@ -25595,7 +26005,7 @@
pop
} ifelse
@ -959,7 +959,7 @@
options (inkspread) (0) put
options (dontdraw) true put
@@ -25617,35 +26027,87 @@
@@ -25622,35 +26032,87 @@
linear << options {} forall >> //gs1-128 exec
dup (sbs) get /linsbs exch def
dup (bhs) get 0 get 72 mul /linheight exch def
@ -1061,7 +1061,7 @@
end
@@ -26919,3 +27381,176 @@
@@ -26924,3 +27386,181 @@
% --END ENCODER hibcazteccode--
% --END TEMPLATE--
@ -1076,7 +1076,7 @@
+% `-sb=` is the bwipp barcode routine name
+% `-sd=` is the data (`sd2=` is also available for overspill data > 2K to get around Ghostscript arg_str_max)
+% `-so=` are options (as space separated key=val pairs (or just key if boolean true))
+
+
+% Command line "-s" options put into system dictionary as strings
+/n systemdict /n known def
+
@ -1153,7 +1153,12 @@
+ % Check if given ratio arg to adjust width of bars/spaces (e.g. "0.6" reduces 3 -> 2, "1.3" increases 2 -> 3)
+ systemdict /r known {
+ /r systemdict /r get cvr def
+ /f { r mul round cvi } def
+ systemdict /c known { % Apply ceiling ratio beforehand
+ /c systemdict /c get cvr def
+ /f { c mul ceiling cvi r mul round cvi } def
+ } {
+ /f { r mul round cvi } def
+ } ifelse
+ } {
+ /f {} def
+ } ifelse
@ -1231,7 +1236,7 @@
+ } if
+} ifelse
+
+% If have renderer
+% If have renderer
+ret /ren known {
+ % Scale
+ /s systemdict /s known { systemdict /s get cvi } { 2 } ifelse def