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

This commit is contained in:
John McWilliams 2024-09-27 16:11:24 -04:00 committed by GitHub
parent 006c77edae
commit 11062d7ae6
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -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