Fix composites to pull back text alignment options from their linear symbol

Author: terryburton

CHANGES

@@ -1,6 +1,7 @@
 XXXX-XX-XX
 
 * The matrix renderer now supports a rowmult option for vertical run-length encoding of repeated rows, reducing memory allocation and processing for stacked-linear and composite symbols.
+* Text alignment options for composite symbols was fixed.
 
 
 2026-04-03

src/databarexpandedcomposite.ps.src

@@ -174,6 +174,8 @@ begin
             aload pop 4 -1 roll pixx linpixs length sub 1 add add 4 1 roll 5 array astore
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /pixy ccrows 1 add linheight add def
 
@@ -203,6 +205,8 @@ begin
     /bordertop bordertop
     /borderbottom borderbottom
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin

src/databarexpandedstackedcomposite.ps.src

@@ -169,6 +169,8 @@ begin
             aload pop 5 array astore  % No x offset needed; linear at column 0
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /pixy 0 rowmult {add} forall def
 
@@ -199,6 +201,8 @@ begin
     /bordertop bordertop
     /borderbottom borderbottom
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin

src/databarlimitedcomposite.ps.src

@@ -167,6 +167,8 @@ begin
             aload pop 4 -1 roll pixx linpixs length sub 1 add add 4 1 roll 5 array astore
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /pixy ccrows 1 add linheight add def
 
@@ -196,6 +198,8 @@ begin
     /bordertop bordertop
     /borderbottom borderbottom
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin

src/databaromnicomposite.ps.src

@@ -178,6 +178,8 @@ begin
             aload pop 4 -1 roll pixx linpixs length sub 1 add add 4 1 roll 5 array astore
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /pixy ccrows 1 add linheight add def
 
@@ -207,6 +209,8 @@ begin
     /bordertop bordertop
     /borderbottom borderbottom
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin

src/databarstackedcomposite.ps.src

@@ -176,6 +176,8 @@ begin
             aload pop 5 array astore  % No x offset needed; linear at column 0
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /pixy 0 rowmult {add} forall def
 
@@ -206,6 +208,8 @@ begin
     /bordertop bordertop
     /borderbottom borderbottom
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin

src/databarstackedomnicomposite.ps.src

@@ -176,6 +176,8 @@ begin
             aload pop 5 array astore  % No x offset needed; linear at column 0
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /pixy 0 rowmult {add} forall def
 
@@ -206,6 +208,8 @@ begin
     /bordertop bordertop
     /borderbottom borderbottom
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin

src/databartruncatedcomposite.ps.src

@@ -179,6 +179,8 @@ begin
             aload pop 4 -1 roll pixx linpixs length sub 1 add add 4 1 roll 5 array astore
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /pixy ccrows 1 add linheight add def
 
@@ -208,6 +210,8 @@ begin
     /bordertop bordertop
     /borderbottom borderbottom
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin

src/ean13composite.ps.src

@@ -123,6 +123,8 @@ begin
             aload pop 4 -1 roll linpad length 1 add add 4 1 roll 5 array astore
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /diff linwidth linpad length add 1 add ccpixx sub def  % An add-on can make linear wider than composite
     diff 0 gt {  % Left align composite
@@ -202,6 +204,8 @@ begin
     /guardwidth guardwidth
     /guardheight guardheight
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin

src/ean8composite.ps.src

@@ -133,6 +133,8 @@ begin
             aload pop 4 -1 roll linpad length 1 add add 4 1 roll 5 array astore
         } forall } { pop pop } ifelse
     ] def
+    /text1xalign linsym /text1xalign 2 copy known { get } { pop pop (unset) } ifelse def
+    /text1yalign linsym /text1yalign 2 copy known { get } { pop pop (unset) } ifelse def
 
     /diff linwidth linpad length add 1 add ccpixx sub def  % An add-on can make linear wider than composite
     diff 0 gt {  % Left align composite
@@ -212,6 +214,8 @@ begin
     /guardwidth guardwidth
     /guardheight guardheight
     /txt txt
+    /text1xalign text1xalign
+    /text1yalign text1yalign
     /physspec physspec
     /xdim xdim
     /xmin xmin