From 4e6a68d45a80039e6fd52d74ee855ee4b35db7d9 Mon Sep 17 00:00:00 2001 From: be5invis Date: Sun, 13 Aug 2023 15:47:08 -0700 Subject: [PATCH] Insular F marks --- font-src/glyphs/letter/latin/lower-r.ptl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/font-src/glyphs/letter/latin/lower-r.ptl b/font-src/glyphs/letter/latin/lower-r.ptl index 160b263a3..f0daf9aae 100644 --- a/font-src/glyphs/letter/latin/lower-r.ptl +++ b/font-src/glyphs/letter/latin/lower-r.ptl @@ -46,8 +46,8 @@ glyph-block Letter-Latin-Lower-R : begin HSerif.lb rSerifX y (rSerifLeftJut + (strokeBar / 2) * HVContrast) HSerif.rb rSerifX y (rSerifRightJut + (strokeBar / 2) * HVContrast) local xAtt : rSerifX + rSerifRightJut + (strokeBar / 2) * HVContrast - set-base-anchor 'palatalHookAttach' xAtt 0 - set-base-anchor 'palatalHookPos' xAtt 0 + set-base-anchor 'palatalHookAttach' xAtt y + set-base-anchor 'palatalHookPos' xAtt y local [rTopSerif y] : tagged 'serifLT' HSerif.lt rSerifX y (rSerifLeftJut + (strokeBar / 2) * HVContrast) @@ -202,7 +202,10 @@ glyph-block Letter-Latin-Lower-R : begin create-glyph "rCapLongLeg.\(suffix)" : glyph-proc set-width df.width include : df.markSet.capDesc - define [object xBar rBottomSerif] : RDim df mode + + define [object xBar rBottomSerif setMarks] : RDim df mode + include : setMarks doTS CAP Descender + include : with-transform [ApparentTranslate 0 (CAP - XH)] : F df mode doTS 0 eject-contour 'serifLB' include : VBar.r xBar Descender (CAP - XH)