From 11062d7ae6df9a303340cc138c92349b03e2b5b9 Mon Sep 17 00:00:00 2001
From: John McWilliams <37010132+jmcwilliams403@users.noreply.github.com>
Date: Fri, 27 Sep 2024 16:11:24 -0400
Subject: [PATCH] Minor fixup of stroke width of combining box. (#2521)

---
 packages/font-glyphs/src/marks/below.ptl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/font-glyphs/src/marks/below.ptl b/packages/font-glyphs/src/marks/below.ptl
index 42e0bbe2f5..070a113b26 100644
--- a/packages/font-glyphs/src/marks/below.ptl
+++ b/packages/font-glyphs/src/marks/below.ptl
@@ -121,7 +121,7 @@ glyph-block Mark-Below : begin
 		include : StdAnchors.mediumWide
 
 		local boxhs : Math.min (markFine * 2) ((belowMarkTop - belowMarkBot) / 3)
-		local boxvs : Math.min (markFine * 2) (markExtend * 2 / 3)
+		local boxvs : Math.min (markFine * 2) ((markExtend * 2) / (HVContrast * 3))
 
 		include : VBar.l (markMiddle - markExtend) belowMarkBot belowMarkTop boxvs
 		include : VBar.r (markMiddle + markExtend) belowMarkBot belowMarkTop boxvs
@@ -132,10 +132,10 @@ glyph-block Mark-Below : begin
 		set-width 0
 		include : StdAnchors.mediumWide
 
-		local boxsw : Math.min (markFine * 2) ((belowMarkTop - belowMarkBot) / 3)
+		local eqsw : Math.min (markFine * 2) ((belowMarkTop - belowMarkBot) / 3)
 
-		include : HBar.b (markMiddle - markExtend) (markMiddle + markExtend) belowMarkBot boxsw
-		include : HBar.t (markMiddle - markExtend) (markMiddle + markExtend) belowMarkTop boxsw
+		include : HBar.b (markMiddle - markExtend) (markMiddle + markExtend) belowMarkBot eqsw
+		include : HBar.t (markMiddle - markExtend) (markMiddle + markExtend) belowMarkTop eqsw
 
 	create-glyph 'shelfBelow' : glyph-proc
 		set-width 0