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
|
include : StdAnchors.mediumWide
|
||||||
|
|
||||||
local boxhs : Math.min (markFine * 2) ((belowMarkTop - belowMarkBot) / 3)
|
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.l (markMiddle - markExtend) belowMarkBot belowMarkTop boxvs
|
||||||
include : VBar.r (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
|
set-width 0
|
||||||
include : StdAnchors.mediumWide
|
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.b (markMiddle - markExtend) (markMiddle + markExtend) belowMarkBot eqsw
|
||||||
include : HBar.t (markMiddle - markExtend) (markMiddle + markExtend) belowMarkTop boxsw
|
include : HBar.t (markMiddle - markExtend) (markMiddle + markExtend) belowMarkTop eqsw
|
||||||
|
|
||||||
create-glyph 'shelfBelow' : glyph-proc
|
create-glyph 'shelfBelow' : glyph-proc
|
||||||
set-width 0
|
set-width 0
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue