databarlimitedcomposite: Uplift

Author: terryburton

src/databarlimitedcomposite.ps.src

@@ -1,7 +1,7 @@
 % Barcode Writer in Pure PostScript
 % https://bwipp.terryburton.co.uk
 %
-% Copyright (c) 2004-2024 Terry Burton
+% Copyright (c) 2004-2025 Terry Burton
 %
 % $Id$
 %
@@ -47,11 +47,16 @@ dup /gs1process dup /uk.co.terryburton.bwipp findresource put
 dup /renlinear dup /uk.co.terryburton.bwipp findresource put
 dup /renmatrix dup /uk.co.terryburton.bwipp findresource put
 begin
+
+/databarlimitedcomposite.sepleft  [ 0 0 0 ] readonly def
+/databarlimitedcomposite.sepright [ 0 0 0 0 0 0 0 0 0 ] readonly def
+
 /databarlimitedcomposite {
 
-    20 dict begin            % Confine variables to local scope
+    20 dict begin
 
     /ctx null def
+
     /dontdraw false def
     /usematrix false def
     /parse false def
@@ -63,7 +68,9 @@ begin
 
     dontdraw { /usematrix true def } if
 
+    %
     % Split the linear and composite parts
+    %
     barcode (|) search {
         /linear exch def
         pop
@@ -80,30 +87,38 @@ begin
     options (dontdraw) true put
     options (dontlint) true put
 
+    %
     % Lint the combined AI element strings
+    %
     linear length comp length add string
     dup 0 linear putinterval
     dup linear length comp putinterval
     /ai //gs1process exec pop pop pop
 
+    %
     % Plot the linear part
+    %
     linear options //databarlimited exec
     dup (sbs) get /linsbs exch def
     dup (bhs) get 0 get 72 mul /linheight exch def
     usematrix not { //renlinear exec } { pop } ifelse
 
+    %
     % Plot the separator
+    %
     mark
     1 linsbs {1 index 0 eq {{1}} {{0}} ifelse repeat} forall
     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
+    sep 0 //databarlimitedcomposite.sepleft putinterval
+    sep sep length 9 sub //databarlimitedcomposite.sepright putinterval  % 4 + 5 right guard spaces
 
     usematrix not {
 
         currentpoint
 
+        %
         % Plot the 2D part
+        %
         comp options //gs1-cc exec
         dup (pixx) get 72 exch sub linheight 1 add rmoveto
         //renmatrix exec