Extend primary symbol's main bars to the separator

Author: terryburton

src/ean13composite.ps.src

@@ -148,11 +148,19 @@ begin
         bhsrow b bbsrow b get bhs b get 72 mul add put
     } for
 
+    % Main symbol bars extend to full height connecting to separator; add-on bars keep their height
+    /linheight 0 bhsrow { ceiling cvi 2 copy lt { exch } if pop } forall def
+    /mainbars nbars def
+    0 1 sbs length 1 sub {
+        dup sbs exch get type /realtype eq { 1 add 2 idiv /mainbars exch def exit } { pop } ifelse
+    } for
+    0 1 mainbars 1 sub { bhsrow exch linheight put } for
+
     % Rasterize linear rows, deduplicating identical adjacent rows using a string buffer
     /rowbuf pixx string def
     /prevrow () def  /linrowmult 72 array def  /lri 0 def
     /linpixs [
-        71 -1 0 {
+        linheight 1 sub -1 0 {
             /y exch def
             /p 0 def
             linpad { rowbuf p 3 -1 roll put /p p 1 add def } forall

src/ean8composite.ps.src

@@ -158,11 +158,19 @@ begin
         bhsrow b bbsrow b get bhs b get 72 mul add put
     } for
 
+    % Main symbol bars extend to full height connecting to separator; add-on bars keep their height
+    /linheight 0 bhsrow { ceiling cvi 2 copy lt { exch } if pop } forall def
+    /mainbars nbars def
+    0 1 sbs length 1 sub {
+        dup sbs exch get type /realtype eq { 1 add 2 idiv /mainbars exch def exit } { pop } ifelse
+    } for
+    0 1 mainbars 1 sub { bhsrow exch linheight put } for
+
     % Rasterize linear rows, deduplicating identical adjacent rows using a string buffer
     /rowbuf pixx string def
     /prevrow () def  /linrowmult 72 array def  /lri 0 def
     /linpixs [
-        71 -1 0 {
+        linheight 1 sub -1 0 {
             /y exch def
             /p 0 def
             linpad { rowbuf p 3 -1 roll put /p p 1 add def } forall

src/upcacomposite.ps.src

@@ -148,11 +148,19 @@ begin
         bhsrow b bbsrow b get bhs b get 72 mul add put
     } for
 
+    % Main symbol bars extend to full height connecting to separator; add-on bars keep their height
+    /linheight 0 bhsrow { ceiling cvi 2 copy lt { exch } if pop } forall def
+    /mainbars nbars def
+    0 1 sbs length 1 sub {
+        dup sbs exch get type /realtype eq { 1 add 2 idiv /mainbars exch def exit } { pop } ifelse
+    } for
+    0 1 mainbars 1 sub { bhsrow exch linheight put } for
+
     % Rasterize linear rows, deduplicating identical adjacent rows using a string buffer
     /rowbuf pixx string def
     /prevrow () def  /linrowmult 72 array def  /lri 0 def
     /linpixs [
-        71 -1 0 {
+        linheight 1 sub -1 0 {
             /y exch def
             /p 0 def
             linpad { rowbuf p 3 -1 roll put /p p 1 add def } forall

src/upcecomposite.ps.src

@@ -155,11 +155,19 @@ begin
         bhsrow b bbsrow b get bhs b get 72 mul add put
     } for
 
+    % Main symbol bars extend to full height connecting to separator; add-on bars keep their height
+    /linheight 0 bhsrow { ceiling cvi 2 copy lt { exch } if pop } forall def
+    /mainbars nbars def
+    0 1 sbs length 1 sub {
+        dup sbs exch get type /realtype eq { 1 add 2 idiv /mainbars exch def exit } { pop } ifelse
+    } for
+    0 1 mainbars 1 sub { bhsrow exch linheight put } for
+
     % Rasterize linear rows, deduplicating identical adjacent rows using a string buffer
     /rowbuf pixx string def
     /prevrow () def  /linrowmult 72 array def  /lri 0 def
     /linpixs [
-        71 -1 0 {
+        linheight 1 sub -1 0 {
             /y exch def
             /p 0 def
             linpad { rowbuf p 3 -1 roll put /p p 1 add def } forall

tests/ps_tests/ean13composite.ps.test

@@ -197,5 +197,11 @@
     0 0 0 1 0 1 0 1 1 1 1 0 1 0 0 1 0 0 0 1 0 1 1 0 0 1 1 0 0 1 0 0 1 1 0 1 0 0 0 0 1 0 1 0 0 0 1 1 0 1 0 1 0 1 0 0 1 1 1 0 1 0 1 0 0 0 0 1 0 0 0 1 0 0 1 0 0 1 0 0 0 1 1 1 0 1 0 0 1 1 1 0 0 1 0 1 0 1 0 0 0 0 0 0 0 1 0 1 1 0 0 1 1 0 0 1 0 1 0 0 1 0 0 1 1
 ] eq_tmpl
 
+% height option affects only linear bars, not the CC component
+{
+    (331234567890|(99)1234-abcd) (dontdraw ccversion=a height=0.5) ean13composite
+    dup /height get exch /pixy get 72 div sub abs 0.001 lt  % height = pixy/72 (natural, not user's 0.5)
+} true isEqual
+
 % Missing composite component (no pipe character)
 { (331234567890) (dontdraw) ean13composite } /bwipp.missingCompositeComponent isError