Minor fixup of stroke width of combining box. (#2521)
This commit is contained in:
parent
006c77edae
commit
11062d7ae6
1 changed files with 4 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue