From 2b4563c39f0311c3cfaaa176d7d6f896f6429e2f Mon Sep 17 00:00:00 2001 From: be5invis Date: Sat, 19 Feb 2022 16:10:35 -0800 Subject: [PATCH] Fixup for dCaron, LCaron --- font-src/glyphs/auto-build/special-accented-letters.ptl | 9 +++++---- font-src/glyphs/letter/latin/upper-l.ptl | 7 ++++--- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/font-src/glyphs/auto-build/special-accented-letters.ptl b/font-src/glyphs/auto-build/special-accented-letters.ptl index fbb1de294..a04326ba5 100644 --- a/font-src/glyphs/auto-build/special-accented-letters.ptl +++ b/font-src/glyphs/auto-build/special-accented-letters.ptl @@ -10,9 +10,10 @@ glyph-block Autobuild-DCaron : begin glyph-block-import Mark-Shared-Metrics : markExtend glyph-block-import Letter-Latin-Lower-D - derive-glyphs 'dcaron' 0x10f 'd' : lambda [src gr] : glyph-proc - include : refer-glyph "commaAbove" + derive-multi-part-glyphs 'dcaron' 0x10f { 'd' 'commaAbove' } : lambda [srcs gr] : glyph-proc + local { base mark } srcs + include : refer-glyph mark include : Translate (Width + (RightSB - SB) / 2 + markExtend / 2) 0 - local f : Widen {src} 0.95 1 - include : f.queryByName src + local f : Widen {base} 0.95 1 + include : f.queryByName base include : MarkSet.b diff --git a/font-src/glyphs/letter/latin/upper-l.ptl b/font-src/glyphs/letter/latin/upper-l.ptl index a86f4ffa4..4485f91e6 100644 --- a/font-src/glyphs/letter/latin/upper-l.ptl +++ b/font-src/glyphs/letter/latin/upper-l.ptl @@ -50,10 +50,11 @@ glyph-block Letter-Latin-Upper-L : begin include : VBarLeft (LBarLeftX + BBD) 0 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] - refer-glyph "commaAbove" - include [refer-glyph src] AS_BASE ALSO_METRICS + refer-glyph mark + include [refer-glyph base] AS_BASE ALSO_METRICS define [LSlashOverlay top] : begin local fine : 0.5 * OverlayStroke