Insular F marks

This commit is contained in:
be5invis 2023-08-13 15:47:08 -07:00
parent b3fa0ab1cb
commit 4e6a68d45a

View file

@ -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)