Minor fixup of stroke width of combining box. (#2521)

be5invis · Sep 27, 2024 · 11062d7 · 11062d7
1 parent 006c77e
commit 11062d7
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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