Fixup for dCaron, LCaron

This commit is contained in:
be5invis 2022-02-19 16:10:35 -08:00
parent 74d1da86c5
commit 2b4563c39f
2 changed files with 9 additions and 7 deletions

View file

@ -10,9 +10,10 @@ glyph-block Autobuild-DCaron : begin
glyph-block-import Mark-Shared-Metrics : markExtend glyph-block-import Mark-Shared-Metrics : markExtend
glyph-block-import Letter-Latin-Lower-D glyph-block-import Letter-Latin-Lower-D
derive-glyphs 'dcaron' 0x10f 'd' : lambda [src gr] : glyph-proc derive-multi-part-glyphs 'dcaron' 0x10f { 'd' 'commaAbove' } : lambda [srcs gr] : glyph-proc
include : refer-glyph "commaAbove" local { base mark } srcs
include : refer-glyph mark
include : Translate (Width + (RightSB - SB) / 2 + markExtend / 2) 0 include : Translate (Width + (RightSB - SB) / 2 + markExtend / 2) 0
local f : Widen {src} 0.95 1 local f : Widen {base} 0.95 1
include : f.queryByName src include : f.queryByName base
include : MarkSet.b include : MarkSet.b

View file

@ -50,10 +50,11 @@ glyph-block Letter-Latin-Upper-L : begin
include : VBarLeft (LBarLeftX + BBD) 0 CAP BBS include : VBarLeft (LBarLeftX + BBD) 0 CAP BBS
include : HBarTop LBarLeftX (LBarLeftX + BBD) CAP BBS include : HBarTop LBarLeftX (LBarLeftX + BBD) CAP BBS
derive-glyphs 'Lcaron' 0x13D 'L' : lambda [src gr] : glyph-proc derive-multi-part-glyphs 'Lcaron' 0x13D { 'L' 'commaAbove' } : lambda [srcs gr] : glyph-proc
local { base mark } srcs
include : WithTransform [Translate (Width + (RightSB - SB) * 0.375) 0] include : WithTransform [Translate (Width + (RightSB - SB) * 0.375) 0]
refer-glyph "commaAbove" refer-glyph mark
include [refer-glyph src] AS_BASE ALSO_METRICS include [refer-glyph base] AS_BASE ALSO_METRICS
define [LSlashOverlay top] : begin define [LSlashOverlay top] : begin
local fine : 0.5 * OverlayStroke local fine : 0.5 * OverlayStroke